SphericalPlot3D[1000/(-15)*ꎨ[D
mathematica吧
全部回复
仅看楼主
level 4
恩邻居家 楼主
SphericalPlot3D[1000/(-15)*ꎨ[DoubleDot](Sin[j]*Cos[q])^2ꎩ[Copyright]*((Sin[j]*Sin[q])^2)+ꎨ[DoubleDot](Sin[j]*Cos[q])^2ꎩ[Copyright]*(Cos[j]^2)+(Cos[j]^2)*ꎨ[DoubleDot](Sin[j]*Cos[q])^2ꎩ[Copyright]+8,{j,0,2p},{q,0,2p},Boxed®False,AxesLabel®{"X","Y","Z"},AxesStyle®Directive[15],LabelStyle®Directive[15],Ticks®{{-200,-100,0,100,200},{-200,-100,0,100,200},{-200,-100,0,100,200},{PlotRange®All,opts}}]
2020年01月06日 05点01分 1
level 4
恩邻居家 楼主
怎么搞啊,有没有大神,怎么没图像输出啊!
2020年01月06日 05点01分 2
level 8
好好清理下你的输入法。用纯英文。。。代码没有任何问题。。。phi和theta符号你不会输入的话,可以用phi和theta直接表示。
逐个敲入:
2020年01月06日 05点01分 3
level 4
恩邻居家 楼主
好的,谢谢
2020年01月06日 05点01分 4
level 8
SphericalPlot3D[
1000/(-15)*(Sin[phi]*
Cos[theta])^2*((Sin[phi]*Sin[theta])^2) + ((Sin[phi]*
Cos[theta])^2)*(Cos[phi]^2) + (Cos[
phi]^2)*((Sin[phi]*Cos[theta])^2) + 8, {phi, 0, 2 Pi}, {theta,
0, 2 Pi}, PlotRange -> All, Boxed -> True, PlotPoints -> 100]
不用客气
2020年01月06日 05点01分 5
1000是除以后边的整体吗?
2020年01月06日 06点01分
1