24小时热门版块排行榜

>论坛更新日志 (3937)
>虫友互识 (821)
>导师招生 (366)
>文献求助 (265)
>考博 (226)
>休闲灌水 (216)
>硕博家园 (175)
>论文投稿 (143)
>博后之家 (113)
>考研 (102)
>教师之家 (56)
>公派出国 (55)
>招聘信息布告栏 (53)
>精细化工 (53)
>基金申请 (46)
>论文道贺祈福 (32)

返回列表

yssfighting

铜虫 (初入文坛)

应助: 0 (幼儿园)
金币: 108
帖子: 14
在线: 7.2小时
虫号: 2721174
注册: 2013-10-13
性别: MM
专业: 光学和光电子材料

[求助] 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中画图时只显示有坐标轴，画不出曲线是怎么回事？请知道的人多多指点！

回复此楼