数学建模社区-数学中国
标题:
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 T( j( T( Y2 ]
g[x_] := If[x < 1,
0 b2 t& v7 J4 I9 n( D0 l& k, ~+ M& c
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
2 k, c7 @! o( q: z; t& p3 i6 Q
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
/ l# _2 I Y2 y0 w" R! O* T
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
4 O. w7 | |% M/ u" a8 N7 K" t
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
# q& v* [* G! d4 I5 S7 y5 @
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
4 d- A; ?* Z8 z( Q: L$ q% Z
DisplayFunction -> Identity];
( \3 T3 y! Z8 | R p3 O( ]$ k* q* z
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
/ }- H$ Y) X2 ^0 _, a6 D
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5