summaryrefslogtreecommitdiff
path: root/3864/CH4/EX4.12/Ex4_12.sce
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 11:01:52 +0530
committerprashantsinalkar2018-02-03 11:01:52 +0530
commit7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch)
tree449d555969bfd7befe906877abab098c6e63a0e8 /3864/CH4/EX4.12/Ex4_12.sce
parentd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff)
downloadScilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip
Added new codeHEADmaster
Diffstat (limited to '3864/CH4/EX4.12/Ex4_12.sce')
-rw-r--r--3864/CH4/EX4.12/Ex4_12.sce43
1 files changed, 43 insertions, 0 deletions
diff --git a/3864/CH4/EX4.12/Ex4_12.sce b/3864/CH4/EX4.12/Ex4_12.sce
new file mode 100644
index 000000000..d1060e823
--- /dev/null
+++ b/3864/CH4/EX4.12/Ex4_12.sce
@@ -0,0 +1,43 @@
+clear
+//
+
+//Initilization of Variables
+
+b=200 //mm //Width of timber
+d=400 //mm //Depth of timber
+t=6 //mm //Thickness
+b2=200 //mm //width of steel plate
+t2=20 //mm //Thickness of steel plate
+M=40*10**6 //KN-mm //Moment
+//Let E_s*E_t**-1=X
+X=20 //Ratio of Modulus of steel to timber
+
+//Calculations
+
+//let y_bar be the Distance of centroidfrom bottom most fibre
+y_bar=(b*d*(b+t)+t2*b2*t*t*2**-1)*(b*d+t2*b2*t)**-1 //mm
+
+//Moment of Inertia
+I=1*12**-1*b*d**3+b*d*(b+t-(y_bar))**2+1*12**-1*t2*b2*t**3+b2*t2*t*((y_bar)-t*2**-1)**2
+
+
+//distance of the top fibre from N-A
+y_1=d+t-y_bar //mm
+
+//Distance of the junction of timber and steel From N-A
+y_2=y_bar-t //mm
+
+//Stress in Timber at the top
+Y=M*I**-1*y_1 //N/mm**2
+
+//Stress in the Timber at the junction point
+Z=M*I**-1*y_2
+
+//Coressponding stress in steel at the junction point
+Z2=X*Z //N/mm**2
+
+//The stress in Extreme steel fibre
+Z3=X*M*I**-1*y_bar
+
+//Result
+printf("\n Stress in Extreme steel Fibre %0.2f N/mm**2",Z3)