ADR --

- D-10 -
P1OGRAMA DE CaXTUTACI0N 1
FFCC.FMA PAR/ CALCULAR PERGICAS5 CE CALOR SENSIB3LE EN TLBER1AS CF
:C CA
:C A-CAMFl ESPEC.IFICJ DEL GAS (tKCAL/tKG*I)
S=12(
0002 .T=
7 7
ccCc RIIE (6,!)
ooCO 2 J1t
0 c0 CPF-2=2.8%e(9.lGI*T*1 .E-4)4 (7.39/1**C .-)
tV "E CPCUO=O.338-CE5.28/T )4(1 .18EC4/T*A2 )
000 7 CPCO2=C.2C5-(8?.45/T)(C,.989E04/1**2)
c0 0s . CPN2=C.32P-(E8.78/T)+ 1.28E04/T''2)
:C E-CALCULC DE PCRCENTAJES PCR PESC
:C FV=FCF;CENTAJE POP VCLUPEN
c11JF FVF-2=0 -17
0012 PVCJ=.259
ocCL FVCe2C.C9
,:141. PVN2=Z.433
OC15 FVI-2C=O.02
oCCE FVCHA=0.C2,
:C FP= PC FCEN TAJE POR FE SC (KG R/IKGPC L-VE CL A
001? FPI-2=FVH2*2.
001E FPCD=PVCC*2"
adis FPC02=PVC02*L4
(12tFFC44=PVCHI4 '16.
0021 FPN?=PVN2'?b.
(.22 . FPI 2(=FVh20*18.
PMCAE =PEEO PI'LECUL AR CEL GAS ( K-F / KF EL-PEZCLA'
: C CP(AE=C ALOR ESFECI Fl C DEL CAS
0.~ 22 FMCAE PPI-2+PFCCtPPCCU24 PCH 4,PPN24PPF 2 C
0 C2L CPCA = (CPH? CPCO+C PCC 24CPCt-4 +CPN2 +CP F2C )/PFGAS
:C (-CALCULC DE CENSIQAL CE GAS (IKGPETRO CURICO)
001,5FC. E0
oc2f FH2=F/2-.
0027 FCC=F/?5.
oc2f ;CC2=F/44.
U 2 ; FCF41=R/1( .
( (21
0032 FGA5=R/PPGAS
OC?- CGA1./(FGASE*T)
jj( 3 4PC I=120'.
cc2 CAE1=E75C0O.
C -CALCULC IDE PERCIQAS CE CALER (1 CAL/VETRC GRiAGO K(,
003( TAHM3=293.
00 7 fK'AISUzO.114
tio, :S . II =0 .12 7
0 0 4C EET=(2*EAISL)+II
0042 HEXT18.18
OC421 AINr:!.141F*CI
u. 1 4 4AEXT=3.1416*CE.X T
0047 r,!=1./(AEXT'I-EXT)
004E F4=ALG(dCEXT/CI)/(9* .141'0*A AISL )
004S lA S A =72 1-.
oc~c CALOF=(TfiVP-1 )/(Pl+P2+F3+P4)
flC5 1 FL C~= AV AEA/,C AS
0052 ~ FI TE ( 6 o10) J,T PP "C ASPCFGA S C A PFL EW C ALO0R
;t.52 1=CALCR/(AtM'MA'CPCAS)41
2 Cn)NrTJI NL
052C 5 FCF 4 AT 6 PF1EPPE 2X 5F~fOLE P5 X 2 FCFP5X P4HD Eh SP3 XP5HFLU JC,
)IC5E l C [Or4A ( 14P XPF5.C P2XPF5 .2 r2X PFE 2P2XPF4. 2,2XP,7. 2P2X F7 .1)
'L 57 ETC