finish
/clear


/prep7



ET,1,COMBIN14
ET,2,MASS21


!!!Reibkoeffizient= ?
mp,mu,2,0.3


!!!Federkonst,daempf.konst
R,1,2500,0,
!!!Masse
R,2,1


!!!Knoten1=Federfusspunkt !! Knoten2=Punktmasse !!! Knoten3=Unterlage

N,1,0,0,0
N,2,1,0,0
N,3,1,-1,0



!!!!!!!!!!!!!!!!! X

ET,3,TARGE169
ET,4,CONTA178


KEYOPT,4,9,1
KEYOPT,4,10,2                               

R,3

N,3,1,-1,0

TYPE,3
REAL,3
MAT,1
E,2,3

NSEL,s,2
TYPE,4
REAL,3
ESURF
ALLS

!!!!!!!!!!!!!!!! Y



!Definieren der Feder zwischen Kn1 und Kn2

Type,1
REAL,1

E,1,2


!Definieren einer Punktmasse für Kn2

TYPE,2
REAL,2

E,2



!!!Auswahl Kraftangriffspunkt!!!

NSEL,S,,,2
CM,ZIEL,NODE
ALLS


!!!Festhalten von Knoten1 und Knoten3!!!

D,1,ALL
D,3,ALL

ALLS








!!!Lösungsabschnitt!!!

/SOLU

ANTYPE,TRANS
TRNOPT,FULL

!NLGEOM,ON
!EQSLV,SPARSE


!!!Kraftanregung!!!


TIME,1
DELTIM,1
TIMINT,OFF


F,ZIEL,FX,10

SOLVE

!!!Ausschwingvorgang!!!

TIMINT,ON
TIME,5
AUTOTS,ON

DELTIM,0.05,0.01,0.1

OUTRES,ALL,ALL

FDELE,ALL,ALL

SOLVE





/POST26

NSOL,2,2,U,X,UX





/GRID,1
/AXLAB,Y,DISP
PLVAR,2,3


/gropts,view,1
/GTHK,CURVE,1