I want to analyze a rectangular cross section under torsion weekend by a edge crack. I used element of PLANE42 for modelling of cross section, then with help of element of SOLID45, I extruded cross-section along the perpendicular to the surface. but I don't know how to apply a moment to the end of beam.
/prep7
ET,1,plane182
ET,2,solid95
DOF,ROTZ,WARP
MPDE,ALL,1
TBDE,ALL,1
MPTEMP,,,,,,,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,30e6
MPDATA,PRXY,1,,0.3
*AFUN,DEG
k, , 0, 12.5+SIN(45)/2
k, , COS(45), 12.5-SIN(45)/2
k, , 0, 12.5+SIN(45)/2
k, , 0, 0
k, , 5, 0
k, , 5, 12.5-(5-COS(45))*TAN(45)-SIN(45)/2
k, , 5, 25
k, , 0, 25
L,4,5
L,5,6
L,6,2
L,2,1
L,1,4
L,6,7
L,7,8
L,7,8
L,8,3
L,3,2
/PNUM,LINE,1
/REPLOT
AL,1,2,3,4,5,
AL,6,7,8,9,3,
CSKP,11,0,2,6,7,1,1,
CSYS,0
KSCON,2,1/20,1,6,0,
KESIZE,ALL,5/3
kesize,1,1/3
kesize,3,1/3
kesize,2,1/30
K, ,,,0,
K, ,,,-100,
L, 9, 10
AMESH,ALL
TYPE, 2
EXTOPT,ESIZE,100,0,
FLST,2,2,5,ORDE,2
FITEM,2,1
FITEM,2,-2
VDRAG,P51X, , , , , , 10
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
EPLOT
FLST,2,2,5,ORDE,2
FITEM,2,8
FITEM,2,13
/GO
DA,P51X,ALL,