24小时热门版块排行榜    

查看: 563  |  回复: 1

hgrlake

铁虫 (初入文坛)

[求助] 如何在mathematica 9中求解公式2,3.

求:如何在mathematica 9中求解附件中的公式2,3,其中,期望通过公式2得到函数图像,通过公式3得到具体的值
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : equation.pptx
  • 2014-04-25 10:51:06, 42.9 K

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

落筝083415

新虫 (初入文坛)

P[z_, \[Phi]_] := Sqrt[9 - 6 r Cos[\[Phi]] + r^2 + z^2];
Ip[r_, z0_] :=
NIntegrate[
   E^(-2 P[z, \[Phi]])*600/(9 + r^2 + z^2 - 6 r Cos[\[Phi]]), {\[Phi],
     0, 2 \[Pi]}, {z, 0, z0}] +
  NIntegrate[
   E^(-2 P[z, \[Phi]])*600/(9 + r^2 + z^2 - 6 r Cos[\[Phi]]), {\[Phi],
     0, 2 \[Pi]}, {z, 0, 60 - z0}]
z0 = 30;
Plot[Ip[r, z0], {r, 0, 4}, PlotRange -> All]
Clear[z0]
Plot3D[Ip[r, z0], {r, 0, 4}, {z0, 0, 3}, PlotRange -> All]

你参考一下,我也不是很确定
2楼2014-05-24 01:13:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hgrlake 的主题更新
信息提示
请填处理意见