diff options
Diffstat (limited to '1472/CH8')
| -rwxr-xr-x | 1472/CH8/EX8.1/8_1.sce | 8 | ||||
| -rwxr-xr-x | 1472/CH8/EX8.2/8_2.sce | 8 | ||||
| -rwxr-xr-x | 1472/CH8/EX8.3/8_3.sce | 10 | ||||
| -rwxr-xr-x | 1472/CH8/EX8.4/8_4.sce | 10 | ||||
| -rwxr-xr-x | 1472/CH8/EX8.5/8_5.sce | 12 | ||||
| -rwxr-xr-x | 1472/CH8/EX8.6/8_6.sce | 13 |
6 files changed, 61 insertions, 0 deletions
diff --git a/1472/CH8/EX8.1/8_1.sce b/1472/CH8/EX8.1/8_1.sce new file mode 100755 index 000000000..eee711598 --- /dev/null +++ b/1472/CH8/EX8.1/8_1.sce @@ -0,0 +1,8 @@ +clc
+//initialization of varaibles
+T1=85+460 //R
+T2=50+460 //R
+//calculations
+eta=(T1-T2)/T1
+//results
+printf("Max. efficiency = %.1f percent",eta*100)
diff --git a/1472/CH8/EX8.2/8_2.sce b/1472/CH8/EX8.2/8_2.sce new file mode 100755 index 000000000..c2d8ce0f3 --- /dev/null +++ b/1472/CH8/EX8.2/8_2.sce @@ -0,0 +1,8 @@ +clc
+//initialization of varaibles
+T1=1050+460//R
+T2=90+460 //R
+//calculations
+eta=(T1-T2)/T1
+//results
+printf("Max. possible efficiency = %d percent",eta*100)
diff --git a/1472/CH8/EX8.3/8_3.sce b/1472/CH8/EX8.3/8_3.sce new file mode 100755 index 000000000..d214dfd89 --- /dev/null +++ b/1472/CH8/EX8.3/8_3.sce @@ -0,0 +1,10 @@ +clc
+//initialization of varaibles
+T1=50+460 //R
+T2=150+460 //R
+m=1
+cp=0.240
+//calculations
+ds=m*cp*(log(T2) - log(T1))
+//results
+printf("Change in entropy = %.4f B/ F abs",ds)
diff --git a/1472/CH8/EX8.4/8_4.sce b/1472/CH8/EX8.4/8_4.sce new file mode 100755 index 000000000..d214dfd89 --- /dev/null +++ b/1472/CH8/EX8.4/8_4.sce @@ -0,0 +1,10 @@ +clc
+//initialization of varaibles
+T1=50+460 //R
+T2=150+460 //R
+m=1
+cp=0.240
+//calculations
+ds=m*cp*(log(T2) - log(T1))
+//results
+printf("Change in entropy = %.4f B/ F abs",ds)
diff --git a/1472/CH8/EX8.5/8_5.sce b/1472/CH8/EX8.5/8_5.sce new file mode 100755 index 000000000..26e087c0d --- /dev/null +++ b/1472/CH8/EX8.5/8_5.sce @@ -0,0 +1,12 @@ +clc
+//initialization of varaibles
+Q=826 //B/lb
+T=860 //R
+T1=2000+460 //R
+T2=1000+460 //R
+//calculations
+ds=Q/T
+dsgas=Q*(log(T2)-log(T1))/(T1-T2)
+dst=ds+dsgas
+//results
+printf("Total entropy change = %.3f B/R",dst)
diff --git a/1472/CH8/EX8.6/8_6.sce b/1472/CH8/EX8.6/8_6.sce new file mode 100755 index 000000000..f00e8e798 --- /dev/null +++ b/1472/CH8/EX8.6/8_6.sce @@ -0,0 +1,13 @@ +clc
+//initialization of varaibles
+T0=540 //R
+Q=826 //B/lb
+ds=0.534
+ds2=0.431
+//calculations
+tds=T0*ds
+tds2=T0*ds2
+H=Q-tds2
+Loss=tds/H
+//results
+printf("Loss = %d percent",Loss*100+1)
|