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

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
6 B  o3 E$ ^) c( ~! b2 @* vg[x_] := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
) A- @/ c$ f% D9 h  A6 vDo[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
. \) O0 R2 V2 Y. n" n% s   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
, ~9 x& X7 |# u5 ^8 r' Z6 |& l& l y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
8 D! u5 e1 R0 ?) j3 s! C! J t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
   DisplayFunction -> Identity];
7 F+ P( h& b7 }% k Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]