summaryrefslogtreecommitdiff
path: root/564/CH20/EX20.2/20_2.sce
blob: 32495dff8ab9957c0db97702118ea8d9bcb87dc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
pathname=get_absolute_file_path('20_2.sce')
filename=pathname+filesep()+'20_2data.sci'
exec(filename)
clear
Yc=(2*(B'*D) -B(1,:)*D(1,:))/((2*sum(B))-(B(1,:)+B(9,:)));
Y=D-Yc*ones(9,1);
for i=1:9
    Ixx(i)=B(i)*(Y(i))^2;
end
P=2*sum(Ixx)-Ixx(1)-Ixx(9);
for i=1:9
    Sz(i)=(Mx/P)*Y(i);//σz
end
printf("\nσz: %f N/mm^2",Sz);