PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
DATOS DE LA ARMADURA A INGRESAR
N de nudos: N de elementos:
N 4 Nelementos 6
Archivo con datos de la armadura
Archivo "DATA2.XLSX"
excel_PNG Archivo , "Grafico" , "A1:F19" , "ARMADURA.PNG" , 0
Clear Elementos , restricciones , Nudos , Fexterna 1
Define rango de celdas
para nudos
Celdas_nudos concat "A2:C" , num2str N 1 "A2:C5"
Define rango de celdas
para elementos
Celdas_elementos concat "A2:E" , num2str Nelementos 1 "A2:E7"
Define rango de celdas
para restricciones
Celdas_restricciones concat "A2:C" , num2str N 1 "A2:C5"
Define rango de celdas
para cargas
Fexterna concat "A2:C", num2str N 1 "A2:C5"
Importa numero nudos y coordenadas
Nudos excel_OUT Archivo , "Nudos" , Celdas_nudos
Aplica unidad de medida a coordenadas
for i 1 ..rows Nudos
Nudos Nudos cm
i2 i2
Nudos Nudos cm
i3 i3
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
1.00 0.00 10.00 m
2.00 0.00 0.00
Nudos
3.00 10.00 m 0.00
4.00 10.00 m 10.00 m
Importa numero elementos, nudos, area y modulo elasticidad
Elementos excel_OUT Archivo , "Elementos" , Celdas_elementos
for i 1 ..rows Elementos
2
Elementos Elementos cm
i4 i4
Elementos Elementos GPa
i5 i5
Importa restriccione segun eje
restricciones excel_OUT Archivo , "Restricciones" , Celdas_restricciones
Importa cargas en ejes y nudos (nudo, cargax , carga y)
Fexterna excel_OUT Archivo , "Fexterna" , Fexterna
Añade unidades de carga (tonnef)
for i 2 ..cols Fexterna
for j 1 ..rows Fexterna
Fexterna Fexterna tonnef
ji ji
CALCULOS
Numero de columnas de la matriz de rigidez
Ncolumnas rows Elementos rows restricciones 10.00
Nfilas rows Nudos 2 8.00
gdl 0
GDL libres
for j 1 ..rows restricciones
GDL j
j1
if restricciones 1
j2
gdl gdl 1
GDL gdl
j2
else
0
if restricciones 1
j3
gdl gdl 1
GDL gdl
j3
else
0
nGDL gdl
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
GDL sin restricciones
GDLsr GDL
GDL restringidos
for j 1 ..rows GDL
if GDL 0
j2
gdl gdl 1
GDL gdl
j2
else
0
if GDL 0
j3
gdl gdl 1
GDL gdl
j3
else
0
Matriz rigidez
for i 1 ..rows Elementos
ini Elementos
i2
fin Elementos
i3
A Elementos
i4
E Elementos
i5
xo Nudos
ini 2
yo Nudos
ini 3
xf Nudos
fin 2
yf Nudos
fin 3
0.5
2 2
long xf xo yf yo
xf xo
dirx1
long
yf yo
diry1
long
xo xf
dirx2
long
yo yf
diry2
long
Mgdl GDL
i1 Elementos 2
i2
Mgdl GDL
i2 Elementos 3
i2
Mgdl GDL
i3 Elementos 2
i3
Mgdl GDL
i4 Elementos 3
i3
xf xo
λx
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
long
yf yo
λy
long
2
k λx
11
k λx λy
12
2
k λx
13
k λx λy
14
k λx λy
21
2
k λy
22
k λx λy
23
2
k λy
24
2
k λx
31
k λx λy
32
2
k λx
33
k λx λy
34
k λx λy
41
2
k λy
42
k λx λy
43
2
k λy
44
k k k k
11 12 13 14
k k k k
21 22 23 24
k k k k
31 32 33 34
k k k k
41 42 43 44
K A E
i long
λx λy λx λy
Ke A E
i long
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Matriz de rigidez por elemento
0.000 0.000 0.000 0.000
0.000 6248.821 0.000 6248.821
0.000 0.000 0.000 0.000
0.000 6248.821 0.000 6248.821
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
6248.821 0.000 6248.821 0.000
0.000 0.000 0.000 0.000
6248.821 0.000 6248.821 0.000
0.000 0.000 0.000 0.000 tonnef
K
6248.821 0.000 6248.821 0.000 m
0.000 0.000 0.000 0.000
6248.821 0.000 6248.821 0.000
0.000 0.000 0.000 0.000
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
2209.292 2209.292 2209.292 2209.292
0.000 0.000 0.000 0.000
0.000 6248.821 0.000 6248.821
0.000 0.000 0.000 0.000
0.000 6248.821 0.000 6248.821
Matriz de esfuerzos
0.00 6248.82 0.00 6248.82
3124.41 3124.41 3124.41 3124.41
6248.82 0.00 6248.82 0.00 tonnef
Ke
6248.82 0.00 6248.82 0.00 m
3124.41 3124.41 3124.41 3124.41
0.00 6248.82 0.00 6248.82
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Matriz con los GDL por elemento
1.00 2.00 3.00 4.00
1.00 2.00 6.00 5.00
1.00 2.00 7.00 8.00
Mgdl
3.00 4.00 6.00 5.00
3.00 4.00 7.00 8.00
6.00 5.00 7.00 8.00
Exporta matriz de grados de libertad por nudos
excel_IN "yes" , Archivo , "MatrizGdlNudo" , "A2" , GDL 1.00
Exporta matriz de grados de libertad por elementos
excel_IN "yes" , Archivo , "MatrizGdlElemento" , "A2" , col Elementos , 1 1.00
Exporta matriz de grados de libertad por elemntos
excel_IN "yes" , Archivo , "MatrizGdlElemento" , "B2" , Mgdl 1.00
MATRIZ DE RIGIDEZ GLOBAL
Define la matriz de rigidez
Matriz cuadrada con numero de filas y columnas igual al doble de numero
Kg matrix 2 N , 2 N de nudos
Arma la matriz de rigidez global
for j 1 ..rows K
fila row Mgdl , j
T
columna row Mgdl , j
for h 1 ..4
for l 1 .. 4
Kg Kg K
fila columna fila columna j
h l h l hl
Matriz de rigidez global
84.5811 22.0929 0.0000 0.0000 22.0929 22.0929 62.4882 0.0000
22.0929 84.5811 0.0000 62.4882 22.0929 22.0929 0.0000 0.0000
0.0000 0.0000 84.5811 22.0929 0.0000 62.4882 22.0929 22.0929
0.0000 62.4882 22.0929 84.5811 0.0000 0.0000 22.0929 22.0929 tonnef
Kg
22.0929 22.0929 0.0000 0.0000 84.5811 22.0929 0.0000 62.4882 cm
22.0929 22.0929 62.4882 0.0000 22.0929 84.5811 0.0000 0.0000
62.4882 0.0000 22.0929 22.0929 0.0000 0.0000 84.5811 22.0929
0.0000 0.0000 22.0929 22.0929 62.4882 0.0000 22.0929 84.5811
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Exporta matriz de rigidez global
1
excel_IN "yes" , Archivo , "MatrizRigidezGlobal" , "B2" , Kg 1.00
tonnef
cm
CALCULO DE DESPLAZAMIENTO EN LOS NUDOS
Arma matriz de fuerzas externas
for i 1 ..rows GDL
for j 2 ..3 Matriz de fuerzas externas
if GDL nGDL
ij 2.00
m GDL 4.00
ij Q 0.00 tonnef
Q Fexterna
m ij 0.00
else 0.00
0
Crea matriz de fuerzas internas
Crea una matriz de fuerzas internas de acuerdo a los grados de
Kq matrix nGDL , nGDL libertad
Arma matriz de fuerza
for i 1 ..nGDL
for j 1 ..nGDL
Kq Kg
ij ij
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
84.58 22.09 0.00 0.00 22.09
22.09 84.58 0.00 62.49 22.09
tonnef
Kq 0.00 0.00 84.58 22.09 0.00
cm
0.00 62.49 22.09 84.58 0.00
22.09 22.09 0.00 0.00 84.58
Matriz de desplazamientos segun GDL
0.03
1.39
1
D Kq Q 0.29 mm
1.10
0.35
Exporta matriz de desplazamiento por GDL
1
excel_IN "yes" , Archivo , "Desplazamiento" , "B2" , D 1.00
mm
Kr matrix 2 N nGDL , nGDL
0.00 0.00 0.00 0.00 0.00
Kr 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00
Arma matriz de Reacciones
for i 1 ..rows Kr
for j 1 ..nGDL
Kr Kg
ij i nGDL j
nGDL 1 6.00
Matriz de reacciones
22.09 22.09 62.49 0.00 22.09
tonnef
Kr 62.49 0.00 22.09 22.09 0.00
cm
0.00 0.00 22.09 22.09 62.49
Reacciones en GDL restringidos
4.00
R Kr D 2.00 tonnef
4.00
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Matriz con los GDL por elemento
1.00 2.00 3.00 4.00
1.00 2.00 6.00 5.00
1.00 2.00 7.00 8.00
Mgdl
3.00 4.00 6.00 5.00
3.00 4.00 7.00 8.00
6.00 5.00 7.00 8.00
Matriz de esfuerzos por elemento
0.00 62.49 0.00 62.49
31.24 31.24 31.24 31.24
62.49 0.00 62.49 0.00 tonnef
Ke
62.49 0.00 62.49 0.00 cm
31.24 31.24 31.24 31.24
0.00 62.49 0.00 62.49
Exporta martriz de esfuerzos por elemento
for i 1 ..rows Ke
Kexp Ke
i
Celda concat "B", var2str i 1
Kexp
excel_IN "yes", Archivo , "MatrizRigidElemento" , Celda ,
tonnef
cm
Matriz de desplazamientos segun GDL
0.03
1.39
D 0.29 mm
1.10
0.35
nGDL 5.00
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Arma matriz de desplazamientos por elementos
for i 1 ..rows Elementos
Dee matrix 1, 4
if Mgdl nGDL
i1
Dee D
11 Mgdl 1
i1
else
0
if Mgdl nGDL
i2
Dee D
12 Mgdl 1
i2
else
0
if Mgdl nGDL
i3
Dee D
13 Mgdl 1
i3
else
0
if Mgdl nGDL
i4
Dee D
14 Mgdl 1
i4
else
0
T
De Dee
i
0.00 "xo"
0.14 "yo"
Sentido
0.03 "xf"
0.11 "yf"
0.00
0.14 T
N_elementos col Elementos , 1 1.00 2.00 3.00 4.00 5.00 6
0.00
0.04
0.00 0.00 0.00 0.00 0.03 0.03 0.00
T
0.14 De 0.14 0.14 0.14 0.11 0.11 0.04
0.00 cm 0.03 0.00 0.00 0.00 0.00 0.00
0.00 0.11 0.04 0.00 0.04 0.00 0.00
De cm
0.03
0.11
0.00
0.04
0.03
0.11
0.00
0.00
0.00
0.04
0.00
0.00
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Matriz de desplazamiento por elemento
1 2 3 4 5 6
xo -0.03 -0.03 -0.03 0.29 0.29 0.00
yo -1.39 -1.39 -1.39 -1.10 -1.10 -0.35
xf 0.29 0.00 0.00 0.00 0.00 0.00
yf -1.10 -0.35 0.00 -0.35 0.00 0.00
mm
T
De
mm
Exporta matriz de desplazamiento por elemento
T
for i 1 ..cols De
T
Deexp De
i
Celda concat "B", var2str i 1
Deexp
excel_IN "yes", Archivo , "MatrizDesplElemento" , Celda ,
cm
Calculo de esfuerzos en cada elemento
for i 1 ..rows Ke
Esf Ke De
i i i
Esf Esf
i i
1
1.79
3.12
0.21
Esf tonnef
1.79
2.54
2.21
PROGRAMA PARA ANALISIS ESTRUCTURAL DE ARMADURAS
------------ desarrollado (Ing Edwin Alarcon Marquez)
Salida de resultados de esfuerzos en cada elemento
for i 1 ..rows Ke
EsfuerzosxElemento i
i1
Esf
i
EsfuerzosxElemento
i2 tonnef
Titulo "N elemento" "Esfuerzo ton"
N elemento Esfuerzo ton
1.00 -1.79
2.00 -3.12
3.00 0.21
4.00 -1.79
5.00 2.54
6.00 2.21
Ton
Negativo=traccion
Positivo=Compresion
EsfuerzosxElemento
Exporta a excel los esfuerzos en cada elemento
excel_IN "yes" , Archivo , "EsfuerzosxElemento" , "A2" , EsfuerzosxElemento 1.00
