diff options
Diffstat (limited to '2921/CH12/EX12.8/Ex12_8.sce')
-rwxr-xr-x | 2921/CH12/EX12.8/Ex12_8.sce | 29 |
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 |