2 files changed, 73 insertions, 0 deletions
diff --git a/2921/CH10/EX10.1/Ex10_1.sce b/2921/CH10/EX10.1/Ex10_1.sce
new file mode 100755
index 000000000..201aa19dc
--- /dev/null
+++ b/2921/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,38 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-10.1 Page No.195\n');
+
+P=100;                //[lb/in^2] Hydraulic pressure
+F=450;                //[lb] Extension force
+Fr=400;               //[lb] Retraction force
+
+A=F/P;                //[in^2] Cross section area
+D=sqrt(4*A/%pi);      //[in] Bore of cylinder
+
+mprintf('\n The bore of cylinder is %f in.',D);
+
+//Use 2.5in bore cylinder
+
+Dm=2.5;               //[in] Bore of cylinder
+Dr=1;                 //[in] Diameter of rod
+A2=%pi*Dm^2/4-%pi*Dr^2/4; //[in^2]
+F2=P*A2;              //[lb] Force
+
+if F2>=Fr then
+    mprintf('\n The diameter of rod is %f in.',Dr);
+else 
+    mprintf('\n This would not meet requirement');
+end
+
+//This would meet requirement
+
+Ab=%pi*Dm^2/4;        //[in^2] Cross section area
+//Note-In the book V=180.7 is used instead of V=180.64158 
+d=20;                //[in] stroke
+V=Ab*d+A2*d;         //[in^3] Volume per cycle
+t=2;                 //[s] Cycle time
+FR=V/t;              //[in^3/s] Flowrate
+
+FR=FR*7.48*60/1728;  //[gal/min] Flowrate
+
+mprintf('\n Flow rate required is %f gal/min.',FR);
diff --git a/2921/CH10/EX10.2/Ex10_2.sce b/2921/CH10/EX10.2/Ex10_2.sce
new file mode 100755
index 000000000..ce24fa1dc
--- /dev/null
+++ b/2921/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,35 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-10.2 Page No.198\n');
+
+Pa=100;              //[lb/in^2] Air pressure
+Da=4;                //[in] Diameter
+Aa=%pi*Da^2/4;       //[in^2] Cross section area
+
+F1=Pa*Aa;            //[lb] 
+Do=1;                //[in] 
+Ao=%pi*Do^2/4;       //[in] 
+Po=F1/Ao;            //[lb/in^2]
+
+mprintf('\n The oil pressure is %f lb/in^2.',Po);
+
+D2o=3;               //[in]
+A2o=%pi*D2o^2/4;     //[in^2]
+F2=Po*A2o;
+
+mprintf('\n Force F on piston rod is %f lb.',F2);
+
+D=1;                 //[in]
+d=4;                 //[in] 
+A=%pi*D^2/4;         //[in^2]
+
+V=A*d;               //[in^3]
+
+mprintf('\n The volume in 1-inch cylinder for the 4-inch travel is %f in^3.',V);
+
+A3=%pi*3^2/4;        //[in^2]
+l3=V/A3;             //[in]
+
+mprintf('\n Travel for 3-inch cylinder is %f in.',l3);
+
+