summaryrefslogtreecommitdiff
path: root/3647/CH6/EX6.3/ex6_3.sce
blob: 5ddd8ab233ca5f89ff844e24d40bf1a2312232dd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Solutions to Problems In applied mechanics
//A N Gobby
clear all;
clc
//initialisation of variables
w=0.5//tonf/in^2
w1=7//tonf/in^2
w2=10//tonf/in^2
t=12.4//tonf/in^2
d1=1.5//in
d2=1.24//in
x=0.495//in
d3=3.02//in
//CALCULATIONS
Y=sqrt((d3/2)^2-(d2/2)^2)//in
S=(1/2*t/(2*Y*w))//tonf/in^2
//RESULTS
printf('the shear stress in fork end=% f tonf/in^2',S)