blob: 6121bb9c3ac749be123adf3482cf1045263f983b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
pathname=get_absolute_file_path('5_4.sce')
filename=pathname+filesep()+'5_4data.sci'
exec(filename)
clear
AC=(AB^2 +BC^2)^0.5;
delBC=BC*delT*alpha;
F1=[AB/BC;1;AB/BC;1;-AC/BC;-AC/BC];
L=[AB;BC;AB;BC;AC;AC];
for i=1:6
X(i)=L(i)*F1(i)*F1(i);
end
R=(-delBC*A*E)/sum(X);
F=R*F1;
disp("Force (AB,BC,CD,DA,AC,DB):");
printf("\n %f N",F);
|
