数学建模社区-数学中国
标题:
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
5 R* C: _/ Y# v1 [9 F V: ^
g[x_] := If[x < 1,
: E1 }7 m8 l) S9 `! X3 V0 i+ }5 m7 y
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
' r2 i% c/ ?0 y0 e
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
- m+ U& Q& f1 j9 V4 P! d
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
' x# }3 V9 H& f$ G; n
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
~6 G! f+ {, m: x
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
. Z2 J- ]8 b! W! v/ |7 q; s9 Q$ g
DisplayFunction -> Identity];
7 F0 r7 }, k. Q# ^/ l# V6 A' G
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
: ^' t2 \" u! e6 d' Q3 ^) o+ z
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5