数学建模社区-数学中国
标题:
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 i3 b( u; F/ \: I, K( O6 Y" \
g[x_] := If[x < 1,
1 Y6 `4 P+ d. @6 x( x% w% y
\!\(\*SuperscriptBox[\(f\), \(,\)]\)[x], 0]
; O) U# `4 y# Q% W# `; l$ V; G# o+ H+ d
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
; O4 N% l" Z% y0 t. s4 [
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
! a8 l, P. A' P* U; ?( J( t
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
4 W: w& T: {0 I g6 C7 A
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
$ ~5 g) z7 \. r. i" h( N
DisplayFunction -> Identity];
1 w3 b" I" ^* p
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]
% A) G/ i/ D8 Z- \. Q
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5