/COM,-------------------------------------------------------
/COM,     Edwin Gray Motor - ANSYS 10 parametric model.
/COM,-------------------------------------------------------
/COM,
FINISH
/CLEAR,NOSTA
csys,1
rotdiam = 200          ! [mm]
firot1 = 18            ! [degree]
firot2 = 5             ! [degree]
sfrot3 = 20.0          ! [mm]
firotg = 5             ! [degree]
fista1 = 15            ! [degree]
fista2 = 4             ! [degree]
sfsta3 = 20.0          ! [mm]
fistag = 4             ! [degree]
rotstagap = 2          ! [mm]
mutangel = 30          ! [degree]
!rot1angsca = 0.70      ! [-]
!sta1angsca = 0.65      ! [-]
unistep = 3            ! [mm]
ra1 = 30               ! [mm]
ra2 = 25               ! [mm]
ra3 = 30               ! [mm]
ra4 = 30               ! [mm]
sa1 = 30               ! [mm]
sa2 = 30               ! [mm]
sa3 = 25               ! [mm]
sa4 = 30               ! [mm]
rad1s = 1.2            ! [mm]
rad2s = 1.2            ! [mm]
rad3s = 1.2            ! [mm]
rad1r = 1.2            ! [mm]
rad2r = 1.2            ! [mm]
rad3r = 1.2            ! [mm]
dtwiq = 2.0            ! [mm]
exli1a = 2.0           ! [mm]
exli1b = 2.0           ! [mm]
exli2a = 2.0           ! [mm]
exli2b = 2.0           ! [mm]
firowd1 = 40           ! [degree]
firowd2 = 40           ! [degree]
firowd3 = 40           ! [degree]
firowd4 = 40           ! [degree]
fistwd1 = 40           ! [degree]
fistwd2 = 40           ! [degree]
fistwd3 = 40           ! [degree]
fistwd4 = 40           ! [degree]
firohlp1 = 40          ! [degree]
firohlp2 = 40          ! [degree]
fisthlp1 = 40          ! [degree]
fisthlp2 = 40          ! [degree]
/prep7
k,1,rotdiam/2,mutangel
k,2,rotdiam/2,mutangel-firot1
k,3,rotdiam/2,mutangel-firot1-firotg
k,4,rotdiam/2,mutangel-firot1-firotg-firot2
k,5,rotdiam/2+rotstagap,
k,6,rotdiam/2+rotstagap,fista1
k,7,rotdiam/2+rotstagap,fista1+fistag
k,8,rotdiam/2+rotstagap,fista1+fistag+fista2
l,1,2 $l,2,3 $l,3,4 $l,5,6 $l,6,7 $l,7,8
/pnum,kp,1       $/pnum,line,1
kgen,2,1,,,-ra1  $kgen,2,2,,,-ra2  $l,9,10   $l,1,9   $l,2,10
kgen,2,3,,,-ra3  $kgen,2,4,,,-ra4  $l,11,12  $l,3,11
kgen,2,5,,, sa4  $kgen,2,6,,, sa3  $l,13,14  $l,5,13  $l,6,14
kgen,2,7,,, sa2  $kgen,2,8,,, sa1  $l,15,16  $l,7,15
ldel,10,15,5  $kdel,12,16,4
cskp,12,,11,3,4 $k,,,sfrot3 $l,11,12
cskp,13,,15,7,8 $k,,,sfsta3 $l,15,16
ldel,8,9  $ldel,13,14 $csys,1
kgen,2,1,2,,-dtwiq  $kgen,2,5,6,,dtwiq
l,1,17  $l,2,18  $ l,5,19  $l,6,20
kgen,2,4,,,-dtwiq  $kgen,2,8,,,dtwiq  $l,4,21  $l,8,22
lext,7,9,exli1a  $lext,7,10,exli1b
lext,12,13,exli2a  $lext,12,14,exli2b
cskp,14,,1,17,10 $*afun,deg
tg1 = tan(firowd1) $tg2 = tan(firowd2)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,17,9,,,,,-tg1,-ctg1,,tg2,-ctg2
cskp,14,,2,18,10
tg1 = tan(firowd3) $tg2 = tan(firowd4)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,18,10,,,,,-tg1,ctg1,,tg2,ctg2
cskp,14,,19,13,10
tg1 = tan(fistwd1) $tg2 = tan(fistwd2)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,19,13,,,,,-tg1,-ctg1,,tg2,-ctg2
cskp,14,,20,14,10
tg1 = tan(fistwd3) $tg2 = tan(fistwd4)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,20,14,,,,,-tg1,-ctg1,,tg2,-ctg2
cskp,14,,21,12,10
tg1 = tan(firohlp1) $tg2 = tan(firohlp2)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,21,12,,,,,-tg1,-ctg1,,tg2,-ctg2
cskp,14,,8,22,10
tg1 = tan(fisthlp1) $tg2 = tan(fisthlp2)
ctg1 = sqrt(1-tg1**2) $ctg2 = sqrt(1-tg2**2)
bsplin,22,16,,,,,-tg1,-ctg1,,tg2,-ctg2   $ldel,2,5,3
lfill,7,19,rad1r $lfill,7,20,rad2r $lfill,10,23,rad3r
lfill,12,21,rad1s  $lfill,12,22,rad2s  $lfill,15,24,rad3s
al,7,5,20,9,1,8,19,2  $al,10,11,3,17,23,25
al,21,26,12,27,22,14,4,13 $al,16,15,28,24,18,6
/pnum,kp $/pnum,line,0 $/col,1,blue $csys,1
agen,4,1,2,,,120 $agen,16,3,4,,,30 $aplot