数学建模社区-数学中国

标题: 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% I/ b2 P3 L. C8 v# ~" y+ q
g[x_] := If[x < 1,
' h/ q3 s( a& C% n& |4 X4 N\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]' Z1 |1 B+ z! z# V% {# l
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
3 ^# m/ o; n  P   PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];8 @9 o' {$ ]# S0 b% s. F! j
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;, p* K9 Y1 o! n2 n, \2 f) C
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50, . c7 H9 Y' r' S8 S6 [; y
   DisplayFunction -> Identity];
" y, t6 O+ ]0 l; Y; b. x2 X$ t Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]8 ?9 u! V6 [* P. F





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5