24小时热门版块排行榜    

CyRhmU.jpeg
查看: 2664  |  回复: 15
【悬赏金币】回答本帖问题,作者Harlandfei将赠送您 20 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

Harlandfei

铁虫 (小有名气)

[求助] mathematic 软件用Plot画图只有坐标没有图像已有1人参与

mathematic 软件用Plot画图只有坐标没有图像
SphericalPlot3D函数如下,请各位大佬帮忙看看。问题在哪里,我是完全新手。


SphericalPlot3D[0.0073680*((Sin[a])^4*((Cos)^4+(Sin)^4)+(Cos[a])^4)+0.0106077*((Sin[a])^4(Cos)^2(Sin)^2+(Sin[a])^2(Cos[a])^2),{a,0,Pi},{b,0,4Pi},TicksStyle->Directive["Label", 14],AxesLabel -> {x, y,z},Mesh-> 35,MeshStyle -> Purple,ColorFunction -> (ColorData["Rainbow"][#6] &,PlotRange->200,AxesEdge -> {{-100, -100}, {100, -100}, {100, -100}}]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Harlandfei

铁虫 (小有名气)

12楼2021-09-10 10:38:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 16 个回答

zyh700600

金虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
存在三角函数缺变量等问题。
以下是将 缺变量 的 三角函数 加上 的效果。



SphericalPlot3D[0.0073680*((Sin[a])^4*((Cos)^4+(Sin)^4)+(Cos[a])^4)+0.0106077*((Sin[a])^4(Cos)^2*(Sin)^2+(Sin[a])^2*(Cos[a])^2),{a,0,Pi},{b,0,4Pi},TicksStyle->Directive["Label", 14],AxesLabel -> {x, y,z},Mesh-> 35,MeshStyle -> Purple,ColorFunction -> (ColorData["Rainbow"][#6] & ,AxesStyle -> Directive[Blue, FontSize -> 15], TicksStyle -> Orange]
2楼2021-09-06 12:46:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

【答案】应助回帖

SphericalPlot3D[0.0073680*((Sin[a])^4*((Cos)^4+(Sin)^4)+(Cos[a])^4)+0.0106077*((Sin[a])^4(Cos)^2*(Sin)^2+(Sin[a])^2*(Cos[a])^2),{a,0,Pi},{b,0,4Pi},TicksStyle->Directive["Label", 14],AxesLabel -> {x, y,z},Mesh-> 35,MeshStyle -> Purple,ColorFunction -> (ColorData["Rainbow"][#6] &  )   ,   AxesStyle -> Directive[Blue, FontSize -> 15], TicksStyle -> Orange]
3楼2021-09-06 12:47:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

【答案】应助回帖

<img src="https://t1.picb.cc/uploads/2021/09/06/wautgu.png" alt="wautgu.png" border="0" />
4楼2021-09-06 12:49:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
信息提示
请填处理意见