!****************************** Riser Block Assembly *****************************
!
/title,RDGT / Slip Ring Modal Analysis
/dev,font,1,charter,bold,r,24,,,,,
/units,bin
/prep7
!
!<<<<<<<<<<<<<<<<<<<<<<<<<< Parameter List >>>>>>>>>>>>>>>>>>>>>>>>
!
pi=3.1415927
rconv=pi/180
!
pltthk=0.485        ! left/right side plate thicknesses
bpltthk=0.375       ! back plate thickness
rbh=1.000       ! riser block height
!
new=25          ! # elements along back width
nel=17          ! # elements along side lengths
neh=45          ! # elements along side heights
!
!<<<<<<<<<<<<<<<<<<<<<<< Element & Material Lists >>>>>>>>>>>>>>>>>
!
et,1,shell93
et,2,solid95
!
UIMP,1,EX,,,10.4e6      ! Housing Material (Aluminum)
UIMP,1,DENS,,,0.101/386.4
UIMP,1,NUXY,,,0.33
!
UIMP,2,EX,EY,EZ,2e5,1e4,1e4 ! Bearing Compliance
UIMP,2,DENS,,,0.200/386.4
UIMP,2,NUXY,,,0.27
!
!<<<<<<<<<<<<<<<<<< Riser Block Coordinate System >>>>>>>>>>>>>>>>>>>>>>
!
csys,0
csn=10
csn=csn+1
rbCS0=csn
clocal,rbCS0,0,0,17.870,0,0,-90,0,
!
csys,0
csn=csn+1
rbcycs=csn
clocal,rbcycs,1,0,17.870,0,0,-90,0,
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
/USER, 1
/VIEW, 1,  0.178559036212    ,  0.774028896170    ,  0.607450358861
/ANG,  1,   3.91689998543
/REPLO
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST
!
csys,rbCS0      !***** create riser block outer perimeter *****
!
k,,4.00,3.750/2,0,
k,,-4.00,3.750/2,0,
k,,-4.00,-3.750/2,0,
k,,4.00,-3.750/2,0,
!
*get,km,kp,,num,max
!
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
lstr,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,15,1,         ! size perimeter lines
lesize,lm-2,,,7,1,
lesize,lm-1,,,15,1,
lesize,lm,,,7,1,
!
k,,3.375,-1.00,0    !***** create shaft clamp outer perimeters / Right Side *****
k,,3.375,1.00,0
k,,2.375,1.00,0
k,,2.375-0.38,1.00,0
k,,2.375-0.38,-1.00,0
!
k,,2.375,-1.00,0
!
*get,km,kp,,num,max
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
!
lstr,km,km-5
lstr,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-6,,,5,1,          ! line sizing / right
lesize,lm-5,,,3,1,
lesize,lm-4,,,1,1,
lesize,lm-3,,,5,1,
lesize,lm-2,,,1,1,
!
lesize,lm-1,,,3,1,
lesize,lm,,,5,1,
!
k,,-3.375,-1.00,0   !***** create shaft clamp outer perimeters / Left Side *****
k,,-3.375,1.00,0
k,,-2.375,1.00,0
k,,-(2.375-0.38),1.00,0
k,,-(2.375-0.38),-1.00,0
!
k,,-2.375,-1.00,0
!
*get,km,kp,,num,max
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
!
lstr,km,km-5
lstr,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-6,,,5,1,          ! line sizing / left
lesize,lm-5,,,3,1,
lesize,lm-4,,,1,1,
lesize,lm-3,,,5,1,
lesize,lm-2,,,1,1,
!
lesize,lm-1,,,3,1,
lesize,lm,,,5,1,
!
csys,rbcycs     !***** Bearing Bore Circle *****
!
k,,2.440/2,45,0
k,,2.440/2,135,0
k,,2.440/2,225,0
k,,2.440/2,315,0
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,6,1,
lesize,lm-2,,,6,1,
lesize,lm-1,,,6,1,
lesize,lm,,,6,1,
!
lstr,km-19,km-14
lstr,km-8,km-18
lstr,km-15,km-16
lstr,km-9,km-17
lstr,km-3,km-12
!
lstr,km,km-11
lstr,km-1,km-5
lstr,km-2,km-6
!
*get,lm,line,,num,max
!
lesize,lm-7,,,3,1,
lesize,lm-6,,,3,1,
lesize,lm-5,,,3,1,
lesize,lm-4,,,3,1,
lesize,lm-3,,,3,1,
!
lesize,lm-2,,,3,1,
lesize,lm-1,,,3,1,
lesize,lm,,,3,1,
!
csys,rbCS0
!
k,,5.750,5.00,0
k,,-5.750,5.00,0
k,,-5.750,-5.00,0
k,,5.750,-5.00,0
!
*get,km,kp,,num,max
!
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
lstr,km,km-3
!
lstr,km-2,km-22
lstr,km-1,km-21
lstr,km,km-20
lstr,km-3,km-23
!
*get,lm,line,,num,max
!
lesize,lm-7,,,new,1,
lesize,lm-6,,,nel,1,
lesize,lm-5,,,new,1,
lesize,lm-4,,,nel,1,
!
lesize,lm-3,,,7,1,
lesize,lm-2,,,7,1,
lesize,lm-1,,,7,1,
lesize,lm,,,7,1,
!
a,km,km-20,km-21,km-1       ! create areas of top surface
a,km-3,km-2,km-22,km-23
a,km,km-3,km-23,km-20
a,km-1,km-21,km-22,km-2
a,km-20,km-23,km-18,km-19
!
a,km-20,km-19,km-14,km-15,km-4,km-5,km-9,km-8,km-13,km-21
a,km-23,km-22,km-12,km-11,km-10,km-6,km-7,km-16,km-17,km-18
a,km-21,km-13,km-12,km-22
a,km-19,km-18,km-17,km-14
a,km-14,km-17,km-16,km-15
!
a,km-15,km-16,km-7,km-4
a,km-8,km-11,km-12,km-13
a,km-9,km-10,km-11,km-8
a,km-5,km-6,km-10,km-9
!
*get,am,area,,num,max
!
aatt,,,1,0      ! free mesh areas
mshkey,0
amesh,am-13,am,1
!
esize,,2        ! volume mesh attributes
TYPE,   2
MAT,       1
REAL,
ESYS,       0
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1  ! extrude top plate
voffst,i,pltthk,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
csys,rbCS0      ! extrude riser block areas
!
asel,s,loc,z,pltthk,pltthk,,
asel,r,loc,x,-4.00,4.00
asel,r,loc,y,-3.750/2,3.750/2
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,1
!
*do,i,alow,ahigh,1
voffst,i,1.000-0.8307,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
csys,rbcycs     !***** Bearing Bore Inner Circle *****
!
k,,2.066/2,45,pltthk+(1.00-0.8307)
k,,2.066/2,135,pltthk+(1.00-0.8307)
k,,2.066/2,225,pltthk+(1.00-0.8307)
k,,2.066/2,315,pltthk+(1.00-0.8307)
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
lstr,kp(2.440/2,45,pltthk+(1.00-0.8307)),km-3
lstr,kp(2.440/2,135,pltthk+(1.00-0.8307)),km-2
lstr,kp(2.440/2,225,pltthk+(1.00-0.8307)),km-1
lstr,kp(2.440/2,315,pltthk+(1.00-0.8307)),km
!
*get,lm,line,,num,max
!
lesize,lm-7,,,6,1,
lesize,lm-6,,,6,1,
lesize,lm-5,,,6,1,
lesize,lm-4,,,6,1,
!
lesize,lm-3,,,1,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
a,km-3,kp(2.440/2,45,pltthk+(1.00-0.8307)),kp(2.440/2,135,pltthk+(1.00-0.8307)),km-2
a,km-2,kp(2.440/2,135,pltthk+(1.00-0.8307)),kp(2.440/2,225,pltthk+(1.00-0.8307)),km-1
a,km-1,kp(2.440/2,225,pltthk+(1.00-0.8307)),kp(2.440/2,315,pltthk+(1.00-0.8307)),km
a,km,kp(2.440/2,315,pltthk+(1.00-0.8307)),kp(2.440/2,45,pltthk+(1.00-0.8307)),km-3
!
*get,am,area,,num,max
!
aatt,,,1,0      ! free mesh areas
mshkey,0
amesh,am-3,am,1
!
csys,rbCS0
!
asel,s,loc,z,pltthk+(1.00-0.8307),pltthk+(1.00-0.8307),,
asel,r,loc,x,-4.00,4.00
asel,r,loc,y,-3.750/2,3.750/2
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,1
!
*do,i,alow,ahigh,1
voffst,i,0.8307-0.6693,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
csys,rbCS0
!
asel,s,loc,z,pltthk+(1.00-0.8307)+(.8307-.6693),pltthk+(1.00-0.8307)+(.8307-.6693),,
asel,r,loc,x,-4.00,4.00
asel,r,loc,y,-3.750/2,3.750/2
!
csys,rbcycs
!
asel,u,loc,x,0,2.440/2,,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,2
!
*do,i,alow,ahigh,1
voffst,i,0.6693,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
h=pltthk+(1.00-0.8307)+(.8307-.6693)+.6693
!
csys,rbCS0
!
asel,s,loc,z,h,h,,
asel,r,loc,x,-3.375,3.375
asel,r,loc,y,-1.000,1.000
asel,u,loc,x,-1.995,1.995
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,1
!
*do,i,alow,ahigh,1
voffst,i,0.380,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
h=h+.380
!
csys,rbCS0
!
asel,s,loc,z,h,h,,
asel,r,loc,x,-2.375,2.375
asel,r,loc,y,-1.000,1.000
asel,u,loc,x,-1.995,1.995
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,3
!
*do,i,alow,ahigh,1
voffst,i,1.500-0.380,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
hlow=h+(1.500-0.380)
!
csys,rbCS0
!
asel,s,loc,z,hlow,hlow,,
asel,r,loc,x,-2.375,2.375
asel,r,loc,y,-1.000,1.000
asel,u,loc,x,-1.995,1.995
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,1
!
*do,i,alow,ahigh,1
voffst,i,0.380,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
hhigh=hlow+0.380
!
csys,rbCS0
!
lstr,kp(-1.995,-1.00,hhigh),kp(1.995,-1.00,hhigh)
lstr,kp(-1.995,1.00,hhigh),kp(1.995,1.00,hhigh)
!
*get,lm,line,,num,max
!
lesize,lm-1,,,8,1,
lesize,lm,,,8,1,
!
csys,rbcycs
!
k,,0.605/2,45,hhigh
k,,0.605/2,135,hhigh
k,,0.605/2,225,hhigh
k,,0.605/2,315,hhigh
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,8,1,
lesize,lm-2,,,5,1,
lesize,lm-1,,,8,1,
lesize,lm,,,5,1,
!
csys,rbCS0
!
lstr,km-3,kp(1.995,1.00,hhigh)
lstr,km-2,kp(-1.995,1.00,hhigh)
lstr,km-1,kp(-1.995,-1.00,hhigh)
lstr,km,kp(1.995,-1.00,hhigh)
!
*get,lm,line,,num,max
!
lesize,lm-3,,,6,1,
lesize,lm-2,,,6,1,
lesize,lm-1,,,6,1,
lesize,lm,,,6,1,
!
a,km-3,km-2,kp(-1.995,1.00,hhigh),kp(1.995,1.00,hhigh)
a,km-2,km-1,kp(-1.995,-1.00,hhigh),kp(-1.995,1.00,hhigh)
a,km-1,km,kp(1.995,-1.00,hhigh),kp(-1.995,-1.00,hhigh)
a,km,km-3,kp(1.995,1.00,hhigh),kp(1.995,-1.00,hhigh)
!
*get,am,area,,num,max
!
aatt,,,1,0      ! free mesh areas
mshkey,0
amesh,am-3,am,1
!
*do,i,am-3,am,1
voffst,i,0.380,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
asel,all
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Side Wall Constructions >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!--------------------------- Left Side -------------------------
!
csys,rbCS0
!
k,,-5.750,5.000,-(17.870-2*pltthk)
k,,-5.750,-5.000,-(17.870-2*pltthk)
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km,kp(-5.750,-5.000,0)
lstr,km-1,kp(-5.750,5.000,0)
!
*get,lm,line,,num,max
!
lesize,lm-2,,,nel,1,
lesize,lm-1,,,neh,1,
lesize,lm,,,neh,1,
!
a,km,kp(-5.750,-5.000,0),kp(-5.750,5.000,0),km-1
!
!-------------------------- Right Side -------------------------
!
k,,5.750,5.000,-(17.870-2*pltthk)
k,,5.750,-5.000,-(17.870-2*pltthk)
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km,kp(5.750,-5.000,0)
lstr,km-1,kp(5.750,5.000,0)
!
*get,lm,line,,num,max
!
lesize,lm-2,,,nel,1,
lesize,lm-1,,,neh,1,
lesize,lm,,,neh,1,
!
a,km-1,kp(5.750,5.000,0),kp(5.750,-5.000,0),km
!
!--------------------------- Back Side --------------------------
!
lstr,km-3,km-1
!
lesize,lm+1,,,new,1,
!
csys,rbCS0
!
k,,-2.500,5.000,-2.370
k,,2.500,5.000,-2.370
k,,2.500,5.000,-3.370
k,,-2.500,5.000,-3.370
!
*get,km,kp,,num,max
!
csn=csn+1
crn1cs=csn
clocal,crn1cs,1,kx(km-3),ky(km-3),kz(km-3),0,90,0,,
!
csys,rbCS0
csn=csn+1
crn2cs=csn
clocal,crn2cs,1,kx(km-2),ky(km-2),kz(km-2),0,90,0,,
!
csys,rbCS0
csn=csn+1
crn3cs=csn
clocal,crn3cs,1,kx(km-1),ky(km-1),kz(km-1),0,90,0,,
!
csys,rbCS0
csn=csn+1
crn4cs=csn
clocal,crn4cs,1,kx(km),ky(km),kz(km),0,90,0,,
!
csys,crn1cs
!
k,,0.500,180,0
k,,0.500,90,0
*get,km,kp,,num,max
l,km-1,km
!
csys,crn2cs
!
k,,0.500,90,0
k,,0.500,0,0
*get,km,kp,,num,max
l,km-1,km
!
csys,crn3cs
!
k,,0.500,0,0
k,,0.500,270,0
*get,km,kp,,num,max
l,km-1,km
!
csys,crn4cs
!
k,,0.500,270,0
k,,0.500,180,0
*get,km,kp,,num,max
l,km-1,km
!
*get,lm,line,,num,max
!
lesize,lm-3,,,5,1,
lesize,lm-2,,,5,1,
lesize,lm-1,,,5,1,
lesize,lm,,,5,1,
!
lstr,km,km-7
lstr,km-1,km-2
lstr,km-3,km-4
lstr,km-5,km-6
!
*get,lm,line,,num,max
!
lesize,lm-3,,,4,1,
lesize,lm-2,,,10,1,
lesize,lm-1,,,4,1,
lesize,lm,,,10,1,
!
csys,rbCS0
!
lstr,km-4,kp(5.750,5.000,0)
lstr,km-7,kp(-5.750,5.000,0)
!
*get,lm,line,,num,max
!
lesize,lm-1,,,10,1,
lesize,lm,,,10,1,
!
a,km-4,km-5,km-6,km-7,kp(-5.750,5.000,0),kp(5.750,5.000,0)
!
p1=kp(-5.750,5.000,-(17.870-2*pltthk))
p2=kp(-5.750,5.000,0)
p3=kp(5.750,5.000,0)
p4=kp(5.750,5.000,-(17.870-2*pltthk))
!
a,p1,p2,km-7,km,km-1,km-2,km-3,km-4,p3,p4
!
*get,am,area,,num,max
!
aatt,,,1,0      ! free mesh areas
mshkey,0
amesh,am-3,am,1
esize,,2
!
*do,i,am-1,am,1
voffst,i,bpltthk,,
*enddo
!
*do,i,am-3,am-2,1
voffst,i,pltthk,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Edge Meshes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!-------------------- Right Corner Construction ------------------
!
csys,rbCS0
!
k,,5.750+pltthk,5.000+bpltthk,0
k,,5.750+pltthk,5.000+bpltthk,pltthk
!
*get,km,kp,,num,max
rcp=km                  ! Right Corner Point
!
lstr,rcp,km-1
lstr,km-1,kp(5.750+pltthk,5.000,0)
lstr,km-1,kp(5.750,5.000+bpltthk,0)
!
*get,lm,line,,num,max
!
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
a,km-1,kp(5.750+pltthk,5.000,0),kp(5.750,5.000,0),kp(5.750,5.000+bpltthk,0)
*get,adwnr,area,,num,max
!
k,,5.750+pltthk,5.000,pltthk
k,,5.750,5.000+bpltthk,pltthk
!
*get,km,kp,,num,max
!
lstr,km,rcp
lstr,rcp,km-1
lstr,km,kp(5.750,5.000,pltthk)
lstr,km-1,kp(5.750,5.000,pltthk)
lstr,km,kp(5.750,5.000+bpltthk,0)
!
lstr,km-1,kp(5.750+pltthk,5.000,0)
!
*get,lm,line,,num,max
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,2,1,
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
a,km,rcp,km-1,kp(5.750,5.000,pltthk)
!
a,km,kp(5.750,5.000+bpltthk,0),kp(5.750,5.000,0),kp(5.750,5.000,pltthk)
*get,aleft,area,,num,max
!
a,km-1,kp(5.750,5.000,pltthk),kp(5.750,5.000,0),kp(5.750+pltthk,5.000,0)
*get,afrntr,area,,num,max
!
a,rcp,km-1,kp(5.750+pltthk,5.000,0),rcp-1
a,rcp,km,kp(5.750,5.000+bpltthk,0),rcp-1
!
*get,am,area,,num,max
!
va,am-5,am-4,am-3,am-2,am-1,am
!
!-------------------- Left Corner Construction -------------------
!
csys,rbCS0
!
k,,-(5.750+pltthk),5.000+bpltthk,0
k,,-(5.750+pltthk),5.000+bpltthk,pltthk
!
*get,km,kp,,num,max
rcp=km                  ! Right Corner Point
!
lstr,rcp,km-1
lstr,km-1,kp(-(5.750+pltthk),5.000,0)
lstr,km-1,kp(-5.750,5.000+bpltthk,0)
!
*get,lm,line,,num,max
!
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
a,km-1,kp(-(5.750+pltthk),5.000,0),kp(-5.750,5.000,0),kp(-5.750,5.000+bpltthk,0)
*get,adwnl,area,,num,max
!
k,,-(5.750+pltthk),5.000,pltthk
k,,-5.750,5.000+bpltthk,pltthk
!
*get,km,kp,,num,max
!
lstr,km,rcp
lstr,rcp,km-1
lstr,km,kp(-5.750,5.000,pltthk)
lstr,km-1,kp(-5.750,5.000,pltthk)
lstr,km,kp(-5.750,5.000+bpltthk,0)
!
lstr,km-1,kp(-(5.750+pltthk),5.000,0)
!
*get,lm,line,,num,max
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,2,1,
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
a,km,rcp,km-1,kp(-5.750,5.000,pltthk)
a,km,kp(-5.750,5.000+bpltthk,0),kp(-5.750,5.000,0),kp(-5.750,5.000,pltthk)
!
a,km-1,kp(-5.750,5.000,pltthk),kp(-5.750,5.000,0),kp(-(5.750+pltthk),5.000,0)
*get,afrntl,area,,num,max
!
a,rcp,km-1,kp(-(5.750+pltthk),5.000,0),rcp-1
a,rcp,km,kp(-5.750,5.000+bpltthk,0),rcp-1
!
*get,am,area,,num,max
!
va,am-5,am-4,am-3,am-2,am-1,am
!
!-----------------------------------------------------------------------
!
*get,vm,volu,,num,max
!
mshkey,1
vmesh,vm-1,vm,1
!
esize,,neh
voffst,adwnr,17.870-2*pltthk,,
!
esize,,nel
voffst,afrntr,2*5.000,,
!
esize,,new
voffst,aleft,2*5.750,,
!
esize,,nel
voffst,afrntl,-(2*5.000),,
!
esize,,neh
voffst,adwnl,-(17.870-2*pltthk),,
!
nummrg,all,.001,.001
numcmp,all
!
!-------------------------------- Disk Fixture ----------------------------
!
csys,rbcycs
!
dskbts=2.850-(pltthk+rbh)   ! Z distance of disk bottom surface from c.s. origin
rd=8.250/2          ! radius of the disk
rb=1.500/2          ! boss radius
dskthk=0.375            ! disk thickness
!
k,,0.875/2,45,-dskbts       ! inner shaft diameter
k,,0.875/2,135,-dskbts
k,,0.875/2,225,-dskbts
k,,0.875/2,315,-dskbts
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,6,1,
lesize,lm-2,,,6,1,
lesize,lm-1,,,6,1,
lesize,lm,,,6,1,
!
a,km-3,km-2,km-1,km     ! inside center area
!
k,,rb,45,-dskbts            ! boss diameter
k,,rb,135,-dskbts
k,,rb,225,-dskbts
k,,rb,315,-dskbts
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,6,1,
lesize,lm-2,,,6,1,
lesize,lm-1,,,6,1,
lesize,lm,,,6,1,
!
lstr,km-7,km-3
lstr,km-6,km-2
lstr,km-5,km-1
lstr,km-4,km
!
*get,lm,line,,num,max
!
lesize,lm-3,,,2,1,
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
a,km-3,km-2,km-6,km-7
a,km-2,km-1,km-5,km-6
a,km-1,km,km-4,km-5
a,km,km-3,km-7,km-4
!
*get,am,area,,num,max
!
aatt,,,1,0
mshkey,0        !><><><<<<><><<><><>><><><><>< Change this
amesh,am-4,am,1
!
k,,rd,45,-dskbts            ! disk diameter
k,,rd,135,-dskbts
k,,rd,225,-dskbts
k,,rd,315,-dskbts
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,15,1,
lesize,lm-2,,,15,1,
lesize,lm-1,,,15,1,
lesize,lm,,,15,1,
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Create Holes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
rhc=2.547/cos(45*rconv)     ! radius of disk hole centers
rh=0.625/2
!
csys,rbcycs
!
k,,rhc,45,-dskbts
k,,rhc,135,-dskbts
k,,rhc,225,-dskbts
k,,rhc,315,-dskbts
!
*get,km,kp,,num,max
!
csn=csn+1
H1cs=csn
clocal,H1cs,1,kx(km-3),ky(km-3),kz(km-3),0,0,0,,
!
csys,rbcycs
csn=csn+1
H2cs=csn
clocal,H2cs,1,kx(km-2),ky(km-2),kz(km-2),0,0,0,,
!
csys,rbcycs
csn=csn+1
H3cs=csn
clocal,H3cs,1,kx(km-1),ky(km-1),kz(km-1),0,0,0,,
!
csys,rbcycs
csn=csn+1
H4cs=csn
clocal,H4cs,1,kx(km),ky(km),kz(km),0,0,0,,
!
csys,H1cs
!
k,,rh,0,0
k,,rh,90,0
k,,rh,180,0
k,,rh,270,0
*get,km,kp,,num,max
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
csys,H2cs
!
k,,rh,0,0
k,,rh,90,0
k,,rh,180,0
k,,rh,270,0
*get,km,kp,,num,max
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
csys,H3cs
!
k,,rh,0,0
k,,rh,90,0
k,,rh,180,0
k,,rh,270,0
*get,km,kp,,num,max
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
csys,H4cs
!
k,,rh,0,0
k,,rh,90,0
k,,rh,180,0
k,,rh,270,0
*get,km,kp,,num,max
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
*do,i,0,15,1
lesize,lm-i,,,4,1,
*enddo
!
*do,phi,45,315,90
!
csys,rbcycs
!
lstr,kp(rd,phi,-dskbts),kp((rhc+rh),phi,-dskbts)
lstr,kp(rb,phi,-dskbts),kp((rhc-rh),phi,-dskbts)
!
*enddo
!
*get,lm,line,,num,max
!
lesize,lm-7,,,1,1,
lesize,lm-5,,,1,1,
lesize,lm-3,,,1,1,
lesize,lm-1,,,1,1,
!
lesize,lm-6,,,8,1,
lesize,lm-4,,,8,1,
lesize,lm-2,,,8,1,
lesize,lm,,,8,1,
!
!----------------------------- Create Disk Areas -------------------------
!
Hcs=H1cs
!
*do,phi,45,315,90
!
csys,rbcycs
!
p1=kp(rb,phi,-dskbts)
p2=kp((rhc-rh),phi,-dskbts)
p4=kp((rhc+rh),phi,-dskbts)
p5=kp(rd,phi,-dskbts)
!
p6=kp(rd,phi+90,-dskbts)
p7=kp((rhc+rh),phi+90,-dskbts)
p9=kp((rhc-rh),phi+90,-dskbts)
p10=kp(rb,phi+90,-dskbts)
!
csys,Hcs
p3=kp(rh,90,0)
!
*if,Hcs+1,le,H4cs,then
csys,Hcs+1
!
*else
csys,H1cs
!
*endif
!
p8=kp(rh,270,0)
!
a,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
!
Hcs=Hcs+1
!
*enddo
!
!-------------------------- Create Disk and Shafts -------------------------
!
*get,am,area,,num,max
!
aatt,,,1,0
mshkey,0
amesh,am-3,am,1
!
csys,rbcycs
!
asel,s,loc,z,-dskbts            ! 1st extrudes (disk & shafts)
asel,r,loc,x,0,rd,,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,2
!
*do,i,alow,ahigh,1
voffst,i,dskthk,,
*enddo
!
asel,s,loc,z,-(dskbts-dskthk)       ! 2nd extrudes (shafts)
asel,r,loc,x,0,rb,,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,2
!
*do,i,alow,ahigh,1
voffst,i,0.875-dskthk,,
*enddo
!
asel,s,loc,z,-(dskbts-0.875)        ! 3rd extrude (center shaft)
asel,r,loc,x,0,0.875/2,,
*get,am,area,,num,max
!
esize,,3
!
voffst,am,2.850-(0.875+pltthk+rbh),,
!
asel,s,loc,z,0              ! 4th extrude (lower bearing)
asel,r,loc,x,0,0.875/2,,
*get,am,area,,num,max
!
esize,,2
!
voffst,am,pltthk+(1.000-0.8307),,
!
asel,s,loc,z,pltthk+(1.000-0.8307)  ! 5th extrude (bearing separator)
asel,r,loc,x,0,0.875/2,,
*get,am,area,,num,max
!
esize,,1
!
voffst,am,0.8307-0.6693,,
!
d=pltthk+(1.000-0.8307)+(0.8307-0.6693)     ! 6th extrude (upper bearing)
!
asel,s,loc,z,d
asel,r,loc,x,0,0.875/2,,
*get,am,area,,num,max
!
esize,,2
!
voffst,am,0.6693,,
!
nummrg,all,.001,.001
numcmp,all
!
k,,1.150/2,45,d+0.6693
k,,1.150/2,135,d+0.6693
k,,1.150/2,225,d+0.6693
k,,1.150/2,315,d+0.6693
!
*get,km,kp,,num,max
!
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-3
!
*get,lm,line,,num,max
!
lesize,lm-3,,,6,1,
lesize,lm-2,,,6,1,
lesize,lm-1,,,6,1,
lesize,lm,,,6,1,
!
lstr,kp(1.150/2,45,d+0.6693),kp(0.875/2,45,d+0.6693)
lstr,kp(1.150/2,135,d+0.6693),kp(0.875/2,135,d+0.6693)
lstr,kp(1.150/2,225,d+0.6693),kp(0.875/2,225,d+0.6693)
lstr,kp(1.150/2,315,d+0.6693),kp(0.875/2,315,d+0.6693)
!
*get,lm,line,,num,max
!
lesize,lm-3,,,1,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
a,km-3,km-2,kp(0.875/2,135,d+0.6693),kp(0.875/2,45,d+0.6693)
a,km-2,km-1,kp(0.875/2,225,d+0.6693),kp(0.875/2,135,d+0.6693)
a,km-1,km,kp(0.875/2,315,d+0.6693),kp(0.875/2,225,d+0.6693)
a,km,km-3,kp(0.875/2,45,d+0.6693),kp(0.875/2,315,d+0.6693)
!
*get,am,area,,num,max
!
aatt,,,1,0
mshkey,1
amesh,am-3,am,1
!
asel,s,loc,z,d+0.6693
asel,r,loc,x,0,1.150/2,,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,,2
!
*do,i,alow,ahigh,1
voffst,i,3.575-2.850,,
*enddo
!
nummrg,all,.001,.001
numcmp,all
!
!---------------------------- Bearing Models ----------------------------
!
csys,rbcycs
!
k,,0,0,0            ! create axis of rotation points
k,,0,0,1.00
!
*get,km,kp,,num,max
!
ap1=km-1
ap2=km
!
k,,2.440/2,225,d+0.6693     ! upper bearing material
k,,1.150/2,225,d+0.6693
k,,0.875/2,225,d+0.6693
k,,0.875/2,225,d
k,,2.066/2,225,d
k,,2.440/2,225,d
!
*get,km,kp,,num,max
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
lstr,km,km-5
!
*get,lm,line,,num,max
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,1,1,
lesize,lm-3,,,2,1,
lesize,lm-2,,,2,1,
lesize,lm-1,,,1,1,
lesize,lm,,,2,1,
!
a,km-5,km-4,km-3,km-2,km-1,km
!
*get,am,area,,num,max
!
aatt,2,,1,0
mshkey,0
amesh,am
!
esize,,6
esys,rbcycs
vrotat,am,,,,,,ap1,ap2,360,4
!
k,,2.440/2,225,pltthk+(1.000-0.8307)    ! lower bearing material
k,,2.066/2,225,pltthk+(1.000-0.8307)
k,,0.875/2,225,pltthk+(1.000-0.8307)
k,,0.875/2,225,0
k,,2.440/2,225,0
k,,2.440/2,225,pltthk
!
*get,km,kp,,num,max
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
lstr,km,km-5
!
*get,lm,line,,num,max
!
lesize,lm-5,,,1,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,2,1,
lesize,lm-2,,,2,1,
lesize,lm-1,,,2,1,
lesize,lm,,,1,1,
!
a,km-5,km-4,km-3,km-2,km-1,km
!
*get,am,area,,num,max
!
aatt,2,,1,0
mshkey,0
amesh,am
!
esize,,6
esys,rbcycs
vrotat,am,,,,,,ap1,ap2,360,4
!
nummrg,all,.001,.001
numcmp,all
!
!--------------------------- Outer Hole Pins -------------------------
!
*do,i,H1cs,H4cs,1
!
csys,i
!
p1=kp(.625/2,270,0.375)
p2=kp(.625/2,180,0.375)
p3=kp(.625/2,90,0.375)
p4=kp(.625/2,0,0.375)
!
a,p1,p2,p3,p4
!
*get,am,area,,num,max
!
aatt,1,,1,0
mshkey,0
amesh,am
!
esize,,2
mat,1
type,2
voffst,am,0.375,,
!
asel,s,loc,z,0,,
asel,r,loc,x,0,0.625/2,,
!
*get,am,area,,num,max
!
esize,,8
voffst,am,2.550-0.375,,
!
*enddo
!
asel,all
aclear,all
!
nummrg,all,.001,.001
numcmp,all
!
eplot
!