1 files changed, 15 insertions, 0 deletions
diff --git a/866/CH18/EX18.3/18_3.sce b/866/CH18/EX18.3/18_3.sce
new file mode 100755
index 000000000..a67aa4d18
--- /dev/null
+++ b/866/CH18/EX18.3/18_3.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+d= 200 //mm
+b= 150 //mm
+tw= 7 //mm
+tf= 10 //mm
+//CALCULATIONS
+ye= (b*tf*(tf/2)+(d-tf)*tw*((d+tf)/2))/(b*tf+(d-tf)*tw)
+I= ((b*ye^3)/3)-(b-tw)*(((ye-tf)^3)/3)+(tw*((d-ye)^3)/3)
+Ze= I/(d-ye)
+yp= (b*tf+(d-tf)*tw)/(2*b)
+Zp= b*yp*yp/2+b*(tf-yp)*(tf-yp)/2+(d-tf)*tw*((d-tf)/2+(tf-yp))
+f= Zp/Ze
+//RESULTS
+printf ('fie= %.2f',f)