! solenoid.inp

! Load the preprocess module
/prep7

gair=.25                                ! Airgap
gspace=.25                              ! Space around coil

! Coil dimensions
hc=2                                    ! Height of coil
tc=1                                    ! Thickness of coil

! Back iron dimensions
h1=3.5                                  ! Height to air gap
r1=.75                                  ! Radius of center dia
to=.5                                   ! Thickness of outer wall
hb=.75                                  ! Height of base
rb=r1+2*gspace+tc+to                    ! Outer radius of back iron

! Armature dimensions
ha=.75                                  ! Height of armature
ra=rb                                   ! Radius of armature

! Create rectangular areas
rectng,0,rb,0,hb                        ! Base of back iron
rectng,0,rb,hb,h1                       ! Rest of back iron
rectng,r1,r1+2*gspace+tc,0,h1+gair+ha   ! Space around coil
rectng,r1+gspace,r1+gspace+tc,hb+gspace,hb+gspace+hc    ! Coil
rectng,0,rb,0,h1+gair                   ! Entire back iron area 
rectng,0,rb,0,h1+gair+ha                ! Entire solenoid area

! Break overlapping areas into seperate areas
aovlap,all

! Turn on numbering of areas
/pnum,area,1