filname,bevel
/uis,msgpop,3
/graphics,power
/prep7
*if,complete,eq,1,then
/show,bevel,grph
*endif
! ----------------------------------------------------------------------
! Step 1: Model the basic sector
! ----------------------------------------------------------------------
/title, spiral bevel gear
et,1,45
N,R5.0,LOC, 4, 0.508291582 , 1.02041090 , 12.2970000
N,R5.0,ANG, 4, 63.5210000 ,
N,R5.0,LOC, 16, 0.671591762 , 1.34824088 , 12.2970000
N,R5.0,ANG, 16, 63.5210000 ,
N,R5.0,LOC, 100, 0.508291781 , 1.02041088 , 9.85215600
N,R5.0,ANG, 100, 63.5210000 ,
N,R5.0,LOC, 112, 0.671591960 , 1.34824086 , 9.83199800
N,R5.0,ANG, 112, 63.5210000 ,
N,R5.0,LOC, 132, 0.508291781 , 1.02041088 , 8.95603900
N,R5.0,ANG, 132, 63.5210000 ,
N,R5.0,LOC, 144, 0.723870011 , 1.45319040 , 8.93200000
N,R5.0,ANG, 144, 63.5210000 ,
N,R5.0,LOC, 154, 0.508291781 , 1.02041088 , 7.99367500
N,R5.0,ANG, 154, 63.5210000 ,
N,R5.0,LOC, 160, 0.508291781 , 1.02041088 , 7.50200000
N,R5.0,ANG, 160, 63.5210000 ,
N,R5.0,LOC, 192, 0.723870108 , 1.45319039 , 7.98700200
N,R5.0,ANG, 192, 63.5210000 ,
N,R5.0,LOC, 204, 0.798330493 , 1.60267192 , 7.98700200
N,R5.0,ANG, 204, 63.5210000 ,
N,R5.0,LOC, 232, 0.650403511 , 1.30570433 , 7.12897800
N,R5.0,ANG, 232, 63.5210000 ,
N,R5.0,LOC, 244, 0.798330493 , 1.60267192 , 7.15214900
N,R5.0,ANG, 244, 63.5210000 ,
N,R5.0,LOC, 264, 0.696449218 , 1.39814217 , 6.66386600
N,R5.0,ANG, 264, 63.5210000 ,
N,R5.0,LOC, 276, 0.798330493 , 1.60267192 , 6.67663700
N,R5.0,ANG, 276, 63.5210000 ,
N,R5.0,LOC, 424, 0.696449318 , 1.39814216 , 3.62325300
N,R5.0,ANG, 424, 63.5210000 ,
N,R5.0,LOC, 436, 0.798330595 , 1.60267191 , 3.60200000
N,R5.0,ANG, 436, 63.5210000 ,
N,R5.0,LOC, 456, 0.696449318 , 1.39814216 , 3.00219300
N,R5.0,ANG, 456, 63.5210000 ,
N,R5.0,LOC, 468, 0.837946586 , 1.68220162 , 3.00199900
N,R5.0,ANG, 468, 63.5210000 ,
N,R5.0,LOC, 504, 0.696449318 , 1.39814216 , 1.00200000
N,R5.0,ANG, 504, 63.5210000 ,
N,R5.0,LOC, 516, 0.784731759 , 1.57537167 , 1.00200000
N,R5.0,ANG, 516, 63.5210000 ,
N,R5.0,LOC, 550, 0.696449318 , 1.39814216 , 1.75080200
N,R5.0,ANG, 550, 63.5210000 ,
N,R5.0,LOC, 562, 0.696449318 , 1.39814216 , 1.35693200
N,R5.0,ANG, 562, 63.5210000 ,
N,R5.0,LOC, 664, 0.837946586 , 1.68220162 , 1.75200000
N,R5.0,ANG, 664, 63.5210000 ,
N,R5.0,LOC, 676, 0.832264260 , 1.67079462 , 1.30268700
N,R5.0,ANG, 676, 63.5210000 ,
N,R5.0,LOC, 712, 1.01435517 , 2.03634692 , 1.75200000
N,R5.0,ANG, 712, 63.5210000 ,
N,R5.0,LOC, 724, 0.934323861 , 1.87568178 , 1.33282200
N,R5.0,ANG, 724, 63.5210000 ,
N,R5.0,LOC, 741,-0.108759098 , 5.24147700 , 1.25200000
N,R5.0,ANG, 741, 91.1887000 ,
N,R5.0,LOC, 746, 0.511930375 , 5.21755086 , 1.25200000
N,R5.0,ANG, 746, 84.3963000 ,
N,R5.0,LOC, 754,-0.135342203 , 5.29278200 , 0.832503000
N,R5.0,ANG, 754, 91.4648000 ,
N,R5.0,LOC, 760, 0.491601868 , 5.27163982 , 0.832503000
N,R5.0,ANG, 760, 84.6723000 ,
N,R5.0,LOC, 761,-8.909655000E-02, 5.29365700 , 0.832503300
N,R5.0,ANG, 761, 90.9642000 ,
N,R5.0,LOC, 764, 0.302966800 , 5.28573100 , 0.832503300
N,R5.0,ANG, 764, 86.7195000 ,
N,R5.0,LOC, 767, 5.282752000E-02, 5.33557800 , 0.437662300
N,R5.0,ANG, 767, 89.4327000 ,
N,R5.0,LOC, 776, 0.164654700 , 5.33741900 , 0.438074800
N,R5.0,ANG, 776, 88.2330000 ,
N,R5.0,LOC, 780, 1.05773226 , 2.12342779 , 1.52561700
N,R5.0,ANG, 780, 63.5210000 ,
N,R5.0,LOC, 832, 1.10588790 , 2.22010181 , 1.45881600
N,R5.0,ANG, 832, 63.5210000 ,
N,R5.0,LOC, 844, 1.07305705 , 2.15419322 , 1.21957200
N,R5.0,ANG, 844, 63.5210000 ,
N,R5.0,LOC, 896, 1.13101736 , 2.27055178 , 1.17225700
N,R5.0,ANG, 896, 63.5210000 ,
N,R5.0,LOC, 1105, 0.247774496 , 4.55334900 , 1.14589600
N,R5.0,ANG, 1105, 86.8853000 ,
N,R5.0,LOC, 1110, 0.784574421 , 4.49208440 , 1.14589600
N,R5.0,ANG, 1110, 80.0928000 ,
N,R5.0,LOC, 1170, 0.252019104 , 4.54515800 , 0.715771000
N,R5.0,ANG, 1170, 86.8263000 ,
N,R5.0,LOC, 1176, 0.787820452 , 4.48344887 , 0.715771000
N,R5.0,ANG, 1176, 80.0339000 ,
N,R5.0,LOC, 1177, 0.380145800 , 4.53496300 , 0.722686400
N,R5.0,ANG, 1177, 85.2084000 ,
N,R5.0,LOC, 1180, 0.714709600 , 4.49493400 , 0.722062800
N,R5.0,ANG, 1180, 80.9654000 ,
N,R5.0,LOC, 1183, 0.494517600 , 4.57771900 , 0.384169800
N,R5.0,ANG, 1183, 83.8344000 ,
N,R5.0,LOC, 1192, 0.592506200 , 4.56617300 , 0.384126800
N,R5.0,ANG, 1192, 82.6066000 ,
N,R5.0,LOC, 1245, 1.06500600 , 2.97610000 , 1.21108500
N,R5.0,ANG, 1245, 70.3101000 ,
N,R5.0,LOC, 1248, 1.06488800 , 2.97632700 , 0.944977700
N,R5.0,ANG, 1248, 70.3135000 ,
N,R5.0,LOC, 1256, 1.40952361 , 2.82924940 , 1.21108500
N,R5.0,ANG, 1256, 63.5177000 ,
N,R5.0,LOC, 1268, 1.40943329 , 2.82948877 , 0.944977700
N,R5.0,ANG, 1268, 63.5211000 ,
N,R5.0,LOC, 1491, 0.853669097 , 3.38399900 , 1.09130600
N,R5.0,ANG, 1491, 75.8416000 ,
N,R5.0,LOC, 1494, 0.965244602 , 3.16858100 , 0.790337200
N,R5.0,ANG, 1494, 73.0577000 ,
N,R5.0,LOC, 1505, 1.24791357 , 3.25928088 , 1.09130600
N,R5.0,ANG, 1505, 69.0492000 ,
N,R5.0,LOC, 1514, 1.33322776 , 3.03217850 , 0.790337200
N,R5.0,ANG, 1514, 66.2652000 ,
N,R5.0,LOC, 1515, 0.604315198 , 3.86521200 , 0.876275800
N,R5.0,ANG, 1515, 81.1139000 ,
N,R5.0,LOC, 1630, 0.944204202 , 3.20925100 , 0.526019100
N,R5.0,ANG, 1630, 73.6054000 ,
N,R5.0,LOC, 1685, 0.972180700 , 3.20087500 , 0.526018600
N,R5.0,ANG, 1685, 73.1052000 ,
N,R5.0,LOC, 1706, 1.31714521 , 3.07505155 , 0.526019100
N,R5.0,ANG, 1706, 66.8130000 ,
N,R5.0,LOC, 1715, 1.06565600 , 3.19857000 , 0.276544300
N,R5.0,ANG, 1715, 71.5737000 ,
N,R5.0,LOC, 1740, 1.20786300 , 3.11957200 , 0.526018600
N,R5.0,ANG, 1740, 68.8342000 ,
N,R5.0,LOC, 1759, 1.13326800 , 3.17800600 , 0.276805300
N,R5.0,ANG, 1759, 70.3739000 ,
N,R5.0,LOC, 1760, 1.15813300 , 3.15852800 , 0.359876400
N,R5.0,ANG, 1760, 69.8636000 ,
knode,,746
,,760
,,764
,,776
,,767
,,761
,,754
,,741
knode,,1110
,,1176
,,1180
,,1192
,,1183
,,1177
,,1170
,,1105
knode,,1256
,,1268
,,1248
,,1245
knode,,1505
,,1491
knode,,1514
,,1494
knode,,1706
,,1740
,,1759
,,1715
,,1685
,,1630
l,1,8
ldiv,1,,,3
l,9,16
ldiv,4,,,3
l,21,22
ldiv,7,,,3
l,17,20
ldiv,10,,,3
l,18,19
ldiv,13,,,3
l,23,24
ldiv,16,,,3
spli,19,24,30
,40,42,29
,39,41,26
,18,23,25
spli,17,21,9,1
,37,35,33,31
,38,36,34,32
,20,22,16,8
l,15,30
ldiv,39,.8
l,14,29
ldiv,41,.8
l,11,26
ldiv,43,.8
l,10,25
ldiv,45,.8
l,12,27
ldiv,47,.8
l,13,28
ldiv,49,.8
knode,,16
,,4
,,100
,,112
,,132
,,144
,,154
,,192
,,204
,,232
,,244
,,264
,,276
,,424
,,436
,,456
,,468
,,550
,,664
,,562
,,676
,,504
,,516
,,712
,,724
knode,,160
,,780 ! 74
,,832 ! 75
,,844 ! 76
,,896 ! 77
csys,1
! kmod,49,,63.52097
! *repeat,30,1
*do,i,49,78
kmod,i,,63.52097
*enddo
csys,0
spli,72,74,75
! kprs,,49,100
a,49,50,51,52
,52,51,53,54
,54,53,55,56
spli,74,58,60
a,56,55,74,58
,58,59,57,56
,58,60,61,59
,60,62,63,61
,62,64,65,63
,64,66,67,65
spli,73,69,71
a,66,68,69,67
,68,70,71,69
,67,69,73,72
,72,73,77,75
,75,77,78,76
k,101
k,102,,,1
vrot,1,2,3,4,5,6,101,102,360/53,3
vrot,7,8,9,10,11,12,101,102,360/53,3
vrot,13,14,,,,,101,102,360/53,3
v,17,37,39,18,76,170,169,78
v,37,38,40,39,170,176,175,169
v,38,20,19,40,176,182,181,175
v,21,35,41,23,17,37,39,18
,35,36,42,41,37,38,40,39
,36,22,24,42,38,20,19,40
v,21,35,45,46,23,41,26,25
,35,36,44,45,41,42,29,26,
,36,22,43,44,42,24,30,29
v,45,44,48,47,26,29,28,27
v,9,33,11,10,21,35,45,46
v,33,34,14,11,35,36,44,45
,34,16,15,14,36,22,43,44
,11,14,13,12,45,44,48,47
V, 1, 31, 3, 2, 9, 33, 11, 10
V, 31, 32, 6, 3, 33, 34, 14, 11
V, 32, 8, 7, 6, 34, 16, 15, 14
V, 3, 6, 5, 4, 11, 14, 13, 12
/view,,1,1,-1
/vup,,-z
vplot
nsel,all
ndel,all
numcmp,node
numcmp,elem
numstr,node,1
numstr,elem,1
eshape,2
esize,.2
!vmesh,1
!*repeat,60,1
vmesh,1,60
! define material properties
mp,ex,1,29e6
mp,dens,1,.7324e-3
mp,nuxy,1,0.32
eplot
/uis,msgpop,2
! ----------------------------------------------------------------------
! Step 2: Identify cyclic symmetry planes
! ----------------------------------------------------------------------
! define component for right edge nodes
asel,s,area,,1,14,1
asel,a,,,196,196,1
asel,a,,,209,221,12
asel,a,,,240,257,17
cm,a_right,area
*if,complete,eq,1,then
nsla,s,1
cm,right,node
*endif
! define component for left edge nodes
asel,s,area,,69,89,4
asel,a,,,144,164,4
asel,a,,,187,191,4
asel,a,,,203,203,1
asel,a,,,216,228,12
asel,a,,,247,264,17
cm,a_left,area
*if,complete,eq,1,then
nsla,s,1
cm,left,node
*endif
allsel
save
*if,complete,eq,1,then
! ----------------------------------------------------------------------
! Step 3: Generate copy of basic sector
! ----------------------------------------------------------------------
cycgen
! ----------------------------------------------------------------------
! Step 4: Apply BC's on both sectors
! ----------------------------------------------------------------------
! This is a free - free modal analysis; no boundary conditions.
! ----------------------------------------------------------------------
! Step 5: Specify analysis type and options
! ----------------------------------------------------------------------
/solu
antype,modal
modopt,lanb,2,100,10000,,,,2 ! Extract 2 modes in range 100-10,000
mxpand,2 ! Expand 2 modes
! ----------------------------------------------------------------------
! Step 6: Solve using CYCSOL
! ----------------------------------------------------------------------
cycsol,2,2,53,'right' ! Nodal diameter 2 only
finish
! ----------------------------------------------------------------------
! Step 7: Review results
! ----------------------------------------------------------------------
/post1
set,list ! One load step (nodal dia 2) with 2 substeps (modes)
EXPAND,53 ! Expand to 360 degrees
set,1,1
/edge,,1
pldisp
! anmode,10,.05
/color,outl,blue
eplot
finish
*endif
eplot |