summaryrefslogtreecommitdiff
path: root/2921/CH3/EX3.3/Ex3_3.sce
blob: 4ecf772391a7231a3504725ceb58078363ad66bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-3.3 Page No.45\n');

Su=80*10^3;          //[lb/in^2] Ultimate strength
d=0.5;               //[in] Diameter of pin
As=%pi*d^2/4;        //[in^2] Area of cross section of pin
F=20*10^3;           //[lb] Load acting

Ss=F/(2*As);         //[lb/in^2] Shear stress

if 0.5*Su>=Ss & 0.6*Su>=Ss then
    mprintf('Pin would not fail');
else
    mprintf('\n Actual stress is too high and the pin would fail.');
end