blob: 088713ab8529ce1a78e80f062c182f6821ed8e76 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc
h1=2870.5
s1=7.5072
h2=504.7
s2=1.5301
deltassteam=s2-s1
deltaSsys=deltassteam
mprintf("deltassteam=%fkJ/kg\n",deltassteam)
q=h2-h1
Q=-q
mprintf("q=%fkJ\n",q)
Tsur=300
deltaSsur=Q/Tsur
mprintf("deltaSsur=%fkJ/K\n",deltaSsur)
deltaSuni=deltaSsys+deltaSsur
mprintf("deltaSsur=%fkJ/K",deltaSuni)
|
