FIRST QUESTION
clc
clear all
T=0*pi/180;
A12=[(cos(T))^2 cos(T)*sin(T) -(cos(T))^2 -cos(T)*sin(T); cos(T)*sin(T) (sin(T))^2 -cos(T)*sin(T) -(sin(T))^2;-(cos(T))^2 -cos(T)*sin(T) (cos(T))^2 cos(T)*sin(T);-cos(T)*sin(T) -(sin(T))^2 cos(T)*sin(T) (sin(T))^2]
T=0*pi/180;
A43=[(cos(T))^2 cos(T)*sin(T) -(cos(T))^2 -cos(T)*sin(T); cos(T)*sin(T) (sin(T))^2 -cos(T)*sin(T) -(sin(T))^2;-(cos(T))^2 -cos(T)*sin(T) (cos(T))^2 cos(T)*sin(T);-cos(T)*sin(T) -(sin(T))^2 cos(T)*sin(T) (sin(T))^2]
T=90*pi/180;
A14=[(cos(T))^2 cos(T)*sin(T) -(cos(T))^2 -cos(T)*sin(T); cos(T)*sin(T) (sin(T))^2 -cos(T)*sin(T) -(sin(T))^2;-(cos(T))^2 -cos(T)*sin(T) (cos(T))^2 cos(T)*sin(T);-cos(T)*sin(T) -(sin(T))^2 cos(T)*sin(T) (sin(T))^2]
T=90*pi/180;
A23=[(cos(T))^2 cos(T)*sin(T) -(cos(T))^2 -cos(T)*sin(T); cos(T)*sin(T) (sin(T))^2 -cos(T)*sin(T) -(sin(T))^2;-(cos(T))^2 -cos(T)*sin(T) (cos(T))^2 cos(T)*sin(T);-cos(T)*sin(T) -(sin(T))^2 cos(T)*sin(T) (sin(T))^2]
T=53.13*pi/180;
A13=[(cos(T))^2 cos(T)*sin(T) -(cos(T))^2 -cos(T)*sin(T); cos(T)*sin(T) (sin(T))^2 -cos(T)*sin(T) -(sin(T))^2;-(cos(T))^2 -cos(T)*sin(T) (cos(T))^2 cos(T)*sin(T);-cos(T)*sin(T) -(sin(T))^2 cos(T)*sin(T) (sin(T))^2]
A=[zeros(8,8)]
syms EI
A12=EI.*A12./3
A43=EI.*A43./3
A14=EI.*A14./4
A23=EI.*A23./4
A13=EI.*A13./5
c=1
s=0
for i=[1 2 3 4]
for j=[1 2 3 4]
s=s+1
A(i,j)=A12(c,s)
end
c=c+1
s=0
end
c=1
s=0
for i=[1 2 7 8]
for j=[1 2 7 8]
s=s+1
A(i,j)= A(i,j)+A14(c,s)
end
c=c+1
s=0
end
c=1
s=0
for i=[7 8 5 6]
for j=[7 8 5 6]
s=s+1
A(i,j)= A(i,j)+A43(c,s)
end
c=c+1
s=0
end
c=1
s=0
for i=[3 4 5 6]
for j=[3 4 5 6]
s=s+1
A(i,j)= A(i,j)+A23(c,s)
end
c=c+1
s=0
end
c=1
s=0
for i=[1 2 5 6]
for j=[1 2 5 6]
s=s+1
A(i,j)= A(i,j)+A13(c,s)
end
c=c+1
s=0
end
b=A(2:6,2:6)
b=inv(b)
c=[0; 0; 0; 15; -20]
d=b*c