Problema 7.1
Problema 7.1
Problema 7.1
CAPITULO 7
ALUMNO:
PROFESOR:
𝒑𝒔𝒂𝒕 𝑨𝟐
𝒍𝒏 = 𝑨𝟏 −
𝒑𝒄 𝑻 + 𝑨𝟑
De la cual
𝑨𝟐
𝒑𝒔𝒂𝒕 = 𝒆𝒙𝒑(𝑨𝟏 − ) ∗ 𝒑𝒄
𝑻 + 𝑨𝟑
PROGRAM S_B_T
IMPLICIT NONE
!DECLARACION DE VARIABLES
REAL::J,T0,TI,T
REAL(KIND=8)::P1,P2,PSAT1,PSAT2,ALPHA
REAL(KIND=8)::K1,K2,P
REAL(KIND=8), DIMENSION(3)::A,B
REAL(KIND=8), DIMENSION(2)::PC,Z
T0=500
TI=1500
P=100
A=(/5.602657,418.1773,474.214/)
B=(/5.141350,1742.638,452.974/)
PC=(/714.2,587.8/)
Z=(/0.60,0.40/)
WRITE(*,*)"****************************************************"
WRITE(*,*)"****************************************************"
WRITE(10,*)"****************************************************"
WRITE(20,*)"****************************************************"
WRITE(20,*)"T K1 K2 K3 K4 "
WRITE(20,*)"****************************************************"
DO J=T0,TI
T=J
PSAT1=PC(1)*EXP(P1)
PSAT2=PC(2)*EXP(P2)
ALPHA=PSAT1/PSAT2
WRITE(10,420)T,PSAT1,PSAT2,ALPHA
K1=PSAT1/P
K2=PSAT2/P
IF (ALPHA==4) EXIT
WRITE(20,430)T,K1,K2
END DO
STOP "LISTO"