24小时热门版块排行榜    

CyRhmU.jpeg
查看: 4433  |  回复: 1

yssfighting

铜虫 (初入文坛)

[求助] Mathematica中画图时只显示有坐标轴,画不出曲线已有1人参与

\[Lambda] = 0.05; b = 0.3; h = 1; a1 = 0.2; d = 0.5; theta1 = \
\[Pi]/6; R = 0.5; P =
a1 - y*Tan[theta1]; A = (P - b)/(2*P^3); B = 0; CC = (3*b - P)/(2*
    P); epx = 3*A*m^2 + 2*B*m + CC; x = x0*\[Lambda]; y =
y0*\[Lambda]; nx = 1/epx; ny = 1;
m = -(((2/3)^(1/3)*
     CC)/(9 *A^2 *x + Sqrt[3] *Sqrt[4 *A^3* CC^3 + 27*A^4 *x^2])^(
    1/3)) + (9* A^2 *x + Sqrt[3]* Sqrt[4 *A^3* CC^3 + 27* A^4* x^2])^(
   1/3)/(2^(1/3) *3^(2/3)* A);
y = 0.1;
Plot[{epx, 1/epx}, {x0, 0, 6}, PlotPoints -> 100, PlotRange -> All]
Plot[Evaluate[1/epx^2], {x0, 0, 6}, PlotPoints -> 100,
PlotRange -> All]
请问各位高手,这段代码在Mathematica中画图时只显示有坐标轴,画不出曲线是怎么回事?请知道的人多多指点!
回复此楼
我为自己代言
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xzczd

木虫 (小有名气)

【答案】应助回帖

你y0的定义到哪里去了?把y0补上就行了。
小木虫Mathematica版块已毁(当然原本也不咋的),建议大家前往百度贴吧或Stackexchange。
2楼2014-12-18 12:24:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yssfighting 的主题更新
信息提示
请填处理意见