вариант 1: (требуется, чтобы вторая строчка сразу шла за первой)
Код:
Func[x_, y_, t_] := x + y*Sin[t]; (*отложенное присваивание*)
DFun[x_, y_, t_] = D[Func[x, y, t], t]; (*немедленное присваивание*)
второй вариант: (можно менять Func в любом месте, подставится последний вариант)
Код:
DFun[x_, y_, t_] := ReleaseHold[D[Func[x, y, Hold[t]], Hold[t]]];
