1 files changed, 29 insertions, 0 deletions
diff --git a/2921/CH12/EX12.8/Ex12_8.sce b/2921/CH12/EX12.8/Ex12_8.sce
new file mode 100755
index 000000000..e16e376d5
--- /dev/null
+++ b/2921/CH12/EX12.8/Ex12_8.sce
@@ -0,0 +1,29 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-12.8 Page No.272\n');
+
+Ng=42;
+Np=24;
+Q=2*Ng/(Ng+Np);
+
+Kg=270;
+Dp=1.5;
+b=1;
+
+Fw=Dp*b*Q*Kg;
+Fd=699;
+Nsf=1.2;
+
+if (Fw/Nsf)<Fd then
+    mprintf('\n (Fw/Nsf)<Fd So this would not be suitable design');
+end
+
+//If the surfaces each had a BHN = 450
+
+Kg=470;
+Fw=Dp*b*Q*Kg;
+
+if(Fw/Nsf)>Fd then
+    mprintf('\n\n If the surfaces each had a BHN = 450');
+    mprintf('\n (Fw/Nsf)>Fd So this would be suitable design.');
+end