integr.m

来自「ok &ouml nemli bir kaybnkao lasdhlas sdo」· M 代码 · 共 13 行

function  integr=integr(a1,b1,a,rrr);

if(rrr == 1) % cosinus integrasyonu i鏸n
   integr=(2*a*cos((a1-b1*a))/(b1*b1)-a*a*sin((a1-b1*a))/b1+2*sin((a1-b1*a))/(b1*b1*b1))...
   	  -(-2*a*cos((a1+b1*a))/(b1*b1)-a*a*sin((a1+b1*a))/b1+2*sin((a1+b1*a))/(b1*b1*b1));
else		% sinus integrasyonu i鏸n
   integr=(a*a*cos((a1-b1*a))/b1+2*a*sin((a1-b1*a))/(b1*b1)-2*cos((a1-b1*a))/(b1*b1*b1))...
         -(a*a*cos((a1+b1*a))/b1-2*a*sin((a1+b1*a))/(b1*b1)-2*cos((a1+b1*a))/(b1*b1*b1));
end