二重积分画三维图

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)
  8 A$ [9 _+ k& ~3 Z

" t$ h% F( F2 A; _( g

) g" U9 L2 j/ d& V7 A$ G: T4 u* J二重积分画三维图（matlab2012版运行）

ekhehnv