level 6
Shu_lty
楼主
新手请教一下,我这个程序里面的分段函数怎么实现不了啊?找了很久都不知道问题在哪,感谢各位啦!
q[\[Tau]_] :=
Piecewise[{{A + a*\[Tau], 0 <= \[Tau] <= A/a}, {2*A, A/a < \[Tau]}}];
a = 5*10^-4;
A = 100;
m = 0.2;P[t_] := Module[{M}, M = 10*m^2;
M*\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(t\)]\(\((
\*SuperscriptBox[\(5\), \(t - \[Tau]\)]*\(q'\)[\[Tau]])\) \
\[DifferentialD]\[Tau]\)\)]
t = Table[10^i, {i, 0, 10, 0.2}]
ft = P[t]
fig = ListPlot[Transpose[{Log10[t], ft}], PlotRange -> All,
Joined -> True, InterpolationOrder -> 3]
2020年06月12日 07点06分
1
q[\[Tau]_] :=
Piecewise[{{A + a*\[Tau], 0 <= \[Tau] <= A/a}, {2*A, A/a < \[Tau]}}];
a = 5*10^-4;
A = 100;
m = 0.2;P[t_] := Module[{M}, M = 10*m^2;
M*\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(t\)]\(\((
\*SuperscriptBox[\(5\), \(t - \[Tau]\)]*\(q'\)[\[Tau]])\) \
\[DifferentialD]\[Tau]\)\)]
t = Table[10^i, {i, 0, 10, 0.2}]
ft = P[t]
fig = ListPlot[Transpose[{Log10[t], ft}], PlotRange -> All,
Joined -> True, InterpolationOrder -> 3]


