summaryrefslogtreecommitdiff
path: root/278/CH9/EX9.4/ex_9_4.sce
diff options
context:
space:
mode:
Diffstat (limited to '278/CH9/EX9.4/ex_9_4.sce')
-rwxr-xr-x278/CH9/EX9.4/ex_9_4.sce54
1 files changed, 27 insertions, 27 deletions
diff --git a/278/CH9/EX9.4/ex_9_4.sce b/278/CH9/EX9.4/ex_9_4.sce
index ba8a8e84a..f7a0a38c4 100755
--- a/278/CH9/EX9.4/ex_9_4.sce
+++ b/278/CH9/EX9.4/ex_9_4.sce
@@ -1,28 +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
+
+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&lt;=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