CommandList-HW3.txt

!*********************
! PROBLEM HOMEWORK 3 *
!*********************

FINISH
/CLEAR,START,NEW
/TITLE,SHAFT CARRYING(WITHOUT RELIEF GROOVE)
/FILNAME,HOMEWORK3part1,1
! >>> PARAMETERS MODEL <<<
*SET,Pi,ACOS(-1)
*SET,D,90
*SET,d1,D/(1.4)
*SET,r1,d1/20
*SET,R,(D-d1)/2
*SET,n_div_a,3*7
*SET,n_div_b,2*7
*SET,n_div_c,3*7
*SET,EPS,1E-3

! >>> PROPERTIES MATERIAL <<<   
*SET,E_Young,210000 
*SET,ni,0.3          

! >>>  LOAD<<<
*SET,F,15E3 

! >>> PRE PROCESSING <<<
/PREP7

ET,1,PLANE182,0,,1
!KEYOPT,1,1,3
!KEYOPT,1,3,1
MP,EX,1,E_Young 
MP,PRXY,1,ni

K,1,0,0,0
K,2,D/2-((D-d1))/2+r1,0,0
K,3,D/2,0,0
K,4,D/2,d1,0
K,5,D/2-((D-d1))/2+r1,d1,0
K,6,D/2-((D-d1))/2,d1,0
K,7,D/2-((D-d1)/2),d1+r1 
K,8,d1/2,2*d1
K,9,0,2*d1,0
K,10,0,d1+r1
K,11,0,d1/2,0
K,12,D/2-((D-d1))/2+r1,d1/2,0
K,13,D/2,d1/2,0
SAVE

LSTR,      1,      2  
LSTR,      2,      3  
LSTR,      3,     13  
LSTR,     13,      4  
LSTR,      4,      5  
LSTR,      7,      8  
LSTR,      8,      9  
LSTR,      9,     10  
LSTR,     10,     11  
LSTR,     11,      1  
LSTR,     11,     12  
LSTR,     10,      7  
LSTR,      5,     12  
LSTR,     12,      2
LSTR,     12,     13   
LARC,7,5,6,-r1 
SAVE

AL,1,14,11,10
AL,2,3,15,14
AL,15,4,5,13
AL,9,11,12,13,16
AL,12,8,7,6

LESIZE,11,,,n_div_a
LESIZE,12,,,n_div_b,1/3
LESIZE,13,,,n_div_b,3
LESIZE,9,,,n_div_b
LESIZE,16,,,n_div_b+n_div_a
LCCAT,9,11
LESIZE,10,,,n_div_b
LESIZE,1,,,n_div_a
LESIZE,14,,,n_div_b
LESIZE,2,,,n_div_a
LESIZE,3,,,n_div_b
LESIZE,15,,,n_div_a
LESIZE,4,,,n_div_b,1/3
LESIZE,5,,,n_div_a
LESIZE,6,,,n_div_b
LESIZE,7,,,n_div_b,3
LESIZE,8,,,n_div_b
SAVE
MSHKEY,1 
MSHAPE,0,2D
AMESH,ALL 

! >>> CONSTRAINT <<<
DL,1,,uy,0
DL,2,,uy,0
DL,8,,ux,0
DL,9,,ux,0
DL,10,,ux,0
SAVE

! >>> FORCE <<<
SFL,7,PRES,-F
SAVE

! >>> SOLUTION <<<
/SOLU
ANTYPE,STATIC,NEW
NSEL,S,LOC,Y,-EPS,+EPS 
NSEL,S,LOC,X,-EPS,+EPS 
DSYM,SYMM,X 
ALLSEL,ALL
SOLVE
FINISH

!>>>> POST-PROCESS <<<<
/POST1
PLDISP,1
PLNSOL,U,Y 
PLNSOL,S,1 
PRNSOL,S,PRIN 
FINISH