4 files changed, 54 insertions, 0 deletions
diff --git a/172/CH4/EX4.1/ex1.sce b/172/CH4/EX4.1/ex1.sce
new file mode 100755
index 000000000..70ebd2285
--- /dev/null
+++ b/172/CH4/EX4.1/ex1.sce
@@ -0,0 +1,16 @@
+//example 1
+//work done during different processes
+clear
+clc
+P1=200 //initial pressure inside cylinder in kPa
+V2=0.1 //in m^3
+V1=0.04 //initial volume of gas in m^3
+W1=P1*(V2-V1) //work done in isobaric process in kJ
+printf("\n hence,the work done during the isobaric process is W1 = %.3f kJ. \n",W1)
+W2=P1*V1*log(V2/V1) //work done in isothermal process in kJ
+printf("\n hence,the work done in isothermal process is W2 = %.3f kJ. \n",W2)
+P2=P1*(V1/V2)^(1.3) //final pressure according to the given process
+W3=(P2*V2-P1*V1)/(1-1.3)
+printf("\n hence,the work done during the described process is W3 = %.3f kJ. \n",W3)
+W4=0 //work done in isovolumic process
+printf("\n hence,the work done in the isovolumic process is W4 = %.3f kJ. \n",W4)
+\ No newline at end of file
diff --git a/172/CH4/EX4.3/ex3.sce b/172/CH4/EX4.3/ex3.sce
new file mode 100755
index 000000000..8c7f5faf8
--- /dev/null
+++ b/172/CH4/EX4.3/ex3.sce
@@ -0,0 +1,15 @@
+//example 3
+//work produced
+clear
+clc
+Psat=190.2 //in kPa
+P1=Psat //saturation pressure in state 1
+vf=0.001504 //in m^3/kg
+vfg=0.62184 //in m^3/kg
+x1=0.25 //quality
+v1=vf+x1*vfg //specific volume at state 1 in m^3/kg
+v2=1.41*v1 //specific volume at state 2 in m^3/kg
+P2=600 //pressure in state 2 in kPa
+m=0.5 //mass of ammonia in kg
+W=m*(P1+P2)*(v2-v1)/2 //woork produced by ammonia in kJ
+disp('hence,work produced by ammonia is 12.71 kJ')
+\ No newline at end of file
diff --git a/172/CH4/EX4.4/ex4.sce b/172/CH4/EX4.4/ex4.sce
new file mode 100755
index 000000000..dde73edae
--- /dev/null
+++ b/172/CH4/EX4.4/ex4.sce
@@ -0,0 +1,10 @@
+//example 4
+//calculating work done
+clear
+clc
+v1=0.35411 //specific volume at state 1 in m^3/kg
+v2=v1/2 
+m=0.1 //mass of water in kg
+P1=1000 //pressure inside cylinder in kPa
+W=m*P1*(v2-v1) //in kJ
+disp('hence,the work in the overall process is -17.7 kJ')
+\ No newline at end of file
diff --git a/172/CH4/EX4.7/ex7.sce b/172/CH4/EX4.7/ex7.sce
new file mode 100755
index 000000000..726322b83
--- /dev/null
+++ b/172/CH4/EX4.7/ex7.sce
@@ -0,0 +1,13 @@
+//example 7
+//heat transfer
+clear
+clc
+k=1.4 //conductivity of glass pane in W/m-K
+A=0.5 //total surface area of glass pane
+dx=0.005 //thickness of glasspane in m
+dT1=20-12.1 //temperature difference between room air and outer glass surface temperature in celsius
+Q=-k*A*dT1/dx //conduction through glass slab in W
+h=100 //convective heat transfer coefficient in W/m^2-K 
+dT=12.1-(-10)  //temperature difference between warm room and colder ambient in celsius
+Q2=h*A*dT //heat transfer in convective layer in W
+printf("\n hence,the rate of heat transfer in the glass and convective layer is Q2 = %.0f kW. \n",Q2)
+\ No newline at end of file