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/CH4/EX4.15/ex_4_15.sce | 64 +++++++++++++++++++++++-----------------------
 1 file changed, 32 insertions(+), 32 deletions(-)

(limited to '278/CH4/EX4.15/ex_4_15.sce')

diff --git a/278/CH4/EX4.15/ex_4_15.sce b/278/CH4/EX4.15/ex_4_15.sce
index aff2f336c..b7a476b5d 100755
--- a/278/CH4/EX4.15/ex_4_15.sce
+++ b/278/CH4/EX4.15/ex_4_15.sce
@@ -1,33 +1,33 @@
-//find stres induced in both bars and pins
-clc
-//solution
-//given
-dc=0.050//m
-dse=0.075//m
-dsi=0.050//m
-dp=0.018//m
-t=50//degree celcius
-Es=210*10^9//N/m^2
-Ec=105*10^9//N/m^2
-as=11.5*10^-6//per degree celcius
-ac=17*10^-6//per degree celcius
-//refer fig 4.18
-pi=3.14
-Ac=(pi/4)*dc^2//m^2
-As=(pi/4)*(dse^2-dsi^2)//m^2
-Ap=(pi/4)*(dp)^2
-//let l be the length of rods
-//dlc=l*ac*t=850*10^-6*l
-//dls=l*as*t=575*10^-6*l
-//x=dlc-dls=275*10^-6*l
-//x1=(P*l)/(Ac*Ec)=(P*l)/(206.22*10^6)//m
-//x2=(P*l)/(As*Es)=(P*l)/(515.55*10^6)//m
-//therefore X=x1+x2=(6.79*10^-9*P*l)
-//x=X
-P=(275*10^-6)/(6.79*10^-9)//N
-fc=P/Ac//N/m^2
-fs=P/As//N/m^2
-tp=P/(2*Ap)//N/m^2
-printf("the stress in coper bar is, %f N/m^2\n",fc)
-printf("the stress in steel bar is, %f N/m^2\n",fs)
+
+clc
+//solution
+//given
+dc=0.050//m
+dse=0.075//m
+dsi=0.050//m
+dp=0.018//m
+t=50//degree celcius
+Es=210*10^9//N/m^2
+Ec=105*10^9//N/m^2
+as=11.5*10^-6//per degree celcius
+ac=17*10^-6//per degree celcius
+//refer fig 4.18
+pi=3.14
+Ac=(pi/4)*dc^2//m^2
+As=(pi/4)*(dse^2-dsi^2)//m^2
+Ap=(pi/4)*(dp)^2
+//let l be the length of rods
+//dlc=l*ac*t=850*10^-6*l
+//dls=l*as*t=575*10^-6*l
+//x=dlc-dls=275*10^-6*l
+//x1=(P*l)/(Ac*Ec)=(P*l)/(206.22*10^6)//m
+//x2=(P*l)/(As*Es)=(P*l)/(515.55*10^6)//m
+//therefore X=x1+x2=(6.79*10^-9*P*l)
+//x=X
+P=(275*10^-6)/(6.79*10^-9)//N
+fc=P/Ac//N/m^2
+fs=P/As//N/m^2
+tp=P/(2*Ap)//N/m^2
+printf("the stress in coper bar is, %f N/m^2\n",fc)
+printf("the stress in steel bar is, %f N/m^2\n",fs)
 printf("the stress is pin is,%f N.m^2",tp)
\ No newline at end of file
-- 
cgit