27 lines
625 B
Plaintext
27 lines
625 B
Plaintext
|
|
!prerequisits
|
|
!1. local cylindrical coordinate system 12
|
|
!2. correct symmetry factor
|
|
!3. friction factor
|
|
!4. 3d ASYMMETRICAL contacts
|
|
|
|
frict=0.1 ! friction co-efficient
|
|
symm=6 ! symmetry factor
|
|
|
|
set,last
|
|
esel,s,ename,,conta174 ! 174: 3d asymetrical contact!
|
|
csys,12 ! local cylindrical co-ordinate system
|
|
*get,en,elem,,count
|
|
etable,r,cent,x
|
|
csys
|
|
etable,cp,cont,pres
|
|
etable,a,volu!contact element areas
|
|
smult,tang,cp,a,frict*symm ! tangential forces over the whole circumference
|
|
smult,res,tang,r ! moment
|
|
!smult,cpres,cp,,1/en
|
|
ssum
|
|
*get,my_torque,ssum,,item,res
|
|
*get,my_force,ssum,,item,tang
|
|
*get,my_carea,ssum,,item,a
|
|
alls
|