Fexibilidad
Fexibilidad
Fexibilidad
Datos
E=1 % M�dulo de elasticidad
I=1 % Momento de Inercia
A=1 % Area de la secci�n
%% matriz de incidencia
a=[ 1 2 3 4 5 6
4 5 6 7 8 9
7 8 9 10 11 12]
%% vector de ordenamiento
aa=zeros(M,3);
aa=[ 1 2 3
4 5 6
7 8 9]
C=zeros(3*N,3*M);
[C1,L1,cs1,sn1]=axibend_C(0,0,2.5,5);
[C2,L2,cs2,sn2]=axibend_C(0,5,5,5);
[C3,L3,cs3,sn3]=axibend_C(5,5,5,0);
C1;
C2;
C3;
C(a(1,:)',aa(1,:))=C1;
C(a(2,:)',aa(2,:))=C2 ;
C(a(3,:)',aa(3,:))=C3;
disp( 'matriz de equilibrio ensamblada')
C % Matriz de equilibrio completo.
% suprimimos las restricciones
C([1,2,3,10,11,12],:)=[];
% Matriz de Flexibilidad
J=zeros(3*M,3*M);
J1 = A_B_J(L1,E,A,I)
J2 = A_B_J(L2,E,A,I)
J3= A_B_J(L3,E,A,I)
J(aa(1,:)',aa(1,:))=J1;
J(aa(2,:)',aa(2,:))=J2 ;
J(aa(3,:)',aa(3,:))=J3;
%% PRIMER CASO
%definici�n del vector de cargas
%
Q=zeros(N*3,1);
Ql=zeros(N*3,1);
% % % CaRGA Local
% pd=1 % Carga Distribuida ( kgf/m)
% L=L3 % Longitud de la barra
%
% P=pd*L %P resultante de la carga normal
% T=0; %T resultante de la carga tangencial
% rp=0.5; %rP distancia de P al primer nudo, fracci�n de L
%
%
% [QL] = axibend_Ql(L,cs3,sn3,P,T,rp);
% Q(a(3,:),1)= Q(a(3,:),1)+(QL);
% Carga en el nodo
Q(4,1)=5;
Ql(5,1)=2.5;
Ql(8,1)=2.5;
Q([1,2,3,10,11,12],:)=[]
Ql([1,2,3,10,11,12],:)=[]
Qr=Q-Ql
fl=zeros(M*3,1);
fl(4,1)=5.208;
fl(5,1)=-5.208;
x1= G\b1;
% vector de fuerzas
disp('=================================================')
disp('Resultados')
F1=x1(1:9)
% vector de desplazamientos
qr1=x1(10:15)
%bPrint2('F1','qr1');