From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 278/CH9/EX9.4/ex_9_4.sce | 54 ++++++++++++++++++++++++------------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

(limited to '278/CH9/EX9.4/ex_9_4.sce')

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
-- 
cgit