summaryrefslogtreecommitdiff
path: root/278/CH4/EX4.18/ex_4_18.sce
blob: 2250648fbff098e32bc9185a7a3a1a8aac4f7786 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//find stress corresponding to max inst extesnion and value of unkown weight
clc
//solution
//given
h=10//mm//height thru which weigth fall
l=3000//mm//length of bar
A=600//mm^2//xsection area of bar
dl=2//mm//change in length of bar
E=200*10^3//N/mm^2
//let f be stress
f=(E*dl)/l//N/mm^2
//let w be value of unknown weigth
//we know f=(W/A)*[1+sqrt{1+(2*h*A*E/W/l)}]
//400/3=(W/600)*[1+sqrt{1+(2*10*600*200*1000/W/3000)}]
W=6400*100/96//N
printf("the stress induces is,%f N/mm^2\n",f)
printf("the unknown weigth is,%f N",W)