*HEADING
Connector element verification
Locking of flexible arms.
**
**Connector field output addded
**with Op=AbsMax to get max
**connector disp
**
*********************
** Glass
*NODE, NSET=Glass
101, -0.5,    -1.207, -2.5
102,  0.5,    -1.207, -2.5
103,  1.207,  -0.5,   -2.5 
104,  1.207,   0.5,   -2.5 
105,  0.5,     1.207, -2.5
106, -0.5,     1.207, -2.5
107, -1.207,   0.5,   -2.5 
108, -1.207,  -0.5,   -2.5 
**
121, -0.5,    -1.207,  2.5
122,  0.5,    -1.207,  2.5
123,  1.207,  -0.5,    2.5 
124,  1.207,   0.5,    2.5 
125,  0.5,     1.207,  2.5
126, -0.5,     1.207,  2.5
127, -1.207,   0.5,    2.5 
128, -1.207,  -0.5,    2.5 
*NODE, NSET=GlassRef
20100, 0., 0., 0.
**
*ELEMENT,TYPE=S4R, ELSET=Glass
101, 101, 102, 122, 121
102, 102, 103, 123, 122
103, 103, 104, 124, 123
104, 104, 105, 125, 124
105, 105, 106, 126, 125
106, 106, 107, 127, 126
107, 107, 108, 128, 127
108, 108, 101, 121, 128
*SHELL SECTION, ELSET=Glass, MATERIAL=Nominal
.1,
*RIGID BODY, REFNODE=GlassRef, POSITION=CENTER OF MASS, ELSET=Glass
**************************
**
** Marble1
*NODE, NSET=Marble1Ref
20201, -0.15, -0.15, 0.
*ELEMENT, TYPE=MASS, ELSET=Marble1Mass
201, 20201
*ELEMENT, TYPE=ROTARYI, ELSET=Marble1Inertia
202, 20201
*MASS, ELSET=Marble1Mass
1.
*ROTARYINERTIA, ELSET=Marble1Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble1Ref, ANALYTICAL SURFACE=Marble1
**************************
**
** Marble2
*NODE, NSET=Marble2Ref
20301, 0.15, 0.15, 1.
*ELEMENT, TYPE=MASS, ELSET=Marble2Mass
301, 20301
*ELEMENT, TYPE=ROTARYI, ELSET=Marble2Inertia
302, 20301
*MASS, ELSET=Marble2Mass
1.
*ROTARYINERTIA, ELSET=Marble2Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble2Ref, ANALYTICAL SURFACE=Marble2
************************** 
**
** Marble3
*NODE, NSET=Marble3Ref
20401, -0.15, 0., 2.1
*ELEMENT, TYPE=MASS, ELSET=Marble3Mass
401, 20401
*ELEMENT, TYPE=ROTARYI, ELSET=Marble3Inertia
402, 20401
*MASS, ELSET=Marble3Mass
1.
*ROTARYINERTIA, ELSET=Marble3Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble3Ref, ANALYTICAL SURFACE=Marble3
**************************
**
** Marble4
*NODE, NSET=Marble4Ref
20501, 0.15, 0., 3.1
*ELEMENT, TYPE=MASS, ELSET=Marble4Mass
501, 20501
*ELEMENT, TYPE=ROTARYI, ELSET=Marble4Inertia
502, 20501
*MASS, ELSET=Marble4Mass
1.
*ROTARYINERTIA, ELSET=Marble4Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble4Ref, ANALYTICAL SURFACE=Marble4
************************** 
**
** Marble5
*NODE, NSET=Marble5Ref
20601, 0., -.6, 4.
*ELEMENT, TYPE=MASS, ELSET=Marble5Mass
601, 20601
*ELEMENT, TYPE=ROTARYI, ELSET=Marble5Inertia
602, 20601
*MASS, ELSET=Marble5Mass
1.
*ROTARYINERTIA, ELSET=Marble5Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble5Ref, ANALYTICAL SURFACE=Marble5
***************************
**
** Marble6
*NODE, NSET=Marble6Ref
20701, 0., .6, 4.1
*ELEMENT, TYPE=MASS, ELSET=Marble6Mass
701, 20701
*ELEMENT, TYPE=ROTARYI, ELSET=Marble6Inertia
702, 20701
*MASS, ELSET=Marble6Mass
1.
*ROTARYINERTIA, ELSET=Marble6Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble6Ref, ANALYTICAL SURFACE=Marble6
***************************
**
** Marble7
*NODE, NSET=Marble7Ref
20801, -.6, 0., 5.
*ELEMENT, TYPE=MASS, ELSET=Marble7Mass
801, 20801
*ELEMENT, TYPE=ROTARYI, ELSET=Marble7Inertia
802, 20801
*MASS, ELSET=Marble7Mass
1.
*ROTARYINERTIA, ELSET=Marble7Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble7Ref, ANALYTICAL SURFACE=Marble7
***************************
**
** Marble8
*NODE, NSET=Marble8Ref
20901, .6, 0., 5.3
*ELEMENT, TYPE=MASS, ELSET=Marble8Mass
901, 20901
*ELEMENT, TYPE=ROTARYI, ELSET=Marble8Inertia
902, 20901
*MASS, ELSET=Marble8Mass
1.
*ROTARYINERTIA, ELSET=Marble8Inertia
1.,1.E-7, 1.E-7
*RIGID BODY, REFNODE=Marble8Ref, ANALYTICAL SURFACE=Marble8
***************************
**
** Glass-Marble
*ELEMENT, TYPE=CONN3D2, ELSET=GlassMarble
2201, 20100, 20201
2301, 20100, 20301
2401, 20100, 20401
2501, 20100, 20501
2601, 20100, 20601
2701, 20100, 20701
2801, 20100, 20801
2901, 20100, 20901
**
*ORIENTATION, DEFINITION=COORDINATES, NAME=GlassMarble
1,0,0, 0,1,0
**
*CONNECTOR SECTION, ELSET=GlassMarble, BEHAVIOR=GlassMarble
radial-thrust,
GlassMarble,
**
*CONNECTOR BEHAVIOR, NAME=GlassMarble
*CONNECTOR STOP, COMP=3
-2.0, 
*CONNECTOR STOP, COMP=1
, 0.707
**
** Marble-Marble
*ELEMENT, TYPE=CONN3D2, ELSET=MarbleMarble
3023, 20201, 20301
3024, 20201, 20401
3025, 20201, 20501
3026, 20201, 20601
3027, 20201, 20701
3028, 20201, 20801
3029, 20201, 20901
3034, 20301, 20401
3035, 20301, 20501
3036, 20301, 20601
3037, 20301, 20701
3038, 20301, 20801
3039, 20301, 20901
3045, 20401, 20501
3046, 20401, 20601
3047, 20401, 20701
3048, 20401, 20801
3049, 20401, 20901
3056, 20501, 20601
3057, 20501, 20701
3058, 20501, 20801
3059, 20501, 20901
3067, 20601, 20701
3068, 20601, 20801
3069, 20601, 20901
3078, 20701, 20801
3079, 20701, 20901
3089, 20801, 20901
**
*CONNECTOR SECTION, ELSET=MarbleMarble, BEHAVIOR=MarbleMarble
axial,
**
*CONNECTOR BEHAVIOR, NAME=MarbleMarble
*CONNECTOR STOP, COMP=1
1.0, 
*****************************
**
*INITIAL CONDITIONS, TYPE=VELOCITY
Marble1Ref, 3, -5.
Marble2Ref, 3, -5.
Marble3Ref, 3, -5.
Marble4Ref, 3, -5.
Marble5Ref, 3, -5.
Marble6Ref, 3, -5.
Marble7Ref, 3, -5.
Marble8Ref, 3, -5.
**
**************************
*MATERIAL, NAME=Nominal
*ELASTIC
1., 0.25
*DENSITY
780.
**
**************************
*SURFACE, TYPE=REVOLUTION, NAME=Marble1
-.15, -.15, 0., -.15, -.15, 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble2
.15, .15, 1., .15, .15, 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble3
-.15, 0., 2.1, -.15, 0., 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble4
.15, 0., 3.1, .15, 0., 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble5
0., -.6, 4., 0., -.6, 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble6
0., .6, 4.1, 0., .6, 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble7
-.6, 0., 5., -.6, 0., 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**
*SURFACE, TYPE=REVOLUTION, NAME=Marble8
.6, 0., 5.3, .6, 0., 10.
START, 0., -.5
CIRCL, .5, 0., 0., 0.
CIRCL, 0., .5, 0., 0.
**************************
*NSET, NSET=OUT
Marble1Ref, Marble2Ref, Marble3Ref, Marble4Ref,
Marble5Ref, Marble6Ref, Marble7Ref, Marble8Ref
*NSET,NSET=QA_TEST_OUT
OUT,
**
*Filter, name=max, Operator=absmax 
*STEP
*DYNAMIC, EXPLICIT, DIRECT
.01,3.00
**************************
*CLOAD
20201, 3, -001.
20301, 3, -001.
20401, 3, -001.
20501, 3, -001.
20601, 3, -001.
20701, 3, -001.
20801, 3, -001.
20901, 3, -001.
**
**************************
*FILE OUTPUT,NUMBER INTERVAL=4
*NODE FILE, NSET=OUT
U,
*OUTPUT,FIELD,NUMBER=20
*NODE OUTPUT
U,V,A
*OUTPUT,HISTORY,FREQUENCY=10
*NODE OUTPUT, NSET=OUT
U,V,A
*OUTPUT, FIELD, NUMBER INTERVAL=4
*NODE OUTPUT, NSET=QA_TEST_OUT
U,
*OUTPUT,HISTORY,VARIABLE=PRESELECT,TIMEINT=0.75
***OUTPUT,HISTORY,VARIABLE=PRESELECT
*OUTPUT,FIELD, NUM=20, FILTER=MAX
*ELEMENT OUTPUT
**, elset = MarbleMarble
CU, 
*OUTPUT,HISTORY, time interval=0.03
*ELEMENT OUTPUT, elset=MarbleMarble
CU, 
*END STEP