Syntax::sntxi: Incomplete expression; more input is needed .

[复制链接]

字体大小: 正常放大

宏心

51 主题	19 听众	7461 积分

升级 49.22%

TA的每日心情

	开心 2025-8-7 06:38

签到天数: 3429 天

[LV.Master]伴坛终老

超级版主

自我介绍: 数据分析，统计学的教学，数学建模的辅导

电梯直达

1^#

发表于 2016-8-4 15:25 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

f[x_] := -5/8*(1 - x)^(4/5) + 5/12*(1 - x)^(6/5) + 5/24
g[x_] := If[x < 1,
\!$\*SuperscriptBox[\(f$, $,$]\)[x], 0]
Do[t1 = Plot[f[x], {x, 0, 0.04 k}, PlotPoints -> 50,
PlotRange -> {{0, 1.1}, {0, 0.22}}, DisplayFunction -> Identity];
y0 = NIntegrate[Sqrt[1 + (g[x])^2], {x, 0, 0.04 k}]/5;
t2 = ParametricPlot[{1, t}, {t, 0, y0}, PlotPoints -> 50,
DisplayFunction -> Identity];
Show[t1, t2, DisplayFunction -> $DisplayFunction], {k, 25}]

zan