Syntax::sntxi: Incomplete expression; more input is needed .

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
g[x_] := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
, J( S/ A- C! V3 D; [  y9 W y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
, X% k+ W+ M7 S% J t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
7 v" N5 l, x/ {# P9 y5 G9 Z   DisplayFunction -> Identity];
0 Y" S! H; D; c, w3 a( T$ [: y( Q6 W Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
) p  H- c& e8 b. A/ M3 v3 A$ s9 I. i