
!FoldedCass

/TITLE,8 ribs, simple flange, F=12054N at 7900mm
/PREP7



!Define eje optico

k,1,0,0,0
k,100,0,0,2000



!CREACION DE CELDA ELEMENTAL

!crea lineas generatrices del tubo 

K,2,0,453,0
K,3,0,453,541
K,4,0,453,641
K,5,0,453,740
K,6,0,453,786

L,2,3
L,3,4
L,4,5
L,5,6


!creacion de areas del tubo

arotat,1,2,3,4,,,1,100,-6,1

!creacion de caras planas de la celda
pcirc,453,550,90,84

wplane,1,0,0,740,1,0,740,0,1,740
pcirc,400,453,90,84
pcirc,375,400,90,84

wplane,2,0,0,786,1,0,786,0,1,786
pcirc,453,550,90,84

wpcsys,0


!SIMETRIA DE LA ESTRUCTURA PRINCIPAL

csys,1
asel,all
agen,15,all,,,,-6,0,0,1,0

csys,0

nummrg,all,0.0002
numcmp,all


!genera placas planas

k,1000,0,995,0
k,1008,600,995,0
k,1016,600,0,0

kfill,1000,1008,7,1001,0,1
kfill,1008,1016,7,1009,0,1


a,13,1000,1001,12
a,12,1001,1002,25
a,25,1002,1003,34
a,34,1003,1004,43
a,43,1004,1005,53
a,53,1005,1006,62
a,62,1006,1007,71
a,71,1007,1008,1009,80
a,80,1009,1010,89
a,89,1010,1011,98
a,98,1011,1012,107
a,107,1012,1013,116
a,116,1013,1014,125
a,125,1014,1015,134
a,134,1015,1016,143



!copia cara frontal
agen,2,121,135,1,,,786,0,1,0


!genera cara superior


a,1000,1001,149,148
a,1001,1002,151,149
a,1002,1003,153,151
a,1003,1004,155,153
a,1004,1005,157,155
a,1005,1006,159,157
a,1006,1007,161,159
a,1007,1008,163,161


nummrg,all,0.0002
numcmp,all


!genera lineas para aplicar la carga y foco del instrumento

!aplicacion carga
k,1100,0,0,1842

!foco del instrumento
k,1200,0,0,1342


l,1100,14
l,1200,14


!PROPIEDADES DEL MATERIAL Y TIPO DE ELEMENTO


!paredes tubo elevacion
espe1=10
!tubo interior
espe2=6
!brida posterior no superpuesta
espe3=15


E1=210000
NU1=0.3
DENS1=0.0000078

ET,1,93

MP,EX,1,E1
MP,NUXY,1,NU1
MP,DENS,1,DENS1

R,1,espe1
R,2,espe2
R,3,espe3


!MALLADO

!Paredes tubo de elevacion

ksel,s,loc,z,0,0
ksel,a,loc,z,786,786
ksel,a,loc,y,995,995
ksel,a,loc,y,-995,-995

lslk,s,1
asll,s,1

esize,50
real,1
type,1
mat,1
amesh,all


!Tubo

csys,1
ksel,s,loc,x,453,453

lslk,s,1
asll,s,1

esize,50
real,2
type,1
mat,1
amesh,all

csys,0


!Brida posterior no superpuesta

csys,1
ksel,s,loc,x,375,453
ksel,r,loc,z,740,740

lslk,s,1
asll,s,1

esize,50
real,3
type,1
mat,1
amesh,all

csys,0


!lineas de aplicacion de la carga

diam=20
pared=2

E2=100
NU2=0.3
DENS2=0

ET,2,16

MP,EX,2,E2
MP,NUXY,2,NU2
MP,DENS,2,DENS2

R,4,diam,pared


csys,1

ksel,s,loc,z,740,740
ksel,r,loc,x,400,400
ksel,r,loc,y,89,90
ksel,a,loc,z,1342,1342
ksel,a,loc,z,1842,1842

lslk,s,1

esize,200
real,4
mat,2
type,2
lmesh,all

lsel,s,337,338
lgen,8,337,338,1,,-12,0,0,0,0	!nuevo

csys,0				!nuevo


!SIMETRIA

asel,all
lsel,all
ksel,all
nsel,all
esel,all

arsymm,y,all,,,,,
lsymm,y,all,,,,,

asel,all
lsel,all
ksel,all
nsel,all
esel,all

nummrg,all,0.01
numcmp,all


!CARTELAS INTERIORES

a,139,140,144,145
a,140,141,144

asel,s,area,,317
asel,a,area,,318

!espesor de cartelas interiores

espe4=8
espe5=4

R,5,espe4
R,6,espe5

esize,50
real,5
type,1
mat,1
amesh,all


!simetria para generar cartelas

csys,1
agen,2,317,318,,,-48,0,0,0,0
agen,2,317,318,,,48,0,0,0,0

agen,2,317,318,,,-90,0,0,0,0
agen,2,317,318,,,90,0,0,0,0


!Mallado para cartelas en plano vertical (medio espesor por simetra)

asel,s,area,,323,326,1
aclear,all

esize,50
real,6
type,1
mat,1
amesh,all

csys,0

asel,all
lsel,all
ksel,all
nsel,all
esel,all

nummrg,all,0.01
numcmp,all


!CONDICIONES DE CONTORNO

csys,0
nsel,s,loc,x,600,600
d,all,ux,0
d,all,uy,0
d,all,uz,0
d,all,rotx,0
d,all,roty,0
d,all,rotz,0

nsel,s,loc,x,0,0
d,all,ux,0
d,all,roty,0
d,all,rotz,0

!nsel,all


csys,1

nsel,s,loc,z,1842,1842
nsel,r,loc,x,0,10

csys,0

f,all,fy,-6027

allsel,all
eplot


------------------------------------------
!SOLVER

/SOL
solve


--------------------------------------------
!PLOT

/POST1
PLNSOL, U,SUM, 0,1.0