diff options
Diffstat (limited to '2165/CH1')
-rwxr-xr-x | 2165/CH1/EX1.1/1_1.sce | 10 | ||||
-rwxr-xr-x | 2165/CH1/EX1.11/1_11.sce | 25 | ||||
-rwxr-xr-x | 2165/CH1/EX1.13/1_13.sce | 19 | ||||
-rwxr-xr-x | 2165/CH1/EX1.2/1_2.sce | 13 | ||||
-rwxr-xr-x | 2165/CH1/EX1.20/1_20.sce | 15 | ||||
-rwxr-xr-x | 2165/CH1/EX1.22/1_22.sce | 19 | ||||
-rwxr-xr-x | 2165/CH1/EX1.23/1_23.sce | 20 | ||||
-rwxr-xr-x | 2165/CH1/EX1.26/1_26.sce | 18 | ||||
-rwxr-xr-x | 2165/CH1/EX1.4/1_4.sce | 14 | ||||
-rwxr-xr-x | 2165/CH1/EX1.5/1_5.sce | 11 | ||||
-rwxr-xr-x | 2165/CH1/EX1.8/1_8.sce | 24 | ||||
-rwxr-xr-x | 2165/CH1/EX1.9/1_9.sce | 14 |
12 files changed, 202 insertions, 0 deletions
diff --git a/2165/CH1/EX1.1/1_1.sce b/2165/CH1/EX1.1/1_1.sce new file mode 100755 index 000000000..054211b07 --- /dev/null +++ b/2165/CH1/EX1.1/1_1.sce @@ -0,0 +1,10 @@ +clc
+//initialisation of variables
+p1=280//lb/in^2
+v=2//ft^3
+p2=20//lb/in^2
+v2=18.03//ft^3
+//CALCULATIONS
+W=144*(p1*v-p2*v2)/(1.2-1)//ft/lb
+//RESULTS
+printf('The volume and work done during the expansion=% f ft/lb',W)
diff --git a/2165/CH1/EX1.11/1_11.sce b/2165/CH1/EX1.11/1_11.sce new file mode 100755 index 000000000..f656a92bb --- /dev/null +++ b/2165/CH1/EX1.11/1_11.sce @@ -0,0 +1,25 @@ +clc
+//initialisation of variables
+v=2//ft^3
+p=1100//lb/in^2
+t1=44//Degree C
+t2=15//Degree C
+p1=300//lb/in^2
+t3=3//Degree c
+Cv=0.17//ft/lb
+T=273//F
+R=96//ft lb
+p3=300//lb/in^2
+n=1.12//lb
+gama=1.404//lb
+W=[(144*p*v)/(T+t1)]/R//lb
+//CALCULATIONS
+Wc=W*Cv*(t1-t2)//C.H.U
+p2=p*(T+t2)/(T+t1)//lb /in^2
+A=(144*p3*v)/(R*276)//lb
+W1=(A/W)*v//ft^3
+H=[(gama-n)/(gama-1)]*[144*(p*0.65-p1*v)/(n-1)]//ft lb
+H1=H/1400//C.H.u
+//RESULTS
+printf('the heat was lost by all the air in the vessel before leakage began=% f C.H.U',Wc)
+printf('the heat was lost or gainned leakage by the air=% f C.H .U',H1)
diff --git a/2165/CH1/EX1.13/1_13.sce b/2165/CH1/EX1.13/1_13.sce new file mode 100755 index 000000000..4e7649a9a --- /dev/null +++ b/2165/CH1/EX1.13/1_13.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+h=0.218//ft^3
+h1=0.156//ft^3
+n=0.249//lb
+h2=0.178//lb
+c=0.208//lb
+c1=0.162//lb
+w1=1//ft^3
+p=150//lb/in^2
+T=100//Degree C
+T1=373//F
+Cp=(h*0.2312)+(n*0.3237)+(c*0.4451)//C.H.U/lb
+Cv=(h1*0.2312)+(h2*0.3237)+(c1*0.4451)//C.H.U//lb
+R=1400*(Cp-Cv)//ft lb units
+//CALCULATIONS
+W=(144*p*w1)/(R*T1)//lb
+//RESULTS
+printf('The characteristic constant of the gas=% f lb',W)
diff --git a/2165/CH1/EX1.2/1_2.sce b/2165/CH1/EX1.2/1_2.sce new file mode 100755 index 000000000..b122c01bb --- /dev/null +++ b/2165/CH1/EX1.2/1_2.sce @@ -0,0 +1,13 @@ +clc
+//initialisation of variables
+v=2//ft^3
+v2=20//ft^3
+p=100000//ft lb
+v2=10.41//lb/in^2
+v3=10//lb/in^2
+p1=1.3//lb
+p2=(v2*199.5)/9.95//lb/in^2
+//CALCULATIONS
+P=(p2/v3-v2)//lb/in^2
+//RESULTS
+printf('The initial andfinal pressure=% f lb/in^2',P)
diff --git a/2165/CH1/EX1.20/1_20.sce b/2165/CH1/EX1.20/1_20.sce new file mode 100755 index 000000000..f56cd829e --- /dev/null +++ b/2165/CH1/EX1.20/1_20.sce @@ -0,0 +1,15 @@ +clc
+//initialisation of variables
+T=200//Degree C
+p=150//lb/in^2
+v=12//ft^3
+R=96//Lb
+T1=473//F
+T2=273//F
+j=1400//lb
+Cv=0.169//lb/in^2
+v1=(R*T1)/(p*144)//ft^3
+//CALCULATIONS
+Fhi=(R/j)*log(v/v1)+Cv*log(T2/T1)//rank
+//RESULTS
+printf('The change of entropy=% f rank',Fhi)
diff --git a/2165/CH1/EX1.22/1_22.sce b/2165/CH1/EX1.22/1_22.sce new file mode 100755 index 000000000..6d8c4999a --- /dev/null +++ b/2165/CH1/EX1.22/1_22.sce @@ -0,0 +1,19 @@ +clc
+//initialisation of variables
+v=10//ft^3
+T=20//Degree C
+p=15//lb in^2
+p1=200//lb//in^2
+gama=1.41 //lb
+Cv=0.169//lb
+v2=1.153//ft^3
+j=1400//lb
+T1=293//F
+T2=451//F
+T1=[(p1*v2)/(p*v)]*T1//Degree C
+//CALCULATIONS
+R=Cv*j*(gama-1)
+W=0.816//lb
+Fhi=Cv*[(gama-1.2)/(1.2-1)]*log(T1/T2)*W//rnak
+//RESULTS
+printf('The change of entropy=% f rank',Fhi)
diff --git a/2165/CH1/EX1.23/1_23.sce b/2165/CH1/EX1.23/1_23.sce new file mode 100755 index 000000000..37d32db84 --- /dev/null +++ b/2165/CH1/EX1.23/1_23.sce @@ -0,0 +1,20 @@ +
+clc
+//initialisation of variables
+p=1//lb
+T=200//Degree C
+p1=15//lb/in^2
+v1=4//ft^3
+gama=1.41//lb
+Cv=0.169//lb
+J=1400//lb
+n=1.2
+T=473//F
+v2=16.1//ft^3
+T1=473//F
+//CALCULATIONS
+T2=(p1*v2)/(p*v1)*T1//Degree C
+R=Cv*J*(gama-p)//lb/in^2
+Fhi=0.1772*log(1.317)//rank
+//RESULTS
+printf('the change of entropy from intial conditions=% f rank',Fhi)
diff --git a/2165/CH1/EX1.26/1_26.sce b/2165/CH1/EX1.26/1_26.sce new file mode 100755 index 000000000..09b901e50 --- /dev/null +++ b/2165/CH1/EX1.26/1_26.sce @@ -0,0 +1,18 @@ +clc
+//initialisation of variables
+w=0.066//ft^3
+p=14.7//lb/in^2
+w1=14.2//lb/in^2
+w2=2780//lb/in^2
+g=0.038//lb
+a=28.9//lb
+R=w2/w1//for gas
+R1=93//for air
+T=273//F
+V=0.4245//ft^3
+//CALCULATIONS\
+W=(p*144*w)/(T*R)//lb
+m=(g-W)//lb gas
+T2=(V+w)//ft^3
+//RESULTS
+printf('The volume of mixture=% f ft^3',T2)
diff --git a/2165/CH1/EX1.4/1_4.sce b/2165/CH1/EX1.4/1_4.sce new file mode 100755 index 000000000..ff44a3ae2 --- /dev/null +++ b/2165/CH1/EX1.4/1_4.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+Cp=0.24//lb/in^2
+Cv=0.18//ft^3
+p1=5//lb/in^2
+T1=20//Degree C
+T2=150//Degree C
+//CALCULATIONS
+W=p1*Cp*(T2-T1)//C.H.U
+H=p1*Cv*(T2-T1)//C.H.U
+Gamma=Cp/Cv//lb/in^2
+//RESULTS
+printf('the constant pressure=% f C.H.U',W)
+printf('the constant volume the value of gas=% f lb/in^2',Gamma)
diff --git a/2165/CH1/EX1.5/1_5.sce b/2165/CH1/EX1.5/1_5.sce new file mode 100755 index 000000000..d2a0c785c --- /dev/null +++ b/2165/CH1/EX1.5/1_5.sce @@ -0,0 +1,11 @@ +clc
+//initialisation of variables
+Gama=1.33//ft/lb
+p=100//lb/in^2
+p1=20//lb/in^2
+v2=10.05//ft^3
+v=3//ft/lb
+//CALCULATIONS
+W=144*(p*v-p1*v2)/0.33//ft lb
+//RESULTS
+printf('The work done=% f ft lb',W)
diff --git a/2165/CH1/EX1.8/1_8.sce b/2165/CH1/EX1.8/1_8.sce new file mode 100755 index 000000000..8b4f28a11 --- /dev/null +++ b/2165/CH1/EX1.8/1_8.sce @@ -0,0 +1,24 @@ +clc
+//initialisation of variables
+p=3.74//ft/lb
+p1=2.48//ft/lb
+v=5.7//ft lb
+Cv=0.21//ft/lb
+P=440//lb/in^2
+P1=160//lb/in^2
+P2=14//lb/in^2
+T=25//degree C
+T1=100//F
+vs=(%pi*(p1)^2/4)*(p/1728)//ft^3
+vc=5.7//ft^3
+v1=4.7//ft^3
+v2=vs/v1//ft^3
+v3=0.01273//ft^3
+T2=298//F
+//CALCULATIONS
+W=(P2*144*v3)/(T2*T1)//lb
+T3=[(P1*144*1)/(P2*144*7)*T2]//Degree C
+T4=(P/P1)*T3//Degree C
+H=W*Cv*(T4-T3)//C.H.U
+//RESULTS
+printf('The heat supplied during explosion=% f C.H.U',H)
diff --git a/2165/CH1/EX1.9/1_9.sce b/2165/CH1/EX1.9/1_9.sce new file mode 100755 index 000000000..6e41d2ad7 --- /dev/null +++ b/2165/CH1/EX1.9/1_9.sce @@ -0,0 +1,14 @@ +clc
+//initialisation of variables
+v=10//ft^3
+p=100//lb/in^2
+p1=18//lb/in^2
+v1=50//ft^3
+n=log(p/p1)/log(5)
+gama=1.4//air
+//CALCULATIONS
+W=[144*(p*v-p1*v1)]/(n-1)//ft lb
+H=(gama-n)/(gama-1)*W//ft lb
+E=W-H//ft lb
+//RESULTS
+printf('The heat supplied and the change of internal energy=% f ft lb',E)
|