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

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
- s" Y! ~: ]8 }3 n8 Qg[x_] := If[x < 1,
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
6 ?/ f: w: C0 [$ W4 ?4 TDo[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
2 b* ~4 ~- p7 ~   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
) d' s  k5 c: K+ d& w y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
8 t* E  t3 i- L( w% ~% s5 t t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
3 Z3 G3 A) l' @$ ]% X! P9 a0 C) f   DisplayFunction -> Identity];
" F4 g& }: _& n! j Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
5 h, I6 U/ I4 ]5 w1 c/ u$ O