; NELEM NNOD ITED 0 NGD 0 KPER NPER 0 KSS
IP 4 5 53 0 3 0 0 0 0 0
; CRIT SCALE THDEF XL XU YL YU ZL ZU ALPHA
RP 1.01 1 0 -0.1 1.1 -0.001 0.021 -0.001 0.011 0
; default values of cross-sectional characteristics
; A Ik Wk Ieta
2e-4 6.6666666666e-9 6.666666666666e-7 1.66666666666e-9
; Weta Izeta Wzeta Px Py Pz
3.33333333333e-7 6.66666666666666e-9 6.666666666666e-7 0 1 0
XY N 1:5 X 0 0.25 0.5 0.75 1
Y 5*0
Z 5*0
EL E 1:4 N 1 2 2 3 3 4 4 5
EN
EN
...rpd3.........beam53d3.I2
IP 1
MP 1 T 1 V 2E11 0 0.3 7800
AS 1 /M 1 /B 0 N 1
EN
EN
...srh3.........beam53d3.I3
IP 1
EN
EN
...hmot.........beam53d3.IM
IP 1
EN
EN
...hcre.........beam53d3.IC
; NVEC
IP 0
; ALPHA BETA
RP 5.3495239E-4 8.8663179
EN
EN
...hfro.........beam53d3.IR
;KREST KDAMP
IP 1 1
;PIVAL SHIFT TSTEP
RP 100 0 7.640428e-3
EN
EN
...hnew.........beam53d3.IW
; KPOUT KDUMP 0 KKIN KREST
IP 1 0 0 1 1
; TEND
RP 0.61123424
; use the first term of Fourier's series
RS 1 T 1 I 1 0
; directional vector amplitude ang. frequency
VC 2 T 1 R 0 0 1 0 0 0 4*(6*0) R 0.001 R 25.698761
; output times
R 17*0.48898739:0.61123424
; direction amplitude freq. times
AS 3 T 1 I 1 3 I 2 5 I 3 6 I 4 9
EN
EN
