/CLEAR,START
/FILNAM,ROLLERPAIR_PP6HHZ
/PREP7
/TITLE,CONTACT ANALYSIS OF SML-ROLLERPAIR-PP6HHZ
/NERR,100,100,OFF
SELTOL,1E-6
DOF,UX,UY,UZ,ROTX,ROTY,ROTZ	!DEFINE DOFS
*AFUN,DEG			!SWITCH TO DEGREES
				!DEFINE PARAMETERS
!*******************************************************
WB=1250				!SML-LENGTH PARAMETER
!*******************************************************
YM1=210000			!YOUNGS MODULUS [MPA]
NUE1=0.3			!POISSON RATIO [\]
MUE=0.1				!COEFFICIENT OF FRICTION
C10=-1.16798327782		!DEFINE MOONEY-RIVLIN CONSTANTS
C01=2.14108839544		!FOR RUBBER SURFACE LAYER
C20=0.279350869317		!PP6HHZ ELASTOMER
C11=-0.785705598077
C02=1.22480723143
D=0
RUBBERSIZE=30			!ESIZE - RUBBER LAYER
STPIPSIZE=6			!ESIZE - STEEL PIPE UNDER RUBBER LAYER
SHAFTSIZE=16			!ESIZE - STEEL SHAFT(S)
				!DEFINE ELEMENTS+PROPERTIES
ET,1,PLANE183
ET,2,SOLID186
ET,3,TARGE170
ET,4,CONTA174
ET,5,MPC184
MP,EX,1,YM1			!DEFINE YOUNGS MODULUS
MP,NUXY,1,NUE1			!DEFINE POISSON RATIO
!TB,HYPER,2,,5,MOONEY		!DEFINE NONLINEAR MATERIAL PROPERTIES
!TBDATA,1,C10			!MOONEY-RIVLIN CONSTANTS
!TBDATA,2,C01
!TBDATA,3,C20
!TBDATA,4,C11
!TBDATA,5,C02
!TBDATA,6,D
!TB,FRIC,3,,,ISO			!ISOTROPIC CONTACT FRICTION - MAT1
!TBDATA,1,MUE			!DEFINE COEFFICIENT FO FRICTION - MAT1
KEYOPT,4,5,1			!CLOSE GAP
KEYOPT,4,10,2			!CONTACT STIFFNESS UPDATE
R,3,,,1,,1E-10			!FKT,ICONT
				!DEFINE KEYPOINTS
K,1,((WB+630)/2),100		!UPPER ROLL
K,2,((WB+630)/2),(100-30)
K,3,((WB+630)/2-90),(100-30)
K,4,((WB+630)/2-240),(100-40.489)
K,5,((WB+630)/2-240),(100-75)
K,6,((WB+630)/2-240),(100-90)
K,7,((WB+630)/2-320),(100-90)
K,8,((WB+630)/2-240)
K,9,((WB+630)/2-320)
K,10,-((WB+630)/2-320)
K,11,-((WB+630)/2-240)
K,12,-((WB+630)/2-240),(100-90)
K,13,-((WB+630)/2-320),(100-90)
K,14,-((WB+630)/2-240),(100-75)
K,15,-((WB+630)/2-240),(100-40.489)
K,16,-((WB+630)/2-90),(100-30)
K,17,-((WB+630)/2),(100-30)
K,18,-((WB+630)/2),100
K,19,-((WB+630)/2-320),100
K,20,-((WB+630)/2-320),(100-75)
K,21,((WB+630)/2-320),(100-75)
K,22,((WB+630)/2-320),100
				!LOWER ROLL
K,23,-((WB+150)/2-80+345),-100
K,24,-((WB+150)/2-80+345),(-100+30)
K,25,-((WB+150)/2-80+250),(-100+30)
K,26,-((WB+150)/2),(-100+38.909)
K,27,-((WB+150)/2),(-100+75)
K,28,-((WB+150)/2),(-100+90)
K,29,-((WB+150)/2-80),(-100+90)
K,30,-((WB+150)/2)
K,31,-((WB+150)/2-80)
K,32,((WB+150)/2-80)
K,33,((WB+150)/2)
K,34,((WB+150)/2),(-100+90)
K,35,((WB+150)/2-80),(-100+90)
K,36,((WB+150)/2),(-100+75)
K,37,((WB+150)/2),(-100+39.433)
K,38,((WB+150)/2-80+260),(-100+30)
K,39,((WB+150)/2-80+360),(-100+30)
K,40,((WB+150)/2-80+360),(-100+55/2)
K,41,((WB+150)/2-80+415),(-100+55/2)
K,42,((WB+150)/2-80+415),(-100+50/2)
K,43,((WB+150)/2-80+660),(-100+50/2)
K,44,((WB+150)/2-80+660),-100
K,45,((WB+150)/2-80),-100
K,46,((WB+150)/2-80),(-100+75)
K,47,-((WB+150)/2-80),(-100+75)
K,48,-((WB+150)/2-80),-100
				!DEFINE MASTER NODES FOR
				!MPC CONNECTIONS
N,1,((WB+150)/2)-80+265,100
N,2,-(((WB+150)/2)-80+265),100
N,3,((WB+150)/2)-80+279,-100
N,4,-(((WB+150)/2)-80+279),-100
				!DEFINE LINES
L,1,2				!UPPER ROLL
L,2,3
L,3,4
L,4,5
L,5,6
L,6,8
L,8,9
L,9,10
L,10,11
L,12,11
L,12,14
L,14,15
L,15,16
L,16,17
L,17,18
L,18,19
L,19,20
L,20,21
L,21,22
L,22,1
L,5,21
L,6,7
L,21,7
L,7,9
L,7,13
L,12,13
L,14,20
L,20,13
L,13,10
				!LOWER ROLL
L,23,24
L,24,25
L,25,26
L,26,27
L,27,28
L,28,30
L,30,31
L,31,32
L,32,33
L,34,33
L,34,36
L,36,37
L,37,38
L,38,39
L,39,40
L,40,41
L,41,42
L,42,43
L,43,44
L,44,45
L,45,46
L,46,47
L,47,48
L,48,23
L,27,47
L,28,29
L,47,29
L,29,31
L,29,35
L,36,46
L,34,35
L,46,35
L,35,32
				!DEFINE AREAS
				!UPPER ROLL
AL,1,20,19,21,4,3,2		!AREA: 1- FREE
AL,5,21,23,22			!AREA: 2- MAPPED
AL,23,18,28,25			!AREA: 3- MAPPED
AL,28,27,11,26			!AREA: 4- MAPPED
AL,17,16,15,14,13,12,27		!AREA: 5- FREE
AL,6,22,24,7			!AREA: 6- MAPPED
AL,24,25,29,8			!AREA: 7- MAPPED
AL,29,26,10,9			!AREA: 8- MAPPED
				!LOWER ROLL
AL,52,54,33,32,31,30,53		!AREA: 9- FREE
AL,56,55,34,54			!AREA: 10- MAPPED
AL,61,58,56,51			!AREA: 11- MAPPED
AL,59,40,60,61			!AREA: 12- MAPPED
LSEL,S,LINE,,41,50
LSEL,A,LINE,,59
AL,ALL				!AREA: 13- FREE
ALLSEL
AL,57,36,35,55			!AREA: 14- MAPPED
AL,62,37,57,58			!AREA: 15- MAPPED
AL,39,38,62,60			!AREA: 16- MAPPED
				!MESHING
MSHKEY,1
TYPE,1
LSEL,S,LINE,,6
LSEL,A,LINE,,24
LSEL,A,LINE,,29
LSEL,A,LINE,,10
LESIZE,ALL,,,10,1/10
LSEL,S,LINE,,7,9
LESIZE,ALL,RUBBERSIZE
LSEL,S,LINE,,35
LSEL,A,LINE,,57
LSEL,A,LINE,,62
LSEL,A,LINE,,39
LESIZE,ALL,,,10,1/10
LSEL,S,LINE,,36,38
LESIZE,ALL,RUBBERSIZE
ALLSEL
MAT,1				!MESH- RUBBER LAYER
AMESH,6,8
AMESH,14,16
LSEL,S,LINE,,5
LSEL,A,LINE,,23
LSEL,A,LINE,,28
LSEL,A,LINE,,11
LSEL,A,LINE,,40
LSEL,A,LINE,,61
LSEL,A,LINE,,34
LSEL,A,LINE,,56
LESIZE,ALL,,,3
LSEL,S,LINE,,21
LSEL,A,LINE,,18
LSEL,A,LINE,,27
LSEL,A,LINE,,54
LSEL,A,LINE,,51
LSEL,A,LINE,,59
LESIZE,ALL,RUBBERSIZE
ALLSEL
				!MESH- STEEL PIPE
AMESH,2,4
AMESH,10,12
!ESIZE,SHAFTSIZE		!MESH- SHAFT
!AMESH,1,5,4
!AMESH,9,13,4
				!ROTATING
TYPE,2
ESIZE,,10
MAT,1
VROTAT,6,7,8,,,,1,18,-5,1
VROTAT,14,15,16,,,,23,44,-5,1
VROTAT,2,3,4,,,,1,18,-5,1
VROTAT,10,11,12,,,,23,44,-5,1
ESIZE,,10
LOCAL,11,1,,100,,,,90
ASEL,S,LOC,Y,-85
VROTAT,ALL,,,,,,1,18,-175
LOCAL,12,1,,-100,,,,90
ASEL,S,LOC,Y,85
VROTAT,ALL,,,,,,23,44,-175
ALLSEL
CSYS,0

VROTAT,1,5,,,,,1,18,-180
VROTAT,9,13,,,,,23,44,-180
FINISH