!   Commands inserted into this file will be executed just after the joint definition.
!   The material, type, and real number for this joint is equal to the parameter "_jid".
!   Active UNIT system in Workbench when this object was created:  Metric (m, kg, N, s, V,A)

esel,s,type,,_jid
ne=elnext(0)
nsle
n1=ndnext(0)
n2=ndnext(n1)
edele,ne

et,_jid,27,,,4             !Defines a 12 x 12 stiffness matrix
keyopt,_jid,1,0            !Input positive or zero definite matrices only
keyopt,_jid,2,0            !Symmetric matrices (78 constants required)
keyopt,_jid,4,1            !Print element matrix at beginning of solution phase


*dim,coef,,6,6
coef(1,1)=4.85e9
coef(2,2)=1.81e10
coef(3,3)=6.28e5
coef(4,4)=5.79e5
coef(5,5)=1.01e5
coef(6,6)=0
!coef(1,1)=4.85e9  $ coef(1,2)=-1.79e9 $ coef(1,3)=1.49e6  $ coef(1,4)=-1.64e6 $ coef(1,5)=-4.72e6 $ coef(1,6)=0
!coef(2,1)=-1.79e9 $ coef(2,2)=1.81e10 $ coef(2,3)=-1.25e7 $ coef(2,4)=1.83e7  $ coef(2,5)=1.64e6  $ coef(2,6)=0
!coef(3,1)=1.49e6  $ coef(3,2)=-1.25e7 $ coef(3,3)=6.28e5  $ coef(3,4)=-9.34e5 $ coef(3,5)=-1.3e5  $ coef(3,6)=0
!coef(4,1)=-1.64e6 $ coef(4,2)=1.83e7  $ coef(4,3)=-9.34e5 $ coef(4,4)=5.79e5 $ coef(4,5)=-6.81e4 $ coef(4,6)=0
!coef(5,1)=-4.72e6 $ coef(5,2)=1.64e6  $ coef(5,3)=-1.3e5  $ coef(5,4)=-6.81e4 $ coef(5,5)=-1.01e5 $ coef(5,6)=0
!coef(6,1)=0       $ coef(6,2)=0       $ coef(6,3)=0       $ coef(6,4)=0       $ coef(6,5)=0       $ coef(6,6)=0

r,_jid
rmod,_jid,1,coef(1,1),coef(1,2),coef(1,3),coef(1,4),coef(1,5),coef(1,6)          !RC 1-6
rmod,_jid,7,-coef(1,1),-coef(1,2),-coef(1,3),-coef(1,4),-coef(1,5),-coef(1,6)    !RC 7-12
rmod,_jid,13,coef(2,2),coef(2,3),coef(2,4),coef(2,5),coef(2,6)                   !RC 13-17
rmod,_jid,18,-coef(2,1),-coef(2,2),-coef(2,3),-coef(2,4),-coef(2,5),-coef(2,6)   !RC 18-23
rmod,_jid,24,coef(3,3),coef(3,4),coef(3,5),coef(3,6)                             !RC 24-27
rmod,_jid,28,-coef(3,1),-coef(3,2),-coef(3,3),-coef(3,4),-coef(3,5),-coef(3,6)   !RC 28-33
rmod,_jid,34,coef(4,4),coef(4,5),coef(4,6)                                       !RC 34-36
rmod,_jid,37,-coef(4,1),-coef(4,2),-coef(4,3),-coef(4,4),-coef(4,5),-coef(4,6)   !RC 37-42
rmod,_jid,43,coef(5,5),coef(5,6)                                                 !RC 43-44
rmod,_jid,45,-coef(5,1),-coef(5,2),-coef(5,3),-coef(5,4),-coef(5,5),-coef(5,6)   !RC 45-50
rmod,_jid,51,coef(5,6)                                                           !RC 51
rmod,_jid,52,-coef(6,1),-coef(6,2),-coef(6,3),-coef(6,4),-coef(6,5),-coef(6,6)   !RC 52-57

!******************    Untere Haelfte   ******************

rmod,_jid,58,coef(1,1),coef(1,2),coef(1,3),coef(1,4),coef(1,5),coef(1,6)         !RC 58-63
rmod,_jid,64,coef(2,2),coef(2,3),coef(2,4),coef(2,5),coef(2,6)                   !RC 64-68
rmod,_jid,69,coef(3,3),coef(3,4),coef(3,5),coef(3,6)                             !RC 69-72
rmod,_jid,73,coef(4,4),coef(4,5),coef(4,6)                                       !RC 73-75
rmod,_jid,76,coef(5,5),coef(5,6)                                                 !RC 76-77
rmod,_jid,78,coef(6,6)                                                           !RC 78
rmod,_jid,2,coef(1,2)

type,_jid   $   real,_jid
en,ne,n1,n2                !define Matrix27 element
alls