Aspen plus与Fortran
对于压缩式热泵系统来说，有关计算器的编程，以下有什么问题呢求各路大神指教ZCOP=CONDUTY/COMPOWER
ZCOPECON=( CONDUTY+COOLFACT*EVAPDUTY)/COMPOWER
TVAPHI=TGAS1
TVAPHO=TGAS2
TCONCI=TRICH1
TCONCO=TRICH2
C Calculate temp approaches:
ZTAPCON1=TCONHI-TCONCO
ZTAPVAP1=TVAPHI-TVAPCO
ZTAPCON2=TCONHO-TCONCI
ZTAPVAP2=TVAPHO-TVAPCI
WRITE(*,10)ZCOP
F 10 FORMAT(2x,'COP=',F5.3)
WRITE(*,20)ZCOPECON
F 20 FORMAT(2x,'Economic COP=',F5.3)
WRITE(*,30)PRESHIGH
F 30 FORMAT(2x,'High pressure =',F5.3,'bar')
WRITE(*,40)PRESLOW
F 40 FORMAT(2x,'Low pressure =',F5.3,'bar')
WRITE(*,50)TRICH1,TRICH2
F 50 FORMAT(2x,'Heated(C):',F7.3, '->',F7.3)
WRITE(*,60)TGAS1,TGAS2
F 60 FORMAT(2x,'Cooled(C):',F7.3,'->',F7.3)
WRITE(*,70) REFRLOW
F 70 FORMAT(2x,'Low refrigerant conc(kg R600/kg solution):',F5.3)
WRITE(*,80)REFRHIGH
F 80 FORMAT(2x,'High refrigerant conc(kg R600/kg solution):',F5.3)
WRITE(*,85)
F 85 FORMAT(2x,'Temperatureapproaches(K)')
WRITE(*,90)ZTAPCON1,ZTAPCON2
F 90 FORMAT(2x,' CON ',F8.3,' ' ,F8.3)
WRITE(*,100) ZTAPVAP1, ZTAPVAP2
F 100 FORMAT(2x,' VAP ',F8.3,'' ,F8.3)
页:
[1]