integr2.m

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

function  integr2=integr2(h,x,K1K1,rrr);

if(rrr == 1) % cosinus integrasyonu i鏸n
	integr2=(2*x*cos(K1K1*(h-x))/(K1K1*K1K1)-x*x*sin(K1K1*(h-x))/K1K1+2*sin(K1K1*(h-x))/(K1K1*K1K1*K1K1))...
   	   -(-2*x*cos(K1K1*(h+x))/(K1K1*K1K1)-x*x*sin(K1K1*(h+x))/K1K1+2*sin(K1K1*(h+x))/(K1K1*K1K1*K1K1));
else		    % sinus   integrasyonu i鏸n
   integr2=(2*x*sin(K1K1*(h-x))/(K1K1*K1K1)+x*x*cos(K1K1*(h-x))/K1K1-2*cos(K1K1*(h-x))/(K1K1*K1K1*K1K1))...
   	   -(-2*x*sin(K1K1*(h+x))/(K1K1*K1K1)+x*x*cos(K1K1*(h+x))/K1K1-2*cos(K1K1*(h+x))/(K1K1*K1K1*K1K1));
end