Diffusionsgleichung mit sich aendernden Rand-, Anfangsbedingungen in Mathematica

["Christian M. Sperber" <sperber.christian@XXXXXXX.de>]

Ich habe Probleme Mathematica die Diffusionsgleichung loesen zu lassen.
Ist es ueberhaupt moeglich, dieses mit einem Schritt zu evaluieren?
dT/dt = k (d^T/dz^2) + S,
mit den Bedingungen
T = 0 zum Zeitpunkt t = 0 im Halbraum z > 0
fuer alle t > 0 ist 0<z<z*  S konstant
fuer alle t > 0 bleibt dT/dz = 0 an der Stelle z = 0
an den Punkten z = +/- unendlich ist T = 0

Ich habe keine Ahnung wie die Syntax ist und die Hilfen die ich in
Mathematica gefunden habe, beziehen sich auf einfachere
Diffusionsgleichungen. Tatsaechlich habe ich eine Loesung fuer die
obrige Aufgabe, was ich allerdings erreichen moechte ist bei aenderung
der Bedingungen und eine schnelle Loesung.

DSolve[{dT/dt = = k (d^T/dz^2) + S, T(0,z>0) = = 0,

Ich nehme mal an das diese Aufgabe nicht mit einem einzigen Befehl zu
loesen ist, kann mir jemand helfen oder mich zu einer Seite linken, die
dieses erklaert.
Danke