Matlab Hogyan - Hidrodinamikai Rendszerek Tanszék

11. FEJEZET. PÉLDAPROGRAMOK 41
kar.m
function [puj,vuj]=kar(adatok,p,v,PF0_tipus,PF0_ertek,PFN_tipus,PFN_ertek)
D = adatok{1}(1); % csoatmero
L = adatok{1}(2); % csohossz
N = adatok{1}(3); % csodarabok szama (csomopontok szama: N+1)
a = adatok{1}(4); % hangsebesseg
ro = adatok{1}(5); % suruseg
g = 9.81;
dx = L/N;
dt = dx/a;
roa = ro*a;
dzdx = adatok{2};
nu = 1e-6;
lambda=0.02;
for i=2:N
ar = p(i-1)+ro*a*v(i-1);
br = p(i+1)-ro*a*v(i+1);
vuj(i) = (-2*dt*roa*g*dzdx(i)+ar-br)/roa/(2+dt*lambda/2/D*(abs(v(i+1))+abs(v(i-1))));
puj(i) = ( -dt*roa*g*dzdx(i)+ar)-roa*(1+dt*lambda/2/D* abs(v(i-1)))*vuj(i);
end
% Peremfeltetelek beallitasa.
perem_1 = p(2)-ro*a*v(2) + dt*roa*g*dzdx(1);
perem_N = p(N)+ro*a*v(N) - dt*roa*g*dzdx(N+1);
szorzo1 = roa*(1+dt*lambda/2/D*abs(v(2)));
szorzoN = roa*(1+dt*lambda/2/D*abs(v(N)));
switch PF0_tipus
case ’p’
puj(1) = PF0_ertek;
vuj(1) = (puj(1)-perem_1)/szorzo1;
case ’v’
vuj(1) = PF0_ertek;
puj(1) = perem_1 + ro*a*vuj(1);
otherwise
error(’Ismeretlen peremfeltétel!’);
end
switch PFN_tipus
case ’p’
puj(N+1) = PFN_ertek;
vuj(N+1) = -(puj(N+1)-perem_N)/ro/a;
case ’v’
vuj(N+1) = PFN_ertek;
puj(N+1) = perem_N-szorzoN*vuj(N+1);
otherwise
error(’Ismeretlen peremfeltétel!’);
end