PRÁCTICA 3
CELOSIA EN 3 DIMENSIONES
Keypoint radio (p) ángulo (Φ)° altura Z (m)
1 0 0 5
2 4 90 3
3 4 150 3
4 4 210 3
5 4 270 3
6 4 330 3
7 4 390 3
8 6,93 120 0
9 6,93 180 0
10 6,93 240 0
11 6,93 300 0
12 6,93 360 0
13 6,93 420 0
X=6.93
60° 60°
30° 30°
60°
6m
60° 4m
2
90°
CODIFICACIÓN
!* Cambio de eje, z vertical
!*
/VIEW,1,0,0,1
/VUP,1,Z
/REPLOT
!* Cambio a coordenadas cilíndricas
CSYS,1
!* Cambio de radianes a grados
*AFUN,DEG
!* PREPROCESADOR
/PREP7
!* Tipo de elemento
ET,1,LINK180
!* Sección de las barras
R,1,10e-6, ,0
!* Material - Aluminio
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,6.9e10
MPDATA,PRXY,1,,0.33
!* Puntos
K,1,,,5,
K,2,4,90,3,
K,3,4,150,3,
K,4,4,210,3,
K,5,4,270,3,
K,6,4,330,3,
K,7,4,390,3,
K,8,6.93,120,0,
K,9,6.93,180,0,
K,10,6.93,240,0,
K,11,6.93,300,0,
K,12,6.93,360,0,
K,13,6.93,420,0,
!* Líneas
LSTR, 4, 1
LSTR, 4, 5
LSTR, 5, 6
LSTR, 6, 7
LSTR, 7, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 3, 1
LSTR, 1, 2
LSTR, 1, 7
LSTR, 1, 6
LSTR, 1, 5
LSTR, 4, 9
LSTR, 9, 3
LSTR, 3, 8
LSTR, 2, 8
LSTR, 7, 13
LSTR, 2, 13
LSTR, 6, 12
LSTR, 12, 7
LSTR, 6, 11
LSTR, 11, 5
LSTR, 5, 10
LSTR, 10, 4
!* Control del mallado
FLST,5,24,4,ORDE,2
FITEM,5,1
FITEM,5,-24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1, , , , ,1
!* Mallado
LMESH,ALL
!* Condiciones de contorno ( No hay traslación en x,y,z)
FLST,2,6,3,ORDE,2
FITEM,2,8
FITEM,2,-13
!*
/GO
DK,P51X, , , ,0,ALL, , , , , ,
!* Aplicación de cargas en x (2000N en el nodo 1, 1000N en los nodos del 2 al 7)
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
FK,P51X,FX,2000
FLST,2,6,3,ORDE,2
FITEM,2,2
FITEM,2,-7
!*
/GO
FK,P51X,FX,1000
!* Sale del preprocesador
FINISH
!* Ingreso al procesador
/SOL
!* Guardar estado de carga en dirección x
LSWRITE,1,
!* Se procede a borrar las cargas correspondientes al estado de carga en dirección x
FLST,2,7,3,ORDE,2
FITEM,2,1
FITEM,2,-7
FKDELE,P51X,ALL
!* Aplicación de cargas en y (2000N en el nodo 1, 1000N en los nodos del 2 al 7)
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
FK,P51X,FY,2000
FLST,2,6,3,ORDE,2
FITEM,2,2
FITEM,2,-7
!*
/GO
FK,P51X,FY,1000
!* Sale del preprocesador
FINISH
!* Ingreso al procesador
/SOL
!* Guardar estado de carga en dirección x
LSWRITE,2,
!* Sale del preprocesador e ingresa al procesador
FINISH
/PREP7
!* Define las cargas en x, para complementar el tercer estado de carga. En X y Y (2000N en
el nodo 1, 1000N en los nodos del 2 al 7)
FLST,2,1,3,ORDE,1
FITEM,2,1
!*
/GO
FK,P51X,FX,2000
FLST,2,6,3,ORDE,2
FITEM,2,2
FITEM,2,-7
!*
/GO
FK,P51X,FX,1000
!* Sale del preprocesador
FINISH
!* Ingreso al procesador
/SOL
!* Guardar estado de carga en dirección x
LSWRITE,3,
!* MOSTRAR DIAGRAMAS DE DEFORMADA DE LA ESTRUCTURAS Y VALORES DE
DESPLAZAMIENTOS NODALES
!* ESTADO DE CARGA 1
!* Soluciona estado de carga 1
LSSOLVE,1, , ,
!* Sale del procesador
FINISH
!* Ingresa al postprocesador
/POST1
!* Muestra diagrama deformada del estado de carga 1
PLDISP,2
!* !* Muestra desplazamientos nodales en función del estado de carga 1
PRNSOL,U,COMP
FINISH
/SOL
Estado de carga 1
!* ESTADO DE CARGA 2
!* Soluciona estado de carga 2
LSSOLVE,2, , ,
!* Sale del procesador
FINISH
!* Ingresa al postprocesador
/POST1
!* Muestra diagrama deformada del estado de carga 2
PLDISP,2
!* !* Muestra desplazamientos nodales en función del estado de carga 2
PRNSOL,U,COMP
FINISH
/SOL
Estado de carga 2
!* ESTADO DE CARGA 3
!* Soluciona estado de carga 3
LSSOLVE,3, , ,
!* Sale del procesador
FINISH
!* Ingresa al postprocesador
/POST1
!* Muestra diagrama deformada del estado de carga 2
PLDISP,2
!* Muestra desplazamientos nodales en función del estado de carga 2
PRNSOL,U,COMP
FINISH
/SOL
Estado de carga 3
!* Numeración de elementos
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,0
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,1
/REPLOT
FINISH
/POST1
!*TENSION AXIAL
AVPRIN,0, ,
ETABLE,SxxI,LS, 1
!*
AVPRIN,0, ,
ETABLE,Sxxj,LS, 2
!*
!* FUERZA AXIAL
AVPRIN,0, ,
ETABLE, ,SMISC, 1
!* Selección De Etiquetas Para Visualizar Resultados
FINISH
/POST26
NUMVAR,200
FILLDATA,191,,,,1,1
REALVAR,191,191
FINISH
/SOL
FINISH
/POST1
PRETAB,SXXI,SXXJ,SMIS1
!*
!* PLOTEAR GRAFICA DE TENSIONES
PLETAB,SXXI,NOAV
!* PLOTEAR GRAFICA DE FUERZAS AXIALES
PLETAB,SMIS1,NOAV
Dado que la mayor fuerza que se presenta es de 2511.3 N, el área a utilizar para llevar al
límite elástico el material será de A = 2511.3/ 210·106 = 11.95x10-6 m2 = 11.95 mm2.