数学建模社区-数学中国
标题:
Syntax::sntxi: Incomplete expression; more input is needed .
[打印本页]
作者:
宏心
时间:
2016-8-4 15:25
标题:
Syntax::sntxi: Incomplete expression; more input is needed .
f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
7 h0 l) m* J6 i0 m
g[x_] := If[x < 1,
( a' i2 z) Z% H' d" M8 [2 E
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
, ^! ? {: z: {
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
2 d% V7 F2 R/ k! g( L( Q
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
" X: }' Q4 E* b3 ^7 L, h9 g6 M
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
, n+ L2 ]" U2 L* ?1 Y
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
; C. L( w! q: g# p. M
DisplayFunction -> Identity];
9 t/ [6 C; c9 e" k9 W) `) }
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
: q3 o" J( S# j
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5