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

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
, T: ]% c$ i" }; m5 ng[x_] := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
( d1 s( M& h& R' z5 ]4 jDo[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
) r# G, z6 w  [/ V: \; @' E   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
# K* ^' D/ N+ S y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
+ t9 [0 s4 \# r) v7 u8 N t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
   DisplayFunction -> Identity];
3 p) G/ z' K  P5 ~! ^& n Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
0 Z( \) L; X# [0 p. q; ^' `