summaryrefslogtreecommitdiff
path: root/551/CH2
diff options
context:
space:
mode:
Diffstat (limited to '551/CH2')
-rwxr-xr-x551/CH2/EX2.1/1.sce32
-rwxr-xr-x551/CH2/EX2.10/10.sce9
-rwxr-xr-x551/CH2/EX2.11/11.sce16
-rwxr-xr-x551/CH2/EX2.12/12.sce18
-rwxr-xr-x551/CH2/EX2.13/13.sce12
-rwxr-xr-x551/CH2/EX2.15/15.sce8
-rwxr-xr-x551/CH2/EX2.16/16.sce8
-rwxr-xr-x551/CH2/EX2.17/17.sce13
-rwxr-xr-x551/CH2/EX2.18/18.sce10
-rwxr-xr-x551/CH2/EX2.19/19.sce9
-rwxr-xr-x551/CH2/EX2.2/2.sce8
-rwxr-xr-x551/CH2/EX2.20/20.sce17
-rwxr-xr-x551/CH2/EX2.21/21.sce10
-rwxr-xr-x551/CH2/EX2.22/22.sce16
-rwxr-xr-x551/CH2/EX2.3/3.sce10
-rwxr-xr-x551/CH2/EX2.4/4.sce8
-rwxr-xr-x551/CH2/EX2.5/5.sce22
-rwxr-xr-x551/CH2/EX2.6/6.sce9
-rwxr-xr-x551/CH2/EX2.7/7.sce11
-rwxr-xr-x551/CH2/EX2.8/8.sce12
-rwxr-xr-x551/CH2/EX2.9/9.sce10
21 files changed, 268 insertions, 0 deletions
diff --git a/551/CH2/EX2.1/1.sce b/551/CH2/EX2.1/1.sce
new file mode 100755
index 000000000..61423bd0e
--- /dev/null
+++ b/551/CH2/EX2.1/1.sce
@@ -0,0 +1,32 @@
+clc
+rho_Hg=13596; //kg/m^3
+g=9.806; //m/s^2
+h=0.76; //m
+
+P=rho_Hg*g*h/1000; //kPa
+
+disp("(i) Pressure of 80 cm of Hg")
+h1=0.80; //m
+P1=h1/h*P;
+disp(P1)
+disp("kPa")
+
+disp("(ii) 30 cm Hg vacuum")
+H2=0.30; //cm Hg vacuum
+h2=h-H2; //cm of Hg absolute
+disp("Pressure due to 46 cm of Hg")
+P2=h2/h*P;
+disp(P2)
+disp("kPa")
+
+disp("(iii) Pressure due to 1.35 m H2O gauge")
+rho_H2O=1000; //kg/m^3
+h3=1.35; //m
+P3=rho_H2O*g*h3/1000;
+disp(P3)
+disp("kPa")
+
+disp("(iv) 4.2 bar")
+P4=4.2*10^2;
+disp(P4)
+disp("kPa") \ No newline at end of file
diff --git a/551/CH2/EX2.10/10.sce b/551/CH2/EX2.10/10.sce
new file mode 100755
index 000000000..4006af2c2
--- /dev/null
+++ b/551/CH2/EX2.10/10.sce
@@ -0,0 +1,9 @@
+clc
+v=800; //m/s
+g=9; //m/s^2
+F=3600; //N
+m=F/g;
+KE=1/2*m*v^2/10^6;
+disp("Kinetic Energy=")
+disp(KE)
+disp("MJ") \ No newline at end of file
diff --git a/551/CH2/EX2.11/11.sce b/551/CH2/EX2.11/11.sce
new file mode 100755
index 000000000..abf977ce3
--- /dev/null
+++ b/551/CH2/EX2.11/11.sce
@@ -0,0 +1,16 @@
+clc
+m=6; //kg
+T1=25; //0C
+T2=125; //0C
+
+disp("(i) Heat transferred")
+Q=integrate('m*(0.4+0.004*T)','T',T1,T2);
+disp("heat tranferred=")
+disp(Q)
+disp("kJ")
+
+disp("(ii) Mean specific heat of the gas")
+c_n=Q/m/(T2-T1);
+disp("Mean specific heat=")
+disp(c_n)
+disp("kJ/kg.0C") \ No newline at end of file
diff --git a/551/CH2/EX2.12/12.sce b/551/CH2/EX2.12/12.sce
new file mode 100755
index 000000000..7c5de98dd
--- /dev/null
+++ b/551/CH2/EX2.12/12.sce
@@ -0,0 +1,18 @@
+clc
+Ice_point=0;
+Steam_point=100;
+// t=a*log(p)+b
+// from given conditions equations formed are
+// a*log(1.5)+b=0
+// a*log(7.5)+b=100
+// solving equations
+P=[log(1.5),1;log(7.5),1];
+Q=[0;100];
+X=inv(P)*Q;
+a=X(1,1);
+b=X(2,1);
+p=3.5;
+t=a*log(p)+b;
+disp("The value of temperature is given by")
+disp(t)
+disp("°C") \ No newline at end of file
diff --git a/551/CH2/EX2.13/13.sce b/551/CH2/EX2.13/13.sce
new file mode 100755
index 000000000..1867579b8
--- /dev/null
+++ b/551/CH2/EX2.13/13.sce
@@ -0,0 +1,12 @@
+clc
+deff("[e]=func(t)","e=0.20*t-5*10^(-4)*t^2")
+t1=0; //0C
+e1=func(t1);
+t2=100; //0C
+e2=func(t2);
+t3=70; //0C
+e3=func(t3);
+t=e3*(t2-t1)/e2-e1;
+disp("thermocouple will read")
+disp(t)
+disp("°C") \ No newline at end of file
diff --git a/551/CH2/EX2.15/15.sce b/551/CH2/EX2.15/15.sce
new file mode 100755
index 000000000..8f5d40719
--- /dev/null
+++ b/551/CH2/EX2.15/15.sce
@@ -0,0 +1,8 @@
+clc
+p=101.325; //kPa
+V2=0.6; //m^3
+V1=0; //m^3
+W=p*(V2-V1);
+disp("work done by atmosphere=")
+disp(-W)
+disp("kJ") \ No newline at end of file
diff --git a/551/CH2/EX2.16/16.sce b/551/CH2/EX2.16/16.sce
new file mode 100755
index 000000000..80458b900
--- /dev/null
+++ b/551/CH2/EX2.16/16.sce
@@ -0,0 +1,8 @@
+clc
+p=1.013*10^5; //N/m^2
+V1=1.5; //m^3
+V2=0; //m^3
+W=p*(V2-V1);
+disp("W=")
+disp(W/10^3)
+disp("kJ") \ No newline at end of file
diff --git a/551/CH2/EX2.17/17.sce b/551/CH2/EX2.17/17.sce
new file mode 100755
index 000000000..22257a89b
--- /dev/null
+++ b/551/CH2/EX2.17/17.sce
@@ -0,0 +1,13 @@
+clc
+T=1.25; //N.m
+N=9500;
+W1=2*%pi*N*T/1000; //kJ
+p=101.3; //kPa
+d=0.65; //m
+A=%pi/4*d^2; //m^2
+L=0.6; //m
+W2=p*A*L; //kJ
+Wnet=(-W1)+W2;
+disp("The net work transfer for the system=")
+disp(Wnet)
+disp("kJ") \ No newline at end of file
diff --git a/551/CH2/EX2.18/18.sce b/551/CH2/EX2.18/18.sce
new file mode 100755
index 000000000..d44266a0c
--- /dev/null
+++ b/551/CH2/EX2.18/18.sce
@@ -0,0 +1,10 @@
+clc
+A=45*10^(-4); //m^2
+P=0.9*10^5; //N/m^2
+Patm=1.013*10^5; //N/m^2
+L=0.05; //m
+dV=300*10^(-6); //m^3
+W=P*A*L-Patm*dV;
+disp("net work done =")
+disp(W)
+disp("J") \ No newline at end of file
diff --git a/551/CH2/EX2.19/19.sce b/551/CH2/EX2.19/19.sce
new file mode 100755
index 000000000..2088479ff
--- /dev/null
+++ b/551/CH2/EX2.19/19.sce
@@ -0,0 +1,9 @@
+clc
+p1=1.5; //bar
+p2=7.5; //bar
+V1=3/p1;
+V2=3/p2;
+W=integrate('3/V*10^2', 'V', V1, V2);
+disp("Work done=")
+disp(W)
+disp("kJ") \ No newline at end of file
diff --git a/551/CH2/EX2.2/2.sce b/551/CH2/EX2.2/2.sce
new file mode 100755
index 000000000..0450ca1c7
--- /dev/null
+++ b/551/CH2/EX2.2/2.sce
@@ -0,0 +1,8 @@
+clc
+d=0.1; //m
+F=1000; //N
+A=%pi/4*d^2; //m^2
+P=F/A/10^3;
+disp("Pressure on the piston=")
+disp(P)
+disp("kN/m^2") \ No newline at end of file
diff --git a/551/CH2/EX2.20/20.sce b/551/CH2/EX2.20/20.sce
new file mode 100755
index 000000000..46d4eced6
--- /dev/null
+++ b/551/CH2/EX2.20/20.sce
@@ -0,0 +1,17 @@
+clc
+W=150; //kJ
+V1=0.6; //m^3
+
+// p=8-4*V
+// W=integration of p*dV from V1 to V2
+// Solving above equation we get
+
+V2=0.354; //m^3
+disp("Final volume =")
+disp(V2)
+disp("m^3")
+
+p2=8-4*V2;
+disp("Final pressure =")
+disp(p2)
+disp("bar") \ No newline at end of file
diff --git a/551/CH2/EX2.21/21.sce b/551/CH2/EX2.21/21.sce
new file mode 100755
index 000000000..59f3b8ff7
--- /dev/null
+++ b/551/CH2/EX2.21/21.sce
@@ -0,0 +1,10 @@
+clc
+p1=3*10^5; //Pa
+v1=0.18; //m^3/kg
+C=p1*v1^2;
+p2=0.6*10^5; //Pa
+v2=sqrt(C/p2);
+W=integrate('C/v^2', 'v', v1,v2);
+disp("Work done=")
+disp(W)
+disp("Nm/kg") \ No newline at end of file
diff --git a/551/CH2/EX2.22/22.sce b/551/CH2/EX2.22/22.sce
new file mode 100755
index 000000000..bf9566c16
--- /dev/null
+++ b/551/CH2/EX2.22/22.sce
@@ -0,0 +1,16 @@
+clc
+m=1; //kg
+p1=20*10^5; //Pa
+V1=0.05; //m^3
+V2=2*V1;
+p2=p1*(V1/V2)^2;
+C=p1*V1^2;
+V3=V1;
+W_12=integrate('C/V^2', 'V', V1,V2);
+
+W_23=p2*(V2-V3);
+
+W_net=W_12-W_23;
+disp("Net work done = ")
+disp(W_net)
+disp("Nm") \ No newline at end of file
diff --git a/551/CH2/EX2.3/3.sce b/551/CH2/EX2.3/3.sce
new file mode 100755
index 000000000..e10a58ff9
--- /dev/null
+++ b/551/CH2/EX2.3/3.sce
@@ -0,0 +1,10 @@
+clc
+SG=0.9;
+h=1.2; //m
+g=9.81; //m/s^2
+rho_w=1000; //kg/m^3
+rho=SG*rho_w; //kg/m^3
+P=rho*g*h/10^3;
+disp("Gauge pressure P=")
+disp(P)
+disp("kN/m^2") \ No newline at end of file
diff --git a/551/CH2/EX2.4/4.sce b/551/CH2/EX2.4/4.sce
new file mode 100755
index 000000000..341064f2f
--- /dev/null
+++ b/551/CH2/EX2.4/4.sce
@@ -0,0 +1,8 @@
+clc
+Vacuum_recorded=740; //mm of Hg
+Barometric_reading=760; //mm of Hg
+
+Absolute_pressure=(Barometric_reading-Vacuum_recorded)*133.4;
+disp("Absolute pressure in the condenser=")
+disp(Absolute_pressure)
+disp("Pa") \ No newline at end of file
diff --git a/551/CH2/EX2.5/5.sce b/551/CH2/EX2.5/5.sce
new file mode 100755
index 000000000..70f12096d
--- /dev/null
+++ b/551/CH2/EX2.5/5.sce
@@ -0,0 +1,22 @@
+clc
+d=0.5; //m
+h=0.75; //m
+m=4; //kg
+Manometer_reading=620; //mm of Hg above atmosphere
+Barometer_reading=760; //mm of Hg
+V=%pi/4*d^2*h; //m^3
+disp("(i) Total pressure in the vessel")
+
+P=(Barometer_reading+Manometer_reading)*133.4/10^5; //bar
+disp("P=")
+disp(P)
+disp("bar")
+disp("(ii) Specific volume and density")
+SV=V/m;
+disp("Specific volume=")
+disp(SV)
+disp("m^3/kg")
+D=m/V;
+disp("Density=")
+disp(D)
+disp("kg/m^3") \ No newline at end of file
diff --git a/551/CH2/EX2.6/6.sce b/551/CH2/EX2.6/6.sce
new file mode 100755
index 000000000..e71b5b06e
--- /dev/null
+++ b/551/CH2/EX2.6/6.sce
@@ -0,0 +1,9 @@
+clc
+h0=.761; //m
+h=.55; //m
+g=9.79; //m/s^2
+rho=13640; //kg/m^3
+P=rho*g*(h0+h); //N/m^2
+disp("Gas pressure=")
+disp(P/10^5)
+disp("bar") \ No newline at end of file
diff --git a/551/CH2/EX2.7/7.sce b/551/CH2/EX2.7/7.sce
new file mode 100755
index 000000000..35d071c5e
--- /dev/null
+++ b/551/CH2/EX2.7/7.sce
@@ -0,0 +1,11 @@
+clc
+h_H2O=34; //mm of Hg
+g=9.81; //m/s^2
+rho=13600; //kg/m^3
+P_Hg=97.5; //mm of Hg
+P_atm=760; //mm of Hg
+P_H2O=h_H2O/13.6; //mm of Hg
+Pabs=rho*g*(P_Hg+P_atm-P_H2O)/10^8; //bar
+disp("absolute pressure =")
+disp(Pabs)
+disp("bar") \ No newline at end of file
diff --git a/551/CH2/EX2.8/8.sce b/551/CH2/EX2.8/8.sce
new file mode 100755
index 000000000..bb50fc5fa
--- /dev/null
+++ b/551/CH2/EX2.8/8.sce
@@ -0,0 +1,12 @@
+clc
+SG=0.8;
+rho_H2O=1000; //kg/m^3
+g=9.81; //ms^2
+h=0.17; //m
+Patm=1.01325; //bar
+rho=SG*rho_H2O; //kg/m^3
+P_liq=rho*g*h/10^5; //bar
+P_gas=Patm - P_liq;
+disp("gas pressure= ")
+disp(P_gas)
+disp("bar") \ No newline at end of file
diff --git a/551/CH2/EX2.9/9.sce b/551/CH2/EX2.9/9.sce
new file mode 100755
index 000000000..8d9955ad6
--- /dev/null
+++ b/551/CH2/EX2.9/9.sce
@@ -0,0 +1,10 @@
+clc
+d=0.2; //m
+g=9.81; //m/s^2
+h=0.117; //m
+rho=13600; //kg/m^3
+p=rho*g*h;
+m=(p*%pi/4*d^2)/g;
+disp("mass=")
+disp(m)
+disp("kg") \ No newline at end of file
generated by cgit (git 2.34.1) at 2024-12-20 01:21:06 +0000