求助:三维空间如何画一组二维曲线,谢谢。
mathematica吧
全部回复
仅看楼主
level 3
gohuifen2 楼主
Subscript[\[Omega], 0] = 1; Subscript[\[CapitalTau], 0] = 0; \
Subscript[k, 0] = 0.5;
y1 = Subscript[\[Omega], 0] -
I (2 Subscript[\[CapitalTau], 0] + 2 Subscript[k, 0] (1 + \[Xi]))/
2 + Subscript[k, 0] Sqrt[2] I Sqrt[\[Xi] + \[Eta]^2];
y2 = Subscript[\[Omega], 0] -
I (2 Subscript[\[CapitalTau], 0] + 2 Subscript[k, 0] (1 + \[Xi]))/
2 - Subscript[k, 0] Sqrt[2] I Sqrt[\[Xi] + \[Eta]^2];
f1 = y1 /. \[Xi] -> 0.2/5 n;
f2 = y2 /. \[Xi] -> 0.2/5 n;
p = Table[
Plot[{Re[f1], Re[f2]}, {\[Eta], -1, 1}], {n, -5, 5}]; Show[p]
上面画出的是在二维空间的一组曲线。
如何就是变成三维空间的一组曲线。谢谢。
2018年10月19日 02点10分 1
level 3
gohuifen2 楼主
为什么不能上穿图片呢?
2018年10月19日 02点10分 2
level 3
gohuifen2 楼主
意思就是说,函数f(x,y),x连续取值,y是间断取值。如何在三维空间画函数f(x,y)。
2018年10月19日 02点10分 3
level 7
ParametricPlot3D
2018年10月19日 13点10分 4
1