diff options
Diffstat (limited to '278/CH9/EX9.4/ex_9_4.sce')
-rwxr-xr-x | 278/CH9/EX9.4/ex_9_4.sce | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/278/CH9/EX9.4/ex_9_4.sce b/278/CH9/EX9.4/ex_9_4.sce new file mode 100755 index 000000000..ba8a8e84a --- /dev/null +++ b/278/CH9/EX9.4/ex_9_4.sce @@ -0,0 +1,28 @@ +//find efficiency
+clc
+//solution
+//given
+t=13//mm
+ft=80//N/mm^2
+T=60//N/mm^2
+fc=120//N/mm^2
+pi=3.14
+d=6*sqrt(t)//mm//dia of rivet
+//use standard value from table 9.3
+//let p be the picth of rivets
+//Pt=(p-d)*t*ft=(p-23)*1040//N//tearing resistance of plate
+Ps=2*(pi/4)*d^2*T//N//shearing resistance of rivet
+//p-23=Ps/1040
+p=23+(Ps/1040)//mm
+//check the limits,if p<=pmax..then it is safe design
+//pmax=C*t+41.28//mm=75.28mm which is more then p
+pb=0.33*p+ 0.67*d//distance btw rivets
+m=1.58*d//margin
+Pt=(p-d)*t*ft//N//tearing resistance of plate
+Ps=(2*pi/4)*d^2*T//N//shearing resistance of rivet
+Pc=2*d*t*fc//N//crushing resistance of rivet
+P=p*t*ft//N//strength of the unriveted
+//eff=(least of Pt,Ps,Pc)/P
+printf("the value of forces are,%f N\n,%f N\n,%f N\n",Pt,Ps,Pc)
+eff=Ps/P//least is Ps
+printf("the eff is,%f",eff)
\ No newline at end of file |