Syntax::sntxi: Incomplete expression; more input is needed .
f := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24g := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\), 0]
Do, {x, 0, 0.04 k}, PlotPoints -> 50,
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
y0 = NIntegrate)^2], {x, 0, 0.04 k}]/5;
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
DisplayFunction -> Identity];
Show, {k, 25}]
页:
[1]