!#!Info  Beispiel:      DYNA-Handbuch Beispiel 4.1, Zweimassenschwinger
!#!Info  Schlagwort:    Dynamik; Zweimassenschwinger; Überlagerung
!#!Info  Program:       DYNA
!#!Info  Version:       SOFiSTiK 2014
!#!Info  Date:          $Date$

+PROG SOFIMSHA urs:1
HEAD ZWEIMASSENSCHWINGER
SYST FRAM GDIR POSY
NODE 1  0 FIX F
     2  1 FIX XP
     3  2 FIX XP
SPRI 101 1 2 CP 1E4
     102 2 3 ==
MASS 1,2,3 10.0
END

+PROG SOFILOAD urs:2
HEAD LOADING
STO#OMEGA0 31.622777
STO#T (2.*#pi)/#OMEGA0
LC 10 ; NODE 2 PXX 10.0 ; FUNC 1.0 1.0 0.0
LC 21 ; NODE 2 PXX 10.0 ; FUNC #T 1.0 0.0
LC 22 ; NODE 2 PXX 10.0 ; FUNC 1./6.15 1.0 0.0
END

PROG DYNA urs:3
HEAD EIGENVALUES
$ omega-0 = sqr(k/m) = 31.623 / omega1/2 = 19.544 / 51.167
$ECHO EIGE ; EIGE 2 SIMU 2 ; MODD 1,2 0.05
END


+prog template urs:21
head
$@KEY LC_CTRL #lc_eig+#k ! lc_eig+k = k-th eigenmode load case
loop#i 2
@KEY LC_CTRL 1+#i ! lc_eig+k = k-th eigenmode load case
STO#PFx @(RX) ! modal part. factor for eq. in X direction
STO#PFy @(RY) ! modal part. factor for eq. in Y direction
STO#PFz @(RZ) ! modal part. factor for eq. in Z direction
PRT#PFx
PRT#PFy
PRT#PFz
endloop
end


-PROG DYNA urs:4
HEAD FREQUENCY RESPONSE
EIGE 2 REST ; CTRL STYP 1 ; CTRL SRES 0
STEP 200 0.075 FREQ $ 3 OMEGA-0 = 15 Hertz
LC 10 ; HIST U-X 2 3 1 LCST 10
END
-PROG DYNA urs:5
HEAD FREQUENCY RESPONSE
EIGE 2 REST ; CTRL STYP 2 ; CTRL SRES 0
STEP 200 0.075 FREQ $ 3 OMEGA-0 = 15 Hertz
LC 10 ; HIST U-X 2 3 1 LCST 11
END
-PROG DYNA urs:6
HEAD FREQUENCY RESPONSE
EIGE 2 REST ; CTRL STYP 2 ; CTRL SRES 2
STEP 200 0.075 FREQ $ 3 OMEGA-0 = 15 Hertz
LC 10 ; HIST U-X 2 3 1 LCST 12
END

-PROG DYNA urs:7
HEAD RESPONSE OF ANTI-RESONANCE
EIGE 2 REST ; CTRL SRES 2
STEP -90 3*#T/90
LC 21 ; HIST U-X 2 3 1 LCST 21
END
HEAD RESPONSE OF ANTI-RESONANCE
EIGE 2 REST ; CTRL SRES 2
STEP -90 3*#T/90
LC 22 ; HIST U-X 2 3 1 LCST 22
END

-PROG DYNR urs:8
HEAD FREQUENCY RESPONSE TWO MASS SYSTEM
SIZE -URS H 12
HIST 10 U-X 2,3 2001
HEAD FREQUENCY RESPONSE TWO MASS SYSTEM
SIZE -URS H 12
HIST 11 U-X 2,3 2001
HEAD FREQUENCY RESPONSE TWO MASS SYSTEM
SIZE -URS H 12
HIST 12 U-X 2,3 2001
HEAD ANTI-RESPONSE OF TWO MASS SYSTEM
SIZE -URS H 12
HIST 21 U-X 2 2001 3 3002
HIST 22 U-X 2 2001 3 3002
END