/prep7
/title, Mi bici
!tipo de elemento

! nodos
k,1
k,2,0,10
k,3,60,10
k,7,50,-15
k,4,40,-40
k,5,95,-40,-3
k,6,95,-40,3

/pnum,node,1,2,3,4,5
!lineas
l,1,2
l,1,4
l,2,7
l,7,3
l,7,4
l,3,5
l,3,6
l,4,5
l,4,6

! definimos los tipos de elementos

ET,1,pipe16 ! es un tubo
KEYOPT,1,6,1

! propiedades de los elementos
R,1,25,2             ! r,real set number,outside diameter,wall thickness
R,2,12,1             ! second set of real constants - for rear forks

! Propiedades del material

MP,EX,1,70000        ! mp,Young's modulus,material number,value
MP,PRXY,1,0.33       ! mp,Poisson's ratio,material number,value

! Define el numero de elementos en que se divide cada línea
LESIZE,ALL,20

REAL,1               ! turn on real property set #1
LMESH,1,6,1          ! mesh those lines which have that property set
                     ! mesh lines 1 through 6 in steps of 1
REAL,2               ! activate real property set #2
LMESH,7,8            ! mesh the rear forks

!soportes
D,1,All
D,12,UY
D,16,UY

!definimos las fuerzas que actuan
FK,9,FY,-0.1
FK,3,FY,-0.1

finish
/solu
solve
finish
/post1
PRNSOL,U,Y
PLNSOL,U,Y
PLDISP,1
finish