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

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
$ f* G) q8 B. |& Cg[x_] := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
+ y- l5 t  J. B6 b6 C4 GDo[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
9 M% l3 F3 j4 X* |  [% T" d   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
, k( H& J' s/ g% W1 e' t5 A* m y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
4 K1 [: |+ F. T1 ~   DisplayFunction -> Identity];
# ?! b; L! \) P  \/ u' C8 ^1 @ Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
# m+ n/ l4 N$ ~! S8 N! A