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
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]
上面画出的是在二维空间的一组曲线。
如何就是变成三维空间的一组曲线。谢谢。