From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2921/CH10/EX10.1/Ex10_1.sce | 38 ++++++++++++++++++++++++++++++++++++++ 2921/CH10/EX10.2/Ex10_2.sce | 35 +++++++++++++++++++++++++++++++++++ 2 files changed, 73 insertions(+) create mode 100755 2921/CH10/EX10.1/Ex10_1.sce create mode 100755 2921/CH10/EX10.2/Ex10_2.sce (limited to '2921/CH10') 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); + + -- cgit