19.02.2014 Views

avaliações numéricas de chaminés de equilíbrio - ppgerha ...

avaliações numéricas de chaminés de equilíbrio - ppgerha ...

avaliações numéricas de chaminés de equilíbrio - ppgerha ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

FECHAMENTO:<br />

program fecha02;<br />

{ Chaminé <strong>de</strong> equilíbrio - Método <strong>de</strong> Lax<br />

Análise <strong>de</strong> fechamento da válvula<br />

Autores: Kaviski,E. e Andrzejewski,E.A.<br />

Versão: 03/2009<br />

}<br />

uses<br />

wincrt;<br />

type<br />

vet0 = array[1..2] of integer;<br />

vet1 = array[1..2] of double;<br />

vet2 = array[0..2000] of double;<br />

var<br />

arq : text;<br />

nx : vet0;<br />

v,h : array[1..2,1..2] of ^vet2;<br />

dx,<br />

st,<br />

qch,<br />

hch,<br />

qvs,<br />

a1,a2,<br />

a3 : vet1;<br />

t,dt,<br />

b1,b2,<br />

b3 : double;<br />

ndt,<br />

idt,<br />

i,j : integer;<br />

const<br />

lt : vet1 = (12.21e0, 0.30e0 ); {comprimento tubos}<br />

at : vet1 = ( 6.026e-4,6.026e-4); {área tubos}<br />

rt : vet1 = ( 6.925e-3,6.925e-3); {rh tubos}<br />

ft : vet1 = ( 3.1e-2, 3.1e-2 ); {coeficiente <strong>de</strong><br />

rugosida<strong>de</strong> total tubos}<br />

a : vet1 = ( 1.28e3, 1.28e3 ); {celerida<strong>de</strong> tubos}<br />

ac : double = 1.9981e-3;<br />

{área chamine}<br />

135

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!