*HEADING
Cylindrical elment testing (CCL9)
*PREPRINT, ECHO=YES, MODEL=YES, HISTORY=YES
**
**********************************************************
** Parameter definition
**
*PARAMETER
INRAD=10.0
EXRAD=12.0
HEIGHT=1.0
**
MIDHEIGHT=HEIGHT/2
MID=(INRAD+EXRAD)/2
**
***********************************************************
** Model definition
**
*NODE, NSET=SECTION
1, <INRAD>,0,0
2, <EXRAD>,0,0
3, <EXRAD>,0,<HEIGHT>
4, <INRAD>,0,<HEIGHT>
*NCOPY, CHANGE NUMBER=100, OLD SET=SECTION, NEW SET=REST, SHIFT, MULTIPLE=7
*NSET, NSET=ALL
REST, SECTION
*NSET, NSET=INT, GENERATE
*NSET, NSET=EX, GENERATE
*NSET, NSET=TOP, GENERATE
*NSET, NSET=BOTTOM, GENERATE
**
*ELEMENT, TYPE=CCL9, ELSET=FIRST
*ELEMENT, TYPE=CCL9, ELSET=LAST
*ELGEN, ELSET=FIRST3
*ELSET, ELSET=ALL
FIRST3,LAST
*SOLID SECTION, ELSET=ALL, MATERIAL=MYMAT
*MATERIAL, NAME=MYMAT
*ELASTIC
30E6,0.3
*SURFACE, NAME=PSURF
2,S4
4,S4
6,S4
8,S4
************************************************************
** Boundary Condition
*TRANSFORM, TYPE=C, NSET=ALL
*BOUNDARY
INT,1,3,0
ALL,2,2,0
************************************************************
** History data
**
*STEP
*STATIC
*DSLOAD
PSURF,P,10e4
*OUTPUT, FIELD
*NODE OUTPUT, VARIABLE=PRESELECT
*ELEMENT OUTPUT,VARIABLE=PRESELECT
*END STEP