summaryrefslogtreecommitdiff
path: root/2732/CH7/EX7.15/Ex7_15.sce
blob: 6b4d6cc43a5369461ee1de25b569e2d824a4bad9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
//initilization of new variables
clear
wt=0.8 //cm
ft=1.4 //cm
w=10 //cm
y=20 //cm
T=750 //T==750*sigma_y
// calculations
MpF=ft*w*(40-2*ft)
c1=((40-2*ft)/2)^2-(T-MpF)/wt
c=sqrt(3*c1)
// results
printf('Elastic core of %.1f cm depth is present',2*c)