数学建模社区-数学中国
标题:
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 ^/ x4 _$ s: G
g[x_] := If[x < 1,
3 n4 ?0 g9 d, ]: B! y. s" x
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
. F* H8 j, m4 X, T y
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
/ e7 ?1 H/ a9 m; c* F% f) w, l5 E
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
/ s+ N# q; Q, \
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
# m1 W2 i' V" O" e' t
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
3 y' k1 @- U7 F% w4 n4 ?+ Z
DisplayFunction -> Identity];
- M* q, a9 Y" q# j7 ^5 ?
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
& a6 c5 V+ R- _: L% y
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5