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

宏心

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
) `& e( F  Z% B8 q* s2 r' L7 bg[x_] := If[x < 1,
; A( K, o3 d: g& ^! H' E5 c\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
- K7 C/ Y7 [+ n5 }Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
/ f* k7 l" l8 V- O7 i y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
3 o8 L( m2 {/ W$ k4 B! b# _   DisplayFunction -> Identity];
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
9 ?" R/ V1 {4 z, l! [5 d