1个回答
展开全部
With[{w = r Exp[I \[Theta]]},
g3 = Im[(1 + w^6)/(w^6 + Sqrt[5] w^3 - 1)] - 1/2;
g1 = -(3/2) Im[(w (1 - w^4))/(w^6 + Sqrt[5] w^3 - 1)];
g2 = -(3/2) Re[(w (1 + w^4))/(w^6 + Sqrt[5] w^3 - 1)];
g = Total[{g1, g2, g3}^2];
ParametricPlot3D[{g1, g2, g3}/g, {r, 0, 1}, {\[Theta], 0, 2 \[Pi]},
PlotTheme -> {"Classic", "ClassicLights"},
PerformanceGoal -> "Quality", PlotPoints -> 50, Boxed -> False,
Axes -> False, ViewPoint -> Below]
]
g3 = Im[(1 + w^6)/(w^6 + Sqrt[5] w^3 - 1)] - 1/2;
g1 = -(3/2) Im[(w (1 - w^4))/(w^6 + Sqrt[5] w^3 - 1)];
g2 = -(3/2) Re[(w (1 + w^4))/(w^6 + Sqrt[5] w^3 - 1)];
g = Total[{g1, g2, g3}^2];
ParametricPlot3D[{g1, g2, g3}/g, {r, 0, 1}, {\[Theta], 0, 2 \[Pi]},
PlotTheme -> {"Classic", "ClassicLights"},
PerformanceGoal -> "Quality", PlotPoints -> 50, Boxed -> False,
Axes -> False, ViewPoint -> Below]
]
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |