mathematica 7.0怎么把振幅指数衰减正弦曲线画完整?
mathematica吧
全部回复
仅看楼主
level 1
想飞243 楼主
x[t_, n_, \[Omega]0_, \[Phi]_, A_] :=
Assuming[{t > 0, n > 0, \[Omega]0 > 0, \[Phi] > 0, A > 0},
A*Exp[-n*t]*Sin[Sqrt[\[Omega]0^2 - n^2]*t + \[Phi]]]
Plot[x[t, \[Pi], 100 \[Pi], \[Pi]/8, 10], {t, 0, 1}]
2018年01月07日 12点01分 1
level 9
x[t_, n_, \[Omega]0_, \[Phi]_, A_] :=
Assuming[{t > 0, n > 0, \[Omega]0 > 0, \[Phi] > 0, A > 0},
A*Exp[-n*t]*Sin[Sqrt[\[Omega]0^2 - n^2]*t + \[Phi]]]
Plot[x[t, \[Pi], 100 \[Pi], \[Pi]/8, 10], {t, 0, 1},
PlotPoints -> 100]
2018年01月07日 23点01分 2
1