Capitulo 10
Capitulo 10
Capitulo 10
MODOS DE VIBRACIÓN
RESUMEN
1/2
Posteriormente se indica el algoritmo de M con el cual se obtienen los períodos
y modos de vibración en las estructuras. Además se presenta un programa en MATLAB para
este algoritmo, denominado modosplano. Un método clásico para encontrar los valores y
vectores propios, es el Método de Jacobi, razón por la cual se estudia con bastante
detenimiento, este método. Todo esto es historia ya que actualmente se encuentran los valores
y vectores propios en MATLAB con un simple programa denominado eig que reporta los
valores propios sin ordenarlos de menor a mayor. En CEINCI-LAB el programa que ordena los
valores propios de menor a mayor se denomina orden_eig.
q (t ) =φ f (t ) (10.3)
Donde φ es un vector que no depende del tiempo y que contiene los vectores
propios y f (t ) es una función del tiempo. La primera y segunda derivada, con respecto al
tiempo de q , son:
. . .. ..
q ( t )=φ f ( t ) q ( t )=φ f ( t )
. ..
..
( K+
f (t )
f (t )
M φ=0 )
Se denomina:
..
..
f (t ) (10.4)
=− λ ⇒ f (t )+ λ f ( t )=0
f (t )
Luego se tiene:
(10.5)
( K−λ M ) φ=0
En resumen, el problema de vibración libre, definido en la ecuación (10.2) se ha
descompuesto en dos problemas, que son:
¿
( K−λ M ) φ=0
..
f (t ) + λ f (t )=0
205 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
EJEMPLO 1
Un pórtico plano de dos pisos, tiene las siguientes matrices de rigidez y de masas.
K =¿ [ 12352. 0 − 3983. 0 ¿ ] ¿ ¿ ¿
¿
Se pide encontrar los valores y vectores propios, aplicando las definiciones del
apartado 10.1. Presentar también los modos normalizados.
SOLUCIÓN
K̄−λ M̄=0
K −λM= 12352 .0 −3983 . 0 −λ⋅ 2 .02 0 . 0
[ ] [ ]
−3983 . 0 2100 .8 0 . 0 0 . 97
K −λM= 12352 .0−2 .02 λ −3983. 0
[
−3983 . 0 2100. 8−0 . 97 λ ]
2
|K −λM|= [ ( 12352 . 0−2 . 02 λ )∗( 2100 . 8−0 . 97 λ ) ]−[ (−3983 .0 ) ]=0
∴ P ( λ ) =1. 9594 λ 2−16225 . 056 λ+10084792 .6=0
Cada uno de los valores propios, está asociado a un modo de vibración. Estos modos
de vibración indican la forma como va a responder la estructura durante un sismo o una
excitación dinámica; por este motivo es importante fijarse en sus valores, especialmente en el
primer modo de vibración ya que nos puede estar indicando que la estructura va a tener un
buen o mal comportamiento sísmico. Los modos de vibración son adimensionales.
[ K− λ1 M ] X (1)=0́
(1)
Sea X de la forma:
X (1)= a
b []
Al reemplazar valores se tiene:
207 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
α (i ) X ( i) t M α (i ) X ( i)=R
ℜ
( i)
α =
√ X
(i ) t
M X
(i )
(10.11)
1
α (1)=
X =¿ [a ¿ ] ¿ ¿¿
(2) −
¿ [ K − λ2 M ] X (2 )=0
Sea al reemplazar en se tiene:
X =¿ [ 1 .000 ¿ ] ¿ ¿¿
(2)
(2 )
¿
A partir de X se encuentra por un procedimiento similar al anterior el vector
propio normalizado a la unidad. Encontrando:
El objetivo del Ejemplo 1, era presentar el cálculo de los valores y vectores propios en
forma manual, como si se tratara de un curso de Algebra Lineal, en que se ve este tópico.
Ahora en el Ejemplo 2, se quiere resolver en forma práctica utilizando las funciones de CEINCI-
LAB, de una estructura espacial.
EJEMPLO 2
(a)
(b)
Figura 10.1 a) Vista en planta de una estructura de 3 pisos, con columnas circulares y vigas
rectangulares; b) Coordenadas de Piso, ubicadas en el Centro de Masas.
SOLUCIÓN
Todos los pórticos son iguales, por esta razón se presenta el cálculo de la matriz de
rigidez lateral del Pórtico 1 y nada más, en lo referente a la K L. El cálculo de la matriz de
rigidez por ensamblaje directo se lo realizar en base al área e inercia de cada elemento, ahí no
se tiene que tener cuidado en la numeración de los elementos, se hace todo de corrido. Se va a
trabajar con un modelo que considera nudo en la mitad de las vigas.
(c)
(d)
Figura 10.1 c) Numeración de nudos y elementos de Pórtico Tipo; b) Grados de Libertad de
Pórtico Tipo, con azul las coordenadas principales y con rojo las secundarias.
% Ej_2clase_ULEAM
212 MODOS DE VIBRACIÓN
%% PORTICO 1
sv =[6;6]; %Longitud de vanos
sp =[3.5; 3.5; 3.5]; %Altura de pisos
Eh=2400000; % Modulo de elasticidad del hormigón (T/m2)
ac=pi*0.6^2/4;ic=pi*0.6^4/64;
av=0.4*0.5;iv=0.4*0.5^3/12;
Seccion=[1 ac ic 8 1; 10 av iv 11 1 ];%Hormigon armado
%% PÓRTICO SIN DIAGONALES
[nv,np,nudt,nudcol,nudvg,nod,nr]=geometria_nudo_viga(sv,sp);
[X,Y]=glinea_portico2(nv,np,sv,sp,nod,nr); %coordenadas
[NI,NJ]=gn_portico2(nr, nv, nudt, nudcol, nudvg);
%% Datos de toda la estructura
[CG,ngl]=cg_sismo2(nod,nr,Y);
figure (1)
dibujoplano(X,Y,NI,NJ)
figure (2)
dibujogdl(X,Y,NI,NJ,CG)
[L,seno,coseno]=longitud (X,Y,NI,NJ);
[VC]=vc(NI,NJ,CG);
[ELEM]=gelem_portico(Seccion);
[KT]=krigidez_acero(ngl,ELEM,L,seno,coseno,VC,Eh);
%% Condensacion de matriz de rigidez
na=3; %numero de coordenadas principales
kaa=KT(1:na,1:na); kab=KT(1:na,na+1:ngl);
kba=kab';kbb=KT(na+1:ngl,na+1:ngl);
T=-kbb\kba; %matriz de incidencia que sirve para calcular coordenadas b
KL1=kaa+kab*T;
KL2=KL1;KL3=KL1;KLA=KL1;KLB=KL1;KLC=KL1;
R1=mdiag(-6,-6,-6);R2=mdiag(0,0,0);R3=mdiag(6,6,6);
RA=mdiag(-6,-6,-6);RB=mdiag(0,0,0);RC=mdiag(6,6,6);
KTOT=[KL1;KL2;KL3;KLA;KLB;KLC];% Análisis Sísmico en sentido X
RTOT=[R1;R2;R3;RA;RB;RC];% En el mismo orden de las matrices KL
THETA=[0;0;0;90;90;90];% Angulo que forma orientación positiva con eje X
ntot=6; % Número de pórticos totales
NP=3; % Número de pisos
[KE,A]=matriz_es1(ntot,NP,KTOT,RTOT,THETA);
%% Matriz de masas
D=0.7; L=0.2; % Para el análisis sísmicos de viviendas
% se trabaja con el 25% de la carga viva
PT=D+0.25*L; % Carga total
area=12*12; % Area de la planta
W1=area*PT; % Peso total del piso 1
W2=W1;W3=W1;% La carga D y L es la misma para pisos 2 y 3
m1=W1/9.8; m2=m1; m3=m1;
a1=12;b1=12;
J1=(m1/12)*(a1^2+b1^2); J2=J1;J3=J1;
m=mdiag(m1,m2,m3);
J=mdiag(J1,J2,J3);
M=mdiag(m,m,J);
%% Períodos y modos de vibración de la estructura
[T,fi,OM]=orden_eig(KE,M)
[
K xx =K yy = −34952 46925 −21432
7573.1 −21432 15161 ]
2957100 −1677700 3635100
[
K θθ = −1677700 2252400 −1028700
3635100 −1028700 7277500 ]
Las sub matrices no indicadas de K E son nulas.
m= 11.02 J = 264.49
¿ ¿
[
11.02 ¿ 11.02 ] [
264.49 ¿264.49 ]
m ¿
M =[
m ¿J ]
Períodos de vibración
0 0.0689 0
[ ][ ][ ]
0 0.1689 0
0 0.2398 0
0.0689 0 0
∅ (1) = 0.1689 ∅(2 )= 0 ∅(3 )= 0
0.2398 0 0
0 0 0.0141
0 0 0.0345
0 0 0.0489
EJEMPLO 3
(e) (f)
215 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
(g)
Figura 10.2 e) Abertura de losa en los dos primeros pisos, para grada; f) Figuras geométricas
consideradas para determinación del Centro de Gravedad; g) Identificación de
elementos para el cálculo del Centro de Masas.
SOLUCIÓN
En la figura 10.2 f, se presentan las figuras consideradas para el cálculo del Centro de
Gravedad de una planta con abertura de la losa y en la tabla 10.2, se indica su cálculo. Las
coordenadas del centro de gravedad son: 6.41 m, en sentido X, y 5.64 m, en sentido Y.
Tabla 10.2 Figuras geométricas consideradas para el cálculo de Centro de Gravedad (ver
figura 10.2 f)
Figura X (m) Y (m) A (m2) A*X (m3) A*Y (m3)
1 1,5 4 24 36 96
2 7,5 6 108 810 648
Ʃ= 132 846 744
Ʃ X A 846
X CG = = =6.41m
ƩA 132
Ʃ Y A 744
Y CG = = =5.64 m
ƩA 132
Tabla 10.3 Cálculo del Centro de Masas de una losa con abertura.
Elemento Numero Masa X (m) Y (m) Masa*X Masa*Y
Columna 1 0,21 0,30 12,30 0,06 2,56
Columna 2 0,21 6,30 12,30 1,31 2,56
Columna 3 0,21 12,30 12,30 2,56 2,56
Columna 4 0,21 0,30 6,30 0,06 1,31
Columna 5 0,21 6,30 6,30 1,31 1,31
Columna 6 0,21 12,30 6,30 2,56 1,31
Columna 7 0,21 0,30 0,30 0,06 0,06
216 MODOS DE VIBRACIÓN
Ʃ Y M 65.11
Y CM = = =6.11 m
ƩM 10.67
En la tabla 10.3, se tiene el cálculo del Centro de Masas y los elementos (vigas,
columna, paño) a las que se hacen referencia se indican en la figura 10.2 g.
Figura 10.2 h) A la izquierda ubicación del Centro de Gravedad y a la derecha ubicación del
Centro de Masas.
En base a los datos de la tabla 10.3, se puede determinar el valor del momento de
inercia de la masa J CM , multiplicando la masa de cada una de las figuras elementales m i por la
distancia desde el centro de masas a cada figura elemental r i elevado al cuadrado.
J CM =∑ mi r 2i
217 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
En base a los datos, la carga total por metro cuadrado PT , de cada piso son:
Sea m ¿1, la masa total del área de la figura 10.2 f, y m¿2 la masa total del área más
grande.
El momento de inercia, con respecto al centro de masas, de cada una de las figuras
rectangulares de los pisos 1 y 2, se obtiene con la siguiente ecuación.
m ¿i ∗(a2i +b2i )
J CMi =
12
Tabla 10.4 Cálculo del momento de inercia de masas de los pisos 1 y 2, aplicando el Teorema
de Steiner.
Figura m ¿i J CMi di m ¿i d 2i
1 1,84 11,17 5,18 49,22
2 8,27 154,97 1,15 10,89
Ʃ= 166,15 60,11
2
J (1,2 )
CM = ∑ J CMi + ∑ mi d i
J (1,2 )
CM =166.15+60.11=226.26
Matriz M
¿ ¿ T s2
m1=m1 + m2 =10.10
m
T s2
m 2=m1=10.10
m
(3)
PT ∗A3 0.7∗(12∗12) T s2
m 3= = =10.29
g 9.8 m
m= 10.10 J = 226.26
¿ ¿
[
10.10 ¿ 10.29 ] [
226.26 ¿ 246.96 ]
m ¿
M =[
m ¿J ]
EJEMPLO 4
L 100 I 0
a= A 0=
10 L2
Se pide:
SOLUCIÓN
(d) (e)
Figura 10.3 d) Geometría de nudo en forma de “T” completamente rígido; b) Ubicación del
Centro de Masas.
Σ y A 2.5 a2 2.5 a
y CM = = =
ΣA 3a 3
Tabla 10.6 Cálculo del momento de inercia de la masa de nudo en forma de T completamente
rígido en el que se concentra la masa total m
Figura m i Li m L2 di m d2
i i i i
J CMi =
12
1 2m 2a 2m 4 a2 2 a a ma 2
= ma
2
0.5 =
3 3 12 9 3 6 54
2 m a m a2 m a2 2.5 a a a ma 2
3 =
3 12 36 ( 3 )
− =
2 3 27
∑¿ ma 2 ma 2
4 18
J CM =∑ J CMi + ∑ mi d 2i
ma2 ma2 11 ma 2
J CM = + =
4 18 36
Al considerar las coordenadas en el Centro de Masas, el cálculo de la matriz de masas
es directo y vale:
M= m 0
[
0 J CM ]
m 0
M=
[ 0
11 m a2
36 ]
iii) Matriz de rigidez K
En la figura 10.3 b, se presentan las coordenadas generalizadas, en el Centro de
Masas y en la figura 10.3 c, las coordenadas de los elementos, en sistema 1, para la solución
manual. Aguiar (2014).
p= A q
Las deformadas elementales, con las que se hallan la matriz de compatibilidad de
deformaciones se indican en las figuras 10.3 f y 10.3 g.
221 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
(f) (g)
Figura 10.3 f) Deformada Elemental q 1=1 y q 2=0; g) Deformada elemental q 2=1 y q 1=0
Matriz A
1 2.5 a 1 2.5
[ ][ ]
L 3L L 30
1 3 L+ 2.5 a 1 32.5
L 3L L 30
a L 11
A= 0 1+ si a= A= −¿−¿ 0
L 10 10
a 1
0 0
L 10
0.5 a 0.5 a
−1 −1
3 3
Elemento 1
4 E I 0 2 E I0
[
k (1)= L L
2E I0 4 E I0
L
Elemento 2
L
]
222 MODOS DE VIBRACIÓN
4 E I0 2 E I0 4 E I0 2 E I0
[ ] [ ]
0 0
L L L L
2 E I0 4 E I0 I 2E I0 4 EI0
k (2)= 0 si A 0=100 02 k (2)= 0
L L L L L
E A0 100 EI 0
0 0 0 0
L L3
12 E I 0 7 E I0
7 EI0
[ L2
L2
5.07 E I 0
L
]
100 E I 0 −5 E I 0
A(2)t k (2 ) A(2)=
L3
[
−5 E I 0
3L
Matriz de Rigidez K
2
3 L2
5.06
EI0
L
]
K=Σ A(i)t k (i ) A(i)
E I0 16 E I 0
K=
[L3
112
16 E I 0
3 L2
3 L2
10.12 E I 0
L
]
iv) Valores y Vectores Propios
E I0 16 E I 0
112 3
− λm
L 3 L2
K− λ M =⌊ ⌋
16 E I 0 10.12 E I 0
−0.0032 λm L2
3 L2 L
E I0 5.22 E I 0 16 E I 0 2
⌈ K−λ M ⌉= 112 ( L3
−mλ
L )( −0.0032 m L 2
λ −
3 L2 )( =0 )
Sea
223 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
E I0
c=
L3
De donde
b []
E I0 EI0 16 E I 0
112 −106.16
L3 L3 3 L2 ¿
⌋ a¿= 0
K− λ1 M =⌊
16 E I 0 5.22 E I 0
−0.0032∗106.16
[ ][ ]
EI0 ¿b ¿0
3 L2 L L
1
5.84
E I 0 ¿ 16 E I 0 ¿
L3
a +
3 L2
b =0 →ϕ (1)
= −1.09
L [ ]
Vector propio asociado a λ2
E I0 E I0 16 E I 0
112 −1637.1
L3 L3 3 L2 ¿
⌋ a¿= 0
K− λ2 M =⌊
16 E I 0 3.84 E I 0
−0.0032∗1637.1
[ ][ ]
E I0 ¿b ¿0
3 L2 L L
1
−1525.1
E I 0 ¿ 16 E I 0 ¿
L3
a +
3 L2
b =0 → ϕ (2 )
= 285.96
L [ ]
1
2
10.2 ALGORITMO DE M
de los más utilizados es el de Jacobi que encuentra todos los valores y vectores propios de una
matriz simétrica.
Se tiene que definir por lo tanto esa matriz, a partir de las matrices de rigidez K y de
masas M . Para el efecto, una alternativa es utilizar el algoritmo que en este apartado se
indica. La ecuación (10.5) puede escribirse de la siguiente manera:
K φ =λ M φ (10.12)
Sea
1
−
2 (10.13)
φ=M φo
Al reemplazar (10.13) en (10.12) se tiene:
1 1
− −
2 2
K M φ o =λ M M φo
Por otro lado se tiene que:
1 1
2 2
M=M M
Al reemplazar en el lado derecho de la última ecuación se encuentra:
1 1
−
2 2
K M φ o =λ M φ o
1
−
2
Al multiplicar por la izquierda, por M se obtiene:
1 1
− −
2 2
M K M φo =λ φo
Se denomina (10.14)
1 1
− −
2 2
K o =M K M (10.15)
3. Se determina
Ko .
[Modos]=modosplano (K)
function [Modos]=modosplano(K)
%
% Calculo de modos de vibracion de porticos planos.
% Empleando algoritmo de M elevado a la 1/2.
%
% Por: Roberto Aguiar Falconi
% CEINCI ESPE
% -----------------------------------------------------------------
% [Modos]=modosplano(K)
% -----------------------------------------------------------------
% K Matriz de rigidez lateral del portico plano
% M Matriz de masas, se programa como vector ya que es diagonal
% NP Numero de pisos.
% Por pantalla se indicara las masas de cada piso.
% Previamente el usuario habra calculado la matriz de rigidez lateral
% con otro programa.
% T Periodos de vibracion.
%
NP = input (' \n Numero de pisos ');
for i=1:NP
fprintf ('Indique la masa del piso , %2d',i);
M(i) = input (', Valor de la masa: ');
end
M12=sqrt(M);
for i=1:NP
M12(i)=1.0/M12(i);
end
MINV=zeros(NP,NP); MINV=diag(M12); Ko=MINV*K*MINV;
[V,D]=eig(Ko); Modos=MINV*V; Wn=sqrt(D); T=diag(Wn);
for i=1:NP
T(i)=2*pi/T(i);
end
fprintf ('\n Periodos de vibracion ')
T
fprintf ('\n Modos de vibracion ')
Modos;
% ---fin
EJEMPLO 5
Al multiplicar la carga uniforme repartida por la longitud total de 8 m., y al dividir por el
valor de la gravedad, se encuentra la masa concentrada en cada piso, que vale 1.633 Ts 2/m,
que se muestra en la figura 10.4 b.
30x30 30x30
30x30 30x30
30x30 30x30
(a) (b)
Figura 10.4 a) Pórtico de estudio; b) Modelo con masas puntuales concentradas en cada piso.
M =¿ [ 1.278 0 0 ¿ ] [ 0 1.278 0 ¿ ] ¿ ¿¿
1/2
¿
De donde, la matriz
Ko resulta:
φ =¿ [ 0 . 1963 ¿ ][ 0 . 4486 ¿ ] ¿ ¿ ¿
(1 )
¿
En las figuras 10.4 c, d, e; se indican los respectivos modos de vibración. Nótese que el
primer modo no tiene punto de inflexión. El segundo modo tiene un punto de inflexión y el tercer
modo tiene dos puntos de inflexión.
47
>> K=[2761.1 -1538.1 285.7; -1538.1 2278.0 -1080.6; 285.7 -1080.6 836.9]
>> [Modos] = modos plano(K)
Número de pisos 3
Indique la masa del piso, 1, Valor de la masa: 1.633
Indique la masa del piso, 2, Valor de la masa: 1.633
Indique la masa del piso, 3, Valor de la masa: 1.633
MATLAB presenta otra opción para calcular directamente los valores y vectores
propios directamente, por consola, utilizando el comando eig pero de forma diferente a la que
está en el programa modosplano. Pero el programa eig de MATLAB no presenta los valores
propios ordenados de menor a mayor, eso lo hace el programa orden_eig de CEINCI-LAB que
se verá posteriormente.
228 MODOS DE VIBRACIÓN
EJEMPLO 6
SOLUCIÓN
>> K=[2761.1 -1538.1 285.7; -1538.1 2278.0 -1080.6; 285.7 -1080.6 836.9];
>> M=[1.633 0 0; 0 1.633 0; 0 0 1.633];
>> [V,D] = eig (K,M)
COMENTARIO
Al ver la forma tan elemental como se halla los valores y vectores propios con
1
MATLAB, parecería no tener sentido presentar el algoritmo de
M 2 , al igual que el método de
Jacobi, porque esto ya es historia pero vale la pena hacerlo para que la gente conozca como
están hechos algunos programas de computación y no convertirse solo en usuario de estos
programas.
−1
B=P AP (10.17)
Teorema 3. Si una matriz es diagonal. Entonces los valores propios son los
elementos de la diagonal.
t −1 t
H H =I → H =H (10.18)
La idea básica del Método de Jacobi es construir una serie de matrices que son
semejantes a la original, para lo cual se emplea una matriz de paso P que es ortogonal. Las
229 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
Existe las siguientes posibilidades para hacer cero a los elementos fuera de la diagonal:
i) Hacer ceros por filas, ii) Hacer ceros por columnas, iii) Hacer cero al mayor elemento fuera
de la diagonal en valor absoluto, iv) Una combinación de los casos anotados.
Sea
a p ,q el elemento de la fila p y columna q, de una matriz A, que se desea hacer
cero, p≠q , el elemento se encuentra en la matriz triangular inferior en el ciclo k. La matriz
P, con la cual se construirá la matriz semejante y con la cual se logrará el objetivo propuesto
tiene la siguiente forma:
[ ¿ ][ ¿ ][ ¿ ] [ a p,q ¿ ] ¿
A K= ¿ ¿¿
¿ (10.19)
ii. El elemento
a p ,q de la matriz triangular inferior tiene por valor −Sen θ ,
su simétrico vale Sen θ
2 a p,q
tg2 θ= (10.20)
a p , p −aq , q
El procedimiento de cálculo para encontrar los valores y vectores propios de una matriz
A simétrica es como sigue:
i. Se construye la matriz
A1 semejante a la matriz A
−1
A 1 =P1 A P1
−1 t
pero P1 =P 1 .
Luego:
A 1 =Pt1 A P1
A2=Pt2 A1 P2
t ¿. . . . . . . . . . ¿ A =Pt A P ¿
A3=P3 A2 P3 k + 1 k +1 k k+ 1
A4=Pt4 A3 Palignl¿4 ¿¿
Se puede decir que
A k +1 =Dk +1 +E k +1 . Donde
Dk+1 es una matriz diagonal y
Ek+1 lo que está fuera de la diagonal. Entonces.
A 1 =Pt1 A P1
A 2 =Pt2 A1 P 2=Pt2 P1t A P 1 P2
A 3 =Pt3 Pt2 P1t A P 1 P2 P3
A 4 =P t4 Pt3 P t2 Pt1 A P1 P2 P3 P 4
... ..... ...
A k+1 =Ptk+1 Ptk Ptk−1 ....... Pt4 Pt3 Pt2 Pt1 A P1 P 2 P3 P4 ....... Pk−1 P k Pk+1 (10.21)
t
El producto de las matrices P transpuesta de (10.21) converge a P y el producto
de las matrices P de (10.21) converge a P, que es matriz ortogonal. Luego se tiene que
A k +1 =Pt A P (10.22)
Por lo tanto por el teorema 4, las columnas de la matriz P de (10.22) son los vectores
EJEMPLO 7
Dada la matriz K 0 del ejemplo anterior, se le pide encontrar la matriz P, para que el
elemento a 2,1 sea cero
[
K 0= −941.86 1395.0 −661.73
174.95 −661.73 512.46 ]
SOLUCIÓN
2 ap, q 2∗(−941.86)
tg 2θ= = =6.3680
a p , p −aq , q 1395−1690.81
[ 0 1 0.0][
P= −sen θ cos θ 0 = −0.6500 0.7599 0.0
0 0.0 1 ]
B=Pt K 0 P
232 MODOS DE VIBRACIÓN
[
B= 0.00 589.50 −389.10
563.1 −389.10 512.50 ]
La sumatoria de los elementos fuera de la diagonal, de la matriz triangular inferior, en
valor absoluto es 952.2
Al hacer un nuevo cero, por ejemplo al elemento 563.1, aparecerá una cantidad
diferente de cero en el elemento de la segunda columna y primea fila, donde ya se tenía cero.
Pero la sumatoria de los elementos fuera de la diagonal continuará disminuyendo.
EJEMPLO 8
[K=¿ 80754.85 658.64 −392.32 658.64 0.0 ¿][ 4 97.40 −658.64 934.17 165 .72¿][ 80754.85 −658.64 0.0 ¿][ 4 97.40 165 .72¿] ¿
¿
Se ha escrito la matriz triangular superior de K ya que la matriz es simétrica y los
elementos de la diagonal de la matriz de masas.
Figura 10.5 Estructura de análisis para ilustrar el cálculo del modo de vibración con todos los gdl.
SOLUCIÓN
El problema de valores y vectores propios está definido por la siguiente ecuación:
[ K AA K AB ¿ ] ¿
¿¿ (10.24)
¿
Al trabajar con las submatrices indicadas se obtiene:
K AA φ A +K AB φB =0 ⇒ φ A =−K−1 (10.25)
AA K AB φ B
K BA φ A + K BB φ B =λ M B φB (10.26)
φ A =T φB (10.27)
Siendo:
(10.28)
T =−K−1
AA K AB
Donde:
¿
K BB =K BB + K BA T (10.30)
K AA=¿[80754.85 658.64 −392.32 658.64¿][ 658.64 4497.40 −658.64 934.17¿] [−392.32 −658.64 80754.85 −658.64¿]¿¿¿
¿
K BA =K tAB K BB =[ 2499. 20 ]
se halla
φB
. En este caso
φ B puede ser cualquier valor pero para que cumpla
φtB M B φ B =1 El valor de φ B =1. 49071 .
Al reemplazar T y
φB en (10.27) se halla
φA
[ φ ¿ ] ¿
φ=¿ ¿¿ A
¿
Por lo tanto, es factible encontrar los modos de vibración con todos los grados de
libertad.
EJEMPLO 9
Con relación a la estructura de la figura 10.6, se pide dibujar los modos de vibración,
trabajando con todos los grados de libertad; en la figura 10.6 a, se indica las dimensiones de
los elementos estructurales y la carga vertical con la que se debe hallar la matriz de masas; en
la figura 10.6 b, se muestra las hipótesis consideradas para el comportamiento de los
235 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
elementos; en la figura 10.6 c, los grados de libertad para el análisis sísmico ante la
componente horizontal de movimiento del suelo; primero se ha numerado las coordenadas
secundarias y después las coordenadas principales. El módulo de elasticidad del material es
E=2400000T /m2. Presentar:
i. Utilizando los programas de CEINCI-LAB encontrar los modos de vibración con todos
los grados de libertad.
a) b) c)
Figura 10.6 Estructura de Ejemplo 8; a) Cargas gravitantes y dimensiones; b) Hipótesis del
comportamiento de los elementos; c) Grados de Libertad
SOLUCIÓN
Matriz de paso T
−0.0032 0.0049
[ ]
−0.0600 −0.1406
0.0032 −0.0049
−0.0600 −0.1406
T=
−0.0071 0.0081
0.3258 −0.2658
0.0071 −0.0081
0.3258 −0.2658
2.2∗4 T s2 2.0∗4 T s2
m 1= =0.8980 m 2= =0.8163
9.8 m 9.8 m
m1 0
M B=
[ 0 m2 ]
M B = 0.8980 0
[0 0.8163 ]
Periodos de Vibración.
Ts= 0.3148
[
0.0876 ]
Modos de Vibración.
237 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
−0.0035 0.0053
[ ]
0.1678 −0.0074
0.0035 −0.0053
ϕ A =T∗ϕ B= 0.1678
ϕ B= [
−0.4408 −0.9588
−1.0056 0.4624 ] −0.0050
−0.0074
0.0105
0.1236 −0.4352
0.0050 −0.0105
0.1250 −0.4352
0.0053
−0.0035
[ ]
0.1678
−0.0074
0.0035
−0.0053
0.1678
−0.0074
ϕA 0.0105
ϕ=
[
−−¿ ϕB
ϕ=
] −0.0050
0.1236
−0.4352
0.0050
−0.0105
0.1250
−0.4352
−0.4408 −0.9588
−−−−−−−−−¿
−1.0056 0.4624
EJEMPLO 10
3,5 m
2
3,5 m
5m
3,5 m
5m
5m 5m
a)
b) c)
Figura 10.8 Estructura de tres pisos de ejemplo; a) Descripción de la estructura y grados de
libertad en el centro de masa; b) Vista en Planta de la Malla de cimentación; c) Detalle de una
viga de cimentación tipo “I”.
Se considera que la carga muerta es igual en todos los pisos y vale D=0.7 T /m 2. La
carga viva L=0.2T /m2 . Para encontrar la matriz de masas se debe trabajar con D+0.25 L.
Se pide:
i. Presentar un programa que determine la matriz de rigidez lateral con base empotrada,
mediante la triangularización de la matriz de rigidez. Hallar además la matriz de masa,
períodos y modos de vibración con base empotrada, pero en forma espacial con un
grado de libertad lateral por piso.
ii. Presentar las matrices de rigidez, masa, períodos y modos de vibración de la estructura
considerando interacción suelo estructura e indique el programa realizado.
iii. Utilice el formulario del ASCE 7-10 para encontrar en forma aproximada el período de
vibración de la estructura considerando la interacción suelo estructura.
240 MODOS DE VIBRACIÓN
SOLUCIÓN
a) b)
Figura 10.9 a) Numeración de grados de libertad para encontrar la matriz de rigidez lateral por
medio de la triangularización de Gauss; b) Numeración de nudos y elementos.
P=0.7+0.25*0.2; m1=P*10*10/9.8;m2=m1;m3=m1;
m=[m1 0 0;
0 m2 0;
0 0 m3];
[T,fi,OM]=orden_eig(Kxx,m)
[
K= −28496 36527 −16333 M = 7.6531
6491 −16333 11041
¿
]
7.6531 ¿ 7.6531 [
T = 0.1236
0.0630
] [ ]
S=4;Vs30=210;p=1.7;PGA=0.5;v=0.25;
[G]=rigidez_suelo(S,Vs30,p,PGA,v)
Z=[11.5 1.50 1.0 0.40 0.50 2.0];
[Kd,Kr,Mo,Cd,Cr]=resortes_ZS(Z,G,OM);
Kd=3*Kd;Kr=3*Kr;mo=3*Mo; % Son tres vigas en sentido de analisis
% Matriz de rigidez con Interaccion
Ks=mdiag(Ke,Kd,Kr); D=2.0;
% Matriz de masas con Interaccion
[Ms]=masasSS(m,Y,mo,D);
[Ts,fis,OM]=orden_eig(Ks,Ms)
a)
b)
Figura 10.11 a) Modelo de estructura con interacción y grados de libertad; b) Modos de
vibración.
[
−28496 36527 −16333
K s = 6491 −16333 11041
0 0 0
0 0 0
283926
0
0 0
0 0
0
6302387
]
243 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
[
0.00
M s= 0.00
7.65
42.09
7.65
0.00
7.65
68.87
0.00
7.65
7.65 68.87
7.65 95.66
7.65 30.563 20.66
95.66 20.66 2047.9
T s =
0.126
0.064
0.031][ ]
0.000000002
T 2s =T 2o+ T 2d + T 2r (10.31)
mt
T d=2 π
√ kd
(10.32)
J (10.33)
T r=2 π
√ kr
30.563
T d=2 π
√ 283926
=0.0652 seg .
2047.9
T r=2 π
√6302387
=0.1133 seg .
Para una estructura de múltiples grados de libertad se halla una masa equivalente m ,
que se halla a una altura equivalente h , en estas condiciones el momento de inercia J=mh2 .
(se debe tener en cuenta que m=mt ¿ .Se desea demostrar la siguiente ecuación propuesta
por el ASCE 7-10, para calcular el período de vibración de una estructura considerando la
interacción, en lugar de utilizar la ecuación (10.31).
Ts k k h2
To √
= 1+ +
Kd K r
(10.34)
2π 2π 2 4 π 2 mt T 2o k
T o= = → To= →mt = 2
Wn k k 4π
mt √
Al reemplazar m t en las ecuaciones (10.32) y (10.33) se halla:
245 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
2
2 2 k 2 2kh
T d=T o T r =T o
Kd Kr
2 2
Finalmente al sustituir T d , T r , en la ecuación (10.31) se halla la ecuación (10.34).
Las ecuaciones con las cuales se halla el modelo simplificado de un grado de libertad
son las siguientes:
2
( ∅ (1) t M [1] )
m eq =
∅ (1 )t M ∅(1)
2
2π
k eq=meq∗
T ( )
c eq =2 ξ √ m eq k eq
( ϕ( 1 ) t M h )
h eq=
∅ (1 )t M [1]
246 MODOS DE VIBRACIÓN
EJEMPLO 11
Por otra parte, la carga muerta D=0.7 T /m 2, y la carga viva es L=0.2T /m2 .
Encontrar la matriz de masa para D+0.25 L. Para el amortiguamiento equivalente, considerar
ξ=0.05
Finalmente encontrar los desplazamientos máximos en cada sentido de análisis ante la
componente E-W, del registro de Manta del terremoto de 2016, cuyo espectro de
desplazamientos se indica en el Capítulo 5.
(a) (b)
247 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
(c) (d)
Figura 10.14 a) Vista en planta de edificio de 3 pisos; b) Vista espacial de edificio con un grado
de libertad por planta; c) Pórtico tipo en sentido longitudinal; d) Pórtico tipo en sentido
transversal.
SOLUCIÓN
Sentido Longitudinal
[
K xx = −38342 48499 −21518 M = 0
8843 −21518 14313 0 0 ] [
8.3265 0
8.3265
(1 )
∅ = 0.1907
0.2797 ] [ ]
A continuación se lista el listado del programa con el cual se halla el sistema
equivalente.
T s2 T Ts
m eq =20.5691 k =4922.5 c eq=31.8199 h =8.3194 m
m eq m m eq
Al estar trabajando con un modelo de 1 gdl, con el período de 0.4062 s, se ingresa al
espectro de desplazamientos de la figura 5.3 y se halla Sd 1=3.6 cm. Luego el vector de
desplazamientos q , se halla con la siguiente expresión.
Donde Γ 1 es el factor de participación del modo 1; las restantes variables han sido
definidas.
❑
( ∅( 1) t M [1] )
Γ 1=|( ∅( 1) t M ∅(1 ) )|
248 MODOS DE VIBRACIÓN
1.2137 0.00346
[ ] [ ]
Γ 1=4.5353 q= 3.1133 cmγ = 0.00543 γ max=0.54 %
4.5661 0.00415
Sentido Transversal
T s2 T Ts
m eq =21.4902 k =4364.3 c eq=30.6251 h =8.14 m
m eq m m eq
1.5510 0.00443
[ ] [ ]
Γ 1=4.6358 q= 3.5045 cm γ= 0.00559 γ max =0.56 %
4.7520 0.00356
EJEMPLO 12
SOLUCIÓN
Sentido Longitudinal
T s2 T Ts
m eq =21.8698 k eq =2222.5 c eq =44.0938 h =8.066 m
m m m eq
Sentido Transversal
[ ] [ ] [ ]
(1)
k yy = −7360 12563 −6160 T = 0.1946 s . ϕ = 0.2021
890 −6160 5338 0.1222 0.2640
T s2 T Ts
m eq =22.0438 k =2522.1 c eq =47.1577 h =8.032m
m eq m m eq
EJEMPLO 13
Nuevamente en base a la estructura del Ejemplo 10, calcular los modelos simplificados
de un grado de libertad, de la estructura de 3 pisos, cuya planta se indica en la figura 10.16.
Las columnas son de 40/60 cm, con la orientación indicada en la figura 10.16, las vigas son de
30/50 cm. La diferencia con la estructura del Ejemplo 10, es que la columna central es circular
250 MODOS DE VIBRACIÓN
de 40 cm, de diámetro. Todos los demás datos son los mismos del Ejemplo 10, incluido la
matriz de Masas.
Figura 10.16 Vista en Planta de Estructura de 3 Pisos, con columna central circular.
SOLUCIÓN
Sentido Longitudinal
Se indica la matriz de rigidez lateral del pórtico 1 que es igual al Pórtico 3, y del Pórtico
2, que tiene una columna circular.
[ ] [ ] [ ]
(1 )
k xx = −34730 43598 −19224 T = 0.1191 s . ϕ = 0.1903
7978 −19224 12750 0.0597 0.2800
T s2 T Ts
m eq =20.5474 k eq =4427.7 c eq =60.3252 h =8.3236 m
m m m eq
Sentido Transversal
[ ] [
K (A )=K (C) = −6119 9241 −4402 K (B) = −4847 7144 −3361
1095 −4402 3453 875.6 −3361 2621 ]
30803 −17085 3065 0.4588 0.0879
T s2 T Ts
m eq =21.4791 k eq=4028.7 c eq=58.8331 h =8.1445 m
m m m eq
4.00 T/m
5 m4
3,6 m
4.97 T/m
4 m3
3,6 m
4.97 T/m
3 m2
3,6 m
4.97 T/m
2 m1
3,6 m
1.815 T/m
mb Kb
1
Kb Kb Kb Kb Cb
Cb Cb Cb Cb
7,1 m 5m 7,1 m
Ga A (10.35)
k b=
H
7.68∗π 58 2 6 2 kg T
k b=
20 ( 4 4 )
− =1003.7
cm
=100.3
m
EJEMPLO 14
Las dimensiones de las columnas son de 45/60 y las vigas de los tres primeros pisos
son de 35/60 y del cuarto piso de 35/50. El módulo de elasticidad del hormigón es 2168870
T/m2. En el modelo numérico de la figura 10.15, no influye las dimensiones de la viga de la losa
de aislación.
SOLUCIÓN
401 0 0 0 0
0
0
0
[ 28927 −16602
4112 −15341
499 3066
4112 −499
K= 0 −16602 24835 −15341 3006
21142 −9249
−9249 6655
]
254 MODOS DE VIBRACIÓN
M = 9.74
[
9.74 9.74
9.74
7.84
0
0 0
0 0
0
9.74
9.74
0
0 0
0 0
0
7.84
]
30 32 34 36
5 31 33 35 37
m4 5
22 24 26 28
4 23 25 27 29
m3 4
14 16 18 20
3 15 17 19 21
m2 3
6 8 10 12
2 7 9 11 13
m1 2
1 mb 1
% Ejemplo
%
% Dr. Roberto Aguiar
% 18 Nov 2011
%-----------------------------------------------------------
nod=20;np=4;nr=4;
[CG,ngl]=cg_aislador(nod,np,nr);
255 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
figure (4)
plot(t,qb); hold on; plot (t,qt,'r');
xlabel ('Tiempo'); ylabel ('Desplazamiento'); title ('Aislacion-Super estructura');
Para que se entienda el archivo de datos del ejemplo 11, que se acaba de presentar y
sobre todo para comprender los programas de la librería de CEINCI-LAB, se presenta en la
figura 10.18, la numeración de los nudos dentro de un rectángulo, de los elementos dentro de
un círculo, se ha numerado las coordenadas principales de primero, del 1 al 5, luego los
restantes grados de libertad y a la derecha se indica el modelo de cálculo para el análisis
sísmico.
30 32 34 36
17 18 19 20
5 31
29
33
30
35
31
37
m4 5
13 14 15 16
22 24 26 28
13 14 15 16
4 23
26
25
27
27
28
29
m3 4
9 10 11 12
14 16 18 20
9 10 11 12
3 15
23
17
24
19
25
21
m2 3
5 6 7 8
6 8 10 12
5 6 7 8
2 7
20
9
21
11
22
13
m1 2
1 2 3 4
1 2 3 4
1 17 18 19 mb 1
Programa cg_aislador
[CG,ngl]=cg_aislador (nod,np,nr)
function [CG,ngl]=cg_aislador(nod,np,nr)
%
% Programa para encontrar las coordenadas generalizadas
% en un Portico Plano con Aisladores de Base sobre la cimentación
257 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Noviembre de 2011
%-------------------------------------------------------------
% [CG,ngl]=cg_aislador(nod,np,nr)
%-------------------------------------------------------------
% CG Matriz de coordenadas generalizadas
% nod Numero de nudos
% np Numero de pisos
% nr Numero de nudos con aisladores de base sobre cimentacion
%
ngl=0;CG=zeros(nod,3);
for i=1:nr
CG(i,1)=1;
end
ngl=ngl+1;icon=nr;
%------------Coordenadas Principales----------------------------
for i=1:np
ngl=ngl+1;
for j=1:nr
nn=icon+j;
CG(nn,1)=ngl;
end
icon=nn;
end
%-----------Coordenadas Secundarias----------------------------
icon=nr;
for i=1:np
for j=1:nr
nn=icon+j;ngl=ngl+1;
CG(nn,2)=ngl;
ngl=ngl+1;
CG(nn,3)=ngl;
end
icon=nn;
end
return
Programa gn_portico
[NI,NJ]=gn_portico (GEN)
Este programa obtiene dos vectores denominados NI, NJ que contienen los nudos
iniciales y finales del pórtico. Los datos de ingreso vienen en la matriz GEN, el usuario podrá
ver el significado de cada variable de ingreso en el programa que se indica a continuación.
function [NI,NJ]=gn_portico(GEN)
%
% Programa para generar el Nudo inicial y final de los elementos
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Septiembre de 2009
% Revisado Septiembre 2011
%-------------------------------------------------------------
% [NI,NJ]=gn_portico(GEN)
258 MODOS DE VIBRACIÓN
%-------------------------------------------------------------
% GEN=[i,ia,ib,nig,ii,ina,inb]
% i Número del elemento
% ia Nudo inicial del elemento
% ib Nudo final del elemento
% nig Número de elementos a generar
% ii Incremento en la numeración de los elementos
% ina Incremento en la numeración del nudo inicial
% inb Incremento en la numeración del nudo final
% NI,NJ Vectores con los nudos iniciales y finales generados
nf=length(GEN(:,1));
for ij=1:nf
i=GEN(ij,1);ia=GEN(ij,2);ib=GEN(ij,3);nig=GEN(ij,4);
ii=GEN(ij,5);ina=GEN(ij,6);inb=GEN(ij,7);
NI(i)=ia;NJ(i)=ib;
for k=1:nig
i=i+ii;NI(i)=ia+ina;NJ(i)=ib+inb;
ia=NI(i);ib=NJ(i);
end
end
return
% ---end---
Programa vc_aislador
[VC]=vc_aislador (NI,NJ,CG)
Este programa halla la matriz que contiene a los vectores de colocación de cada uno
de los elementos de la estructura. Este programa es diferente al vc_portico debido a que
ahora se trabaja con coordenadas relativas. Si se trabajará con el programa vc_portico, el
vector de colocación del elemento 1, sería: [1 0 0 2 6 7]. Pero como los desplazamientos de la
superestructura son relativos al sistema de aislación, el vector de colocación es [0 0 0 2 6 7] y
esto se obtiene con el programa vc_aislador
Los datos de entrada son: NI, NJ , vectores que contienen al nudo inicial y final de la
estructura y CG que es la matriz que contiene a las coordenadas generalizadas.
function [VC]=vc_aislador(NI,NJ,CG)
%
% Programa para calcular la matriz con los vectores de colocación
% en Porticos Planos con Aisladores de Base.
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Noviembre de 2011
%-------------------------------------------------------------
% [VC]=vc(NI,NJ,CG)
%-------------------------------------------------------------
% NI Vector con los nudos iniciales de los elementos
% NJ Vector con los nudos finales de los elementos
% CG Matriz que contiene las coord. generalizadas de nudos
mbr=length(NI);icod=length(CG(1,:));VC=zeros(mbr,icod);
for i=1:mbr
for j=1:icod
VC(i,j)=CG(NI(i),j);VC(i,j+icod)=CG(NJ(i),j);
end
if VC(i,1)==1
if VC(i,4)==1
259 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
continue
else
VC(i,1)=0;
end
end
end
return
% ---end----
Programa glinea_portico
[X,Y]=glinea_portico (NUDOS)
function [X,Y]=glinea_portico(NUDOS)
%
% Programa para generar las coordenadas de los nudos en forma lineal
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Septiembre de 2009
%-------------------------------------------------------------
% [X,Y]=glinea_portico(NUDOS)
%-------------------------------------------------------------
% NUDOS=[i,xi,yi,ij,inci,dx,dy]
%i Nudo inicial
% xi,yi Coordenadas del nudo inicial
% ij Numero de nudos a generar
% inci Incremento en la numeración del nudo inicial
% dx Incremento de longitud en X.
% dy Incremento de longitud en Y.
% X,Y Vector que contiene las coordenadas de los nudos
nf=length(NUDOS(:,7));
for k=1:nf
i=NUDOS(k,1);X(i)=NUDOS(k,2);Y(i)=NUDOS(k,3);
ij=NUDOS(k,4);inci=NUDOS(k,5);
dx=NUDOS(k,6);dy=NUDOS(k,7);
for ii=1:ij
X(i+ii*inci)=X(i)+ii*dx;
Y(i+ii*inci)=Y(i)+ii*dy;
end
end
return
Programa longitud
[L,seno,coseno]=longitud (X,Y,NI,NJ)
Este programa halla tres vectores que se han denominado L, seno, coseno, que contiene
la longitud de cada uno de los elementos, el primer vector; el seno del ángulo que forma el eje
del miembro con el eje de las X, y el coseno del ángulo anterior. Esta información sirve para
obtener la matriz de rigidez en coordenadas globales. En la figura 10.19 se indica, a la
260 MODOS DE VIBRACIÓN
izquierda un elemento inclinado que forma un ángulo α , con la horizontal; la longitud del
elementos se halla con las coordenadas X, Y, del nudo inicial y final, por eso son datos los
vectores X, Y, que contienen las coordenadas de todos los nudos; NI, NJ, los vectores con la
información del nudo inicial y final de cada elemento.
Con los valores del seno y coseno se halla la matriz de paso de coordenadas locales a
globales. Aguiar (2014).
Programa krigidez_aislador
[SS]=krigidez_aislador (ngl,ELEM,L,seno,coseno,VC,E,kb)
function [SS]=krigidez_aislador(ngl,ELEM,L,seno,coseno,VC,E,kb)
261 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
%
% Programa para encontrar la matriz de rigidez de un portico plano
% o armadura plana con aisladores de base
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Noviembre de 2011
%-------------------------------------------------------------
% [SS]=krigidez_aislador(ngl,ELEM,L,seno,coseno,VC,E,kb)
%-------------------------------------------------------------
% ELEM Matriz que contiene la base y la altura de los elementos
% para el caso de pórticos planos.
% ELEM Vector que contiene el área de los elementos de armadura
% L Vector que contiene la longitud de los elementos
% seno Vectorque contiene los senos de los elementos
% coseno Vector que contiene los cosenos de los elementos
% VC Matriz que contiene los vectores de colocación de elementos
% E Modulo de elasticidad del material
% SS Matriz de rigidez de la estructura
% ngl Número de grados de libertad
% kb Vector que contiene la rigidez de cada uno de los aisladores
%
mbr=length(L); SS=zeros(ngl);icod=length(VC(1,:));
for i=1:mbr
if icod==4
A=ELEM(i,1); %Area de elemento
Lon=L(i);sen=seno(i);cose=coseno(i);
[k]=kdiagonal(A,Lon,E,sen,cose);
else
b=ELEM(i,1);h=ELEM(i,2);Lon=L(i);sen=seno(i);cose=coseno(i);
[k]=kmiembro(b,h,Lon,E,sen,cose);
end
for j=1:icod
jj=VC(i,j);
if jj==0
continue
end
for m=1:icod
mm=VC(i,m);
if mm==0
continue
end
SS(jj,mm)=SS(jj,mm)+k(j,m);
end
end
end
% Contribucion de aisladores
icont=length(kb); % Numero de aisladores
for i=1:icont
SS(1,1)=SS(1,1)+kb(i);
end; return
Programa masas_aislador
[M]=masas_aislador(masas)
base, cuyo modelo numérico de cálculo, es similar al que está a la derecha de la figura 10.12.
Los datos se ingresan en el vector:
masas Contiene la masa del sistema de aislaciónmb, pero la total; del primer
m
piso 1 , total; del segundo piso m 2, etc. Con esta información el
programa encuentra la masa total de la estructura con sistema de
aislación que se había denominado m t , que es el primer elemento de la
matriz de masas.
function [M]=masas_aislador(masas)
%
% Programa para encontrar la matriz de masas de una estructura
% Plana con aisladores de base elastomericos sobre la cimentacion
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Noviembre de 2011
%-------------------------------------------------------------
% [M]=masas_aislador(masas)
%-------------------------------------------------------------
% masas Vector que contiene las masas de cada piso empezando
% por la masa de la losa de aislación; luego del primer
% piso hasta la del último piso.
ngl=length(masas); M=zeros(ngl);
for i=1:ngl
if i==1
M(i,i)=sum(masas);
else
M(i,i)=masas(i);M(1,i)=masas(i);M(i,1)=masas(i);
end
end
return
Programa orden_eig
[T,fi,OM]=orden_eig (KE,MASA)
Programa que encuentra los valores y vectores propios de una estructura, a partir de los
siguientes datos:
El programa reporta:
function [T,fi,OM]=orden_eig(KE,MASA)
%
% Programa que calcular y ordenar los valores y vectores propios
% de menor a mayor
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
263 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
% Octubre de 2009
%-------------------------------------------------------------
% [T,phi,OM]=orden_eig(K,M)
%-------------------------------------------------------------
% KE,MASA Matrices de rigidez y de masas
% V,OM Vectores propios y frecuencias de vibración
%T Períodos de vibración
n=length(KE);
[V,lamda]=eig(full(KE),full(MASA));
OM=sqrt(diag(lamda));[OM,ind]=sort(OM);fi=V(:,ind);
for i=1:n; T(i)=2*pi/OM(i); end; T=T';
Md=diag(fi'*MASA*fi);S=sqrt(1./Md);% Normalización de modos
fi=fi*diag(S);% Normalizado de tal manera que fi'*M*fi=1
return
Programa amortiguamiento
[C]=amortiguamiento (M,phi,OM,zeda)
M Matriz de masas.
phi Matriz que contiene los modos de vibración.
OM Vector con las frecuencias de vibración.
zeda Factor de amortiguamiento, un solo valor el mismo que se considera igual en
todos los modos de vibración.
function [C]=amortiguamiento(M,phi,OM,zeda)
%
% Programa para encontrar la matriz de amortiguamiento de una estructura
% Amortiguamiento tipo Wilson y Penzien
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Noviembre de 2009
%-------------------------------------------------------------
% [C]=amortiguamiento(M,phi,OM,zeda)
%-------------------------------------------------------------
% M Matriz de masa de la estructura
% phi Matriz que contiene los modos de vibración normalizados
% OM Vector que contiene las frecuencias de vibración de menor a mayor.
% ngl Número de grados de libertad
% zeda Factor de amortiguamiento de la estructura, un solo valor
n=length(M(:,1));
ZEDA=zeros(n);for i=1:n; ZEDA(i,i)=zeda; end
mms=diag(phi'*M*phi); % mms es un vector unitario
Cd=zeros(n);for i=1:n; Cd(i,i)=2*ZEDA(i,i)*OM(i)/mms(i); end
C=M*phi*Cd*phi'*M;
return;end
Programa pee_de_uno
[Yn]=pee_de_uno (K,C,M,J,a,dT,Y)
En la ecuación (10.37), están prácticamente indicados todos los datos que ingresan al
programa, faltando indicar que el vector de estado Y está formado por el vector de
desplazamientos y por el vector de velocidades.
Y= q[]
q̇
K Matriz de rigidez.
C Matriz de amortiguamiento.
M Matriz de masas.
J Vector de incidencia de movimiento del suelo, teniendo en cuenta la forma de
escritura de la ecuación (10.36).
a Un valor del acelerograma,
dT Incremento de tiempo con el cual viene el archivo del acelerograma.
Y Vector de estado que contiene los desplazamientos y velocidades, en el tiempo
discreto i .
function [Yn]=pee_de_uno(K,C,M,J,a,dT,Y)
%
% Procedimiento de Espacio de Estado pero obtiene la respuesta
% en el tiempo. En este programa se halla para cada aceleración
% del suelo la respuesta en el tiempo.
%
% Por: Roberto Aguiar Falconi
% CEINCI-ESPE
% Octubre de 2009
%-------------------------------------------------------------
% [Yn]=pee_de_uno(K,C,M,J,a,dT,Y)
%-------------------------------------------------------------
% K,C,M Matrices de rigidez, amortiguamiento y masas
%J El vector de cargas Q=-M*J*a
%a Valor de una aceleración del acelerograma
% dT Incremento de tiempo
%Y Vector que contiene a los desplazamientos y velocidades
265 ROBERTO AGUIAR FALCONI
CEINCI-ESPE
REFERENCIAS