2011-08-11 22:20:14| 分类: Mathematica | 标签: |举报 |字号大中小 订阅
f[x_,y_,z_]:=Sqrt[x^2+y^2+z^2];
t1=0;t2=2*Pi;
phi1[t_]:=0;phi2[t_]:=Pi/2;
r1[t_,phi_]:=0;r2[t_,phi_]:=Cos[phi];
Integrate[r^2 Sin[phi] f[r*Sin[phi]*Cos[t],r*Sin[phi]*Sin[t],r*Cos[phi]],{t,t1,t2},{phi,phi1[t],phi2[t]},{r,r1[t,phi],r2[t,phi]}]
返回《用Mathematica做微积分》 http://xuxzmail.blog.163.com/blog/static/2513191620117693216134/
评论