Aspen plus与Fortran

13045070829 · 发表于 1970-1-1 08:00:00

对于压缩式热泵系统来说，有关计算器的编程，以下有什么问题呢  求各路大神指教
   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,'  Temperature  approaches(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)