*HEADING ecccgfda: CORIOLIS LOAD [CCL12] *PREPRINT,MODEL=NO,HIST=NO *NODE,NSET=ALL 1 , 1.0000 , 0.0000 , 0.0000 101 , 0.0000 , 1.0000 , 0.0000 201 , -1.0000 , 0.0000 , 0.0000 3 , 4.0000 , 0.0000 , 0.0000 103 , 0.0000 , 4.0000 , 0.0000 203 , -4.0000 , 0.0000 , 0.0000 7 , 1.0000 , 0.0000 , 3.0000 107 , 0.0000 , 1.0000 , 3.0000 207 , -1.0000 , 0.0000 , 3.0000 9 , 4.0000 , 0.0000 , 3.0000 109 , 0.0000 , 4.0000 , 3.0000 209 , -4.0000 , 0.0000 , 3.0000 *ELEMENT,TYPE=CCL12, ELSET=EALL 1, 201, 203, 209, 207, 1, 3, 9, 7, 101, 103, 109, 107 *SOLID SECTION ,ELSET=EALL,MATERIA= A1,ORIENTA=CYL *ORIENTATION,SYS=CYLIN,NAME=CYL 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 1, 90.0 *TRANSFORM,TYPE=C,NSET=ALL 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 *MATERIAL,NAME=A1 *ELASTIC 3.E6,0.3 *DENSITY 10.0, *DAMPING,ALPHA=1.0 *********************** *STEP,PERTURBATION,UNSYMM=YES *STEADY STATE DYNAMICS,DIRECT 1, *LOAD CASE,NAME=CASE-1 *BOUNDARY,OP=NEW ALL,1,1,0.0 ALL,2,2,5.0 ALL,3,3 *END LOAD CASE *LOAD CASE,NAME=CASE-2 *DLOAD,OP=NEW EALL, CORIO, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 *BOUNDARY,OP=NEW ALL,1,1,0.0 ALL,2,2,5.0 ALL,3,3 *END LOAD CASE *NODE PRINT U,PU V, *NODE PRINT,TOT=YES RF,PRF *OUTPUT,FIELD *NODE OUTPUT RF, *END STEP *********************** *STEP,PERT *STATIC *BOUNDARY,OP=NEW ALL,1,1, ALL,2,2 ALL,3,3, *DLOAD EALL, ROTA, 10.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 *EL PRINT LOADS, *NODE PRINT,TOT=YES RF, *OUTPUT,FIELD *NODE OUTPUT RF *END STEP *********************** *STEP *STATIC .0001,.0001 *BOUNDARY,OP=NEW ALL,1,1, ALL,2,2,.005 ALL,3,3, *DLOAD EALL, CORIO, 5.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0 *EL PRINT LOADS, *NODE PRINT RF, *END STEP