二重积分画三维图

ccapsemi

• clear;
• %二重积分
• list1=linspace(-pi,pi,50);
• list2=linspace(-pi,pi,50);
• length=0;
• for k=1:50
•     r=list1(k);
•     for j=1:50
•         t=list2(j);
•         length=length+1
•         Fq=@(w,q)(q.*sin(-(w.^2).*r-q.*t));
•         fai(k,j)=abs(integral2(Fq,-2,2,0,2));
•     end
• end
• suRF(list1,list2,fai)
  

3 i& O: _+ H* r& S
* `" e9 A: g" `, |6 r7 H1 U! i二重积分画三维图（matlab2012版运行）
' m3 l- `$ K$ [! a

ekhehnv