vel2d.m

来自「这是在网上下的一个东东」· M 代码 · 共 26 行

%
% [dvx,dvz]=vel2d(x2,z2,ip,kp,xn,zn,v);
%
% Again, each of the input and output variables need to be explained, as
% well as what this function does.
%
%
function [dvx,dvz]=vel2d(x2,z2,ip,kp,xn,zn,v);

ip1=ip+1;
kp1=kp+1;

for k=1:length(x2)

xd=xn(ip1(k))-xn(ip(k));
zd=zn(kp1(k))-zn(kp(k));

xf=(x2(k)-xn(ip(k)))/(xn(ip1(k))-xn(ip(k)));
zf=(z2(k)-zn(kp(k)))/(zn(kp1(k))-zn(kp(k)));
xf1=1.0-xf;
zf1=1.0-zf;
dvx(k,1)=(zf1*(v(ip1(k),kp(k))-v(ip(k),kp(k)))+zf*(v(ip1(k),kp1(k))-v(ip(k),kp1(k))))/xd;
dvz(k,1)=(xf1*(v(ip(k),kp1(k))-v(ip(k),kp(k)))+xf*(v(ip1(k),kp1(k))-v(ip1(k),kp(k))))/zd;

end