diff options
Diffstat (limited to '3821/CH13')
| -rw-r--r-- | 3821/CH13/EX13.1/Example13_1.sce | 16 | ||||
| -rw-r--r-- | 3821/CH13/EX13.10/Example13_10.sce | 30 | ||||
| -rw-r--r-- | 3821/CH13/EX13.11/Example13_11.sce | 27 | ||||
| -rw-r--r-- | 3821/CH13/EX13.12/Example13_12.sce | 26 | ||||
| -rw-r--r-- | 3821/CH13/EX13.13/Example13_13.sce | 19 | ||||
| -rw-r--r-- | 3821/CH13/EX13.14/Example13_14.sce | 29 | ||||
| -rw-r--r-- | 3821/CH13/EX13.2/Example13_2.sce | 17 | ||||
| -rw-r--r-- | 3821/CH13/EX13.3/Example13_3.sce | 21 | ||||
| -rw-r--r-- | 3821/CH13/EX13.4/Example13_4.sce | 22 | ||||
| -rw-r--r-- | 3821/CH13/EX13.5/Example13_5.sce | 19 | ||||
| -rw-r--r-- | 3821/CH13/EX13.6/Example13_6.sce | 18 | ||||
| -rw-r--r-- | 3821/CH13/EX13.7/Example13_7.sce | 18 | ||||
| -rw-r--r-- | 3821/CH13/EX13.8/Example13_8.sce | 23 | ||||
| -rw-r--r-- | 3821/CH13/EX13.9/Example13_9.sce | 27 |
14 files changed, 312 insertions, 0 deletions
diff --git a/3821/CH13/EX13.1/Example13_1.sce b/3821/CH13/EX13.1/Example13_1.sce new file mode 100644 index 000000000..25456c463 --- /dev/null +++ b/3821/CH13/EX13.1/Example13_1.sce @@ -0,0 +1,16 @@ +////Chapter 13 Steam Engines
+////Example 13.1 Page No 281
+///Find Therotical mean effective pressure
+//Input data
+clc;
+clear;
+Pa=10; //Single cylinder double acting steam engine pressure in bar
+Pb=1.5; //Single cylinder double acting steam engine pressure in bar
+rc=100/35; //Cut-off of the stroke in %
+
+
+//Calculation
+Pm=((Pa/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure
+
+//Output
+printf('Therotical mean effective pressure= %f bar \n',Pm);
diff --git a/3821/CH13/EX13.10/Example13_10.sce b/3821/CH13/EX13.10/Example13_10.sce new file mode 100644 index 000000000..af6b11d40 --- /dev/null +++ b/3821/CH13/EX13.10/Example13_10.sce @@ -0,0 +1,30 @@ +////Chapter 13 Steam Engines
+////Example 13.10 Page No 290
+///Find Indicated power of steam engine
+//Input data
+clc;
+clear;
+IP=343; //Steam engine develop indicated power in Kw
+N=180; //power In rpm
+P1=15; //Steam supplied i bar
+Pb=1.25; //Steam is exhausted in bar
+rc=100/25; //Cut-off take place of stroke
+K=0.78; //Diagram factor
+//x=L/D=4/3
+x=4/3; //Stroke to bore ratio
+pi=3.142;
+
+
+//Calculation
+Pm=((P1/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure Pm
+Pma=Pm*K; //Actual mean effective pressure Pma
+D=(((60000*IP)/(2*(Pma*10^5)*(4/3)*N))/(pi/4))^(1/3);//Indicated power of steam engine
+A=((pi/4)*(D^2));
+L=(x)*D;
+
+
+//Output
+printf('Therotical mean effective pressure= %f bar \n',Pm);
+printf('Actual mean effective pressure=%f bar \n',Pma);
+printf('Indicated power of steam engine=%f mm \n',D);
+printf('Indicated power of steam engine= %f mm \n',L);
diff --git a/3821/CH13/EX13.11/Example13_11.sce b/3821/CH13/EX13.11/Example13_11.sce new file mode 100644 index 000000000..c899ec049 --- /dev/null +++ b/3821/CH13/EX13.11/Example13_11.sce @@ -0,0 +1,27 @@ +////Chapter 13 Steam Engines
+////Example 13.11 Page No 290
+///Find Actual mean effective pressure
+//Input data
+clc;
+clear;
+D=240*10^-3; //Steam engine bor
+L=300*10^-3; //Stroke of engine
+N=220; //Speed of engine 220 in rpm
+IP=36; //Indicated power in Kw
+Pb=1.3; //Exhaust pressure in bar
+re=2.5; //Expansion ratio
+K=0.8; //Diagram factor
+pi=3.142
+A=((pi/4)*(D^2));
+
+
+
+//Calculation
+Pma=((IP*60000)/(2*10^5*L*A*N)); //Indicated power of steam engine in bar
+Pm=Pma/K; //Actual mean effective pressure in bar
+P1=((Pm+Pb)*re)/(1+log(re)); //Theoretical mean effective pressure in bar
+
+//Output
+printf('Indicated power of steam engine= %f bar \n',Pma);
+printf('Actual mean effective pressure= %f bar \n',Pm);
+printf('theoretical mean effective pressure= %f bar \n',P1);
diff --git a/3821/CH13/EX13.12/Example13_12.sce b/3821/CH13/EX13.12/Example13_12.sce new file mode 100644 index 000000000..69aab7686 --- /dev/null +++ b/3821/CH13/EX13.12/Example13_12.sce @@ -0,0 +1,26 @@ +////Chapter 13 Steam Engines
+////Example 13.12 Page No 291
+///Find Indicated power of steam engine
+//Input data
+clc;
+clear;
+D=700*10^-3; //Steam engine diameter in mm
+L=900*10^-3; //Steam engine diameter in mm
+Ip=450; //Develop indicated power Kw
+N=90; //Speed of steam engine in rpm
+P2=12; //Pressure at cut-off in bar
+P1=12; //Pressure at cut-off in bar
+Pb=1.3; //Back pressure in bar
+K=0.76; //Diameter factor
+pi=3.142;
+A=((pi/4)*0.7^2);
+
+//Calculation
+Pma=(Ip*60000)/(2*10^5*L*A*90); //Indicated power of steam engine in bar
+Pm=Pma/K; //Theoretical mean effective pressure in bar
+//using trial and error method
+re=1/0.241; //Expansion ratio
+///Output
+printf('Indicated power of steam engine= %f bar \n',Pma);
+printf('Theoretical mean effective pressure= %f bar \n',Pm);
+printf('Expansion ratio= %f \n',re);
diff --git a/3821/CH13/EX13.13/Example13_13.sce b/3821/CH13/EX13.13/Example13_13.sce new file mode 100644 index 000000000..d31871187 --- /dev/null +++ b/3821/CH13/EX13.13/Example13_13.sce @@ -0,0 +1,19 @@ +////Chapter 13 Steam Engines
+////Example 13.13 Page No 293
+///Find Brake Power
+//Input data
+clc;
+clear;
+Db=900*10^-3; //Diameter of break drum in mm
+dr=50*10^-3; //Diameter of rope in mm
+W=105*9.81; //dead weight on the tight side of the rope in Kg
+S=7*9.81; //Spring balance of the rope in N
+N=240; //Speed of the engine in rpm
+pi=3.142;
+//Calculation
+T=(W-S)*((Db+dr)/2); //Torque Nm
+Bp=2*pi*N*T/60000; //Brake Power in Kw
+
+//Output
+printf('Torque= %f Nm \n',T);
+printf('Brake Power= %f Kw \n',Bp);
diff --git a/3821/CH13/EX13.14/Example13_14.sce b/3821/CH13/EX13.14/Example13_14.sce new file mode 100644 index 000000000..29a620c82 --- /dev/null +++ b/3821/CH13/EX13.14/Example13_14.sce @@ -0,0 +1,29 @@ +////Chapter 13 Steam Engines
+////Example 13.14 Page No 294
+///Example Mechanical efficiency
+//Input data
+clc;
+clear;
+D=300*10^-3; //steam engine bor
+L=400*10^-3; //stroke
+Db=1.5; //effective brake diameter
+W=6.2*10^3; //net load on the brake
+N=180; //speed of engine in rpm
+Pma=6.5*10^3; //mean effective pressure in bar
+pi=3.142;
+A=((pi/4)*0.3^2);
+dr=0;
+S=0;
+
+//Calculation
+Ip=((2*Pma*L*A*N)/60000)*100; //Indicated power of steam engine in Kw
+T=(W-S)*((Db+dr)/2); //Torque in Nm
+Bp=2*pi*N*T/ 60000; //Break power Kw
+eta=(Bp/Ip)*100; //Mechanical efficiency in%
+
+
+//Output
+printf('Indicated power of steam engine= %f Kw \n',Ip);
+printf('Torque=%f Nm \n',T);
+printf('Break power= %f Kw \n ',Bp);
+printf('Mechanical efficiency= %f percent \n ',eta);
diff --git a/3821/CH13/EX13.2/Example13_2.sce b/3821/CH13/EX13.2/Example13_2.sce new file mode 100644 index 000000000..972789717 --- /dev/null +++ b/3821/CH13/EX13.2/Example13_2.sce @@ -0,0 +1,17 @@ +////Chapter 13 Steam Engines
+////Example 13.2 Page No 283
+///Find Therotical mean effective pressure
+//Input data
+clc;
+clear;
+a=5/100; //Engine cylinder of the stroke valume in %
+P1=12; //Pressure of the stream
+rc=3; //Cut-off is one-third
+Pb=1.1; //Constant the back pressure in bar
+
+//Calulation
+//Therotical mean effective pressure Pm
+Pm=P1*(1/rc+((1/rc)+a)*log((1+a)/((1/rc)+a)))-Pb;
+
+//Output
+printf('Therotical mean effective pressure=%f N/m^2 \n',Pm);
diff --git a/3821/CH13/EX13.3/Example13_3.sce b/3821/CH13/EX13.3/Example13_3.sce new file mode 100644 index 000000000..3117d4673 --- /dev/null +++ b/3821/CH13/EX13.3/Example13_3.sce @@ -0,0 +1,21 @@ +////Chapter 13 Steam Engines
+////Example 13.2 Page No 285
+///Find Mean Effective pressure
+///Input data
+clc;
+clear;
+P1=14; //Steam is ssupplied in bar
+P6=6; //Pressure at the end in bar
+Pb=1.2; //Pressure at back in bar
+a=0.1;
+re=4;
+//From hyperbolic process
+b=0.4;
+
+///Calculation
+//Mean Effective pressure in N/m^2
+Pm=P1*((1/re)+((1/re)+a)*log((1+a)/((1+re)+a)))-Pb*((1+b)+(a+b)*log((a+b)/a));
+
+
+//Output
+printf('Mean Effective pressure= %f N/m^2 \n',-Pm);
diff --git a/3821/CH13/EX13.4/Example13_4.sce b/3821/CH13/EX13.4/Example13_4.sce new file mode 100644 index 000000000..045736158 --- /dev/null +++ b/3821/CH13/EX13.4/Example13_4.sce @@ -0,0 +1,22 @@ +////Chapter 13 Steam Engines
+////Example 13.2 Page No 285
+///Find Cover end mean effective pressure
+//Input data
+clc;
+clear;
+Cover=1200; //Area of the indicator diagram for cover
+Crank=1100; //Area of the indicator diagram for crank
+ID=75;
+PS=0.15;
+
+
+///Calculation
+CoverMEP=Cover/ID*PS; //Cover end mean effective pressure
+CrankMEP=Crank/ID*PS; //Crank end mean effective pressure
+AverageMEP=(CoverMEP+CrankMEP)/2; //Average end mean effective pressure
+
+
+///Output
+printf('Cover end mean effective pressure= %f bar \n',CoverMEP);
+printf('Crank end mean effective pressure= %f bar \n',CrankMEP);
+printf('Average end mean effective pressure= %f bar \n',AverageMEP);
diff --git a/3821/CH13/EX13.5/Example13_5.sce b/3821/CH13/EX13.5/Example13_5.sce new file mode 100644 index 000000000..6f594606d --- /dev/null +++ b/3821/CH13/EX13.5/Example13_5.sce @@ -0,0 +1,19 @@ +////Chapter 13 Steam Engines
+////Example 13.5 Page No 286
+///Find Mean effective pressure
+//Input data
+clc;
+clear;
+a=25; //Area of indicator diagram cm^2
+Vs=0.15; //swept volume m^2
+S=1; //Scale in cm
+cm=0.02; //pressure axis m^3
+
+
+///Calculation
+b=Vs/cm; //Base length of diagram
+Pm=a/b*S; //Mean effective pressure
+
+//Output
+printf('Base length of diagram=%f bar \n',b);
+printf('Mean effective pressure= %f bar \n',Pm);
diff --git a/3821/CH13/EX13.6/Example13_6.sce b/3821/CH13/EX13.6/Example13_6.sce new file mode 100644 index 000000000..95d3e8077 --- /dev/null +++ b/3821/CH13/EX13.6/Example13_6.sce @@ -0,0 +1,18 @@ +////Chapter 13 Steam Engines
+////Example 13.6 Page No 287
+///Find Therotical mean effective pressure
+//Input data
+clc;
+clear;
+P1=14; //Steam Engine pressure in bar
+Pb=0.15; //Back pressure in bar
+K=0.72; //Diagram factor
+rc=100/20;
+
+//Calculation
+Pm=((P1/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure Pm
+Pma=Pm*K; //Actual mean effective pressure Pma
+
+//Output
+printf('Therotical mean effective pressure= %f bar \n',Pm);
+printf('Actual mean effective pressure= %f bar \n',Pma);
diff --git a/3821/CH13/EX13.7/Example13_7.sce b/3821/CH13/EX13.7/Example13_7.sce new file mode 100644 index 000000000..54be62f8c --- /dev/null +++ b/3821/CH13/EX13.7/Example13_7.sce @@ -0,0 +1,18 @@ +////Chapter 13 Steam Engines
+////Example 13.7 Page No 287
+////Find Actual mean effective pressure
+//Input data
+clc;
+clear;
+P1=9; //Reciprocating engine pressure in bar
+Pb=1.5; //Back pressure in bar
+rc=100/25; //Cut-off
+K=0.8; //Diagram factor
+
+//Calculation
+Pm=((P1/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure Pm
+Pma=Pm*K; //Actual mean effective pressure Pma
+
+///Output
+printf('Therotical mean effective pressure= %f bar \n ',Pm);
+printf('Actual mean effective pressure= %f bar \n',Pma);
diff --git a/3821/CH13/EX13.8/Example13_8.sce b/3821/CH13/EX13.8/Example13_8.sce new file mode 100644 index 000000000..6f64b2048 --- /dev/null +++ b/3821/CH13/EX13.8/Example13_8.sce @@ -0,0 +1,23 @@ +////Chapter 13 Steam Engines
+////Example 13.8 Page No 288
+////Find Diagram factor
+//Input data
+clc;
+clear;
+P1=10; //Inlet pressure
+Pb=1; //Back pressure
+rc=3; //Expansion ratio
+a=12.1; //Area of indicator diagram
+b=7.5; //Length of indicator diagram
+S=3; //Pressure scale
+
+
+//Calculation
+Pm=round((P1/rc)*(1+log(rc))-Pb ); //Therotical mean effective pressure Pm
+Pma=a/b*S; //Actual mean effective pressure Pma
+K=Pma/Pm; //Diagram factor
+
+///Output
+printf('Therotical mean effective pressure= %f bar \n',Pm);
+printf('Actual mean effective pressure= %f bar \n',Pma);
+printf('Diagram factor= %f \n',K);
diff --git a/3821/CH13/EX13.9/Example13_9.sce b/3821/CH13/EX13.9/Example13_9.sce new file mode 100644 index 000000000..541b84d58 --- /dev/null +++ b/3821/CH13/EX13.9/Example13_9.sce @@ -0,0 +1,27 @@ +////Chapter 13 Steam Engines
+////Example 13.9 Page No 289
+//Input data
+clc;
+clear;
+D=200*10^-3; //Steam engine cylinder in mm
+L=300*10^-3; //Bore of steam engine cylinder in mm
+rc=100/40; //Cut-off of the sroke
+P1=7; //Admission pressure of steam in bar
+Pb=0.38; //Exhaust pressure of steam in bar
+K=0.8; //Diagram factor
+N=200; //Indicator factor of engine
+pi=3.142; //Constant value
+//Indicated power of the engine in rpm
+A1=pi*(200*10^-3)^2/4;
+
+
+//Calculation
+Pm=((P1/rc)*(1+log(rc))-Pb); //Therotical mean effective pressure Pm
+Pma=round(Pm*K); //Actual mean effective pressure Pma
+IP=(2*Pma*L*A1*N/60000)*10^5; //Indicated power of steam engine in Kw
+
+
+//Output
+printf('Therotical mean effective pressure= %f bar \n ',Pm);
+printf('Actual mean effective pressure= %f bar \n',Pma);
+printf('Indicated power of steam engine= %f Kw \n',IP);
|