/BATCH
/COM,ANSYS RELEASE  5.4    UP19970828         10:56:52    07/26/1999
/input,menust,tmp     ,,,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/dev,font,1,charter,bold,r,26,,,,,
/title,AAAV Modal Analysis / Aluminum
/units,bin
/prep7
!
!**************************** TABLE OF CONTENTS ***********************
!   
!       1.  Material Properties/Element Types
!       2.      VARIABLE/CONSTANTS LIST
!       3.      Create Global Coordinate System
!   
!       Top Surface Layout
!   
!       4.      First (Mid) Rib Layout
!       5.      2nd Rib Layout
!       6.      3rd Rib Layout
!       7.      4th Rib Layout
!       8.      5th Rib Layout
!       9.  6th Rib Layout
!       10. 7th Rib Layout
!   
!       Begin Center Boss Construction
!   
!       11. Mid (First) Rib, AREA 1
!       12. Mid (First) Rib, AREA 2
!       13. 2nd Rib, AREA 3
!       14. 2nd Rib, AREA 4
!       15. 3rd Rib, AREA 5
!       16. 3rd Rib, AREA 6
!       17. 4th Rib, AREA 7
!       18. 5th Rib, AREA 10
!       19. 6th Rib, AREA 11
!       20. 6th Rib, AREA 12
!       21. 7th Rib, AREA 13
!       22. 7th Rib, AREA 14
!       23. 4th Rib, AREA 8
!       24. 5th Rib, AREA 9
!   
!       Center Boss Volume Lines
!   
!       25. Areas 2 & 3
!       26. Areas 4 & 5
!       27. Areas 6 & 7
!       28. Areas 10 & 11
!       29. Areas 12 & 13
!       30. Areas 14 & 1
!       31. Areas 8 & 9
!   
!       Fill In Rib Gaps
!   
!       32. Rib 1
!       33. Rib 2
!       34. Rib 3
!       35. Rib 6
!       36. Rib 7
!       37. Rib 4
!       38. Rib 5
!           
!****************** Material Properties/Element Types **************
!
ET,1,SOLID95
ET,2,SHELL93
!
!------------------------------- AlBe -----------------------------
!
UIMP,1,EX, , ,27.0E6,
UIMP,1,DENS, , ,.076/386.4,
UIMP,1,NUXY, , ,0.17,
!
!-------------------------------- Al ------------------------------
!
UIMP,2,EX, , ,10.4E6,
UIMP,2,DENS, , ,.097/386.4,
UIMP,2,NUXY, , ,0.33,
!
!************************ VARIABLE/CONSTANTS LIST ******************
!
pi=3.1415927
rconv=pi/180        ! radian conversion factor from degrees
!
w1=2.000        ! Rib width (rib 1)
w2=1.00         ! Rib width (ribs 2 thru 7)
wf=2.1298/2     ! front VEXT surface width (rib 1 only)
wb=4.2612/2     ! back VEXT surface width (rib 1 only)
hb=.8468        ! back VEXT surface heigth (rib 1 only)
!
hf=.4125        ! front VEXT surface heigth (rib 1 only)
f2b=.4064       ! distance from front to back of rib areas (rib 1 only)
r1=.25          ! Rib fillet radius
ribh=.636       ! Rib height
extd=1.1736     ! extrusion distance for VEXT command
!
r2=.125         ! Front rib fillet radius
fribh=ribh-r1       ! Height of front surface ribs
topthk=.50      ! Top surface thickness
ftopthk=.65     ! Front top surface thickness
cbr=1.750       ! Center Boss Radius
!
bthk=.050       ! Boss thickness
cbore1=.25      ! Center counterbore depth 1
cbore2=.852     ! Center counterbore depth 2
rcb1=2.0005     ! Radius of counterbore 1
rcb2=1.5595     ! Radius of counterbore 2
!
rbore=1.1565        ! Center bore hole radius
rbout=2.250     ! Center boss outer radius
waldistl=6.065      ! left wall inner surface distance from global c.s. center
!
netop=2         ! # elements through top surface thickness
netopw=4        ! # elements across top surface of rib 1 (1/2 rib)
neribw=5        ! # elements across rib 1 (1/2 rib)
!
neribh=netop+1      ! # elements through rib 1 height
neftop=4        ! # elements through front top surface thickness
nefill=3        ! # elements in fillet radius (must be even #)
neffill=nefill      ! # elements in front rib fillet
neL1=1          ! # elements in rib 1 length
!
neL1ext=5       ! # elements along rib 1 VEXT
neL2=7          ! # elements in rib 2 length (must be odd #)
neL3=11         ! # elements in rib 3 length
neL4=8          ! # elements in rib 4 length
neL5=7          ! # elements in rib 5 length
!
neL6=10         ! # elements in rib 6 length
neL7=9          ! # elements in rib 7 length
!
L1=.2384        ! Length of rib 1 (normal extrusion segment)
L2=3.2662-.0711-.0868   ! Length of rib 2
L3=3.8099       ! Length of rib 3
L4=2.926        ! Length of rib 4
L5=2.462        ! Length of rib 5
L6=3.647        ! Length of rib 6
L7=3.188        ! Length of rib 7
!
!   RIB 1 Point Coordinates
!
r1p1x=-2.1651       ! Point 1 x
r1p1y=-1.136        ! Point 1 y
r1p1z=1.00      ! Point 1 z
!
r1p2x=-2.1651       ! Point 2 x
r1p2y=-1.136        ! Point 2 y
r1p2z=-1.00     ! Point 2 z
!
r1p3x=-2.1651       ! Point 3 x
r1p3y=-.750     ! Point 3 y
r1p3z=1.00      ! Point 3 z
!
!   RIB 2 Point Coordinates
!
r2p1x=-1.7032       ! Point 1 x
r2p1y=-1.136        ! Point 1 y
r2p1z=-1.8386       ! Point 1 z
!
r2p2x=-.8488        ! Point 2 x
r2p2y=-1.136        ! Point 2 y
r2p2z=-2.3582       ! Point 2 z
!
r2p3x=-1.7032       ! Point 3 x
r2p3y=-.750     ! Point 3 y
r2p3z=-1.8386       ! Point 3 z
!
r2p4x=-.750     ! Point 4 x Intersection point with rib 3
r2p4y=-.500     ! Point 4 y
r2p4z=-2.6768       ! Point 4 z
!
!   RIB 7 Point Coordinates
!
r7p1x=-.8248        ! Point 1 x
r7p1y=-1.136        ! Point 1 y
r7p1z=2.3667        ! Point 1 z
!
r7p2x=-1.6845       ! Point 2 x
r7p2y=-1.136        ! Point 2 y
r7p2z=1.8558        ! Point 2 z
!
r7p3x=-.8248        ! Point 3 x
r7p3y=-.750     ! Point 3 y
r7p3z=2.3667        ! Point 3 z
!
r7p4x=-.750     ! Point 4 x
r7p4y=-.500     ! Point 4 y
r7p4z=2.7302        ! Point 4 z
!
!*********************** Create Global Coordinate System ***************
!
csys,0
k,,0,0,0
k,,0,0,-.5
k,,-.5,0,0
*get,km,kp,,num,max
csn=10
csn=csn+1
gcs=csn
cskp,gcs,1,km-2,km-1,km,,
!
!***************************** Top Surface Layout ********************** 
!
csys,0
k,,-3.8770,0,-4.8195
k,,-1.4052,0,-6.585
k,,3.1218,0,-6.585
k,,3.1218,0,6.115
k,,-1.4052,0,6.115
k,,-3.8770,0,4.3494
*get,km,kp,,num,max
l,km-5,km-4
l,km-4,km-3
l,km-3,km-2
l,km-2,km-1
l,km-1,km
l,km,km-5
!
!******************************* End Top Surface ***********************   
!
!**************************** First (Mid) Rib Layout ******************* 
!
csys,0
!
k,,r1p1x,r1p1y,r1p1z        ! 3 keypoints forming planar surface 
k,,r1p2x,r1p2y,r1p2z        ! to build rib cross-sections 
k,,r1p3x,r1p3y,r1p3z
!
*get,km,kp,,num,max     ! creation of c.s. for rib in planar
csn=csn+1           ! surface
rib1cs=csn
cskp,rib1cs,0,km-2,km-1,km,,
!
kbetw,km-2,km-1,km+1,ratio,0.5  ! center keypoint of rib cross-section
!
cskp,rib1cs,0,km+1,km-1,km  ! move planar surface c.s. to rib center
!
k,,0,ribh-r1,0
k,,w1/2,0,0
k,,w1/2,ribh-r1,0       ! remaining rib cross-section keypoints 
k,,w1/2+r1,ribh,0
k,,w1/2+r1,ribh+topthk,0
k,,0,ribh+topthk,0
!
*get,km,kp,,num,max     ! form straight lines of rib
!
l,km-6,km-4
l,km-4,km-3
l,km-2,km-1
l,km-1,km
l,km,km-5
l,km-5,km-6
l,km-5,km-3
!
k,,w1/2+r1,ribh-r1,0        ! cylindrical c.s. center point
!               ! for creating fillet line
csn=csn+1           ! creating cylindrical c.s.
cskp,csn,1,km+1,km-3,km-2,,
!
l,km-2,km-3         ! fillet line
! 
a,km-3,km-5,km,km-1,km-2    ! creating areas
a,km-6,km-5,km-3,km-4
!
*get,lm,line,,num,max       ! sizing elements on lines
!
lesize,lm,,,nefill,1,
lesize,lm-1,,,neribw,1,
lesize,lm-2,,,neribh,1,
lesize,lm-3,,,netop+1,1,
lesize,lm-4,,,netopw,1,
!
lesize,lm-5,,,netop,1,
lesize,lm-6,,,neribh,1,
lesize,lm-7,,,neribw,1,
!
*get,am,area,,num,max
!
aatt,,,2,0          ! set element attributes                
mshkey,0            ! select free meshing
amesh,am-1,am,1         ! mesh areas
!
!
ESIZE,0,neL1,           ! # element divisions along extrusion
!
type,1              ! set element type
mat,2               ! set material #
esys,0              ! set element c.s.
!
VOFFST,am,L1,,          ! extrude areas
VOFFST,am-1,L1,,
!
aclear,am-1,am,1        ! clear area meshes
!
csys,rib1cs         ! mirror volumes to create complete rib
!
/VIEW, 1 ,1,1,1
/ANG, 1
/auto,1
/rep
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
k,,0,-.0265,-f2b
k,,wf,-.0265,-f2b
k,,wf,ribh-r1,-f2b
k,,r1+wf,ribh,-f2b
k,,r1+wf,ribh+topthk,-f2b
k,,0,ribh+topthk,-f2b
k,,0,ribh-r1,-f2b
!
*get,km,kp,,num,max
!
l,km-6,km-5
l,km-5,km-4
l,km-3,km-2
l,km-2,km-1
l,km-1,km
!
l,km,km-6
l,km,km-4
!
k,,r1+wf,hf,-f2b
!
csn=csn+1
cskp,csn,1,km+1,km-4,km-3,,
!
l,km-4,km-3
!
*get,lm,line,,num,max
!
lesize,lm-7,,,neribw,1,
lesize,lm-6,,,neribh,1,
lesize,lm-5,,,netop,1,
lesize,lm-4,,,netopw,1,
lesize,lm-3,,,netop+1,1,
!
lesize,lm-2,,,neribh,1,
lesize,lm-1,,,neribw,1,
lesize,lm,,,nefill,1,
!
a,km,km-4,km-5,km-6
a,km,km-1,km-2,km-3,km-4
!
*get,am,area,,num,max
!
aatt,,,2,0              ! set element attributes                
mshkey,0                ! select free meshing
amesh,am-1,am,1             ! mesh areas
!
ESIZE,0,neL1ext,            ! # element divisions along extrusion
!
csn=csn+1
vextcs1=csn
cskp,vextcs1,0,km,km-4,km-6,,
!
vext,am-1,,,,,extd,wb/wf,hb/hf,
!
csn=csn+1
vextcs2=csn
cskp,vextcs2,0,km-1,km-2,km,,
!
vext,am,,,,,extd,wb/wf,,
!
csys,rib1cs
!
lstr,kp(w1/2+r1,ribh+topthk,-L1),kp(wf+r1,ribh+topthk,-f2b)
lstr,kp(w1/2+r1,ribh,-L1),kp(wf+r1,ribh,-f2b)
lstr,kp(w1/2,ribh-r1,-L1),kp(wf,ribh-r1,-f2b)
lstr,kp(w1/2,0,-L1),kp(wf,-.0265,-f2b)
lstr,kp(0,0,-L1),kp(0,-.0265,-f2b)
!
lstr,kp(0,ribh-r1,-L1),kp(0,ribh-r1,-f2b)
lstr,kp(0,ribh+topthk,-L1),kp(0,ribh+topthk,-f2b)
!
*get,lm,line,,num,max
lsel,s,line,,lm-6,lm,1,
lesize,all,,,1,1,
!
lsel,all
!
a,kp(w1/2+r1,ribh+topthk,-L1),kp(wf+r1,ribh+topthk,-f2b),kp(wf+r1,ribh,-f2b),kp(w1/2+r1,ribh,-L1)
a,kp(w1/2+r1,ribh,-L1),kp(wf+r1,ribh,-f2b),kp(wf,ribh-r1,-f2b),kp(w1/2,ribh-r1,-L1)
a,kp(w1/2,ribh-r1,-L1),kp(wf,ribh-r1,-f2b),kp(wf,-.0265,-f2b),kp(w1/2,0,-L1)
a,kp(w1/2,0,-L1),kp(wf,-.0265,-f2b),kp(0,-.0265,-f2b),kp(0,0,-L1)
a,kp(0,0,-L1),kp(0,-.0265,-f2b),kp(0,ribh-r1,-f2b),kp(0,ribh-r1,-L1)
!
a,kp(0,ribh-r1,-L1),kp(0,ribh-r1,-f2b),kp(0,ribh+topthk,-f2b),kp(0,ribh+topthk,-L1)
a,kp(0,ribh+topthk,-L1),kp(0,ribh+topthk,-f2b),kp(wf+r1,ribh+topthk,-f2b),kp(w1/2+r1,ribh+topthk,-L1)
!
asel,s,loc,z,-L1,-f2b,,
va,all
!
asel,all
!
mopt,pyra,on            ! set mesh option to transitional
mshape,1,3d         ! set element shape to 3d
shpp,warn
!
*get,vm,volu,,num,max
!
vatt,2,,1,0
mshkey,0
vmesh,vm,vm,
!
vsymm,x,all,,,,0,0
!
nummrg,all,.001,.001
numcmp,all
!
LPLOT
!
!*************************** End First (Mid) Rib Layout ***************
!
!******************************** 2nd Rib Layout **********************
!
csys,0
!
k,,r2p1x,r2p1y,r2p1z        ! 3 keypoints forming planar surface 
k,,r2p2x,r2p2y,r2p2z        ! to build rib cross-sections 
k,,r2p3x,r2p3y,r2p3z
!
x4=r2p4x
z4=r2p4z
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< MATH SECTION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
topw=w2+2*r1                ! top of rib width
!
m=(r2p2x-r2p1x)/(r2p2z-r2p1z)       ! slope in XZ plane
!
C=sqrt(1+(1/m**2))          ! defining a constant
!
DELx45=topw/C
x5=x4-DELx45
!
DELz45=(1/m)*(x4-x5)
z5=z4-DELz45
!
DELx46=r1/C
x6=x4-DELx46
z6=z4-(1/m)*DELx46
!
DELx57=r1/C
x7=x5+DELx57
z7=z5+(1/m)*DELx57
!
d1=sqrt(((z6-r2p2z)**2)+((x6-r2p2x)**2))
!
d1prime=sqrt(((z7-r2p1z)**2)+((x7-r2p1x)**2))
!
check1=d1/d1prime
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< END MATH SECTION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
*get,km,kp,,num,max     ! creation of c.s. for rib in planar
csn=csn+1           ! surface
rib2cs=csn
cskp,rib2cs,0,km-2,km-1,km,,
!
kbetw,km-2,km-1,km+1,ratio,0.5  ! center keypoint of rib cross-section
!
cskp,rib2cs,0,km+1,km-1,km  ! move planar surface c.s. to rib center
!
kdele,km+1          ! delete center keypoint
!
k,km+1,0,0,-d1          ! rib center point in cross-section plane
k,,0,ribh-r1,-d1        ! remaining rib cross-section keypoints
k,,w2/2,0,-d1
k,,w2/2,ribh-r1,-d1
k,,w2/2+r1,ribh,-d1
! 
k,,w2/2+r1,ribh+topthk,-d1
k,,0,ribh+topthk,-d1
!
*get,km,kp,,num,max     ! form straight lines of rib
!
l,km-6,km-4
l,km-4,km-3
l,km-2,km-1
l,km-1,km
l,km,km-5
! 
l,km-5,km-6
l,km-5,km-3
!
k,,w2/2+r1,ribh-r1,-d1      ! cylindrical c.s. center point
!               ! for creating fillet line
csn=csn+1           ! creating cylindrical c.s.
cskp,csn,1,km+1,km-3,km-2,,
!
l,km-2,km-3         ! fillet line
! 
a,km-3,km-5,km,km-1,km-2    ! creating areas
a,km-6,km-5,km-3,km-4
!
*get,lm,line,,num,max       ! sizing elements on lines
!
lesize,lm,,,nefill,1,
lesize,lm-1,,,neribw-1,1,
lesize,lm-2,,,netop,1,
lesize,lm-3,,,netop+1,1,
lesize,lm-4,,,netopw-1,1,
!
lesize,lm-5,,,netop,1,
lesize,lm-6,,,netop,1,
lesize,lm-7,,,neribw-1,1,
!
*get,am,area,,num,max
!
aatt,,,2,0          ! set element attributes                
mshkey,0            ! select free meshing
amesh,am-1,am,1         ! mesh areas
!
ESIZE,0,neL2,           ! # element divisions along extrusion
!
type,1              ! set element type
mat,2               ! set material #
esys,0              ! set element c.s.
!
VOFFST,am,L2-(d1-.0868),,   ! extrude areas into 1st volumes
VOFFST,am-1,L2-(d1-.0868),,
!
ESIZE,0,1,          ! # element divisions 2nd along extrusion
!
VOFFST,am,-(d1-.0868),,     ! extrude areas into 2nd volumes
VOFFST,am-1,-(d1-.0868),,
!
csys,rib2cs
!
asel,s,loc,z,-.0868,-.0868,,    ! select rear areas for extrusion
*get,a1,area,,num,max
*get,a2,area,,num,min
!
ESIZE,0,1,          ! # element divisions 3rd extrusion
!
VOFFST,a1,-.0868,,      ! extrude areas into 3rd volumes
VOFFST,a2,-.0868,,
!
asel,all
!
aclear,am-1,am,1        ! clear area meshes
!
csys,rib2cs         ! mirror volumes to create complete rib
!
vsel,s,loc,x,0,w2/2+r1,,    ! select volumes to be mirrored
vsel,r,loc,z,0,-(L2+.0868),,
!
vsymm,x,all,,,,0,0
!
vsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,0
!
k,,-3.3634,-2.2829,-4.5686  ! create keypoint for rib triangular area
*get,km,kp,,num,max
!
csys,rib2cs
!
l,kp(-w2/2,0,-.0868),km     ! lines forming rib
l,km,kp(-w2/2,0,-(L2+.0868))
!
*get,lm,line,,num,max
!
lesize,lm,,,neL2+1,1,       ! size element lines
lesize,lm-1,,,neL2+1,1,
!
a,km,kp(-w2/2,0,-(L2+.0868)),kp(-w2/2,0,-d1),kp(-w2/2,0,-.0868)
!                 area containing rib planform
!
lsel,s,loc,x,-w2/2,-w2/2,,
lsel,r,loc,z,-.0868,-(L2+.0868),,
lsel,r,loc,y,0,0,,
!
lccat,all           ! concatenate lines
!
*get,am,area,,num,max
!
aatt,,,2,0          ! set element attributes                
mshkey,1            ! select mapped meshing
amesh,am,am,            ! mesh areas
!
*get,lm,line,,num,max       ! delete concatenated lines
ldele,lm
lsel,all
!
ESIZE,0,2*(neribw-1),       ! # element divisions along extrusion
!
type,1              ! set element type
mat,2               ! set material #
esys,0              ! set element c.s.
!
VOFFST,am,w2,,          ! extrude areas into volume
!
aclear,am,am,           ! clear area meshes
!
nummrg,all,.001,.001
numcmp,all
!
vsel,s,volu,,13,16,1,
vsel,a,volu,,19,22,1,
vclear,all
!
vsel,all
! 
LPLOT
!
!**************************** End 2nd Rib Layout  ************************
!
!**************************** 3rd/4th Rib Layout *************************
!
csys,0
!
k,,.625,-.625,-4.7473       ! common points of ribs 3 & 4
k,,.500,-.625,-4.7473
k,,.625,-.500,-4.7473
k,,.7457,-.625,-4.7150
!
p1=kp(.625,-.625,-4.7473)   ! assigning keypoint numbers to parameters
p2=kp(.500,-.625,-4.7473)
p3=kp(.625,-.500,-4.7473)
p8=kp(.7457,-.625,-4.7150)
!
csn=csn+1           ! create spherical c.s. between ribs 3 & 4
spher34=csn
cskp,spher34,2,p1,p2,p3,,
!
csn=csn+1           ! create rib 3 c.s.
rib3cs=csn
cskp,rib3cs,0,p2,p1,p3,,
!
csn=csn+1           ! create rib 4 c.s.
rib4cs=csn
cskp,rib4cs,0,p1,p8,p3,,
!
csys,rib3cs         ! rib 3 keypoints
!
k,,0,-(ribh-r2),0
k,,-w2,-(ribh-r2),0
k,,-w2,-r2,0
k,,-(w2+r1),r2,0
k,,-(w2+r1),(r2+topthk),0
k,,r2,(r2+topthk),0
!
*get,p7,kp,,num,max     ! create rib 3 lines
!
k,,-(w2+r1),-r2,0       ! front fillet center keypoint
!
l,p2,p7-5
l,p7-5,p7-4
l,p7-4,p7-3
l,p7-1,p7-2
l,p7,p7-1
l,p7,p3
!
csys,spher34
!
l,p2,p3             ! fillet line for rib 3/common to rib 4
!
csn=csn+1           ! front fillet c.s.         
cskp,csn,1,p7+1,p7-3,p7-2,,
!
l,p7-3,p7-2         ! front fillet line
!
a,p3,p2,p7-5,p7-4,p7-3,p7-2,p7-1,p7
!
*get,rib3area,area,,num,max ! assign rib 3 area parameter
!
csys,rib4cs         ! rib 4 keypoints
!
k,,r2,-(ribh-r2),0
k,,(w2+r1+r2),-(ribh-r2),0
k,,(w2+r1+r2),(r2+topthk),0
!
*get,km,kp,,num,max     ! create rib 4 lines
!
l,p8,km-2
l,km-2,km-1
l,km-1,km
l,km,p7
!
csn=csn+1
cskp,csn,1,p1,p8,p3,,
!
l,p8,p3             ! fillet line for rib 4/common to rib 3
!
a,p3,p8,km-2,km-1,km,p7     ! creation of rib 6 area
!
*get,rib4area,area,,num,max ! assign rib 6 area parameter
!
csys,0              ! find extrude distance for rib 5 front
!
x1=-.500
z1=-2.4559
x2=1.3602
z2=-2.1786
!
x3=kx(p7-4)
z3=kz(p7-4)
x4=kx(km-1)
z4=kz(km-1)
!
dfext3=sqrt(((x3-x1)**2)+((z3-z1)**2))  ! calculation of front extrusion
dfext4=sqrt(((x4-x2)**2)+((z4-z2)**2))  ! distances
!
drext3=2.500*cos(20*rconv)
drext4=drext3
!
VOFFST,rib3area,drext3,,        ! extrude area into rear volume
VOFFST,rib3area,-(dfext3-.0868),,   ! extrude area into front volume
!
VOFFST,rib4area,-drext4,,       ! extrude area into rear volume
VOFFST,rib4area,(dfext4-.0868),,    ! extrude area into front volume
!
nummrg,all,.001,.001            ! merge all coincident entities
numcmp,all              ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<< create rib 3 triangular section >>>>>>>>>>>>>>>>>>>
!
csys,rib3cs
!
dext3=(dfext3-.0868)+drext3         ! total rib 3 length
!
k,,-1.00,-(.511+dext3*tan(20*rconv)),-drext3    ! section keypoint
!
*get,pt5,kp,,num,max
!
l,pt5,kp(-1.00,-.511,-drext3)           ! section lines
l,pt5,kp(-1.00,-.511,dfext3-.0868)
!
a,pt5,kp(-1.00,-.511,-drext3),p7-4,kp(-1.00,-.511,dfext3-.0868)
!
*get,am,area,,num,max
!
VOFFST,am,1.00,,            ! extrude area into rear volume
!
!<<<<<<<<<<<<<<<<<<<<<<< create rib 4 triangular section >>>>>>>>>>>>>>>>>>>
!
csys,rib4cs
!
dext4=(dfext4-.0868)+drext4         ! total rib 6 length
!
k,,.125,-(.511+dext4*tan(20*rconv)),-drext4     ! section keypoint
!
*get,pt6,kp,,num,max
!
l,pt6,kp(.125,-.511,-drext4)            ! section lines
l,pt6,kp(.125,-.511,dfext4-.0868)
!
a,pt6,kp(.125,-.511,-drext4),km-2,kp(.125,-.511,dfext4-.0868)
!
*get,am,area,,num,max
!
VOFFST,am,1.25,,            ! extrude area into rear volume
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END TRIANGULAR SECTIONS >>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< ADD INTERSECTING VOLUMES >>>>>>>>>>>>>>>>>>>>>>>>>
!
*get,vm,volu,,num,max
!
vadd,vm-2,vm-4
!
btol,.001
vadd,vm,vm-1,30
btol,defa
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,rib3cs         ! partition rib triangular sections
!
k,,0,-3.00,0            ! keypoints of dividing area
k,,-1.00,-3.00,0
!
*get,km,kp,,num,max
!
a,km,km-1,kp(0,-.511,0),kp(-1.00,-.511,0)   ! create dividing area
!
vsba,25,160,,delete,delete  ! divide volumes
!
numcmp,all
!
csys,rib4cs         ! partition rib triangular section 6
!
k,,.125,-3.00,0         ! keypoints of dividing area
k,,1.375,-3.00,0
!
*get,km,kp,,num,max
!
a,km,km-1,kp(.125,-.511,0),kp(1.375,-.511,0)    ! create dividing area
!
vsba,27,164,,delete,delete      ! partition volume
!
lfillt,260,262,.125,            ! create line fillet
!
nummrg,all,.001,.001            ! merge entities
numcmp,all              ! renumber & compress all entities
!
a,146,104,106               ! create filleted area
!
VOFFST,168,.511,,           ! extrude area into lower volumes
VOFFST,169,3.00,,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csn=csn+1           ! create partitioning c.s.
cskp,csn,1,126,149,150,,
!
k,,3.0,330,0            ! partition area keypoints
k,,3.0,90,0
k,,3.0,210,0
!
*get,km,kp,,num,max
!
lstr,km-2,km-1          ! partition area lines
lstr,km-1,km
lstr,km,km-2
!
a,km-2,km-1,km          ! partition area lines
!
*get,am,area,,num,max
*get,vm,volu,,num,max
!
vsba,vm,am,,delete,delete   ! partition volume
!
vdele,32,,,1            ! delete unused volume
!
nummrg,all,.001,.001
numcmp,all
!
vsel,s,volu,,28,        ! select volume for modification
aslv,s
cm,aset2,area
vdele,28
vsel,all
asel,all
adele,151,153,1,
!
asbl,166,285,,delete,keep   ! partition area
!
nummrg,all,.001,.001
!
csys,spher34            ! spherical c.s.
!
a,104,105,106           ! create spherical areas
!
vdele,29,30,1,          ! delete unused volumes
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
adele,148,150,1,1       ! delete unnecessary areas
adele,152,,,1
adele,133,,,1
adele,159,,,1
adele,168,,,1
!
adele,167,,,1
!
a,111,112,116,139,148,130   ! replace top areas
!
asel,s,area,,aset2,     ! select areas for volume recreation 
asel,a,area,,133
asel,a,area,,151
asel,a,area,,153
asel,a,area,,170
!
asel,a,area,,169
asel,a,area,,171
!
va,all              ! recreate volumes
!
ldele,249           ! delete unnecessary lines
ldele,235
ldele,251
ldele,263
ldele,264
!
vsel,all
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!************************** End 3rd/4th Rib Layout ***********************
!
!**************************** 5th/6th Rib Layout *************************
!
csys,0
!
k,,.625,-.625,4.7473        ! common points of ribs 5 & 6
k,,.7457,-.625,4.7150
k,,.625,-.500,4.7473
k,,.500,-.625,4.7473
!
p1=kp(.625,-.625,4.7473)    ! assigning keypoint numbers to parameters
p2=kp(.7457,-.625,4.7150)
p3=kp(.625,-.500,4.7473)
p8=kp(.500,-.625,4.7473)
!
csn=csn+1           ! create spherical c.s. between ribs 5 & 6
spher56=csn
cskp,spher56,2,p1,p2,p3,,
!
csn=csn+1           ! create rib 5 c.s.
rib5cs=csn
cskp,rib5cs,0,p2,p1,p3,,
!
csn=csn+1           ! create rib 6 c.s.
rib6cs=csn
cskp,rib6cs,0,p1,p8,p3,,
!
csys,rib5cs         ! rib 5 keypoints
!
k,,0,-(ribh-r2),0
k,,-(w2+r1),-(ribh-r2),0
k,,-(w2+r1),(r2+topthk),0
k,,r2,(r2+topthk),0
!
*get,p7,kp,,num,max     ! create rib 5 lines
!
l,p2,p7-3
l,p7-3,p7-2
l,p7-2,p7-1
l,p7-1,p7
l,p7,p3
!
csys,spher56
!
l,p2,p3             ! fillet line for rib 5/common to rib 6
!
a,p3,p2,p7-3,p7-2,p7-1,p7
!
*get,rib5area,area,,num,max ! assign rib 5 area parameter
!
csys,rib6cs         ! rib 6 keypoints
!
k,,r2,-(ribh-r2),0
k,,w2+r2,-(ribh-r2),0
k,,w2+r2,-r2,0
k,,w2+r2+r1,r2,0
k,,w2+r2+r1,(r2+topthk),0
!
k,,w2+r2+r1,-r2,0
!
*get,km,kp,,num,max     ! create rib 6 lines
!
l,p8,km-5
l,km-5,km-4
l,km-4,km-3
l,km-2,km-1
l,km-1,p7
!
csys,spher56
!
l,p8,p3             ! fillet line for rib 6/common to rib 5
!
csn=csn+1
cskp,csn,1,km,km-3,km-2,,   ! fillet c.s. for rib 6
!
l,km-3,km-2         ! fillet line
!
a,p3,p7,km-1,km-2,km-3,km-4,km-5,p8 ! creation of rib 6 area
!
*get,rib6area,area,,num,max     ! assign rib 6 area parameter
!
csys,0              ! find extrude distance for rib 5 front
!
x1=1.3643
z1=2.1938
x2=-.500
z2=2.4559
!
x3=kx(p7-2)
z3=kz(p7-2)
x4=kx(km-4)
z4=kz(km-4)
!
dfext5=sqrt(((x3-x1)**2)+((z3-z1)**2))  ! calculation of front extrusion
dfext6=sqrt(((x4-x2)**2)+((z4-z2)**2))  ! distances
!
drext5=2.000*cos(20*rconv)
drext6=drext5
!
VOFFST,rib6area,drext5,,        ! extrude area into rear volume
VOFFST,rib6area,-(dfext6-.0868),,   ! extrude area into front volume
!
VOFFST,rib5area,drext6,,        ! extrude area into rear volume
VOFFST,rib5area,-(dfext5-.0868),,   ! extrude area into front volume
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<< create rib 5 triangular section >>>>>>>>>>>>>>>>>>>
!
csys,rib5cs
!
dext5=(dfext5-.0868)+drext5 ! total rib 5 length
!
k,,-1.25,-(.511+dext5*tan(20*rconv)),-drext5  ! section keypoint
!
*get,pt5,kp,,num,max
!
l,pt5,kp(-1.25,-.511,-drext5)       ! section lines
l,pt5,kp(-1.25,-.511,dfext5-.0868)
!
a,pt5,kp(-1.25,-.511,-drext5),p7-2,kp(-1.25,-.511,dfext5-.0868)
!
*get,am,area,,num,max
!
VOFFST,am,1.25,,        ! extrude area into rear volume
!
!<<<<<<<<<<<<<<<<<<<<<<< create rib 6 triangular section >>>>>>>>>>>>>>>>>>>
!
csys,rib6cs
!
dext6=(dfext6-.0868)+drext6     ! total rib 6 length
!
k,,1.125,-(.511+dext6*tan(20*rconv)),-drext6  ! section keypoint
!
*get,pt6,kp,,num,max
!
l,pt6,kp(1.125,-.511,-drext6)       ! section lines
l,pt6,kp(1.125,-.511,dfext6-.0868)
!
a,pt6,kp(1.125,-.511,-drext6),km-4,kp(1.125,-.511,dfext6-.0868)
!
*get,am,area,,num,max
!
VOFFST,am,-1.00,,       ! extrude area into rear volume
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<< END TRIANGULAR SECTIONS >>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< ADD INTERSECTING VOLUMES >>>>>>>>>>>>>>>>>>>>>>>>>
!
*get,vm,volu,,num,max
!
vadd,vm-2,vm-4
!
btol,.001
vadd,vm,vm-1,35
btol,defa
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,rib5cs         ! partition rib triangular section 5
!
k,,0,-3.00,0            ! keypoints of dividing area
k,,-1.25,-3.00,0
!
*get,km,kp,,num,max
!
a,km,km-1,kp(0,-.511,0),kp(-1.25,-.511,0)   ! create dividing area
!
vsba,30,204,,delete,delete  ! divide volumes
!
numcmp,all
!
csys,rib6cs         ! partition rib triangular section 6
!
k,,.100,-3.00,0         ! keypoints of dividing area
k,,1.2,-3.00,0
!
*get,km,kp,,num,max
!
a,km,km-1,kp(.125,-.511,0),kp(1.125,-.511,0)    ! create dividing area
!
vsba,32,208,,delete,delete
!
lfillt,343,345,.125,            ! create line fillet
nummrg,all,.001,.001            ! merge entities
a,196,153,155               ! create filleted area
!
VOFFST,182,.511,,           ! extrude area into lower volumes
VOFFST,191,3.00,,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csn=csn+1
cskp,csn,1,187,198,199,,
!
k,,3.0,330,0
k,,3.0,90,0
k,,3.0,210,0
!
*get,km,kp,,num,max
!
lstr,km-2,km-1
lstr,km-1,km
lstr,km,km-2
a,km-2,km-1,km
!
*get,am,area,,num,max
*get,vm,volu,,num,max
!
vsba,vm,am,,delete,delete
!
vdele,37,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
vsel,s,volu,,34,
aslv,s
cm,aset2,area
vdele,34
vsel,all
asel,all
adele,197,199,1,1
!
asbl,213,367,,delete,keep
!
nummrg,all,.001,.001
!
csys,spher56
!
a,153,154,155
!
vdele,32
vdele,35
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
adele,195,197,,1        ! delete unnecessary areas
adele,177,178,,1
adele,182,,,1
adele,191,,,1
adele,205,,,1
!
lstr,159,195
!
a,158,159,195,189
a,195,159,164,175
!
asel,s,area,,aset2,
asel,a,area,,177,178,1,
asel,a,area,,198,199,1,
asel,a,area,,207,
asel,a,area,,214,215,1,
!
va,all
!
vsel,all
asel,all
!
LPLOT
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!******************************** 7th Rib Layout **********************
!
csys,0
!
k,,r7p1x,r7p1y,r7p1z        ! 3 keypoints forming planar surface 
k,,r7p2x,r7p2y,r7p2z        ! to build rib cross-sections 
k,,r7p3x,r7p3y,r7p3z
!
x4=abs(r7p4x)
z4=abs(r7p4z)
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< MATH SECTION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
topw=w2+2*r1                ! top of rib width
!
x1=abs(r7p1x)
z1=abs(r7p1z)
!
x2=abs(r7p2x)
z2=abs(r7p2z)
!
m=(z2-z1)/(x2-x1)           ! slope in XZ plane
!
C=sqrt(1+(m**2))            ! defining a constant
!
DELx54=topw/C
x5=x4+DELx54    !<<<<<<<<<<<<<<<<<<<<<<<< 1st coordinate
!
DELz54=m*DELx54
z5=z4+DELz54    !<<<<<<<<<<<<<<<<<<<<<<<< 2nd coordinate
!
DELx56=r1/C
x6=x5-DELx56    !<<<<<<<<<<<<<<<<<<<<<<<< 3rd coordinate
z6=z5-m*DELx56  !<<<<<<<<<<<<<<<<<<<<<<<< 4th coordinate
!
DELx74=r1/C
x7=x4+DELx74    !<<<<<<<<<<<<<<<<<<<<<<<< 5th coordinate
z7=z4+m*DELx74  !<<<<<<<<<<<<<<<<<<<<<<<< 6th coordinate
!
d2=sqrt(((z7-z1)**2)+((x7-x1)**2))
!
d2prime=sqrt(((z6-z2)**2)+((x6-x2)**2))
!
check2=d2/d2prime
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< END MATH SECTION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
*get,km,kp,,num,max     ! creation of c.s. for rib in planar
csn=csn+1           ! surface
rib7cs=csn
cskp,rib7cs,0,km-2,km-1,km,,
!
kbetw,km-2,km-1,km+1,ratio,0.5  ! center keypoint of rib cross-section
!
cskp,rib7cs,0,km+1,km-1,km  ! move planar surface c.s. to rib center
!
kdele,km+1          ! delete center keypoint
!
k,km+1,0,0,-d2          ! rib center point in cross-section plane
k,,0,ribh-r1,-d2        ! remaining rib cross-section keypoints
k,,w2/2,0,-d2
k,,w2/2,ribh-r1,-d2
k,,w2/2+r1,ribh,-d2
! 
k,,w2/2+r1,ribh+topthk,-d2
k,,0,ribh+topthk,-d2
!
*get,km,kp,,num,max     ! form straight lines of rib
!
l,km-6,km-4
l,km-4,km-3
l,km-2,km-1
l,km-1,km
l,km,km-5
! 
l,km-5,km-6
l,km-5,km-3
!
k,,w2/2+r1,ribh-r1,-d2      ! cylindrical c.s. center point
!               ! for creating fillet line
csn=csn+1           ! creating cylindrical c.s.
cskp,csn,1,km+1,km-3,km-2,,
!
l,km-2,km-3         ! fillet line
! 
a,km-3,km-5,km,km-1,km-2    ! creating areas
a,km-6,km-5,km-3,km-4
!
*get,lm,line,,num,max       ! sizing elements on lines
!
lesize,lm,,,nefill,1,
lesize,lm-1,,,neribw-1,1,
lesize,lm-2,,,netop,1,
lesize,lm-3,,,netop+1,1,
lesize,lm-4,,,netopw-1,1,
!
lesize,lm-5,,,netop,1,
lesize,lm-6,,,netop,1,
lesize,lm-7,,,neribw-1,1,
!
*get,am,area,,num,max
!
aatt,,,2,0          ! set element attributes                
mshkey,0            ! select free meshing
amesh,am-1,am,1         ! mesh areas
!
ESIZE,0,neL2,           ! # element divisions along extrusion
!
type,1              ! set element type
mat,2               ! set material #
esys,0              ! set element c.s.
!
dfext7=d2-.0868         ! calculation of front extrusion
!
VOFFST,am,L2-dfext7,,       ! extrude area into rear volume
VOFFST,am-1,L2-dfext7,,
!
ESIZE,0,1,          ! # element divisions 2nd along extrusion
!
VOFFST,am,-dfext7,,     ! extrude area into front volume
VOFFST,am-1,-dfext7,,
!
csys,rib7cs
!
asel,s,loc,z,-.0868,-.0868,,    ! select rear areas for extrusion
*get,a1,area,,num,max
*get,a2,area,,num,min
!
ESIZE,0,1,          ! # element divisions 3rd extrusion
!
VOFFST,a1,-.0868,,      ! extrude areas into 3rd volumes
VOFFST,a2,-.0868,,
!
asel,all
!
aclear,am-1,am,1        ! clear area meshes
!
csys,rib7cs         ! mirror volumes to create complete rib
!
vsel,s,loc,x,0,w2/2+r1,,    ! select volumes to be mirrored
vsel,r,loc,z,0,-(L2+.0868),,
!
vsymm,x,all,,,,0,0
!
vsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!<<<<<<<<<<<<<<<<<<<<<<< create rib 7 triangular section >>>>>>>>>>>>>>>>>>>
!
csys,rib7cs
!
k,,-w2/2,-L2*tan(20*rconv),-(L2+.0868)          ! section keypoint
!
*get,pt5,kp,,num,max
!
l,pt5,kp(-w2/2,0,-(L2-dfext7))          ! section lines
l,pt5,kp(-w2/2,0,dfext7)
!
*get,lm,line,,num,max
!
lesize,lm,,,neL2+1,1,               ! size element lines
lesize,lm-1,,,neL2+1,1,
!
a,pt5,kp(-w2/2,0,-L2),kp(-w2/2,0,-dfext7),kp(-w2/2,0,-.0868)
!
lsel,s,loc,x,-w2/2,-w2/2,,
lsel,r,loc,z,-.0868,-(L2+.0868),,
lsel,r,loc,y,0,0,,
!
lccat,all           ! concatenate lines
!
*get,am,area,,num,max
!
aatt,,,2,0          ! set element attributes                
mshkey,1            ! select mapped meshing
amesh,am,am,            ! mesh areas
!
*get,lm,line,,num,max       ! delete concatenated lines
ldele,lm
lsel,all
!
ESIZE,0,2*(neribw-1),       ! # element divisions along extrusion
!
type,1              ! set element type
mat,2               ! set material #
esys,0              ! set element c.s.
!
VOFFST,am,w2,,          ! extrude areas into volume
!
aclear,am,am,           ! clear area meshes
!
!****************************** End 7th Rib Layout  **************************
!
!
!******************* Prepare Ribs for Center Boss Construction ***************
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Ribs 2,3 & 4 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
vdele,13,16,1,1         ! delete unused volumes
vdele,19,22,1,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
L=distkp(119,125)
w=distkp(61,110)        ! set area parameters for partitioning
dw1=distkp(126,110)
dw2=distkp(126,119)
!
csn=csn+1
cs1=csn             ! 1st c.s. for keypoints of area
cskp,cs1,0,61,110,60,,
!
k,,0,-1.0,dw1+0.5*dw1
k,,0,-1.0,-0.1
!
*get,km,kp,,num,max     ! create 1st line section
l,km-1,km
!
csn=csn+1
cs2=csn             ! 2nd c.s. for keypoints of area
cskp,cs2,0,119,96,126,,
!
k,,w,dw2+0.5*dw2,1.00
k,,w,-0.1,1.00
!
*get,km,kp,,num,max     ! create 2nd line section
l,km-1,km
!
*get,lm,line,,num,max
!
l,km,km-2
lsbl,lm-1,lm,,delete,delete ! create line intersection
!
l,km+1,km           ! recreate line
ldele,lm+1,,,1          ! delete unused lines
ldele,412,,,1
!
numcmp,all          ! renumber & compress all entities
!           
a,107,125,95,94,87,88       ! create partition area
!
*get,am,area,,num,max
vsba,20,238,,delete,delete  ! partition volume
!
numcmp,all          ! renumber & compress all entities
!
csys,cs2            ! remaining keypoints for partitioning volume
k,,-1.0,0,1.0
csys,cs1
k,,1.0,-1.0,0
!
*get,km,kp,,num,max
a,km,km-1,km-3,km-2,km-4    ! create area
!
*get,am,area,,num,max       ! extrude area into partitioning volume
VOFFST,am,-(L+1.1),,
!
vsbv,39,40          ! subtract volume
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Ribs 5,6 & 7 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
ldele,390,,,1
vclear,27,30,1
vclear,33,36,1
!
vdele,27,30,1,1         ! delete unused volumes
vdele,33,36,1,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
L=distkp(163,162)       ! set area parameters for partitioning
w=distkp(194,150)
dw1=distkp(150,168)
dw2=distkp(163,168)
!
csn=csn+1
cs1=csn             ! 1st c.s. for keypoints of area
cskp,cs1,0,194,150,195,,
!
k,,0,-1.0,-(dw1+0.5*dw1)
k,,0,-1.0,0.1
!
*get,km,kp,,num,max     ! create 1st line section
l,km-1,km
!
csn=csn+1
cs2=csn             ! 2nd c.s. for keypoints of area
cskp,cs2,0,163,133,168,,
!
k,,w,dw2+0.5*dw2,-1.00
k,,w,-0.1,-1.00
!
*get,km,kp,,num,max     ! create 2nd line section
l,km-1,km
!
*get,lm,line,,num,max
!
l,km,km-2
lsbl,lm-1,lm,,delete,delete ! create line intersection
!
l,km+1,km           ! recreate line
ldele,lm+1,,,1          ! delete unused lines
ldele,366,,,1
!
numcmp,all          ! renumber & compress all entities
!
a,153,162,132,131,135,136   ! create partition area
!
*get,am,area,,num,max
vsba,24,am,,delete,delete   ! partition volume
!
numcmp,all          ! renumber & compress all entities
!
csys,cs2            ! remaining keypoints for partitioning volume
k,,-1.0,0,-1.0
csys,cs1
k,,1.0,-1.0,0
!
*get,km,kp,,num,max
a,km,km-1,km-3,km-2,km-4    ! create area
!
*get,am,area,,num,max       ! extrude area into partitioning volume
VOFFST,am,(L+1.1),,
!
vsbv,32,33          ! subtract volume
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fillet / Ribs 2 & 3 >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,gcs
!
k,,kx(60),ky(60),kz(60)-.25
!
*get,filcp,kp,,num,max
!
csn=csn+1
filcs1=csn
cskp,filcs1,1,filcp,59,60
!
csn=csn+1
filcs2=csn
cskp,filcs2,1,filcp,197,60
!
csys,filcs1
!
k,,r1,0,0
k,,r1,90,0
!
*get,km,kp,,num,max
!
l,km,km-1
*get,fillin1,line,,num,max
!
csys,filcs2
!
k,,r1,0,0
!
l,km,km+1
*get,fillin2,line,,num,max
!
csys,filcs1
!
k,,r1,0,-2.00
l,km+2,km-1
!
csys,filcs2
!
k,,r1,0,2.00
l,km+3,km+1
!
*get,lm,line,,num,max
!
adrag,fillin1,,,,,,lm-1,        ! line drag into areas
adrag,fillin2,,,,,,lm,
!
aptn,206,207
!
adele,210,211,1,1
ldele,369,370,,1
!
angfil=anglek(219,km-1,km+1)/2      ! angle of fillet (/2)
d=(r1-.1465)/tan(angfil)        ! distance of cutting plane from fillet
!
numcmp,all              ! renumber entities
!
csys,filcs1
!
k,,1.0,0,-d
k,,1.0,90,-d
k,,1.0,180,-d
k,,1.0,270,-d
!
*get,km,kp,,num,max
!
csys,0
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
asba,am-2,am,,delete,delete
!
numcmp,all              ! renumber entities
!
csys,filcs2
!
k,,1.0,0,d
k,,1.0,90,d
k,,1.0,180,d
k,,1.0,270,d
!
*get,km,kp,,num,max
!
csys,0
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
asba,am-3,am,,delete,delete
!
adele,207,210,3,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,0
!
k,,kx(210),ky(209),kz(210)  ! create center keypoint for rotation
*get,filcp,kp,,num,max
!
rotang=(anglek(filcp,209,211))/rconv    ! rotation angle
arotat,367,,,,,,filcp,210,rotang,2  ! rotate line into area
!
LPLOT
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fillet / Ribs 6 & 7 >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,gcs
!
k,,kx(190),ky(190),kz(190)-.25
!
*get,filcp,kp,,num,max
!
csn=csn+1
filcs1=csn
cskp,filcs1,1,filcp,205,190
!
csn=csn+1
filcs2=csn
cskp,filcs2,1,filcp,185,190
!
csys,filcs1
!
k,,r1,0,0
k,,r1,90,0
!
*get,km,kp,,num,max
!
l,km,km-1
*get,fillin1,line,,num,max
!
csys,filcs2
!
k,,r1,0,0
!
l,km,km+1
*get,fillin2,line,,num,max
!
csys,filcs1
!
k,,r1,0,-2.00
l,km+2,km-1
!
csys,filcs2
!
k,,r1,0,2.00
l,km+3,km+1
!
*get,lm,line,,num,max
!
adrag,fillin1,,,,,,lm-1,        ! line drag into areas
adrag,fillin2,,,,,,lm,
!
aptn,210,211
!
adele,214,215,1,1
ldele,378,379,,1
!
angfil=anglek(225,km-1,km+1)/2      ! angle of fillet (/2)
d=(r1-.1306)/tan(angfil)        ! distance of cutting plane from fillet
!
numcmp,all              ! renumber entities
!
csys,filcs1
!
k,,1.0,0,-d
k,,1.0,90,-d
k,,1.0,180,-d
k,,1.0,270,-d
!
*get,km,kp,,num,max
!
csys,0
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
asba,am-2,am,,delete,delete
!
numcmp,all              ! renumber entities
!
csys,filcs2
!
k,,1.0,0,d
k,,1.0,90,d
k,,1.0,180,d
k,,1.0,270,d
!
*get,km,kp,,num,max
!
csys,0
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
asba,am-3,am,,delete,delete
!
adele,211,214,3,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,0
!
k,,kx(216),ky(215),kz(216)  ! create center keypoint for rotation
*get,filcp,kp,,num,max
!
rotang=(anglek(filcp,215,217))/rconv    ! rotation angle
arotat,375,,,,,,filcp,216,rotang,2  ! rotate line into area
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fillet Areas / 2 & 3 >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,0
!
k,,kx(209),ky(71),kz(209)
!
*get,km,kp,,num,max
!
a,58,71,km,209,59
!
k,,kx(211),ky(107),kz(211)
!
a,196,107,km+1,211,197
!
adrag,373,,,,,,384,
adrag,374,,,,,,387,
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< Fillet Areas / 6 & 7 >>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,0
!
k,,kx(215),ky(150),kz(215)
!
*get,km,kp,,num,max
!
a,204,150,km,215,205
!
k,,kx(217),ky(193),kz(217)
!
a,186,193,km+1,217
a,186,217,185
!
adrag,381,,,,,,396,
adrag,382,,,,,,398,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!
!****************************** Front Rib Fillets *****************************
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 4 Fillet >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,rib4cs         ! create fillet profile
!
k,,1.250+.125,-(.511+r1),3.00   ! profile keypoints
k,,1.00+.125,-(.511+r1),3.00
k,,1.250+.125,-(.511),3.00
k,,1.250+.125+r1,-(.511+r1),3.00
k,,1.250+.125+r1,-(.511+r1+3.00),3.00
!
k,,1.00+.125,-(.511+r1+3.00),3.00
!
*get,km,kp,,num,max
!
l,km,km-4           ! profile 'straight' lines
l,km,km-1
l,km-1,km-2
!
csn=csn+1           ! fillet profile c.s.
cskp,csn,1,km-5,km-4,km-3,,
!
l,km-4,km-3         ! fillet 'round' lines
l,km-3,km-2
!
a,km-4,km-3,km-2,km-1,km    ! profile area
!
*get,am,area,,num,max
!
VOFFST,am,6.00,         ! create rib fillet profile volume
!
*get,vm,volu,,num,max
!
vsbv,29,vm,,delete,keep     ! subtract profile volume from rib 4 volumes
vsbv,19,vm,,delete,delete
!
vadd,34,30          ! add rib 4 top & bottom volumes
!
numcmp,all          ! renumber entities
!
LPLOT
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 5 Fillet >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!< Clear volume mesh to clear line mesh attached to volume to be modified
!
vsel,s,volu,,27,        ! clear volume mesh
vclear,27
vdele,27,,,1
vsel,all
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End volume clear
!
vadd,31,30
!
numcmp,all          ! renumber entities
!
csys,rib5cs         ! create fillet profile
!
k,,-1.250,-(.511+r1),-2.00  ! profile keypoints
k,,-1.00,-(.511+r1),-2.00
k,,-1.250,-(.511),-2.00
k,,-(1.250+r1),-(.511+r1),-2.00
k,,-(1.250+r1),-(.511+r1+3.00),-2.00
!
k,,-1.00,-(.511+r1+3.00),-2.00
!
*get,km,kp,,num,max
!
l,km,km-4           ! profile 'straight' lines
l,km,km-1
l,km-1,km-2
!
csn=csn+1           ! fillet profile c.s.
cskp,csn,1,km-5,km-4,km-3,,
!
l,km-4,km-3         ! fillet 'round' lines
l,km-3,km-2
!
a,km-4,km-3,km-2,km-1,km    ! profile area
!
*get,am,area,,num,max
!
VOFFST,am,6.00,         ! create rib fillet profile volume
!
*get,vm,volu,,num,max
!
vsbv,27,vm,,delete,keep     ! subtract profile volume from rib 4 volumes
vsbv,22,vm,,delete,delete
!
csys,rib7cs
vsymm,x,25,,,,0,0
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!************************** Center Section Construction ************************
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Section Areas >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 1, Area 1 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!****************************** 1st Rib, AREA 1 ****************************
!
csys,rib1cs         ! rib 1 coordinate system
!
p1=kp(-(w1/2+r1),ribh+topthk,0) ! keypoints from position on rib 
p2=kp(-(w1/2+r1),ribh,0)
p3=kp(-w1/2,ribh-r1,0)
p4=kp(-w1/2,0,0)
!
csys,gcs            ! global coordinate system
!
p1r=kx(p1)
theta1=ky(p1)
theta=theta1
!
k,,rcb1,theta,0
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rbout,theta,-(ribh+topthk)
!   
k,,rbout,theta,-(topthk+r1)
k,,p1r,theta,-topthk
k,,p1r,theta,0
k,,rcb1,theta,-(topthk+r1)
k,,rcb1,theta,-cbore2
!
k,,p1r,theta,-(topthk+r1)   ! center point of rectangular & spherical cs
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max     ! creation of planar cylindrical cs 
csn=csn+1
plncs=csn
cskp,plncs,1,km-3,km-8,km-7
!
lstr,km-6,km-18         ! create straight lines     
lstr,km-18,km-17
lstr,km-17,km-16
lstr,km-16,km-15
lstr,km-15,km-14
!
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km
lstr,km,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-7,km-6
lstr,km-8,km-18
lstr,km-17,km-5
!
lstr,km-8,km-5
lstr,km-15,km-5
lstr,km-8,km-4
lstr,km-4,km-5
lstr,km-4,km-14
!
lstr,km-10,km-4
lstr,km-11,km-14
lstr,km-1,km-12
lstr,km-1,km-2
lstr,km-2,km
!
l,km-8,km-7         ! creation of fillet line 1
!
a,km-12,km-11,km-14,km-13   ! creation of areas
a,km-11,km,km-10,km-4,km-14
a,km-14,km-4,km-5,km-15
a,km-15,km-5,km-17,km-16
a,km-10,km-9,km-8,km-4
!       
a,km-4,km-8,km-5
a,km-5,km-8,km-18,km-17
a,km-8,km-7,km-6,km-18
a,km-1,km-2,km,km-11,km-12
!
csn=csn+1           ! creation of cylindrical cs
CS1=csn
cskp,CS1,1,km-3,km-8,p3
!
csn=csn+1           ! creation of spherical cs
CSr2=csn
cskp,CSr2,2,km-3,km-8,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-25,,,2,1,
lesize,lm-24,,,1,1,
lesize,lm-23,,,2,1,
lesize,lm-22,,,2,1,
lesize,lm-21,,,2,1,
!
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,1,1,
lesize,lm-16,,,1,1,
!
lesize,lm-15,,,netop,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,2,1,
!
lesize,lm-10,,,netop,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,netop,1,
lesize,lm-7,,,2,1,
lesize,lm-6,,,2,1,
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
lesize,lm-1,,,1,1,
!
lesize,lm,,,3,1,
!
csys,CS1            ! cylindrical cs at center point
!
l,p3,km-8           ! creation of cylindrical lines
l,p4,km-9
!
a,p3,km-8,km-9,p4       ! creation of cylindrical area
!
lesize,lm+1,,,3,1,      ! sizing of cylindrical lines
lesize,lm+2,,,3,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,plncs
!
sp1=kp(r1,0,0)          ! spherical point 1
sp2=kp(r1,90,0)         ! spherical point 2
!
csys,rib1cs
!
sp3=kp(-w1/2,ribh-r1,0)     ! spherical point 3
!
csys,CSr2           ! spherical coordinate system
!
a,sp1,sp2,sp3           ! creation of spherical area
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!****************************** 1st Rib, AREA 2 ****************************
!
csys,rib1cs         ! rib 1 coordinate system
!
p1=kp((w1/2+r1),ribh+topthk,0)  ! keypoints from position on rib 
p2=kp((w1/2+r1),ribh,0)
p3=kp(w1/2,ribh-r1,0)
p4=kp(w1/2,0,0)
!
csys,gcs            ! global coordinate system
!
p1r=kx(p1)
theta2=ky(p1)
theta=theta2
!
k,,rcb1,theta,0
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rbout,theta,-(ribh+topthk)
!   
k,,rbout,theta,-(topthk+r1)
k,,p1r,theta,-topthk
k,,p1r,theta,0
k,,rcb1,theta,-(topthk+r1)
k,,rcb1,theta,-cbore2
!
k,,p1r,theta,-(topthk+r1)   ! center point of rectangular & spherical cs
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max     ! creation of planar cylindrical cs 
csn=csn+1
plncs=csn
cskp,plncs,1,km-3,km-8,km-7
!
lstr,km-6,km-18         ! create straight lines     
lstr,km-18,km-17
lstr,km-17,km-16
lstr,km-16,km-15
lstr,km-15,km-14
!
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km
lstr,km,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-7,km-6
lstr,km-8,km-18
lstr,km-17,km-5
!
lstr,km-8,km-5
lstr,km-15,km-5
lstr,km-8,km-4
lstr,km-4,km-5
lstr,km-4,km-14
!
lstr,km-10,km-4
lstr,km-11,km-14
lstr,km-1,km-12
lstr,km-1,km-2
lstr,km-2,km
!
l,km-8,km-7         ! creation of fillet line 1
!
a,km-12,km-11,km-14,km-13   ! creation of areas
a,km-11,km,km-10,km-4,km-14
a,km-14,km-4,km-5,km-15
a,km-15,km-5,km-17,km-16
a,km-10,km-9,km-8,km-4
!       
a,km-4,km-8,km-5
a,km-5,km-8,km-18,km-17
a,km-8,km-7,km-6,km-18
a,km-1,km-2,km,km-11,km-12
!
csn=csn+1           ! creation of cylindrical cs
CS1=csn
cskp,CS1,1,km-3,km-8,p3
!
csn=csn+1           ! creation of spherical cs
CSr2=csn
cskp,CSr2,2,km-3,km-8,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-25,,,2,1,
lesize,lm-24,,,1,1,
lesize,lm-23,,,2,1,
lesize,lm-22,,,2,1,
lesize,lm-21,,,2,1,
!
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,1,1,
lesize,lm-16,,,1,1,
!
lesize,lm-15,,,netop,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,2,1,
!
lesize,lm-10,,,netop,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,netop,1,
lesize,lm-7,,,2,1,
lesize,lm-6,,,2,1,
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
lesize,lm-1,,,1,1,
!
lesize,lm,,,3,1,
!
csys,CS1            ! cylindrical cs at center point
!
l,p3,km-8           ! creation of cylindrical lines
l,p4,km-9
!
a,p3,km-8,km-9,p4       ! creation of cylindrical area
!
lesize,lm+1,,,3,1,      ! sizing of cylindrical lines
lesize,lm+2,,,3,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,plncs
!
sp1=kp(r1,0,0)          ! spherical point 1
sp2=kp(r1,90,0)         ! spherical point 2
!
csys,rib1cs
!
sp3=kp(w1/2,ribh-r1,0)      ! spherical point 3
!
csys,CSr2           ! spherical coordinate system
!
a,sp1,sp2,sp3           ! creation of spherical area
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!<<<<<<<<<<<<<<<<<<< Extrude rib 2 lines inward to intersect center section
!
csys,rib2cs
! 
k,,-(w2/2+r1),(topthk+ribh),2.00
*get,km,kp,,num,max
l,km,kp(-(w2/2+r1),(topthk+ribh),-d1)
! 
csys,gcs
!
k,,p1r,45,0
l,km+1,kp(p1r,theta2,0)
*get,lm,line,,num,max
lsbl,lm-1,lm,,delete,delete
ldele,465,,,1
!
*get,Ltot,line,464,leng
*get,Lext1,line,136,leng
!
Lext2=Ltot-Lext1
adrag,121,130,129,,,,136,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,rib2cs
!
k,,-(w2/2),0,kz(268)
!
*get,km,kp,,num,max
!
l,80,km
!
*get,lm,line,,num,max
!
adrag,462,465,467,,,,lm,
ldele,463,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Extrusion >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!
!****************************** 2nd Rib, AREA 3 ****************************
!
csys,rib2cs         ! rib 1 coordinate system
!
p1=kp(-(w2/2+r1),ribh+topthk,kz(270))   ! keypoints from position on rib 
p2=kp(-(w2/2+r1),ribh,kz(270))
p3=kp(-w2/2,ribh-r1,kz(270))
p4=kp(-w2/2,0,kz(270))
!
csys,gcs            ! global coordinate system
!
p1r=kx(p1)
theta3=ky(p1)
theta=theta3
!
k,,rcb1,theta,0
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rbout,theta,-(ribh+topthk)
!   
k,,rbout,theta,-(topthk+r1)
k,,p1r,theta,-topthk
k,,p1r,theta,0
k,,rcb1,theta,-(topthk+r1)
k,,rcb1,theta,-cbore2
!
k,,p1r,theta,-(topthk+r1)   ! center point of rectangular & spherical cs
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max     ! creation of planar cylindrical cs 
csn=csn+1
plncs=csn
cskp,plncs,1,km-3,km-8,km-7
!
lstr,km-6,km-18         ! create straight lines     
lstr,km-18,km-17
lstr,km-17,km-16
lstr,km-16,km-15
lstr,km-15,km-14
!
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km
lstr,km,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-7,km-6
lstr,km-8,km-18
lstr,km-17,km-5
!
lstr,km-8,km-5
lstr,km-15,km-5
lstr,km-8,km-4
lstr,km-4,km-5
lstr,km-4,km-14
!
lstr,km-10,km-4
lstr,km-11,km-14
lstr,km-1,km-12
lstr,km-1,km-2
lstr,km-2,km
!
l,km-8,km-7         ! creation of fillet line 1
!
a,km-12,km-11,km-14,km-13   ! creation of areas
a,km-11,km,km-10,km-4,km-14
a,km-14,km-4,km-5,km-15
a,km-15,km-5,km-17,km-16
a,km-10,km-9,km-8,km-4
!       
a,km-4,km-8,km-5
a,km-5,km-8,km-18,km-17
a,km-8,km-7,km-6,km-18
a,km-1,km-2,km,km-11,km-12
!
csn=csn+1           ! creation of cylindrical cs
CS1=csn
cskp,CS1,1,km-3,km-8,p3
!
csn=csn+1           ! creation of spherical cs
CSr2=csn
cskp,CSr2,2,km-3,km-8,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-25,,,2,1,
lesize,lm-24,,,1,1,
lesize,lm-23,,,2,1,
lesize,lm-22,,,2,1,
lesize,lm-21,,,2,1,
!
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,1,1,
lesize,lm-16,,,1,1,
!
lesize,lm-15,,,netop,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,2,1,
!
lesize,lm-10,,,netop,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,netop,1,
lesize,lm-7,,,2,1,
lesize,lm-6,,,2,1,
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
lesize,lm-1,,,1,1,
!
lesize,lm,,,3,1,
!
csys,CS1            ! cylindrical cs at center point
!
l,p3,km-8           ! creation of cylindrical lines
l,p4,km-9
!
a,p3,km-8,km-9,p4       ! creation of cylindrical area
!
lesize,lm+1,,,3,1,      ! sizing of cylindrical lines
lesize,lm+2,,,3,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,plncs
!
sp1=kp(r1,0,0)          ! spherical point 1
sp2=kp(r1,90,0)         ! spherical point 2
!
csys,rib2cs
!
sp3=kp(-w2/2,ribh-r1,0)     ! spherical point 3
!
csys,CSr2           ! spherical coordinate system
!
a,sp1,sp2,sp3           ! creation of spherical area
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!<<<<<<<<<<<<<<<<<<< Extrude rib 2 lines inward to intersect center section
!
csys,rib7cs
! 
k,,(w2/2+r1),(topthk+ribh),2.00
*get,km,kp,,num,max
l,km,kp((w2/2+r1),(topthk+ribh),-d2)
!
!---------------------- Create point p1 --------------------
csys,rib1cs
p1=kp(-(w1/2+r1),ribh+topthk,0)
csys,gcs
p1r=kx(p1)
!-----------------------------------------------------------
! 
csys,gcs
!
k,,p1r,150,0
l,km+1,kp(p1r,theta1,0)
*get,lm,line,,num,max
lsbl,lm-1,lm,,delete,delete
ldele,505,,,1
!
*get,Ltot,line,504,leng
*get,Lext1,line,302,leng
!
Lext2=Ltot-Lext1
adrag,281,286,282,,,,302,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,rib7cs
!
k,,(w2/2),0,kz(292)
!
*get,km,kp,,num,max
!
l,181,km
!
*get,lm,line,,num,max
!
adrag,502,505,507,,,,lm,
ldele,503,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Extrusion >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!****************************** 7th Rib, AREA 10 ******************************
!
csys,rib7cs         ! rib 1 coordinate system
!
p1=kp((w2/2+r1),ribh+topthk,0)  ! keypoints from position on rib 
p2=kp((w2/2+r1),ribh,0)
p3=kp(w2/2,ribh-r1,0)
p4=kp(w2/2,0,0)
!
csys,gcs            ! model global coordinate system
!
p1r=kx(p1)
theta10=ky(p1)
theta=theta10
!
k,,rcb1,theta,0
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rbout,theta,-(ribh+topthk)
!   
k,,rbout,theta,-(topthk+r1)
k,,p1r,theta,-topthk
k,,p1r,theta,0
k,,rcb1,theta,-(topthk+r1)
k,,rcb1,theta,-cbore2
!
k,,p1r,theta,-(topthk+r1)   ! center point of rectangular & spherical cs
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max     ! creation of planar cylindrical cs 
csn=csn+1
plncs=csn
cskp,plncs,1,km-3,km-8,km-7
!
lstr,km-6,km-18         ! create straight lines     
lstr,km-18,km-17
lstr,km-17,km-16
lstr,km-16,km-15
lstr,km-15,km-14
!
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km
lstr,km,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-7,km-6
lstr,km-8,km-18
lstr,km-17,km-5
!
lstr,km-8,km-5
lstr,km-15,km-5
lstr,km-8,km-4
lstr,km-4,km-5
lstr,km-4,km-14
!
lstr,km-10,km-4
lstr,km-11,km-14
lstr,km-1,km-12
lstr,km-1,km-2
lstr,km-2,km
!
l,km-8,km-7         ! creation of fillet line 1
!
a,km-12,km-11,km-14,km-13   ! creation of areas
a,km-11,km,km-10,km-4,km-14
a,km-14,km-4,km-5,km-15
a,km-15,km-5,km-17,km-16
a,km-10,km-9,km-8,km-4
!       
a,km-4,km-8,km-5
a,km-5,km-8,km-18,km-17
a,km-8,km-7,km-6,km-18
a,km-1,km-2,km,km-11,km-12
!
csn=csn+1           ! creation of cylindrical cs
CS1=csn
cskp,CS1,1,km-3,km-8,p3
!
csn=csn+1           ! creation of spherical cs
CSr2=csn
cskp,CSr2,2,km-3,km-8,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-25,,,2,1,
lesize,lm-24,,,1,1,
lesize,lm-23,,,2,1,
lesize,lm-22,,,2,1,
lesize,lm-21,,,2,1,
!
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,1,1,
lesize,lm-16,,,1,1,
!
lesize,lm-15,,,netop,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,2,1,
!
lesize,lm-10,,,netop,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,netop,1,
lesize,lm-7,,,2,1,
lesize,lm-6,,,2,1,
!
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
lesize,lm-1,,,1,1,
!
lesize,lm,,,3,1,
!
csys,CS1            ! cylindrical cs at center point
!
l,p3,km-8           ! creation of cylindrical lines
l,p4,km-9
!
a,p3,km-8,km-9,p4       ! creation of cylindrical area
!
lesize,lm+1,,,3,1,      ! sizing of cylindrical lines
lesize,lm+2,,,3,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,plncs
!
sp1=kp(r1,0,0)          ! spherical point 1
sp2=kp(r1,90,0)         ! spherical point 2
!
csys,rib7cs
!
sp3=kp(w2/2,ribh-r1,0)      ! spherical point 3
!
csys,CSr2           ! spherical coordinate system
!
a,sp1,sp2,sp3           ! creation of spherical area
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!************************** 3rd / 4th Ribs, AREA 4 ****************************
!
csys,gcs            ! model global coordinate system
!
phi1=ky(61)
phi2=ky(60)
phi3=ky(204)
phi4=ky(207)
phi5=ky(216)
!
p1=61
p2=60
p3=204
p4=207
p5=216
!
theta4=(phi1+phi2+phi3+phi4+phi5)/5
!
theta=theta4
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rcb1,theta,-(topthk+r1)
!
k,,rcb1,theta,-cbore2
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max
!
lstr,p1,km-13           ! create straight lines
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
lstr,km-10,km-9
!
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km
lstr,km,km-5
!
lstr,km-5,p5
lstr,km-13,p3
lstr,p4,km-12
lstr,km-4,km-12
lstr,p4,km-4
!
lstr,km-10,km-4
lstr,p4,km-3
lstr,km-4,km-3
lstr,km-3,km-9
lstr,km-3,km-5
!
lstr,km-6,km-9
lstr,km-7,km-1
lstr,km-1,km-2
lstr,km-2,km
!
a,km-7,km-6,km-9,km-8       ! creation of areas
a,km-6,km,km-5,km-3,km-9
a,km-9,km-3,km-4,km-10
a,km-10,km-4,km-12,km-11
a,km-5,p5,p4,km-3
!       
a,km-3,p4,km-4
a,km-4,p4,km-12
a,p4,p3,km-13,km-12
a,p3,p2,p1,km-13
a,km-7,km-1,km-2,km,km-6
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-23,,,3,1,
lesize,lm-22,,,1,1,
lesize,lm-21,,,2,1,
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
!
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
lesize,lm-16,,,2,1,
lesize,lm-15,,,1,1,
lesize,lm-14,,,1,1,
!
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,netop,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,netop,1,
!
lesize,lm-8,,,2,1,
lesize,lm-7,,,netop,1,
lesize,lm-6,,,2,1,
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
!
lesize,lm-3,,,2,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,3,1,
lesize,lm,,,3,1,
!
lesize,98,,,netop,1,        ! sizing of pre-built fillet lines
lesize,352,,,3,1,
lesize,355,,,2,1,
lesize,372,,,2,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!************************** 5th / 6th Ribs, AREA 9 ****************************
!
csys,gcs            ! model global coordinate system
!
phi1=ky(185)
phi2=ky(186)
phi3=ky(210)
phi4=ky(213)
phi5=ky(219)
!
p1=185
p2=186
p3=210
p4=213
p5=219
!
theta9=(phi1+phi2+phi3+phi4+phi5)/5
!
theta=theta9
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,rcb1,theta,-(ribh+topthk)
k,,rcb1,theta,-(topthk+r1)
!
k,,rcb1,theta,-cbore2
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,cbr,theta,-(topthk+ribh)
!
*get,km,kp,,num,max
!
lstr,p1,km-13           ! create straight lines
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
lstr,km-10,km-9
!
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km
lstr,km,km-5
!
lstr,km-5,p5
lstr,km-13,p3
lstr,p4,km-12
lstr,km-4,km-12
lstr,p4,km-4
!
lstr,km-10,km-4
lstr,p4,km-3
lstr,km-4,km-3
lstr,km-3,km-9
lstr,km-3,km-5
!
lstr,km-6,km-9
lstr,km-7,km-1
lstr,km-1,km-2
lstr,km-2,km
!
a,km-7,km-6,km-9,km-8       ! creation of areas
a,km-6,km,km-5,km-3,km-9
a,km-9,km-3,km-4,km-10
a,km-10,km-4,km-12,km-11
a,km-5,p5,p4,km-3
!       
a,km-3,p4,km-4
a,km-4,p4,km-12
a,p4,p3,km-13,km-12
a,p3,p2,p1,km-13
a,km-7,km-1,km-2,km,km-6
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-23,,,3,1,
lesize,lm-22,,,1,1,
lesize,lm-21,,,2,1,
lesize,lm-20,,,2,1,
lesize,lm-19,,,2,1,
!
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
lesize,lm-16,,,2,1,
lesize,lm-15,,,1,1,
lesize,lm-14,,,1,1,
!
lesize,lm-13,,,netop,1,
lesize,lm-12,,,netop,1,
lesize,lm-11,,,netop,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,netop,1,
!
lesize,lm-8,,,2,1,
lesize,lm-7,,,netop,1,
lesize,lm-6,,,2,1,
lesize,lm-5,,,2,1,
lesize,lm-4,,,2,1,
!
lesize,lm-3,,,2,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,3,1,
lesize,lm,,,3,1,
!
lesize,268,,,netop,1,       ! sizing of pre-built fillet lines
lesize,360,,,3,1,
lesize,363,,,2,1,
lesize,381,,,2,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!****************************** 4th Rib, AREA 6 ****************************
!
csys,gcs            ! model global coordinate system
!
p1=193
p2=192
p3=120
!
theta6=ky(p3)
theta=theta6
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,cbr,theta,-(topthk+ribh)
k,,rcb1,theta,-(ribh+topthk)
!
k,,rcb1,theta,-cbore2
k,,rcb1,theta,-(topthk+r1)
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,kx(p3),theta,0
!
*get,km,kp,,num,max
!
lstr,km,km-14           ! create straight lines
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km-5
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-13
lstr,km-3,km-11
lstr,km-4,km-10
!
lstr,km-10,km-7
lstr,p3,km-5
lstr,km,p3
lstr,km-8,km-1
lstr,km-1,km-2
!
lstr,km-2,km-6
lstr,p1,km
!
a,km-9,km-8,km-7,km-10      ! creation of areas
a,km-10,km-7,km-6,km-5,km-4
a,km-10,km-4,km-3,km-11
a,km-11,km-3,km-13,km-12
a,km-14,km-13,km-3,km-4,km-5,p3,km
!       
a,km,p3,p2,p1
a,km-8,km-1,km-2,km-6,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-21,,,3,1,
lesize,lm-20,,,1,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
!
lesize,lm-16,,,2,1,
lesize,lm-15,,,2,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,1,1,
lesize,lm-12,,,1,1,
!
lesize,lm-11,,,2,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,2,1,
lesize,lm-7,,,2,1,
!
lesize,lm-6,,,2,1,
lesize,lm-5,,,3,1,
lesize,lm-4,,,7,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
!
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
lesize,328,,,7,1,       ! sizing of pre-built fillet lines
lesize,194,,,1,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!****************************** 5th Rib, AREA 7 ****************************
!
csys,gcs            ! model global coordinate system
!
p1=197
p2=196
p3=157
!
theta7=ky(p3)
theta=theta7
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,cbr,theta,-(topthk+ribh)
k,,rcb1,theta,-(ribh+topthk)
!
k,,rcb1,theta,-cbore2
k,,rcb1,theta,-(topthk+r1)
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,kx(p3),theta,0
!
*get,km,kp,,num,max
!
lstr,km,km-14           ! create straight lines
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km-5
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-13
lstr,km-3,km-11
lstr,km-4,km-10
!
lstr,km-10,km-7
lstr,p3,km-5
lstr,km,p3
lstr,km-8,km-1
lstr,km-1,km-2
!
lstr,km-2,km-6
lstr,p1,km
!
a,km-9,km-8,km-7,km-10      ! creation of areas
a,km-10,km-7,km-6,km-5,km-4
a,km-10,km-4,km-3,km-11
a,km-11,km-3,km-13,km-12
a,km-14,km-13,km-3,km-4,km-5,p3,km
!       
a,km,p3,p2,p1
a,km-8,km-1,km-2,km-6,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-21,,,3,1,
lesize,lm-20,,,1,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
!
lesize,lm-16,,,2,1,
lesize,lm-15,,,2,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,1,1,
lesize,lm-12,,,1,1,
!
lesize,lm-11,,,2,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,2,1,
lesize,lm-7,,,2,1,
!
lesize,lm-6,,,2,1,
lesize,lm-5,,,3,1,
lesize,lm-4,,,7,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
!
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
lesize,336,,,7,1,       ! sizing of pre-built fillet lines
lesize,310,,,1,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!------------- Condition areas for creation of profiles 5 & 8 -----------------
!
csys,0
!
l,105,194
l,201,147
!
*get,lm,line,,num,max
!
asbl,114,lm-1,,delete,delete
asbl,172,lm,,delete,delete
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
!-----------------------------------------------------------------------------
!
!
!****************************** 4th Rib, AREA 5 ****************************
!
csys,gcs            ! model global coordinate system
!
p1=195
p2=194
p3=105
!
theta5=ky(p3)
theta=theta5
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,cbr,theta,-(topthk+ribh)
k,,rcb1,theta,-(ribh+topthk)
!
k,,rcb1,theta,-cbore2
k,,rcb1,theta,-(topthk+r1)
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,kx(p3),theta,0
!
*get,km,kp,,num,max
!
lstr,km,km-14           ! create straight lines
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km-5
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-13
lstr,km-3,km-11
lstr,km-4,km-10
!
lstr,km-10,km-7
lstr,p3,km-5
lstr,km,p3
lstr,km-8,km-1
lstr,km-1,km-2
!
lstr,km-2,km-6
lstr,p1,km
!
a,km-9,km-8,km-7,km-10      ! creation of areas
a,km-10,km-7,km-6,km-5,km-4
a,km-10,km-4,km-3,km-11
a,km-11,km-3,km-13,km-12
a,km-14,km-13,km-3,km-4,km-5,p3,km
!       
a,km,p3,p2,p1
a,km-8,km-1,km-2,km-6,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-21,,,3,1,
lesize,lm-20,,,1,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
!
lesize,lm-16,,,2,1,
lesize,lm-15,,,2,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,1,1,
lesize,lm-12,,,1,1,
!
lesize,lm-11,,,2,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,2,1,
lesize,lm-7,,,2,1,
!
lesize,lm-6,,,2,1,
lesize,lm-5,,,3,1,
lesize,lm-4,,,7,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
!
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
lesize,331,,,7,1,       ! sizing of pre-built fillet lines
lesize,634,,,1,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!
!****************************** 5th Rib, AREA 8 ****************************
!
csys,gcs            ! model global coordinate system
!
p1=202
p2=201
p3=147
!
theta8=ky(p3)
theta=theta8
!
k,,rcb1,theta,0         ! area profile keypoints 
k,,rcb1,theta,-cbore1
k,,rcb2,theta,-cbore1
k,,rcb2,theta,-(topthk+r1)
k,,rcb2,theta,-cbore2
! 
k,,rbore,theta,-cbore2
k,,rbore,theta,-(ribh+topthk)
k,,rcb2,theta,-(ribh+topthk)
k,,cbr,theta,-(topthk+ribh)
k,,rcb1,theta,-(ribh+topthk)
!
k,,rcb1,theta,-cbore2
k,,rcb1,theta,-(topthk+r1)
k,,cbr,theta,-(topthk+ribh+bthk)
k,,rbore,theta,-(topthk+ribh+bthk)
k,,kx(p3),theta,0
!
*get,km,kp,,num,max
!
lstr,km,km-14           ! create straight lines
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
!
lstr,km-10,km-9
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km-5
!
lstr,km-5,km-4
lstr,km-4,km-3
lstr,km-3,km-13
lstr,km-3,km-11
lstr,km-4,km-10
!
lstr,km-10,km-7
lstr,p3,km-5
lstr,km,p3
lstr,km-8,km-1
lstr,km-1,km-2
!
lstr,km-2,km-6
lstr,p1,km
!
a,km-9,km-8,km-7,km-10      ! creation of areas
a,km-10,km-7,km-6,km-5,km-4
a,km-10,km-4,km-3,km-11
a,km-11,km-3,km-13,km-12
a,km-14,km-13,km-3,km-4,km-5,p3,km
!       
a,km,p3,p2,p1
a,km-8,km-1,km-2,km-6,km-7
!
*get,lm,line,,num,max       ! element sizing of lines
!
lesize,lm-21,,,3,1,
lesize,lm-20,,,1,1,
lesize,lm-19,,,2,1,
lesize,lm-18,,,2,1,
lesize,lm-17,,,2,1,
!
lesize,lm-16,,,2,1,
lesize,lm-15,,,2,1,
lesize,lm-14,,,2,1,
lesize,lm-13,,,1,1,
lesize,lm-12,,,1,1,
!
lesize,lm-11,,,2,1,
lesize,lm-10,,,2,1,
lesize,lm-9,,,2,1,
lesize,lm-8,,,2,1,
lesize,lm-7,,,2,1,
!
lesize,lm-6,,,2,1,
lesize,lm-5,,,3,1,
lesize,lm-4,,,7,1,
lesize,lm-3,,,1,1,
lesize,lm-2,,,3,1,
!
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
lesize,347,,,7,1,       ! sizing of pre-built fillet lines
lesize,635,,,1,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT               ! plot lines
!
!----------------------- Create Center-Axis Keypoints-----------------------
!
csys,gcs
!
k,,0,0,-1.00
*get,axpt1,kp,,num,min
*get,axpt2,kp,,num,max
lstr,axpt1,axpt2
!
!---------------------------------------------------------------------------
!
!
!<<<<<<<<<<<<<<<<<<<<<<< Mesh & Rotate Area 2 Profile >>>>>>>>>>>>>>>>>>>>>>>
!
csys,gcs
!
theta1st=theta2
theta2nd=theta3
!
asel,s,loc,y,theta1st,theta1st,,   ! select profile @ specified angle
lsla,s
!
aatt,,,2,0          ! set area element attributes
mshkey,1            ! select mapped meshing
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
lsel,r,line,,lm-17,lm-16,,  ! select lines to be concatenated
lccat,all           ! concatenate lines
!
lsla,s              ! reselect line/area set
!
lsel,r,line,,lm-16,lm-15,,  ! select lines to be concatenated
lccat,all           ! concatenate lines
!
lsla,s
!
asel,u,area,,am-2,am-1,,    ! select areas for mapped meshing
!
amesh,all           ! map mesh areas
!
asel,s,loc,y,theta1st,theta1st,,   ! reselect areas for free meshing
asel,u,area,,am-8,am-3,,
asel,u,area,,am,am,,
!
aatt,,,2,0          ! set area element attributes
mshkey,0            ! select free meshing
!
amesh,all           ! free mesh areas
!
asel,all
lsel,all
!
*get,lm,line,,num,max
ldele,lm-1,lm,
!
!
!----------------- Rotate Area Meshes into Volume Meshes ---------------------
!
nerot=2             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,    ! select area profile @ specified angle
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
aclear,all
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!<<<<<<<<<<<<<<<<<<<<<<< Mesh & Rotate Area 10 Profile >>>>>>>>>>>>>>>>>>>>>>>
!
csys,rib7cs         ! rib 1 coordinate system
!
p1=kp((w2/2+r1),ribh+topthk,0)  ! keypoints from position on rib 
!
csys,gcs
!
theta1st=theta10
theta2nd=theta1
!
asel,s,loc,y,theta1st,theta1st,,   ! select profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
lsla,s
!
aatt,,,2,0          ! set area element attributes
mshkey,1            ! select mapped meshing
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
lsel,r,line,,lm-17,lm-16,,  ! select lines to be concatenated
lccat,all           ! concatenate lines
!
lsla,s              ! reselect line/area set
!
lsel,r,line,,lm-16,lm-15,,  ! select lines to be concatenated
lccat,all           ! concatenate lines
!
lsla,s
!
asel,u,area,,am-2,am-1,,    ! select areas for mapped meshing
!
amesh,all           ! map mesh areas
!
asel,s,loc,y,theta1st,theta1st,,   ! reselect areas for free meshing
asel,r,loc,x,rbore,kx(p1),,
asel,u,area,,am-8,am-3,,
asel,u,area,,am,am,,
!
aatt,,,2,0          ! set area element attributes
mshkey,0            ! select free meshing
!
amesh,all           ! free mesh areas
!
asel,all
lsel,all
!
*get,lm,line,,num,max
ldele,lm-1,lm,
!
!
!----------------- Rotate Area Meshes into Volume Meshes ---------------------
!
nerot=2             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
aclear,all
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 1 Meshes into Area 2 ---------------------
!
csys,gcs
!
theta1st=theta1
theta2nd=theta2
!
nerot=5             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
!
*get,am,area,,num,max
!
asel,u,area,,am-4,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,2   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 3 Meshes into Area 4 ---------------------
!
csys,gcs
!
theta1st=theta3
theta2nd=theta4
!
nerot=5             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
!
*get,am,area,,num,max
!
asel,u,area,,am-4,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 4 Meshes into Area 5 ---------------------
!
csys,gcs
!
theta1st=theta4
theta2nd=theta5
!
nerot=4             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
!
*get,am,area,,num,max
!
asel,u,area,,am-5,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 10 Meshes into Area 9 ---------------------
!
csys,rib7cs         ! rib 1 coordinate system
!
p1=kp((w2/2+r1),ribh+topthk,0)  ! keypoints from position on rib 
!
csys,gcs
!
theta1st=theta9
theta2nd=theta10
!
nerot=5             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta2nd,theta2nd,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
!
*get,am,area,,num,max
!
asel,u,area,,am-4,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt2,axpt1,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 9 Meshes into Area 8 ---------------------
!
csys,gcs
!
theta1st=theta8
theta2nd=theta9
!
nerot=4             ! # elements along rotation
theta=-180-theta8
theta1st=theta
phi=abs(180-theta2nd-theta1st)  ! calculate rotation angle
!
asel,s,loc,y,theta2nd,theta2nd,,   ! select area profile @ specified angle
!
*get,am,area,,num,max
!
asel,u,area,,am-5,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt2,axpt1,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 8 Meshes into Area 7 ---------------------
!
csys,gcs
!
p1=402
theta1st=theta7
theta2nd=theta8
!
nerot=4             ! # elements along rotation
phi=abs(theta2nd-theta1st)  ! calculate rotation angle
!
asel,s,loc,y,theta2nd,theta2nd,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
!
*get,am,area,,num,max
!
asel,u,area,,am-2,am-1,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt2,axpt1,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 5 Meshes into Area 6 ---------------------
!
csys,gcs
!
p1=387
theta1st=theta5
theta2nd=theta6
!
nerot=4             ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
!
*get,am,area,,num,max
!
asel,u,area,,am-2,am-2,,
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!---------------------- Rotate Area 6 Meshes into Area 7 ---------------------
!
csys,gcs
!
p1=343
theta1st=theta6
theta2nd=theta7
!
nerot=20            ! # elements along rotation
phi=abs(theta1st-theta2nd)  ! calculate rotation angle
!
asel,s,loc,y,theta1st,theta1st,,   ! select area profile @ specified angle
asel,r,loc,x,rbore,kx(p1),,
!
*get,am,area,,num,max
!
ESIZE,0,nerot,
vrotat,all,,,,,,axpt1,axpt2,phi,1   ! create volumes
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
l,343,358           ! create lines forming volume
l,357,372
l,120,157
!
*get,lm,line,,num,max
!
lsel,s,line,,lm-2,lm,,
!
lesize,all,,,nerot,1,
lsel,all
!
asel,s,loc,x,kx(p1),kx(p1),,    ! create area set for creating volume
asel,r,loc,y,theta7,theta6,,
!
cm,aset1,area
!
asel,all
!
a,343,344,359,358       ! forming remaining areas of volume
a,343,357,372,358
a,120,357,372,157
a,120,352,367,157
!
*get,am,area,,num,max
!
asel,s,area,,aset1,
asel,a,area,,am-3,am,,
asel,a,area,,311,311,,
asel,a,area,,304,304,,
!
va,all
!
vsel,all
asel,all
!
asel,s,loc,x,kx(p1),kx(p1),,    ! create area set for creating volume
asel,r,loc,y,theta7,theta6,,
!
accat,all
!
asel,all
!
lsel,s,loc,x,kx(p1),kx(p1),,    ! line set for concatenation
lsel,r,loc,y,theta7,theta7,,
!
lccat,all
!
lsel,s,loc,x,kx(p1),kx(p1),,    ! line set for concatenation
lsel,r,loc,y,theta6,theta6,,
!
lccat,all
!
lsel,all
mshape,0,3d
vatt,,,1,0
mshkey,1
!
*get,vm,volu,,num,max
!
vmesh,vm
!
lsel,all
asel,all
vsel,all
!
*get,lm,line,,num,max
*get,am,area,,num,max
!
ldele,lm-1,lm,1,
adele,am,am,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!------------------------- Transition Mesh Areas 1 & 2 -----------------------
!
csys,gcs
!
k,,kx(234),ky(413),kz(234)
!
*get,km,kp,,num,max
!
l,234,km
l,km,251
l,km,413
l,km,18
l,409,13
!
a,234,235,413,km
a,km,413,252,251
a,234,km,18,44
a,km,251,17,18
a,10,243,242,409,13
!
a,13,409,259,260,11
!
asel,s,loc,x,kx(p1),kx(44)
asel,r,loc,y,theta2,theta1
!
csys,rib1cs
!
asel,u,loc,z,0,-1.00,,
asel,a,loc,z,0,0,,
!
va,all
!
asel,all
!
*get,vm,volu,,num,max
*get,lm,line,,num,max
!
lesize,lm-4,,,4,1,
lesize,lm-3,,,4,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,2,1,
lesize,lm,,,2,1,
!
vatt,,,1,
mopt,pyra,on
mshape,1,3d
mshkey,0
shpp,warn
!
vmesh,vm
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!----------------------------- Map Mesh Areas 7 & 8 --------------------------
!
csys,gcs
!
l,358,388
lstr,372,402
!
a,358,388,389,359
a,358,388,402,372
a,197,372,402,202
a,157,367,397,147
!
*get,lm,line,,num,max
!
lesize,lm,,,4,1,
lesize,lm-1,,,4,1,
lesize,345,,,4,1,
lesize,346,,,4,1,
lesize,239,,,4,1,
!
asel,s,loc,x,kx(p1),kx(197)
asel,r,loc,y,ky(200),theta7
!
va,all
!
*get,vm,volu,,num,max
!
asel,all
!
asel,s,loc,x,kx(p1),kx(p1)
asel,r,loc,y,theta8,theta7
!
accat,all
!
asel,all
!
lsel,s,loc,y,theta8,theta8,,
lsel,r,loc,x,kx(p1),kx(p1),,
!
lccat,all
!
lsel,s,loc,y,theta7,theta7,,
lsel,r,loc,x,kx(p1),kx(p1),,
!
lccat,all
!
lsel,all
!
asel,s,loc,x,kx(p1),kx(197)
asel,r,loc,z,0,0,,
asel,r,loc,y,ky(200),theta7
!
accat,all
!
asel,s,loc,x,kx(p1),kx(197)
asel,r,loc,z,kz(157),kz(157),,
asel,r,loc,y,ky(200),theta7
!
accat,all
!
asel,s,loc,x,kx(p1),kx(197)
asel,r,loc,y,theta7-5,theta7
!
accat,all
!
asel,s,loc,x,kx(p1),kx(200)
asel,r,loc,y,theta8-5,theta8
!
accat,all
!
asel,all
!
vatt,,,1,
mshape,0,3d
mshkey,1
!
vmesh,vm
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
ldele,lm-1,lm
adele,am-4,am
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LDELE,863
LDELE,864
LDELE,862
LDELE,861
!
LPLOT
!
!-----------------------------------------------------------------------------  
!
!
!----------------------------- Map Mesh Areas 5 & 6 --------------------------
!
csys,gcs
!
l,373,343
lstr,387,357
!
a,344,343,373,374
a,343,373,387,357
a,387,357,193,195
a,120,105,382,352
!
*get,lm,line,,num,max
!
lesize,lm,,,4,1,
lesize,lm-1,,,4,1,
lesize,330,,,4,1,
lesize,329,,,4,1,
lesize,174,,,4,1,
!
asel,s,loc,x,kx(p1),kx(193)
asel,r,loc,y,theta6,theta5
!
va,all
!
*get,vm,volu,,num,max
!
asel,all
!
asel,s,loc,x,kx(p1),kx(p1)
asel,r,loc,y,theta6,theta5
!
accat,all
!
asel,all
!
lsel,s,loc,y,theta5,theta5,,
lsel,r,loc,x,kx(p1),kx(p1),,
!
lccat,all
!
lsel,s,loc,y,theta6,theta6,,
lsel,r,loc,x,kx(p1),kx(p1),,
!
lccat,all
!
lsel,all
!
asel,s,loc,x,kx(p1),kx(193)
asel,r,loc,z,0,0,,
asel,r,loc,y,theta6,theta5
!
accat,all
!
asel,s,loc,x,kx(p1),kx(193)
asel,r,loc,z,kz(120),kz(120),,
asel,r,loc,y,theta6,theta5
!
accat,all
!
asel,s,loc,x,kx(p1),kx(193)
asel,r,loc,y,theta6,theta6+5
!
accat,all
!
asel,s,loc,x,kx(p1),kx(193)
asel,r,loc,y,theta5,theta5
!
accat,all
!
asel,all
!
vatt,,,1,
mshape,0,3d
mshkey,1
!
vmesh,vm
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
ldele,lm-1,lm
adele,am-4,am
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LDELE,863
LDELE,864
!
nummrg,all,.003,.003        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-----------------------------------------------------------------------------
!
!
!----------------------- Create Volumes / Areas 8 to 10 ----------------------
!
vsel,s,volu,,28,    ! select triangular volume to modify
aslv,s
lsla,s
asel,u,area,,175,176,,
asel,u,area,,172,
!
vclear,all
vdele,all
adele,all,,,1
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
lccat,309,311       ! concatenate lines
!
esize,0,neribw-1,
aatt,,,2,0      ! set element attributes
mshkey,1        ! select mapped meshing
amesh,172       ! mesh areas
!
*get,lm,line,,num,max
ldele,lm
!
*get,dext,line,304,leng
!
voffst,172,dext,
!
voffst,556,dext,
!
vsel,all
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
adele,173,,,1
adele,174,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,gcs
!
l,386,327
l,327,296
!
a,386,387,328,327
a,199,400,386,327,185
a,147,395,335,217,215,148
a,327,328,297,296
a,327,296,295,291,171,172,185
!
a,187,216,217,335,304,305,292,181,417
!
adele,293
adele,292
adele,291
adele,290
adele,289
!
ldele,570
ldele,571
ldele,573
ldele,575
!
asel,s,loc,x,kx(327),kx(185)
asel,r,loc,y,theta8+360,theta10
!
va,all
!
vsel,all
asel,all
!
lesize,867,,,4,1,
lesize,868,,,5,1,
lesize,337,,,5,1,
lesize,338,,,3,1,
lesize,352,,,3,1,
!
lesize,351,,,2,1,
lesize,333,,,3,1,
lesize,369,,,3,1,
lesize,371,,,3,1,
lesize,355,,,3,1,
!
lesize,559,,,4,1,
lesize,372,,,3,1,
lesize,373,,,2,1,
lesize,375,,,2,1,
lesize,367,,,1,1,
!
lesize,368,,,2,1,
lesize,357,,,2,1,
lesize,358,,,2,1,
lesize,370,,,2,1,
lesize,241,,,4,1,
!
lesize,342,,,4,1,
lesize,354,,,2,1,
lesize,501,,,1,1,
lesize,503,,,1,1,
lesize,505,,,4,1,
!
lesize,507,,,2,1,
!
LPLOT
!
!----------------------------------------------------------------------------
!
!
!----------------------- Create Volumes / Areas 2 to 4 ----------------------
!
vsel,s,volu,,15,    ! select triangular volume to modify
aslv,s
lsla,s
asel,u,area,,82,83,,
asel,u,area,,79,
!
vclear,all
vdele,all
adele,all,,,1
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!asel,all
lccat,127,136       ! concatenate lines
!
esize,0,neribw-1,
aatt,,,2,0      ! set element attributes
mshkey,1        ! select mapped meshing
amesh,79        ! mesh areas
!
*get,lm,line,,num,max
ldele,lm
!
*get,dext,line,140,leng
!
voffst,79,dext/2,
!
voffst,560,dext/2,
!
vsel,all
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
adele,81,,,1
adele,80,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
csys,gcs
!
l,271,312
l,312,370
!
a,271,272,313,312
a,271,270,266,76,62,61,312
a,80,267,280,279,320,213,211,71,419
a,312,313,371,370
a,312,61,193,384,370
!
a,106,212,213,320,379,104
!
adele,278
adele,277
adele,276
adele,275
adele,274
!
ldele,540
ldele,541
ldele,543
ldele,545
!
asel,s,loc,x,kx(271),kx(61)
asel,r,loc,y,theta5-5,theta3
!
va,all
!
vsel,all
asel,all
!
lesize,868,,,5,1,
lesize,869,,,4,1,
lesize,337,,,3,1,
lesize,340,,,3,1,
lesize,343,,,2,1,
!
lesize,344,,,2,1,
lesize,358,,,2,1,
lesize,360,,,2,1,
lesize,354,,,3,1,
lesize,357,,,3,1,
!
lesize,353,,,2,1,
lesize,356,,,2,1,
lesize,338,,,3,1,
lesize,341,,,3,1,
lesize,355,,,1,1,
!
lesize,313,,,3,1,
lesize,310,,,2,1,
lesize,455,,,1,1,
lesize,320,,,5,1,
lesize,321,,,4,1,
!
lesize,183,,,4,1,
lesize,461,,,1,1,
lesize,459,,,1,1,
lesize,457,,,1,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!************************* End Center Section Construction ***********************
!
!
!************************ Modify Ribs For Wall Construction **********************
!
!
!----------------------------------- Ribs 5 & 6 ----------------------------------
!
csys,0
!
plndistr=5.8976   ! distance of cutting plane through ribs 5 & 6
          ! from global c.s. center
!
k,,5,1,plndistr
k,,-5,1,plndistr
k,,-5,-5,plndistr
k,,5,-5,plndistr
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
vsba,19,am,,delete,keep
vsba,20,am,,delete,keep
vsba,22,am,,delete,keep
vsba,26,am,,delete,delete
!
vdele,20,,,1
vdele,103,,,1
vdele,104,,,1
vdele,106,,,1
!
ldele,230,,,1
ldele,231,,,1
ldele,244,,,1
ldele,245,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!
!----------------------------------- Ribs 3 & 4 ----------------------------------
!
csys,0
!
plndistl=6.3667   ! distance of cutting plane through ribs 5 & 6
          ! from global c.s. center
!
k,,5,1,-plndistl
k,,-5,1,-plndistl
k,,-5,-5,-plndistl
k,,5,-5,-plndistl
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
vsba,15,am,,delete,keep
vsba,16,am,,delete,keep
vsba,17,am,,delete,keep
vsba,25,am,,delete,delete
!
vdele,16,,,1
vdele,103,,,1
vdele,104,,,1
vdele,17,,,1
!
ldele,163,,,1
ldele,162,,,1
ldele,179,,,1
ldele,180,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!---------------------- Front Housing Fillet / Right --------------------------
!
csys,0
!
k,,2.8471,-.500,.04358
k,,2.5981,-.750,.02179
k,,2.5981,-1.136,.02179
k,,2.8471,0,.04358
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,0,km-2,km-1,km-3,,
!
k,,0,r1,0
!
csn=csn+1
RFfilcs=csn
cskp,RFfilcs,1,km+1,km-2,km-3,,
!
l,km-2,km-3
lstr,km,km-3
lstr,km-2,km-1
!
k,,r1,0,-10.00
!
lstr,km-2,km+2
!
*get,lm,line,,num,max
!
adrag,lm-1,lm-2,lm-3,,,,lm,
!
*get,am,area,,num,max
!
aptn,105,am,am-1,am-2
adele,573,575,1,1
ldele,869,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!----------------------- Front Housing Fillet / Left --------------------------
!
csys,0
!
k,,2.8471,-.500,-.04358
k,,2.5981,-.750,-.02179
k,,2.5981,-1.136,-.02179
k,,2.8471,0,-.04358
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,0,km-2,km-1,km-3,,
!
k,,0,r1,0
!
csn=csn+1
LFfilcs=csn
cskp,LFfilcs,1,km+1,km-2,km-3,,
!
l,km-2,km-3
lstr,km,km-3
lstr,km-2,km-1
!
k,,r1,0,10.00
!
lstr,km-2,km+2
!
*get,lm,line,,num,max
!
adrag,lm-1,lm-2,lm-3,,,,lm,
!
*get,am,area,,num,max
!
aptn,85,am,am-1,am-2
adele,578,580,1,1
ldele,883,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber entities
!
LPLOT
!
!-------------------------- Modify Front Volume & Mesh ------------------------
!
csys,0
!
vclear,87
ldele,782,,,1
!
lstr,424,433
lstr,421,430
lstr,422,431
lstr,423,432
!
a,421,430,433,424
a,421,430,431,422
a,422,431,432,423
!
vsel,s,volu,,87,
aslv,s
cm,aset3,area
vdele,87
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
k,,2.330,1,-3
k,,2.330,1,3
k,,2.330,-5,3
k,,2.330,-5,-3
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
aptn,494,495,496,am
!
adele,589,,,1
adele,581,,,1
adele,585,,,1
adele,582,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,RFfilcs-1
!
k,,kx(440),ky(424)+1,kz(440)
k,,kx(442),ky(424)+1,kz(442)
!
*get,km,kp,,num,max
!
a,440,km-1,km,442
!
*get,am,area,,num,max
!
aptn,am,564,565,566
!
adele,590,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,LFfilcs-1
!
k,,kx(439),ky(433)+1,kz(439)
k,,kx(441),ky(433)+1,kz(441)
!
*get,km,kp,,num,max
!
a,439,km-1,km,441
!
*get,am,area,,num,max
!
aptn,am,566,567,568
!
adele,594,,,1
!
asel,s,area,,aset3,
asel,a,area,,574,578,1,
!
va,all
!
lesize,896,,,5,1,
lesize,897,,,5,1,
lesize,893,,,5,1,
lesize,894,,,5,1,
lesize,891,,,10,1,
!
lesize,892,,,10,1,
lesize,895,,,7,1,
lesize,898,,,7,1,
!
asel,s,area,,574,576,1,
accat,all
!
asel,s,area,,482,484,2,
asel,a,area,,487,493,6,
accat,all
!
lsel,s,line,,891,897,3,
lccat,all
!
lsel,s,line,,892,893,1,
lsel,a,line,,896,
!
lccat,all
!
lsel,s,line,,540,542,1,
lsel,a,line,,531,
!
lccat,all
!
lsel,s,line,,518,520,1,
lsel,a,line,,509,
!
lccat,all
!
asel,all
lsel,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,101
!
adele,566,567,1,
ldele,877,878,1,
ldele,880,882,2,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Volume Repair / Right Side
! 
vsel,s,volu,,17,
aslv,s
lsla,s
cm,aset17,area
cm,lset17,line
!
vsel,s,volu,,19,
aslv,s
lsla,s
cm,aset19,area
cm,lset19,line
!
vsel,all
asel,all
lsel,all
!
vdele,17,19,2,
!
adele,105,,,1
adele,564
adele,565
adele,104
adele,120
adele,106
!
ldele,871,,,1
ldele,194,,,1
ldele,873,,,1
!
lsbl,196,868,,delete,keep
!
a,394,395,114,113,428
a,394,428,426,427,429,393
a,428,113,112,429,427,426
a,392,393,429,112,111
!
asel,s,area,,aset17,
asel,a,area,,104,106,1,
asel,a,area,,120,
!
va,all
!
asel,all
!
csn=csn+1
cskp,csn,0,112,111,113,,
!
k,,0,-r1,kz(429)
k,,r1,-r1,kz(429)
!
csn=csn+1
cskp,csn,1,451,452,429,,
!
l,429,452
!
lsbl,828,196,,delete,keep
!
a,393,400,452,429
a,429,452,190,112
!
asel,s,area,,aset19,
asel,a,area,,564,565,1,
asel,a,area,,120,
!
va,all
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Volume Repair
!
!
!----------------------------- Front Right Volumes -------------------------
!
csys,csn-1
!
k,,-2.00,0,0
k,,-2.00,ky(113),0
!
*get,km,kp,,num,max
!
a,112,km-1,km,113
!
*get,am,area,,num,max
!
aptn,am,579,580,581
!
adele,598,,,1
!
a,112,113,440,442
a,331,161,113,440
a,125,160,112,442
a,113,457,445,440
a,112,458,446,442
!
a,113,428,457
a,112,429,458
!
va,151,264,572,579,580,581
va,579,597,594,595,596,582,590,598
va,597,106,591,592,593,599,600
!
lesize,272,,,6,1,
lesize,271,,,6,1,
lesize,931,,,6,1,
lesize,932,,,6,1,
lesize,933,,,6,1,
!
lesize,934,,,6,1,
lesize,901,,,6,1,
lesize,902,,,6,1,
lesize,936,,,3,1,
lesize,935,,,3,1,
!
lesize,905,,,3,1,
lesize,906,,,3,1,
lesize,898,,,2,1,
lesize,928,,,2,1,
lesize,900,,,2,1,
!
lesize,930,,,2,1,
lesize,896,,,3,1,
lesize,926,,,3,1,
lesize,180,,,7,1,
lesize,867,,,2,1,
!
lesize,866,,,3,1,
lesize,925,,,4,1,
lesize,927,,,4,1,
lesize,924,,,4,1,
!
lesize,929,,,4,1,
lesize,869,,,4,1,
lesize,194,,,4,1,
!
asel,s,area,,594,596,1,
accat,all
!
lsel,s,line,,926,930,2,
lccat,all
!
lsel,s,line,,896,900,2,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,103
!
asel,all
lsel,all
!
asel,s,area,,572,
asel,a,area,,264,
accat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,102
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Volume Repair / Left Side
! 
vsel,s,volu,,15,
aslv,s
lsla,s
cm,aset15,area
cm,lset15,line
!
vsel,s,volu,,100,
aslv,s
lsla,s
cm,aset100,area
cm,lset100,line
!
vsel,all
asel,all
lsel,all
!
vdele,15,100,85,
!
adele,85,,,1
adele,560
adele,84
adele,86
!
ldele,848,,,1
ldele,850,,,1
!
a,95,91,411,415,437
a,94,93,413,414,438
!
asel,s,area,,aset15,
asel,a,area,,566,567,1,
asel,a,area,,84,85,1,
!
va,all
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csn=csn+1
cskp,csn,0,94,93,95,,
!
k,,0,-r1,kz(438)
k,,r1,-r1,kz(438)
!
csn=csn+1
cskp,csn,1,457,458,438,,
!
l,438,458
!
lsbl,858,934,,delete,keep
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
a,94,185,458,438
a,438,458,419,414
!
asel,s,area,,aset100,
asel,a,area,,601,602,1,
asel,a,area,,85,
!
va,all
!
asel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Volume Repair
!
!
!----------------------------- Front Left Volumes -------------------------
!
csys,csn-1
!
k,,-2.00,0,0
k,,-2.00,ky(95),0
!
*get,km,kp,,num,max
!
a,94,km-1,km,95
!
*get,am,area,,num,max
!
aptn,am,584,585,586
!
adele,611,,,1
!
a,95,439,441,94
a,316,157,95,439
a,102,156,94,441
a,439,449,463,95
a,441,450,464,94
!
a,95,463,437
a,94,464,438
!
va,146,256,569,584,585,586
va,584,610,587,607,608,609,603,611
va,610,564,605,604,606,612,613
!
lesize,264,,,6,1,
lesize,263,,,6,1,
lesize,911,,,6,1,
lesize,912,,,6,1,
lesize,149,,,7,1,
!
lesize,948,,,6,1,
lesize,946,,,6,1,
lesize,947,,,6,1,
lesize,949,,,6,1,
lesize,951,,,3,1,
!
lesize,950,,,3,1,
lesize,915,,,3,1,
lesize,916,,,3,1,
lesize,908,,,2,1,
lesize,943,,,2,1,
!
lesize,906,,,3,1,
lesize,941,,,3,1,
lesize,910,,,2,1,
lesize,945,,,2,1,
lesize,877,,,4,1,
!
lesize,942,,,4,1,
lesize,939,,,4,1,
lesize,940,,,4,1,
lesize,944,,,4,1,
lesize,874,,,2,1,
!
lesize,876,,,4,1,
lesize,875,,,2,1,
lesize,873,,,3,1,
lesize,865,,,2,1,
!
asel,s,area,,256,
asel,a,area,,569,
accat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,105
!
asel,all
lsel,all
!
asel,s,area,,607,609,1,
accat,all
!
lsel,s,line,,906,910,2,
lccat,all
!
lsel,s,line,,941,945,2,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,106
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Model Clean-up
!
aclear,142
aclear,79
!
adele,599,600,1
adele,614,615,1
!
ldele,913,914,1
ldele,918,919,1
ldele,936,937,1
ldele,901
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Clean-up
!
!
!----------------------------- Front Center Fillet -----------------------------
!
csys,0
!
a,440,445,424,433,449,439
a,442,446,423,432,450,441
!
*get,am,area,,num,max
!
asel,s,area,,574,576,1,
asel,a,area,,581,583,1,
asel,a,area,,580,587,7,
asel,a,area,,566,568,1,
asel,a,area,,571,
asel,a,area,,am-1,am,1,
!
va,all
!
asel,all
!
lesize,891,,,4,1,
lesize,892,,,4,1,
lesize,896,,,4,1,
lesize,894,,,4,1,
lesize,906,,,5,1,
!
lesize,903,,,5,1,
lesize,904,,,5,1,
lesize,908,,,5,1,
lesize,780,,,1,1,
lesize,880,,,1,1,
!
lesize,881,,,1,1,
lesize,882,,,1,1,
!
asel,s,area,,574,576,1,
asel,a,area,,581,583,1,
asel,a,area,,566,568,1,
accat,all
!
asel,all
!
lsel,s,line,,780,
lsel,a,line,,894,
lsel,a,line,,906,
lccat,all
!
lsel,s,line,,880,
lsel,a,line,,891,
lsel,a,line,,903,
lccat,all
!
lsel,s,line,,881,
lsel,a,line,,892,
lsel,a,line,,904,
lccat,all
!
lsel,s,line,,882,
lsel,a,line,,896,
lsel,a,line,,908,
lccat,all
!
lsel,s,line,,893,897,2,
lccat,all
!
lsel,s,line,,905,909,2,
lccat,all
!
lsel,s,line,,860,862,1,
lccat,all
!
lsel,s,line,,870,872,1,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,108
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!----------------------- Mesh Right Side Rib Volumes ---------------------
!
csys,rib5cs
!
vsel,s,volu,,17,
aslv,s
lsla,s
cm,aset17,area
cm,lset17,line
!
vsel,s,volu,,19,
aslv,s
lsla,s
cm,aset19,area
cm,lset19,line
!
vsel,s,volu,,23,
aslv,s
lsla,s
cm,aset23,area
cm,lset23,line
!
vsel,all
!
vdele,17,19,2
vdele,23
!
asel,all
lsel,all
!
k,,-.75,ky(111),0
k,,-.75,ky(113),0
k,,-.75,ky(113),kz(393)
k,,-.75,ky(111),kz(393)
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
aptn,109,am,100,
!
adele,618,,,1
asbl,103,964,,delete,keep
asbl,119,963,,delete,keep
!
asel,s,area,,aset17,
asel,a,area,,619,621,1
asel,a,area,,100,103,3
asel,u,area,,104,105,1
!
va,all
!
asel,s,area,,aset17,
asel,a,area,,615,617,1
asel,a,area,,109,619,619-109
asel,u,area,,106,108,2
asel,u,area,,102,
!
va,all
!
vsel,all
asel,all
lsel,all
!
vadd,19,103
!
!<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 5 Volumes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
lesize,965,,,4,1,
lesize,966,,,4,1,
lesize,967,,,4,1,
lesize,968,,,4,1,
lesize,963,,,4,1,
!
lesize,964,,,4,1,
lesize,820,,,4,1,
lesize,822,,,4,1,
lesize,191,,,4,1,
lesize,192,,,4,1,
!
lesize,823,,,2,1,
lesize,182,,,2,1,
lesize,824,,,2,1,
lesize,183,,,2,1,
lesize,193,,,2,1,
!
lesize,178,,,2,1,
lesize,960,,,6,1,
lesize,954,,,6,1,
!
asel,s,area,,102,106,4,
asel,a,area,,108,
accat,all
!
lsel,s,line,,823,824,1,
lsel,a,line,,193,
lccat,all
!
lsel,s,line,,182,183,1,
lsel,a,line,,178,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,17
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!
csys,rib5cs
!
k,,0,ky(400),0
k,,0,ky(400),kz(392)
!
*get,km,kp,,num,max
!
a,km,km-1,190,452,400
!
*get,am,area,,num,max
!
aptn,545,181,107,am
!
asel,s,area,,aset19,
asel,a,area,,622,624,1,
asel,a,area,,620
asel,u,area,,561,562,1,
!
va,all
!
lesize,330,,,3,1,
lesize,828,,,3,1,
lesize,827,,,4,1,
lesize,217,,,4,1,
lesize,962,,,4,1,
!
lesize,829,,,4,1,
lesize,963,,,4,1,
lesize,331,,,4,1,
lesize,964,,,4,1,
lesize,912,,,2,1,
!
lesize,867,,,2,1,
lesize,968,,,3,1,
lesize,967,,,3,1,
!
lccat,912,867
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,107
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
ldele,179
ldele,181
ldele,218
ldele,898
!
asel,s,area,,558,559,1,
asel,a,area,,617,618,1,
asel,a,area,,622,623,1,
asel,a,area,,103,611,611-103,
!
va,all
!
asel,all
lsel,all
!
lesize,953,,,2,1,
lesize,951,,,2,1,
lesize,213,,,3,1,
lesize,195,,,3,1,
lesize,826,,,3,1,
!
lesize,866,,,3,1,
lesize,965,,,2,1,
lesize,966,,,2,1,
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,108
!
lesize,818,,,6,1,
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,22
!
!<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 6 Volumes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
lesize,188,,,4,1,
lesize,815,,,4,1,
lesize,809,,,4,1,
lesize,185,,,4,1,
lesize,812,,,4,1,
!
lesize,813,,,4,1,
lesize,808,,,4,1,
lesize,810,,,4,1,
lesize,803,,,4,1,
lesize,802,,,4,1,
!
lesize,805,,,4,1,
lesize,806,,,4,1,
lesize,814,,,2,1,
lesize,187,,,2,1,
lesize,804,,,2,1,
!
lesize,811,,,2,1,
lesize,186,,,2,1,
lesize,184,,,3,1,
lesize,807,,,3,1,
!
lesize,817,,,3,1,
lesize,190,,,3,1,
lesize,189,,,2,1,
lesize,816,,,2,1,
!
asel,s,area,,532,533,1,
asel,a,area,,538,
accat,all
!
asel,s,area,,535,536,1,
asel,a,area,,539,
accat,all
!
lsel,s,line,,811,814,3,
lsel,a,line,,817,
lccat,all
!
lsel,s,line,,186,187,1,
lsel,a,line,,190,
lccat,all
!
lsel,s,line,,804,807,3,
lsel,a,line,,816,
lccat,all
!
lsel,s,line,,182,184,2,
lsel,a,line,,189,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,95
!
asel,all
lsel,all
!
ldele,179
ldele,181
ldele,218
ldele,778
ldele,898
ldele,942,949,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,rib5cs
!
k,,kx(115),ky(467),kz(115)
k,,kx(107),0,0.5
!
*get,km,kp,,num,max
!
csn=csn+1
v23cs=csn
cskp,v23cs,1,107,108,km
!
l,467,km-1
!
adele,138
!
lsbl,195,956,,delete,keep
!
a,115,111,467,km-1
a,km-1,467,127,131
!
asel,s,area,,aset23,
asel,a,area,,612,615,3,
asel,a,area,,620,622,2,
asel,a,area,,626,
asel,a,area,,138,
!
va,all
!
lesize,198,,,4,1,
lesize,197,,,4,1,
lesize,213,,,4,1,
lesize,820,,,4,1,
lesize,821,,,4,1,
!
lesize,214,,,4,1,
lesize,819,,,4,1,
lesize,957,,,1,1,
lesize,958,,,2,1,
lesize,206,,,1,1,
!
lsel,s,line,,957,958,1,
lsel,a,line,,206,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,96
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
lesize,273,,,9,1,
lesize,274,,,9,1,
lesize,271,,,9,1,
lesize,270,,,9,1,
lesize,275,,,9,1,
!
lesize,199,,,6,1,
lesize,325,,,6,1,
lesize,326,,,8,1,
lesize,329,,,5,1,
lesize,200,,,4,1,
!
lesize,205,,,4,1,
lesize,956,,,4,1,
lesize,218,,,4,1,
lesize,202,,,8,1,
lesize,217,,,10,1,
!
lesize,212,,,8,1,
lesize,201,,,4,1,
lesize,216,,,12,1,
!
ldele,195
!
vsel,s,volu,,91,
aslv,s
cm,v91aset,area
vdele,91
!
a,150,151,173,288
!
csn=csn+1
cskp,csn,0,121,122,361,,
!
k,,kx(151),0,0
k,,kx(151),ky(361),0
!
k,,kx(151),0,0
k,,kx(151),ky(361),0
!
k,,kx(151),0,0
k,,kx(151),ky(361),0
!
*get,km,kp,,num,max
!
a,121,km-5,km-4,361
a,121,km-3,km-2,361
a,121,km-1,km,361
!
*get,am,area,,num,max
!
aina,am,160
aina,am-1,168
aina,am-2,am-3
!
lstr,163,478
lstr,172,478
lstr,361,474
!
adele,513,516,3,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
lsbl,292,962,,delete,keep
!
a,150,151,471,472
a,151,163,473,471
a,163,162,122,473
a,150,472,361,164
a,361,121,122,473,471,472
!
a,471,473,172,173
a,473,122,180,172
!
*get,am,area,,num,max
!
asel,s,area,,am-6,am-2,1,
asel,a,area,,155,
asel,a,area,,262,275,275-262,
!
va,all
!
ldele,484
!
lstr,472,288
!
lesize,960,,,5,1,
lesize,196,,,5,1,
lesize,281,,,5,1,
lesize,962,,,3,1,
lesize,272,,,2,1,
!
lesize,195,,,1,1,
lesize,963,,,1,1,
lesize,959,,,2,1,
lesize,292,,,1,1,
lesize,484,,,4,1,
!
lesize,964,,,2,1,
lesize,291,,,2,1,
lesize,961,,,2,1,
!
asel,s,area,,am-6,am-4,1,
accat,all
!
lsel,s,line,,209,272,272-209
lsel,a,line,,277,
lccat,all
!
lsel,s,line,,961,962,1
lsel,a,line,,291,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,109
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Model Clean-up
!
vsel,all
asel,all
lsel,all
!
adele,105
adele,606
adele,620,621,1,
adele,630
!
ldele,965
ldele,966
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Model Clean-up
!
!
!----------------------------- Volume Meshes ------------------------
!
a,361,347,288,472
a,150,472,288,257,256,252,136,137
!
asel,s,area,,v91aset,
asel,a,area,,627,629,1,
asel,a,area,,606,623,623-606,
asel,a,area,,105,
asel,u,area,,262,275,275-262,
asel,u,area,,155,
!
va,all
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,110
!
LPLOT
!
!
vclear,22
vclear,107
!
vadd,22,107
!
lesize,940,,,3,1,
lesize,201,,,3,1,
lesize,911,,,6,1,
lesize,192,,,6,1,
lesize,941,,,3,1,
!
lesize,908,,,6,1,
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,108
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,111
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!
!----------------------- Mesh Left Side Volumes ------------------------
!
csys,rib4cs
!
vsel,s,volu,,15,
aslv,s
lsla,s
cm,aset15,area
cm,lset15,line
!
vsel,s,volu,,16,
aslv,s
lsla,s
cm,aset16,area
cm,lset16,line
!
vsel,s,volu,,100,
aslv,s
lsla,s
cm,aset100,area
cm,lset100,line
!
vsel,all
!
vdele,15,16,1
vdele,100
!
asel,all
lsel,all
!
k,,.875,ky(94),0
k,,.875,ky(95),0
k,,.875,ky(95),kz(415)
k,,.875,ky(94),kz(415)
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
aptn,81,am,87,
!
adele,630,,,1
asbl,84,977,,delete,keep
asbl,85,976,,delete,keep
!
asel,s,area,,aset15,
asel,a,area,,631,633,1
asel,a,area,,81,84,3
asel,u,area,,556,557,1
!
va,all
!
asel,s,area,,aset15,
asel,a,area,,627,629,1
asel,a,area,,87,631,631-87
asel,u,area,,82,83,1
asel,u,area,,86,
!
va,all
!
vsel,all
asel,all
lsel,all
!
vadd,16,103
!
!<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 4 Volumes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
lesize,144,,,2,1,
lesize,154,,,2,1,
lesize,845,,,2,1,
lesize,151,,,2,1,
lesize,147,,,2,1,
!
lesize,157,,,2,1,
lesize,967,,,6,1,
lesize,973,,,6,1,
lesize,978,,,4,1,
lesize,980,,,4,1,
!
lesize,979,,,4,1,
lesize,981,,,4,1,
lesize,152,,,4,1,
lesize,153,,,4,1,
lesize,155,,,4,1,
!
lesize,156,,,4,1,
lesize,976,,,4,1,
lesize,977,,,4,1,
!
asel,s,area,,82,83,1,
asel,a,area,,86,
accat,all
!
lsel,s,line,,144,147,3,
lsel,a,line,,151,
lccat,all
!
lsel,s,line,,154,157,3,
lsel,a,line,,845,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,15
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
csys,rib4cs
!
k,,kx(93),ky(419),0
k,,kx(93),ky(419),kz(419)
!
*get,km,kp,,num,max
!
a,km,km-1,185,458,419
!
*get,am,area,,num,max
!
aptn,550,553,172,am
!
adele,633,,,1
!
asel,s,area,,aset100,
asel,a,area,,635,637,2,
asel,a,area,,638,640,2,
asel,u,area,,590,591,1,
!
va,all
!
lesize,976,,,4,1,
lesize,978,,,4,1,
lesize,848,,,4,1,
lesize,319,,,4,1,
lesize,982,,,4,1,
!
lesize,921,,,2,1,
lesize,920,,,2,1,
lesize,850,,,4,1,
lesize,851,,,4,1,
lesize,317,,,4,1,
!
lesize,849,,,4,1,
lesize,983,,,4,1,
lesize,984,,,3,1,
lesize,176,,,1,1,
!
lccat,984,176
lccat,920,921
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,108
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
ldele,148
ldele,150
ldele,168
ldele,975
!
asel,s,area,,587,588,1,
asel,a,area,,634,635,1,
asel,a,area,,629,631,2,
asel,a,area,,84,623,623-84,
!
va,all
!
asel,all
lsel,all
!
lesize,964,,,2,1,
lesize,966,,,2,1,
lesize,870,,,3,1,
lesize,978,,,2,1,
lesize,979,,,2,1,
!
lesize,847,,,3,1,
lesize,919,,,3,1,
lesize,171,,,3,1,
lesize,842,,,6,1,
lesize,871,,,2,1,
!
lesize,967,,,2,1,
!
vadd,99,109
!
!<<<<<<<<<<<<<<<<<<<<<<<<<< Rib 3 Volumes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
!
lesize,829,,,4,1,
lesize,831,,,4,1,
lesize,833,,,4,1,
lesize,834,,,4,1,
lesize,826,,,4,1,
!
lesize,827,,,4,1,
lesize,836,,,4,1,
lesize,838,,,4,1,
lesize,143,,,4,1,
lesize,830,,,4,1,
!
lesize,837,,,4,1,
lesize,140,,,4,1,
lesize,142,,,2,1,
lesize,835,,,2,1,
lesize,839,,,2,1,
!
lesize,141,,,2,1,
lesize,832,,,2,1,
lesize,139,,,3,1,
lesize,828,,,3,1,
lesize,146,,,3,1,
!
lesize,841,,,3,1,
lesize,145,,,2,1,
lesize,840,,,2,1,
!
asel,s,area,,540,541,1,
asel,a,area,,545,
accat,all
!
asel,s,area,,543,544,1,
asel,a,area,,538,
accat,all
!
lsel,s,line,,141,142,1,
lsel,a,line,,146,
lccat,all
!
lsel,s,line,,832,835,3,
lsel,a,line,,841,
lccat,all
!
lsel,s,line,,839,840,1,
lsel,a,line,,828,
lccat,all
!
lsel,s,line,,144,145,1,
lsel,a,line,,139,
lccat,all
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,94
!
asel,all
lsel,all
!
adele,85
adele,623
adele,636
!
ldele,148
ldele,150
ldele,168
ldele,975
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csn=csn+1
v16cs=csn
cskp,v16cs,1,82,85,412
!
k,,kx(86),ky(86),kz(478)
!
*get,km,kp,,num,max
!
l,478,km
!
adele,98
ldele,172
!
lsbl,163,979,,delete,keep
!
a,86,93,478,km
a,km,478,106,103
!
asel,s,area,,aset16,
asel,a,area,,629,630,1,
asel,a,area,,622,625,3,
asel,a,area,,98,
asel,a,area,,634,
!
va,all
!
lesize,165,,,4,1,
lesize,841,,,4,1,
lesize,842,,,4,1,
lesize,843,,,4,1,
lesize,159,,,4,1,
!
lesize,160,,,4,1,
lesize,164,,,4,1,
lesize,172,,,1,1,
lesize,980,,,3,1,
!
lccat,172,980
!
mshape,0,3d
vatt,,,1,0
mshkey,1
!
vmesh,95
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
lesize,250,,,9,1,
lesize,251,,,9,1,
lesize,253,,,9,1,
lesize,254,,,9,1,
lesize,166,,,12,1,
!
lesize,963,,,3,1,
lesize,157,,,4,1,
lesize,169,,,4,1,
lesize,170,,,4,1,
!
lesize,158,,,8,1,
lesize,167,,,6,1,
lesize,171,,,6,1,
lesize,174,,,6,1,
lesize,312,,,8,1,
!
lesize,313,,,8,1,
lesize,315,,,6,1,
!
vadd,108,109
!
mopt,pyra,on
mshape,1,3d
mshkey,0
!
vmesh,110
vmesh,91
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!
!********************************* Left Side Wall ******************************
!
csys,0
!
k,,-3.8270,-3.1696,-6.5350      ! keypoints 1 thru 5
k,,-2.9441,-3.0034,-6.5350
k,,-2.9441,-1.6076,-6.5350
k,,-2.2382,-1.1034,-6.5350
k,,-2.2440,-3.9890,-6.5350
!
k,,-1.9940,-4.2390,-6.5350      ! keypoints 6 thru 10
k,,-1.9940,-3.9890,-6.5350
k,,-.7500,-3.9890,-6.5350
k,,-.7500,-4.2390,-6.5350
k,,-.500,-3.9890,-6.5350
!
k,,-.5000,-2.7796,-6.5350       ! keypoints 11 thru 15
k,,.7500,-2.7796,-6.5350
k,,.7500,-2.5283,-6.5350
k,,.9076,-2.4834,-6.5350
k,,.9076,-2.7687,-6.5350
!
k,,1.5843,-2.8316,-6.5350       ! keypoints 16 thru 20
k,,1.6310,-4.6140,-6.5350
k,,2.0056,-2.8708,-6.5350
k,,2.4605,-2.9130,-6.5350
k,,2.5310,-2.5518,-6.5350
!
k,,2.6310,-2.3227,-6.5350       ! keypoints 21 thru 25
k,,2.8810,-2.3227,-6.5350
k,,2.8810,-1.4656,-6.5350
k,,3.4151,-2.8569,-6.5350
k,,3.8810,-2.7035,-6.5350
!
k,,3.8810,-4.8300,-6.5350       ! keypoints 26 thru 30
k,,4.1310,-5.0800,-6.5350
k,,4.1310,-4.8300,-6.5350
k,,4.7160,-5.0800,-6.5350
k,,4.8410,-5.2050,-6.5350
!
k,,4.8410,-7.7000,-6.5350       ! keypoints 31 thru 35
k,,5.0910,-7.7000,-6.5350
k,,5.1230,-7.9500,-6.5350
k,,5.1230,-8.6000,-6.5350
k,,-3.2270,-8.6000,-6.5350
!
k,,-3.2270,-8.1000,-6.5350      ! keypoints 36 thru 40
k,,-3.5770,-8.1000,-6.5350
k,,-3.5770,-7.8500,-6.5350
k,,-3.2440,-7.8500,-6.5350
k,,-3.2440,-7.6000,-6.5350
!
k,,-2.9940,-7.6000,-6.5350      ! keypoints 41 thru 45
k,,-2.9940,-5.2390,-6.5350
k,,-3.2440,-5.2390,-6.5350
k,,-3.2440,-4.9890,-6.5350
k,,-3.8270,-4.9890,-6.5350
!
k,,-3.8270,-4.2390,-6.5350      ! keypoints 46 thru 50
k,,-3.2440,-4.2390,-6.5350
k,,-3.2440,-3.9890,-6.5350
k,,-2.9940,-3.9890,-6.5350
k,,-2.9940,-3.4196,-6.5350
!
k,,-3.2440,-3.4196,-6.5350      ! keypoints 51 thru 52
k,,-3.2440,-3.1696,-6.5350
!
*get,km,kp,,num,max
!
lstr,km-51,km-50
lstr,km-50,km-49
lstr,km-49,km-48
lstr,km-48,km-47
lstr,km-46,km-43
!
lstr,km-42,km-41
lstr,km-41,km-40
lstr,km-40,km-39
lstr,km-39,km-38
lstr,km-38,km-37
!
lstr,km-34,km-33
lstr,km-33,km-32
lstr,km-30,km-29
lstr,km-29,km-28
lstr,km-28,km-27
!
lstr,km-27,km-26
lstr,km-25,km-23
lstr,km-22,km-21
lstr,km-23,km-22
lstr,km-22,km-21
!
lstr,km-19,km-18
lstr,km-17,km-16
lstr,km-16,km-15
lstr,km-15,km-14
lstr,km-14,km-13
!
lstr,km-8,km-7
lstr,km-7,km-6
lstr,km-6,km-5
lstr,km-3,km-2
lstr,km,km-51
!
lstr,km-11,km-10
lstr,km-37,km-36
!
csn=csn+1
local,csn,1,kx(km-45),ky(km-45),kz(km-45),
!
csys,0
csn=csn+1
local,csn,1,kx(km-44),ky(km-44),kz(km-44),
!
csys,0
csn=csn+1
local,csn,1,kx(km-35),ky(km-35),kz(km-35),
!
csys,0
csn=csn+1
local,csn,1,kx(km-31),ky(km-31),kz(km-31),
!
csys,0
csn=csn+1
local,csn,1,kx(km-24),ky(km-24),kz(km-24),
!
csys,0
csn=csn+1
local,csn,1,kx(km-20),ky(km-20),kz(km-20),
!
csys,0
csn=csn+1
local,csn,1,kx(km-12),ky(km-12),kz(km-12),
!
csys,0
csn=csn+1
local,csn,1,kx(km-9),ky(km-9),kz(km-9),
!
csys,0
csn=csn+1
local,csn,1,kx(km-4),ky(km-4),kz(km-4),
!
csys,0
csn=csn+1
local,csn,1,kx(km-1),ky(km-1),kz(km-1),
!
CSYS,csn-9,
l,km-47,km-46
! 
CSYS,csn-8,
l,km-43,km-42
!
CSYS,csn-6,
l,km-32,km-30
!
CSYS,csn-5,
l,km-26,km-25
! 
CSYS,csn-4,
l,km-21,km-19
! 
CSYS,csn-3,
l,km-13,km-11
!
CSYS,csn-2,
l,km-10,km-8
! 
CSYS,csn-1,
l,km-5,km-3
! 
CSYS,csn,
l,km-2,km
!
CSYS,csn-7,
k,,kx(km-36),0,0
k,,kx(km-36),180,0
k,,kx(km-36),270,0
!
*get,km,kp,,num,max
!
l,km-39,km-1
l,km-1,km
l,km,km-2
l,km-2,km-37
!
csys,0
!
k,,-1.994,-5.2390,-6.535
!
csn=csn+1
ccs=csn
local,ccs,0,kx(km+1),ky(km+1),kz(km+1),
!
k,,1.244,0,0
k,,1.244,-2.361,0
k,,0,-2.361,0
!
*get,km,kp,,num,max
!
csys,0
csn=csn+1
local,csn,1,kx(km-3),ky(km-3),kz(km-3)
!
csys,0
csn=csn+1
local,csn,1,kx(km-2),ky(km-2),kz(km-2)
!
csys,0
csn=csn+1
local,csn,1,kx(km-1),ky(km-1),kz(km-1)
!
csys,0
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
csys,csn-3
!
k,,r1,90,0
k,,r1,180,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn-2
!
k,,r1,0,0
k,,r1,90,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn-1
!
k,,r1,0,0
k,,r1,270,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn
!
k,,r1,270,0
k,,r1,180,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
lstr,km,km-6
lstr,km-7,km-4
lstr,km-5,km-3
lstr,km-1,km-2
!
csys,0
!
k,,.750,-6.9497,-6.535
k,,1.006,-7.0347,-6.535
k,,1.006,-7.600,-6.535
k,,.750,-7.600,-6.535
k,,.875,-6.7332,-6.535
!
k,,1.0685,-6.7926,-6.535
k,,1.256,-7.0346,-6.535
k,,1.256,-7.600,-6.535
k,,1.006,-7.850,-6.535
k,,.750,-7.850,-6.535
!
k,,.500,-7.600,-6.535
k,,.500,-6.9497,-6.535
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km-2,km-3
lstr,km-4,km-5
lstr,km-7,km-6
!
csn=csn+1
local,csn,1,kx(km-11),ky(km-11),kz(km-11)
!
l,km,km-7
!
csys,0
csn=csn+1
local,csn,1,kx(km-10),ky(km-10),kz(km-10)
!
l,km-6,km-5
!
csys,0
csn=csn+1
local,csn,1,kx(km-9),ky(km-9),kz(km-9)
!
l,km-4,km-3
!
csys,0
csn=csn+1
local,csn,1,kx(km-8),ky(km-8),kz(km-8)
!
l,km-2,km-1
!
csys,0
!
k,,2.256,-7.035,-6.535
k,,2.398,-6.9934,-6.535
k,,2.398,-7.600,-6.535
k,,2.256,-7.600,-6.535
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km-3),ky(km-3),kz(km-3)
!
csys,0
csn=csn+1
local,csn,1,kx(km-2),ky(km-2),kz(km-2)
!
csys,0
csn=csn+1
local,csn,1,kx(km-1),ky(km-1),kz(km-1)
!
csys,0
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
csys,csn-3
!
k,,r1,110,0
k,,r1,180,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn-2
!
k,,r1,0,0
k,,r1,110,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn-1
!
k,,r1,0,0
k,,r1,270,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
csys,csn
!
k,,r1,270,0
k,,r1,180,0
!
*get,km,kp,,num,max
!
l,km,km-1
!
lstr,km,km-6
lstr,km-7,km-4
lstr,km-5,km-3
lstr,km-1,km-2
!
*get,km,kp,,num,max
!
lstr,km-28,km-82
lstr,km-50,km-24
lstr,km-27,km-13
lstr,km-16,km
lstr,km-42,km-86
!
lstr,km-38,km-65
lstr,km-7,km-36
lstr,km-18,km-36
lstr,km-29,km-37
lstr,km-49,km-30
!
lstr,km-41,km-89
lstr,km-85,km-31
lstr,km-41,km-89
!
csys,0
!
k,,4.416,-7.650,-6.5350
k,,3.458,-7.525,-6.5350
k,,3.648,-7.715,-6.5350
k,,4.648,-7.525,-6.5350
k,,4.481,-7.650,-6.5350
!
k,,4.4160,-7.7150,-6.5350
k,,3.4580,-6.0910,-6.5350
k,,3.4947,-5.9788,-6.5350
k,,3.6288,-5.7736,-6.5350
k,,3.7932,-5.6790,-6.5350
!
k,,4.4160,-5.6790,-6.5350
k,,4.4810,-5.7440,-6.5350
!
*get,km,kp,,num,max
!
lstr,km,km-7
lstr,km-6,km-9
lstr,km-10,km-5
lstr,km-5,km-4
lstr,km-4,km-3
!
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
!
csn=csn+1
local,csn,1,kx(km-11),ky(km-11),kz(km-11)
l,km-7,km-6
!
csys,0
csn=csn+1
local,csn,1,kx(km-8),ky(km-8),kz(km-8)
l,km-9,km-10
!
csys,0
!
k,,kx(km-38),ky(km-68),kz(km-38)
k,,kx(km-14),ky(km-68),kz(km-14)
!
*get,km,kp,,num,max
!
lstr,km,km-71
lstr,km,km-1
lstr,km-1,km-70
lstr,km,km-16
lstr,km-1,km-40
!
lstr,km-17,km-12
lstr,km-19,km-7
lstr,km-9,km-74
lstr,km-4,km-78
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sizing of Lines 
!
FLST,5,25,4,ORDE,21
FITEM,5,999
FITEM,5,1005
FITEM,5,1011
FITEM,5,1016
FITEM,5,-1018
FITEM,5,1024
FITEM,5,1026
FITEM,5,-1027
FITEM,5,1036
FITEM,5,1038
FITEM,5,-1039
FITEM,5,1041
FITEM,5,-1043
FITEM,5,1048
FITEM,5,1051
FITEM,5,-1052
FITEM,5,1054
FITEM,5,-1057
FITEM,5,1059
FITEM,5,1073
FITEM,5,-1074
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , , ,3,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,5,4,ORDE,5
FITEM,5,1012
FITEM,5,1025
FITEM,5,1049
FITEM,5,-1050
FITEM,5,1075
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , , ,3,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1052
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,30,4,ORDE,20
FITEM,5,999
FITEM,5,1005
FITEM,5,1011
FITEM,5,-1012
FITEM,5,1015
FITEM,5,-1018
FITEM,5,1024
FITEM,5,-1027
FITEM,5,1036
FITEM,5,1038
FITEM,5,-1039
FITEM,5,1041
FITEM,5,-1043
FITEM,5,1048
FITEM,5,-1051
FITEM,5,1054
FITEM,5,-1057
FITEM,5,1059
FITEM,5,1073
FITEM,5,-1075
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,7,4,ORDE,7
FITEM,5,980
FITEM,5,1004
FITEM,5,1006
FITEM,5,-1007
FITEM,5,1037
FITEM,5,1040
FITEM,5,1058
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,990
FITEM,5,-991
FITEM,5,994
FITEM,5,1053
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,5
FITEM,5,981
FITEM,5,984
FITEM,5,-986
FITEM,5,1029
FITEM,5,1031
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,8,4,ORDE,8
FITEM,5,983
FITEM,5,997
FITEM,5,1009
FITEM,5,1021
FITEM,5,-1022
FITEM,5,1028
FITEM,5,1030
FITEM,5,1071
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,1020
FITEM,5,1023
FITEM,5,1070
FITEM,5,1072
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,9,4,ORDE,8
FITEM,5,1001
FITEM,5,-1003
FITEM,5,1008
FITEM,5,1019
FITEM,5,1033
FITEM,5,1035
FITEM,5,1045
FITEM,5,1047
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,1032
FITEM,5,1034
FITEM,5,1044
FITEM,5,1046
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1035
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1078
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1010
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,10,4,ORDE,7
FITEM,5,987
FITEM,5,-989
FITEM,5,998
FITEM,5,1063
FITEM,5,-1065
FITEM,5,1067
FITEM,5,-1069
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,992
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,996
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1013
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,993
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,995
FITEM,5,1060
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1061
FITEM,5,1066
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1062
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1060
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1076
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1077
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,2,3,3
FITEM,2,481
FITEM,2,482
FITEM,2,530
A,P51X
!
lesize,1000,,,2,1,
lesize,1069,,,2,1,
!
adele,633
ldele,1079
ldele,995
ldele,996
ldele,997
!
csys,0
!
k,,kx(505),-3.0069,kz(505)
k,,kx(505),-4.0750,kz(505)
k,,4.1725,ky(507),kz(507)
k,,kx(510),-7.2228,kz(510)
k,,5.2742,ky(513),kz(513)
!
k,,6.1735,ky(513),kz(513)
!
*get,km,kp,,num,max
!
lstr,km-5,505
lstr,km-5,km-4
lstr,km-4,506
lstr,km-3,507
lstr,km-3,509
!
lstr,km-2,510
lstr,km-2,511
lstr,km-1,513
lstr,km-1,km
!
k,,6.4230,ky(514),kz(514)
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km,514
!
*get,lm,line,,num,max
!
lesize,995,,,1,1,
lesize,996,,,3,1,
lesize,997,,,2,1,
lesize,1079,,,1,1,
lesize,1080,,,2,1,
!
lesize,1081,,,6,1,
lesize,1082,,,2,1,
lesize,1083,,,1,1,
lesize,1084,,,2,1,
lesize,1085,,,2,1,
!
lesize,1086,,,3,1,
lesize,1014,,,3,1,
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Create Areas
!
a,481,482,530,532
a,529,530,482,483,484,485
a,526,527,529,485,486,540,541,522,524,525
a,521,522,541,547
a,518,519,521,547,546,545,584,515,516,517
!
a,486,489,543,540
a,489,490,491,492,493,494,495,496,534,542,543
a,544,542,534,535,553,552,559,558
a,584,545,544,558,557,556,555,571,570,569,585
a,555,554,553,535,564,565,571
!
a,498,499,500,502,503,504,505,586,587,506,533
a,535,533,506,507,581,580,579,578,566,567,564
a,568,566,578,573,568
a,585,569,568,573,574,577,576,511,513,514
a,581,507,588,509,510,589,511,576,583,582
!
a,513,590,591,592,514
!
LPLOT
!
asel,s,loc,z,-6.535,-6.535,,
asel,u,area,,633,635,1,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
amesh,all       ! mesh areas
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< First Extrude
!
asel,a,area,,633,634,1,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,.200,,
*enddo
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2nd Extrude
!
asel,s,loc,z,-(6.535+0.200)
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,(.375-.200),,
*enddo
!
csys,0
!
k,,-3.0568,-1.4498,-6.4428
k,,-2.1067,-.7712,-6.4428
k,,-2.1067,-1.1462,-6.8178
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,0,km,km-1,km-2,,
!
k,,3,0,.1373
k,,0,3,.1373
k,,-3,0,.1373
k,,0,-3,.1373
!
*get,km,kp,,num,max
!
a,km,km-1,km-2,km-3
!
*get,am,area,,num,max
!
vsba,110,am,,delete,keep
vsba,125,am,,delete,delete
!
vdele,110,,,1
vdele,139,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Create Frontal Side Areas
!
csys,0
!
k,,4.1227,-4.0027,kz(730)
k,,4.006,-4.0425,kz(730)
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
l,km-1,730
!
csys,0
!
k,,4.4059,-4.7404,kz(730)
k,,4.1725,-4.8300,kz(730)
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
l,km-1,748
lstr,km-1,km-3
!
csys,0
!
k,,5.3244,-7.1333,kz(730)
k,,5.091,-7.2228,kz(730)
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
l,km-1,751
!
csys,0
!
k,,5.5076,-7.6105,kz(730)
k,,5.2742,-7.700,kz(730)
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
l,km-1,754
lstr,km-1,km-3
!
csys,0
!
k,,4.2330,-2.8949,kz(730)
!
lstr,km+1,729
lstr,km+1,755
!
k,,kx(750)+.50,ky(750),kz(750)
!
lstr,750,km+2
!
*get,lm,line,,num,max
!
lsbl,lm-1,lm,,delete,delete
!
lstr,750,776
!
ldele,1457,1459,1,1,
!
a,729,774,776,750,749,748,733,731,730
a,750,776,755,754,772,770,751
!
lesize,1463,,,2,1,
lesize,1464,,,1,1,
lesize,1467,,,7,1,
lesize,1466,,,8,1,
lesize,1460,,,4,1,
!
lesize,1462,,,2,1,
lesize,1461,,,3,1,
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am-1,am,1     ! mesh areas
!
lesize,1448,,,5,1,
lesize,1449,,,5,1,
lesize,1455,,,5,1,
lesize,1444,,,3,1,
lesize,1445,,,3,1,
!
lesize,1452,,,3,1,
lesize,1450,,,9,1,
lesize,1451,,,9,1,
lesize,1456,,,9,1,
lesize,1453,,,1,1,
!
lesize,1454,,,1,1,
lesize,1275,,,1,1,
lesize,1276,,,1,1,
!
ldele,1093,1094,1
!
accat,651,652
accat,762,763
!
mshape,0,3d
mshkey,1
!
vmesh,109,123,123-109
!
asel,s,area,,650,653,3
asel,a,area,,871
accat,all
!
lsel,s,line,,1004,1055,1055-1004
lsel,a,line,,1448
lccat,all
!
lsel,s,line,,1085,1092,1092-1085
lsel,a,line,,1449
lccat,all
!
vmesh,137
!
ldele,1458,1459,1
!
asel,s,area,,761,764,3
asel,a,area,,876
accat,all
!
lsel,s,line,,1266,1273,1273-1266
lsel,a,line,,1455
lccat,all
!
lsel,s,line,,1085,1092,1092-1085
lsel,a,line,,1449
lccat,all
!
vmesh,138
!
asel,all
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,634       ! mesh areas
!
voffst,634,.200,,
voffst,885,(.375-.200),,
!
csys,0
!
asel,s,loc,z,-6.535,-6.535,,
asel,u,area,,633,873,873-633
aclear,all
!
asel,all
lsel,all
vsel,all
!
adele,881,884,1
ldele,1093,1094,1
ldele,1457,1459,1
ldele,1465
ldele,163
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,0
!
lstr,675,778
!
a,675,678,677,679,779,778
!
k,,kx(781),ky(685),kz(781)
!
*get,km,kp,,num,max
!
lstr,781,km
lstr,km,685
!
a,km,781,780,682,681,686,685
a,683,696,695,705,706,688,687,684
a,710,709,708,719,714,713,712,711
a,721,720,739,738,740,717,716,715
a,737,736,735,734,753,752,744,743,742,741
!
a,751,770,772,754,746,745
!
k,,-1.2184,-.750,kz(765)
k,,-.560,-.750,kz(698)
!
*get,km,kp,,num,max
!
lstr,km-1,765
lstr,km-1,km
lstr,km,698
!
a,765,km-1,km,698,697,694,693,680
!
csys,67
!
l,703,722
!
csys,0
!
k,,.750,-2.2783,kz(700)
k,,.560,-2.2783,kz(700)
k,,.560,-.625,kz(700)
k,,1.196,-.625,kz(700)
k,,1.196,-2.1934,kz(700)
!
k,,1.0535,-2.3773,kz(700)
k,,1.006,-2.1934,kz(700)
!
*get,km,kp,,num,max
!
lstr,km-4,km-3
lstr,km-3,km-2
lstr,km-4,km-5
lstr,km-1,701
!
csn=csn+1
local,csn,1,kx(km-6),ky(km-6),kz(km-6)
!
l,km-5,700
!
csys,0
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
l,km-2,km-1
!
a,km-5,km-4,km-3,km-2,km-1,701,700
!
csys,0
!
k,,2.631,-2.3227,kz(700)
k,,2.4152,-2.3089,kz(700)
k,,2.4152,-.750,kz(700)
k,,2.821,-.750,kz(700)
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km-3),ky(km-3),kz(km-3)
!
l,km-2,724
!
lstr,km,km-1
lstr,km-1,km-2
lstr,km,726
!
a,km-2,km-1,km,726,725,724
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sizing Lines
!
csys,0
!
k,,kx(784),ky(787),kz(784)
!
*get,km,kp,,num,max
!
lstr,km,784
lstr,km,787
!
a,698,784,km,787,786,700,699
!
k,,kx(794),ky(788),kz(794)
!
*get,km,kp,,num,max
!
lstr,km,788
lstr,km,794
!
a,703,702,701,790,789,788,km,794,793,724,723,722
!
lesize,1483,,,4,1,
lesize,1484,,,11,1,
lesize,1485,,,1,1,
lesize,1500,,,1,1,
lesize,1490,,,3,1,
!
lesize,1501,,,4,1,
lesize,1488,,,7,1,
lesize,1492,,,5,1,
lesize,1494,,,2,1,
lesize,1493,,,1,1,
!
lesize,1495,,,2,1,
lesize,1502,,,5,1,
lesize,1503,,,1,1,
lesize,1498,,,6,1,
lesize,1489,,,1,1,
!
lesize,1496,,,2,1,
lesize,1497,,,2,1,
lesize,1499,,,3,1,
lesize,1491,,,6,1,
lesize,1487,,,2,1,
!
lesize,1486,,,4,1,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,897,908,1
!
asel,s,loc,z,kz(788),
!
*do,i,759,908,1
voffst,i,.325,,
*enddo
!
asel,all
lsel,all
vsel,all
!
aclear,897,908,1
!
voffst,879,-(.375-.200),,
voffst,880,-(.375-.200),,
!
aclear,879,880,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!
!********************************* Right Side Wall ******************************
!
csys,0
!
k,,4.1310,-2.5881,6.0650        ! keypoints 1 thru 5
k,,3.4151,-2.8569,6.0650
k,,2.8810,-1.4656,6.0650
k,,2.8810,-1.7309,6.0650
k,,2.5156,-1.9526,6.0650
!
k,,2.3345,-1.8660,6.0650        ! keypoints 6 thru 10
k,,2.6310,-1.7309,6.0650
k,,2.3346,-2.7505,6.0650
k,,1.6715,-2.6881,6.0650
k,,1.0293,-2.6170,6.0650
!
k,,1.0293,-.6250,6.0650         ! keypoints 11 thru 15
k,,0.5600,-.6250,6.0650
k,,0.5600,-2.6086,6.0650
k,,-.7500,-2.6086,6.0650
k,,-.7500,-2.2721,6.0650
!
k,,-1.1190,-2.0523,6.0650       ! keypoints 16 thru 20
k,,-.86900,-2.0523,6.0650
k,,-1.1190,-.7500,6.0650
k,,-1.7434,-.7500,6.0650
k,,-2.0171,-.9455,6.0650
!
k,,-1.8690,-1.2683,6.0650       ! keypoints 21 thru 25
k,,-1.8690,-3.9890,6.0650
k,,-2.1190,-4.2390,6.0650
k,,-2.1190,-3.9890,6.0650
k,,-3.5770,-4.2390,6.0650
!
k,,-3.5770,-3.9890,6.0650       ! keypoints 26 thru 30
k,,-3.8270,-3.9890,6.0650
k,,-3.8270,-5.2390,6.0650
k,,-3.5770,-4.9890,6.0650
k,,-3.5770,-5.2390,6.0650
!
k,,-2.1190,-4.9890,6.0650       ! keypoints 31 thru 35
k,,-1.8690,-5.2390,6.0650
k,,-2.1190,-5.2390,6.0650
k,,-1.8690,-7.600,6.0650
k,,-2.1190,-7.850,6.0650
!
k,,-2.1190,-7.600,6.0650        ! keypoints 36 thru 40
k,,-3.5770,-7.850,6.0650
k,,-3.8270,-7.600,6.0650
k,,-3.5770,-7.600,6.0650
k,,-3.8270,-8.600,6.0650
!
k,,-.8690,-8.600,6.0650         ! keypoints 41 thru 45
k,,2.4141,-8.600,6.0650
k,,4.1310,-8.600,6.0650
k,,4.1310,-7.950,6.0650
k,,4.1310,-7.700,6.0650
!
k,,4.1310,-5.3733,6.0650        ! keypoints 46 thru 50
k,,1.1310,-4.6140,6.0650
!
*get,km,kp,,num,max
!
csn=csn+1
local,csn,1,kx(km),ky(km),kz(km)
!
trqclr=2.0002
!
k,,trqclr,180,0
k,,trqclr,270,0
k,,trqclr,0,0
!
csys,0
!
k,,6.4230,-8.600,6.2650         ! keypoints 51 thru 55
k,,6.1735,-7.950,6.2650
k,,4.6144,-5.2837,6.2650
k,,4.3810,-5.3733,6.2650
k,,5.5076,-7.6104,6.2650
!
k,,5.2742,-7.950,6.2650         ! keypoints 56 thru 60
k,,5.2742,-7.700,6.2650
k,,4.3810,-7.950,6.2650
k,,4.3810,-7.700,6.2650
k,,5.2742,-8.600,6.2650
!
k,,2.4141,-7.600,6.0650         ! keypoints 61 thru 65
k,,2.4141,-7.850,6.0650
k,,2.3154,-7.3703,6.0650
k,,3.1310,-7.1757,6.0650
k,,2.9772,-6.9786,6.0650
!
k,,3.3810,-7.1757,6.0650        ! keypoints 66 thru 70
k,,3.1310,-7.600,6.0650
k,,3.3810,-7.600,6.0650
k,,3.1310,-7.850,6.0650
k,,-.1521,-7.600,6.0650
!
k,,-.05338,-7.3703,6.0650       ! keypoints 71 thru 75
k,,-.1521,-7.850,6.0650
k,,-.8690,-7.1757,6.0650
k,,-1.1190,-7.1757,6.0650
k,,-.7152,-6.9787,6.0650
!
k,,-.8690,-7.600,6.0650         ! keypoints 76 thru 78
k,,-.8690,-7.850,6.0650
k,,-1.1190,-7.600,6.0650
!
*get,km,kp,,num,max
!
lstr,km-77,km-76
lstr,km-76,km-75
lstr,km-74,km-73
lstr,km-72,km-70
lstr,km-70,km-69
!
lstr,km-68,km-67
lstr,km-67,km-66
lstr,km-66,km-65
lstr,km-65,km-64
lstr,km-64,km-63
!
lstr,km-62,km-60
lstr,km-60,km-59
lstr,km-59,km-58
lstr,km-57,km-56
lstr,km-55,km-53
!
lstr,km-51,km-50
lstr,km-49,km-47
lstr,km-46,km-44
lstr,km-43,km-41
lstr,km-40,km-38
!
lstr,km-38,km-37
lstr,km-37,km-36
lstr,km-36,km-35
lstr,km-35,km-34
lstr,km-34,km-33
!
lstr,km-33,km-32
lstr,km-32,km-77
lstr,km-73,km-72
lstr,km-58,km-57
!
lstr,km-75,km-74
!
csys,0
csn=csn+1
local,csn,1,kx(km-61),ky(km-61),kz(km-61)
!
l,km-63,km-62
!
csys,0
csn=csn+1
local,csn,1,kx(km-54),ky(km-54),kz(km-54)
!
l,km-56,km-55
!
csys,0
csn=csn+1
local,csn,1,kx(km-52),ky(km-52),kz(km-52)
!
l,km-53,km-51
!
csys,0
csn=csn+1
local,csn,1,kx(km-48),ky(km-48),kz(km-48)
!
l,km-50,km-49
!
csys,0
csn=csn+1
local,csn,1,kx(km-45),ky(km-45),kz(km-45)
!
l,km-47,km-46
!
csys,0
csn=csn+1
local,csn,1,kx(km-42),ky(km-42),kz(km-42)
!
l,km-44,km-43
!
csys,0
csn=csn+1
local,csn,1,kx(km-39),ky(km-39),kz(km-39)
!
l,km-41,km-40
!
csys,0
csn=csn+1
local,csn,1,kx(km-31),ky(km-31),kz(km-31)
!
l,km-29,km-30
l,km-29,km-28
l,km-28,km-69
l,km-68,km-69
!
l,km-68,km-30
!
csys,0
csn=csn+1
local,csn,1,kx(km-17),ky(km-17),kz(km-17)
!
l,km-16,km-15
!
csys,0
csn=csn+1
local,csn,1,kx(km-14),ky(km-14),kz(km-14)
!
l,km-13,km-12
!
csys,0
csn=csn+1
local,csn,1,kx(km-11),ky(km-11),kz(km-11)
!
l,km-10,km-9
!
lstr,km-10,km-12
lstr,km-16,km-9
!
rotcs=csn-3
csys,rotcs
l,km-15,km-13
!
csys,0
csn=csn+1
local,csn,1,kx(km-8),ky(km-8),kz(km-8)
!
l,km-7,km-6
!
csys,0
csn=csn+1
local,csn,1,kx(km-5),ky(km-5),kz(km-5)
!
l,km-4,km-3
!
csys,0
csn=csn+1
local,csn,1,kx(km-2),ky(km-2),kz(km-2)
!
l,km-1,km
!
lstr,km,km-4
lstr,km-1,km-6
!
csys,csn-6
l,km-7,km-3
!
csys,0
!
lstr,km,km-44
lstr,km-1,km-37
lstr,km-36,km-16
lstr,km-7,km-29
lstr,km-15,km-29
!
lstr,km-32,km-28
lstr,km-46,km-30
lstr,km-56,km-30
lstr,km-10,km-33
lstr,km-56,km-64
!
lstr,km-22,km-20
lstr,km-22,km-26
lstr,km-26,km-27
lstr,km-23,km-25
lstr,km-56,km-64
!
csys,0
csn=csn+1
local,csn,1,kx(km-21),ky(km-21),kz(km-21)
!
l,km-23,km-22
!
a,928,927,926,925,924,922,921,920
a,933,931,929,928,954,938,937,935,934
a,944,943,941,940,984,983,947,946
a,928,920,919,918,917,916,954
a,940,938,954,955,977,981,980,984
!
a,947,983,978,977,955,969,968,948
a,915,914,912,911,910,909,908,907,952,956
a,955,956,952,951,974,972,971,969
a,948,968,975,974,951,950,949
!
FLST,5,3,4,ORDE,3
FITEM,5,1769
FITEM,5,1771
FITEM,5,1773
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,8,4,ORDE,4
FITEM,5,1786
FITEM,5,-1791
FITEM,5,1799
FITEM,5,1805
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1770
FITEM,5,1774
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1767
FITEM,5,1783
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1764
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1782
FITEM,5,1784
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1761
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,7,4,ORDE,6
FITEM,5,1755
FITEM,5,1758
FITEM,5,1766
FITEM,5,1809
FITEM,5,-1811
FITEM,5,1817
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,1797
FITEM,5,-1798
FITEM,5,1803
FITEM,5,-1804
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1785
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1759
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1765
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,3
FITEM,5,1763
FITEM,5,1812
FITEM,5,-1816
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,1800
FITEM,5,-1801
FITEM,5,1806
FITEM,5,-1807
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1802
FITEM,5,1808
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1792
FITEM,5,-1793
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1794
FITEM,5,1796
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,8,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,1760
FITEM,5,1762
FITEM,5,1818
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1756
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1757
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,1772
FITEM,5,1780
FITEM,5,-1781
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1775
FITEM,5,-1776
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1779
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1778
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1777
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1768
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
csys,0
!
asel,s,loc,z,6.065,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,alow,ahigh,1
!
*do,i,alow,ahigh,1
voffst,i,-0.200,,
*enddo
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
!
csys,0
csn=csn+1
local,csn,1,kx(km-24),ky(km-24),kz(km-24)
!
l,km-25,1041
!
csys,0
csn=csn+1
local,csn,1,kx(km-19),ky(km-19),kz(km-19)
!
l,km-20,1046
!
lstr,km-27,km-18
lstr,km-18,1057
lstr,km-18,km-22
lstr,km-26,1040
!
numcmp,all          ! renumber & compress all entities
!
csys,0
!
k,,kx(km-25)+1.00,ky(km-25),kz(km-25)
!
*get,km,kp,,num,max
!
lstr,km,959
!
*get,lm,line,,num,max
!
lsbl,1887,lm,,delete,delete
!
*get,km,kp,,num,max
!
lstr,959,km
!
a,1029,1028,1039,959
a,959,1039,958,962,961
a,1031,964,962,966,1037,1036
a,962,958,957,966
!
FLST,5,4,4,ORDE,4
FITEM,5,1819
FITEM,5,-1820
FITEM,5,1823
FITEM,5,1880
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,1821
FITEM,5,1874
FITEM,5,1882
FITEM,5,1887
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1852
FITEM,5,1881
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1822
FITEM,5,1948
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1947
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,8,1,
CMDEL,_Y
CMDEL,_Y1
!*  
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am-3,am,1
!
asel,all
lsel,all
!
asel,s,loc,z,6.035+.200
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,-(.375-.200),,
*enddo
!
aclear,1164,1167,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
asel,all
lsel,all
!
csys,0
!
k,,-2.8060,-1.8840,6.440
k,,-2.8060,-2.9507,6.440
k,,kx(1047),-3.1535,6.440
!
*get,km,kp,,num,max
!
lstr,km-2,1041
lstr,km-1,km-2
lstr,km,km-1
lstr,km,1047
!
lstr,1054,1055
!
a,1047,km,km-1,km-2,1041,1040,1038,1049,1048
a,1055,1054,1053,1052,1051,1058,1057,1056
a,1059,1070,1069,1068,1071,1060
a,1072,1088,1087,1086,1089,1073
a,1083,1093,1096,1095,1097,1085
!
k,,kx(1043),ky(1064),kz(1064)
!
*get,km,kp,,num,max
!
lstr,km,1064
lstr,km,1043
!
a,1043,km,1064,1063,1046,1045,1044
!
csys,rotcs
!
l,1066,1075
!
csys,0
!
k,,2.821,-1.3093,kz(1064)
k,,2.6063,-.750,kz(1064)
k,,2.2893,-.750,kz(1064)
!
*get,km,kp,,num,max
!
lstr,km-2,1080
lstr,km-2,km-1
lstr,km,km-1
lstr,km,1077
!
k,,kx(km),ky(1065),kz(1065)
!
lstr,km+1,1065
lstr,km+1,km
!
a,1066,1065,km+1,km,1077,1076,1075
!
lesize,2085,,,4,1,
lesize,2086,,,3,1,
lesize,2087,,,3,1,
lesize,2088,,,4,1,
lesize,2089,,,7,1,
!
lesize,2090,,,5,1,
lesize,2091,,,1,1,
lesize,2092,,,2,1,
lesize,2096,,,4,1,
lesize,2097,,,4,1,
lesize,2098,,,1,1,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
*get,am,area,,num,max
!
*do,i,am-6,am,1
amesh,i
*enddo
!
asel,s,loc,z,6.065+.375,
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,-.325,,
*enddo
!
asel,all
lsel,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!
!********************************** Rear Wall ********************************
!
csys,0
!
k,,-3.8270,-4.6140,0
!
*get,km,kp,,num,max
!
csn=csn+1
bwCS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
bwcrtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,bwCS1
!
k,,.496,0,0
k,,.496,90,0
k,,.496,180,0
k,,.496,270,0
!
*get,km,kp,,num,max
!
l,km,km-1
l,km-1,km-2
l,km-2,km-3
l,km-3,km
!
k,,.775,0,0
k,,.775,90,0
k,,.775,180,0
k,,.775,270,0
!
*get,km,kp,,num,max
!
l,km,km-1
l,km-1,km-2
l,km-2,km-3
l,km-3,km
!
lstr,km-3,km-7
lstr,km-2,km-6
lstr,km-1,km-5
lstr,km,km-4
!
csys,bwcrtcs
!
k,,1.2247,.625,0
k,,.625,1.2247,0
k,,-.625,1.2247,0
k,,-1.2247,.625,0
k,,-1.2247,-.625,0
!
k,,-.625,-1.2247,0
k,,.625,-1.2247,0
k,,1.2247,-.625,0
!
csys,0
!
k,,-3.8270,-2.5813,4.5512
k,,-3.8270,-.7500,4.5512
k,,-3.8270,-.7500,2.3157
k,,-3.8270,-1.6271,2.3157
k,,-3.8270,-1.6271,-2.3157
!
k,,-3.8270,-.7500,-2.3157
k,,-3.8270,-.7500,-4.4387
k,,-3.8270,-2.5489,-4.4387
k,,-3.8270,-8.600,-2.1900
k,,-3.8270,-8.600,1.9550
!
k,,-3.8270,-2.9540,4.8325
k,,-3.8270,-2.9318,4.6778
k,,-3.8270,-3.1102,4.8311
k,,-3.8270,-3.2352,4.830
k,,-3.8270,-3.2352,4.955
!
*get,km,kp,,num,max
!
lstr,km-14,km-13
lstr,km-13,km-12
lstr,km-12,km-11
lstr,km-11,km-10
lstr,km-10,km-9
!
lstr,km-9,km-8
lstr,km-8,km-7
lstr,km-6,km-5
lstr,km-14,1102
lstr,km-5,946
!
lstr,km-7,481
!
k,,-3.8270,-2.9140,4.5541
k,,-3.8270,-2.7890,4.5541
!
*get,km,kp,,num,max
!
k,,-3.8270,ky(km),kz(km)-(1.193/2)
k,,-3.8270,ky(km-2)-(1.763/2),kz(km-2)
!
*get,km,kp,,num,max
!
lstr,km-4,km
lstr,km-1,km-2
!
csn=csn+1
clocal,csn,1,kx(km-8),ky(km-8),kz(km-8),0,0,90
!
l,km-6,km-7
!
csys,0
csn=csn+1
clocal,csn,1,kx(km-3),ky(km-3),kz(km-3),0,0,90
!
l,km-2,km-7
!
csys,0
csn=csn+1
clocal,csn,1,kx(km-5),ky(km-5),kz(km-5),0,0,90
!
l,km-4,km-6
!
csys,0
k,,kx(km),ky(km),kz(km-1)
*get,km,kp,,num,max
*get,lm,line,,num,max
csn=csn+1
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
lsymm,x,lm-4,lm,1,,1,0
lsymm,y,lm-4,lm+5,1,,1,0
!
csys,0
k,,-3.8270,-6.5890,4.7050
*get,km,kp,,num,max
csn=csn+1
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
k,,.25,90,0
k,,.25,180,0
l,km+1,km+2
!
csys,0
!
k,,kx(km+2),ky(km+2)-.459,kz(km+2)
!
lstr,km+3,km+2
!
csys,0
k,,-3.8270,-7.3290,4.832
*get,km,kp,,num,max
csn=csn+1
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
k,,.156,0,0
k,,.156,90,0
l,km+1,km+2
!
lstr,km+2,km-1
!
csys,0
!
k,,-3.8270,-7.4290,4.5532
!
lstr,km+3,km+1
!
*get,km,kp,,num,max
!
k,,kx(km-6),ky(km-6),kz(km-6)-.750
k,,kx(km-6),ky(km),kz(km-6)-.750
!
*get,km,kp,,num,max
!
lstr,km,km-2
lstr,km-1,km-8
!
csys,0
*get,km,kp,,num,max
*get,lm,line,,num,max
csn=csn+1
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
lsymm,x,lm-6,lm,1,,1,0
!
csys,0
csn=csn+1
cs1=csn
clocal,cs1,1,kx(1186),ky(1186),kz(1186),0,0,90
csys,0
csn=csn+1
cs2=csn
clocal,cs2,1,kx(1187),ky(1187),kz(1187),0,0,90
!
csys,cs1
!
k,,.25,0,0
k,,.25,300,0
*get,km,kp,,num,max
l,km,km-1
!
csys,cs2
!
k,,.25,270,0
k,,.25,330,0
*get,km,kp,,num,max
l,km,km-1
!
csys,0
csn=csn+1
cs1=csn
clocal,cs1,1,kx(1188),ky(1188),kz(1188),0,0,90
csys,0
csn=csn+1
cs2=csn
clocal,cs2,1,kx(1189),ky(1189),kz(1189),0,0,90
!
csys,cs1
!
k,,.25,30,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,cs2
!
k,,.25,0,0
k,,.25,60,0
*get,km,kp,,num,max
l,km,km-1
!
csys,0
csn=csn+1
cs1=csn
clocal,cs1,1,kx(1190),ky(1190),kz(1190),0,0,90
csys,0
csn=csn+1
cs2=csn
clocal,cs2,1,kx(1191),ky(1191),kz(1191),0,0,90
!
csys,cs1
!
k,,.25,120,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,cs2
!
k,,.25,90,0
k,,.25,150,0
*get,km,kp,,num,max
l,km,km-1
!
csys,0
csn=csn+1
cs1=csn
clocal,cs1,1,kx(1184),ky(1184),kz(1184),0,0,90
csys,0
csn=csn+1
cs2=csn
clocal,cs2,1,kx(1185),ky(1185),kz(1185),0,0,90
!
csys,cs1
!
k,,.25,210,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,cs2
!
k,,.25,180,0
k,,.25,240,0
*get,km,kp,,num,max
l,km,km-1
!
csys,bwCS1
!
l,1249,1251
l,1252,1255
l,1256,1259
l,1260,1263
!
csys,0
!
k,,-3.8270,-1.8771-.100,1.9550
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,-(2.1119-.100),0
k,,1.330,0,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km-1),ky(km-1),kz(km-1),0,0,0
k,,.25,180,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,0,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,90,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-5
lstr,km-1,km-2
lstr,km-4,1250
lstr,km-3,1248
!
csys,0
!
k,,-3.8270,-1.8771-.100,-2.1900
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,-(2.1119-.100),0
k,,-1.565,0,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km-1),ky(km-1),kz(km-1),0,0,0
k,,.25,0,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,90,0
k,,.25,0,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-5
lstr,km-1,km-2
lstr,km-4,1261
lstr,km-3,1262
!
csys,0
!
k,,-3.8270,-7.600,1.9550
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,2.361,0
k,,1.330,0,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km-1),ky(km-1),kz(km-1),0,0,0
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,0,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,270,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-5
lstr,km-1,km-2
lstr,km-4,1253
lstr,km-3,1254
!
csys,0
!
k,,-3.8270,-7.600,-2.1900
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,2.361,0
k,,-1.565,0,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km-1),ky(km-1),kz(km-1),0,0,0
k,,.25,0,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,180,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,270,0
k,,.25,0,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-5
lstr,km-1,km-2
lstr,km-4,1258
lstr,km-3,1257
!
csys,0
!
k,,-3.8270,-3.0390,-3.4400
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS11=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,1.500,0,0
k,,1.500,-2.300,0
k,,0,-2.300,0
!
*get,km,kp,,num,max
!
csn=csn+1
CS12=csn
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,90,0
k,,.25,0,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
CS13=csn
clocal,csn,1,kx(km-3),ky(km-3),kz(km-3),0,0,0
k,,.25,0,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
CS14=csn
clocal,csn,1,kx(km-4),ky(km-4),kz(km-4),0,0,0
k,,.25,270,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS11
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-7
lstr,km-1,km-2
lstr,km-4,km-3
lstr,km-5,km-6
!
csys,0
!
k,,-3.8270,-6.5890,-3.4400
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,1.500,0,0
k,,1.500,-.6500,0
k,,0,-.6500,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.25,90,0
k,,.25,0,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-3),ky(km-3),kz(km-3),0,0,0
k,,.25,0,0
k,,.25,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
clocal,csn,1,kx(km-4),ky(km-4),kz(km-4),0,0,0
k,,.25,270,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-7
lstr,km-1,km-2
lstr,km-4,km-3
lstr,km-5,km-6
!
csys,0
!
k,,-3.8270,-(7.850+.750),-6.2850
!
*get,km,kp,,num,max
!
lstr,km,1200
!
k,,kx(km),ky(515),kz(km)
lstr,km,km+1
!
csys,0
!
k,,-3.8270,-5.2390,-6.1900
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,-2.361,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km),ky(km),kz(km),0,0,0
k,,.25,270,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km-1,km-2
!
csys,0
!
k,,-3.8270,-3.4196,-6.1900
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS1=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,0,-.5694,0
!
*get,km,kp,,num,max
!
csn=csn+1
clocal,csn,1,kx(km),ky(km),kz(km),0,0,0
k,,.25,270,0
k,,.25,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS1
k,,.25,180,0
k,,.25,90,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km-1,km-2
!
csys,0
!
k,,kx(1325),ky(1328),kz(1325)
!
*get,km,kp,,num,max
!
lstr,km,1325
lstr,km,1328
!
k,,kx(515),ky(1324),kz(515)
!
*get,km,kp,,num,max
!
lstr,km,513
lstr,km,515
!
k,,kx(515),ky(515),kz(1325)
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,515,1325,,
!
l,1325,515
l,1324,km-1
l,1338,516
lstr,1331,523
lstr,1334,524
!
lstr,1337,481
!
csys,0
!
k,,kx(1195),ky(1195),kz(38)
!
ldele,2268
!
*get,km,kp,,num,max
!
lstr,1195,km
lstr,km,1196
lstr,km,38
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
k,,kx(1192),ky(1192),5.500
k,,kx(1192),ky(1201),5.500
!
*get,km,kp,,num,max
!
lstr,km,km-1
!
*get,lm,line,,num,max
!
lsel,s,line,,2273,2274,1
cm,lset,line
lsel,all
!
lsbl,lset,lm,,delete,delete
!
lstr,1337,1338
lstr,1325,1328
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Sizing Lines
!
FLST,5,3,4,ORDE,3
FITEM,5,2267
FITEM,5,2387
FITEM,5,-2388
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2276
FITEM,5,2281
FITEM,5,2286
FITEM,5,2291
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,12,4,ORDE,8
FITEM,5,2278
FITEM,5,-2280
FITEM,5,2283
FITEM,5,-2285
FITEM,5,2288
FITEM,5,-2290
FITEM,5,2293
FITEM,5,-2295
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2277
FITEM,5,2282
FITEM,5,2287
FITEM,5,2292
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2327
FITEM,5,2341
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2318
FITEM,5,-2319
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,3
FITEM,5,2322
FITEM,5,-2324
FITEM,5,2336
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,2326
FITEM,5,2328
FITEM,5,2340
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2342
FITEM,5,2349
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2301
FITEM,5,-2302
FITEM,5,2308
FITEM,5,-2309
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2273
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,12,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2265
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2266
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2335
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2325
FITEM,5,2332
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2320
FITEM,5,-2321
FITEM,5,2334
FITEM,5,2348
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2333
FITEM,5,2347
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2339
FITEM,5,2346
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,8,4,ORDE,2
FITEM,5,2310
FITEM,5,-2317
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,8,4,ORDE,6
FITEM,5,2329
FITEM,5,-2331
FITEM,5,2337
FITEM,5,-2338
FITEM,5,2343
FITEM,5,-2345
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,12,4,ORDE,8
FITEM,5,2350
FITEM,5,-2353
FITEM,5,2358
FITEM,5,-2361
FITEM,5,2368
FITEM,5,-2369
FITEM,5,2371
FITEM,5,-2372
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,2
FITEM,5,2261
FITEM,5,-2264
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,8,4,ORDE,2
FITEM,5,2253
FITEM,5,-2260
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2354
FITEM,5,2356
FITEM,5,2362
FITEM,5,2364
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2363
FITEM,5,2365
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2355
FITEM,5,2357
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2373
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2274
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2374
FITEM,5,-2375
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2370
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2367
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2366
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,10,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2272
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,10,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2389
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,8,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2386
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,4
FITEM,5,2298
FITEM,5,-2300
FITEM,5,2305
FITEM,5,-2307
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2298
FITEM,5,2305
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2297
FITEM,5,2304
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2296
FITEM,5,2303
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2381
FITEM,5,-2382
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2267
FITEM,5,2269
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2268
FITEM,5,2384
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2270
FITEM,5,-2271
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2275
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2383
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*
!
!------------------------------- Right Rear Port ------------------------------
!
csys,0
!
k,,-3.8270,-3.0390,4.7050
!
*get,km,kp,,num,max
!
csn=csn+1
crtcs=csn
clocal,csn,0,kx(km),ky(km),kz(km),0,0,90
!
csys,0
csn=csn+1
CS15=csn
clocal,csn,1,kx(km),ky(km),kz(km),0,0,90
!
csys,crtcs
!
k,,1.500,0,0
k,,1.500,-2.300,0
k,,0,-2.300,0
!
*get,km,kp,,num,max
!
csn=csn+1
CS16=csn
clocal,csn,1,kx(km-2),ky(km-2),kz(km-2),0,0,0
k,,.835,90,0
k,,.835,0,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
CS17=csn
clocal,csn,1,kx(km-3),ky(km-3),kz(km-3),0,0,0
k,,.835,0,0
k,,.835,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,crtcs
csn=csn+1
CS18=csn
clocal,csn,1,kx(km-4),ky(km-4),kz(km-4),0,0,0
k,,.835,270,0
k,,.835,180,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS15
k,,.835,180,0
k,,.835,90,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-7
lstr,km-1,km-2
lstr,km-4,km-3
lstr,km-5,km-6
!
!------------------------------- Left Rear Port ------------------------------
!
csys,CS11
k,,.835,180,0
k,,.835,90,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS12
k,,.835,90,0
k,,.835,0,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS13
k,,.835,0,0
k,,.835,270,0
*get,km,kp,,num,max
l,km,km-1
!
csys,CS14
k,,.835,270,0
k,,.835,180,0
*get,km,kp,,num,max
l,km,km-1
!
*get,km,kp,,num,max
!
lstr,km,km-7
lstr,km-6,km-5
lstr,km-4,km-3
lstr,km-2,km-1
!
!----------------------------------------------------------------------------
!
ldele,2387,2388,1,1
ldele,2273,,,1
!
lstr,1102,1192
!
lsbl,2265,2394,,delete,delete
lstr,1349,1337
lstr,1342,1337
!
lsbl,2393,2273,,delete,delete
lstr,1102,1358
lstr,1358,1192
!
lsbl,2271,2403,,delete,delete
lstr,1352,1359
lstr,1359,1351
!
lsbl,2399,2275,,delete,delete
lstr,481,1360
lstr,1360,1199
!
csys,CS18
k,,.780,220,0
*get,km,kp,,num,max
lstr,km,1336
!
lsbl,2392,2412,,delete,delete
lstr,1336,km+1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
FLST,5,3,4,ORDE,3
FITEM,5,2265
FITEM,5,2406
FITEM,5,2411
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,7,4,ORDE,7
FITEM,5,2390
FITEM,5,-2391
FITEM,5,2398
FITEM,5,2400
FITEM,5,-2401
FITEM,5,2407
FITEM,5,2410
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,2271
FITEM,5,2412
FITEM,5,-2413
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,2394
FITEM,5,2396
FITEM,5,2405
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2387
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2409
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,2395
FITEM,5,2397
FITEM,5,2402
FITEM,5,2404
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,2273
FITEM,5,2275
FITEM,5,2393
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2399
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,2388
FITEM,5,2408
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2392
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2403
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Create Areas
!
FLST,2,11,4
FITEM,2,2395
FITEM,2,2406
FITEM,2,2393
FITEM,2,2387
FITEM,2,2394
FITEM,2,2390
FITEM,2,2397
FITEM,2,2391
FITEM,2,2396
FITEM,2,2412
FITEM,2,2413
AL,P51X
! 
FLST,2,20,4
FITEM,2,2280
FITEM,2,2278
FITEM,2,2279
FITEM,2,2277
FITEM,2,2282
FITEM,2,2284
FITEM,2,2283
FITEM,2,2285
FITEM,2,2281
FITEM,2,2291
FITEM,2,2295
FITEM,2,2294
FITEM,2,2293
FITEM,2,2292
FITEM,2,2287
FITEM,2,2289
FITEM,2,2288
FITEM,2,2290
FITEM,2,2286
FITEM,2,2276
AL,P51X
! 
*get,am,area,,num,max
asba,am-1,am,,delete,delete
!
numcmp,all
!
FLST,2,10,4
FITEM,2,2402
FITEM,2,2398
FITEM,2,2403
FITEM,2,2409
FITEM,2,2399
FITEM,2,2411
FITEM,2,2404
FITEM,2,2400
FITEM,2,2405
FITEM,2,2401
AL,P51X
!
FLST,2,8,4
FITEM,2,2353
FITEM,2,2354
FITEM,2,2350
FITEM,2,2357
FITEM,2,2351
FITEM,2,2356
FITEM,2,2352
FITEM,2,2355
AL,P51X
!
*get,am,area,,num,max
asba,am-1,am,,delete,delete
!
numcmp,all
!
!   
FLST,2,38,4
FITEM,2,2392
FITEM,2,2412
FITEM,2,2396
FITEM,2,2391
FITEM,2,2397
FITEM,2,2390
FITEM,2,2394
FITEM,2,2388
FITEM,2,2266
FITEM,2,2267
FITEM,2,2268
FITEM,2,2384
FITEM,2,2269
FITEM,2,2270
FITEM,2,2408
FITEM,2,2403
FITEM,2,2398
FITEM,2,2402
FITEM,2,2401
FITEM,2,2405
FITEM,2,2400
FITEM,2,2404
FITEM,2,2411
FITEM,2,2275
FITEM,2,2383
FITEM,2,2372
FITEM,2,2373
FITEM,2,2371
FITEM,2,2274
FITEM,2,2369
FITEM,2,2370
FITEM,2,2368
FITEM,2,2375
FITEM,2,2374
FITEM,2,2367
FITEM,2,2366
FITEM,2,2272
FITEM,2,2389
AL,P51X
! 
FLST,2,14,4
FITEM,2,2296
FITEM,2,2302
FITEM,2,2309
FITEM,2,2303
FITEM,2,2304
FITEM,2,2306
FITEM,2,2305
FITEM,2,2307
FITEM,2,2308
FITEM,2,2301
FITEM,2,2300
FITEM,2,2298
FITEM,2,2299
FITEM,2,2297
AL,P51X
FLST,2,10,4
FITEM,2,2322
FITEM,2,2325
FITEM,2,2324
FITEM,2,2326
FITEM,2,2323
FITEM,2,2328
FITEM,2,2310
FITEM,2,2318
FITEM,2,2311
FITEM,2,2327
AL,P51X
FLST,2,10,4
FITEM,2,2317
FITEM,2,2335
FITEM,2,2330
FITEM,2,2333
FITEM,2,2331
FITEM,2,2332
FITEM,2,2329
FITEM,2,2334
FITEM,2,2316
FITEM,2,2321
AL,P51X
FLST,2,10,4
FITEM,2,2339
FITEM,2,2336
FITEM,2,2341
FITEM,2,2312
FITEM,2,2319
FITEM,2,2313
FITEM,2,2342
FITEM,2,2337
FITEM,2,2340
FITEM,2,2338
AL,P51X
FLST,2,10,4
FITEM,2,2349
FITEM,2,2314
FITEM,2,2320
FITEM,2,2315
FITEM,2,2348
FITEM,2,2343
FITEM,2,2346
FITEM,2,2345
FITEM,2,2347
FITEM,2,2344
AL,P51X
FLST,2,8,4
FITEM,2,2361
FITEM,2,2362
FITEM,2,2358
FITEM,2,2365
FITEM,2,2359
FITEM,2,2364
FITEM,2,2360
FITEM,2,2363
AL,P51X
FLST,2,4,4
FITEM,2,2258
FITEM,2,2259
FITEM,2,2260
FITEM,2,2257
AL,P51X
!
*get,am,area,,num,max
!
asel,s,area,,am-6,am,a
cm,aset,area
asel,all
!
asba,am-7,aset,,delete,delete
!
a,1182,1181,1177,1178
a,1177,1181,1180,1176
a,1182,1178,1179,1183
a,1183,1179,1176,1180
!   
FLST,2,16,4
FITEM,2,2386
FITEM,2,1774
FITEM,2,1866
FITEM,2,1989
FITEM,2,2089
FITEM,2,1980
FITEM,2,1857
FITEM,2,1770
FITEM,2,1849
FITEM,2,1973
FITEM,2,2088
FITEM,2,2273
FITEM,2,2406
FITEM,2,2395
FITEM,2,2413
FITEM,2,2392
AL,P51X
!   
FLST,2,4,4
FITEM,2,2274
FITEM,2,2382
FITEM,2,1001
FITEM,2,2381
AL,P51X
!
FLST,2,4,4
FITEM,2,2393
FITEM,2,2407
FITEM,2,2265
FITEM,2,2387
AL,P51X
FLST,2,4,4
FITEM,2,2409
FITEM,2,2271
FITEM,2,2410
FITEM,2,2399
AL,P51X
!
csys,0
!
asel,s,area,,1371,1381,1
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
asel,u,area,,1371,1377,1377-1371
asel,u,area,,1379
!
*do,i,alow,ahigh,1
voffst,i,.375,,
*enddo
!
asel,s,area,,1371,1377,1377-1371
asel,a,area,,1379
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,-.375,,
*enddo
!
asel,s,area,,1371,1381,1
!
aclear,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
FLST,2,14,3
FITEM,2,1474
FITEM,2,1473
FITEM,2,1472
FITEM,2,1471
FITEM,2,1470
FITEM,2,1469
FITEM,2,1468
FITEM,2,1481
FITEM,2,1480
FITEM,2,1479
FITEM,2,1478
FITEM,2,1477
FITEM,2,1476
FITEM,2,1475
A,P51X
!   
FLST,2,10,3
FITEM,2,1436
FITEM,2,1435
FITEM,2,1434
FITEM,2,1433
FITEM,2,1432
FITEM,2,1431
FITEM,2,1430
FITEM,2,1429
FITEM,2,1428
FITEM,2,1437
A,P51X
FLST,2,10,3
FITEM,2,1465
FITEM,2,1464
FITEM,2,1463
FITEM,2,1462
FITEM,2,1461
FITEM,2,1460
FITEM,2,1459
FITEM,2,1458
FITEM,2,1467
FITEM,2,1466
A,P51X
!  
FLST,2,10,3
FITEM,2,1447
FITEM,2,1446
FITEM,2,1445
FITEM,2,1444
FITEM,2,1443
FITEM,2,1442
FITEM,2,1441
FITEM,2,1440
FITEM,2,1439
FITEM,2,1438
A,P51X
FLST,2,10,3
FITEM,2,1455
FITEM,2,1454
FITEM,2,1453
FITEM,2,1452
FITEM,2,1451
FITEM,2,1450
FITEM,2,1449
FITEM,2,1448
FITEM,2,1457
FITEM,2,1456
A,P51X
!  
FLST,2,8,3
FITEM,2,1420
FITEM,2,1427
FITEM,2,1426
FITEM,2,1425
FITEM,2,1424
FITEM,2,1423
FITEM,2,1422
FITEM,2,1421
A,P51X
!
asel,s,area,,1559,1564,1
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
asel,s,loc,x,kx(1402)
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
asel,u,area,,1543,1556,1556-1543
asel,u,area,,1517
!
*do,i,alow,ahigh,1
voffst,i,.075,,
*enddo
!
asel,s,area,,1543,1556,1556-1543
asel,a,area,,1517
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,-.075,,
*enddo
!
asel,s,area,,1559,1564,1
!
aclear,all
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
asel,s,loc,x,kx(1557)
asel,u,area,,1565,1706,1706-1565
asel,u,area,,1732,1745,1745-1732
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,.25,,
*enddo
!
asel,s,area,,1732,1745,1745-1732
!
*get,alow,area,,num,min
*get,ahigh,area,,num,max
!
*do,i,alow,ahigh,1
voffst,i,-.25,,
*enddo
!
asel,all
lsel,all
vsel,all
!
vclear,248
vdele,248
adele,1773,1774,1,1
adele,1777,,,1
!
vclear,257
vdele,257
adele,1968,1970,1,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Right Side Rib Web
!
lstr,188,119
!
a,119,188,150
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
lesize,lm,,,7,1,
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
voffst,am,topthk,,
!
aclear,am
!
vclear,103,106,3
vadd,103,106
!
lesize,932,,,3,1,
!
nummrg,all,.001,.001        ! merge all coincident entities
!
mopt,pyra,on
mshape,1,3d
mshkey,0
vatt,,,1,
!
vmesh,257
!
numcmp,all          ! renumber & compress all entities
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Left Side Rib Web
!
lstr,69,90
!
a,69,90,61
!
*get,am,area,,num,max
*get,lm,line,,num,max
!
lesize,lm,,,7,1,
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
voffst,am,topthk,,
!
aclear,am
!
vclear,91,106,106-91
vadd,91,106
!
nummrg,all,.001,.001        ! merge all coincident entities
!
lesize,958,,,3,1,
lesize,3328,,,9,1,
!
mopt,pyra,on
mshape,1,3d
mshkey,0
vatt,,,1,
!
vmesh,257
!
numcmp,all          ! renumber & compress all entities
!
!
!------------------------- Torquer Clearance Section -----------------------
!
csys,rotcs
!
k,,1.175,ky(916),.8719
k,,1.175,ky(916),.9969
k,,1.500,ky(916),.9969
k,,1.750,ky(916),kz(1135)
!
*get,km,kp,,num,max
!
lstr,916,km-3
lstr,km-3,km-2
lstr,km-2,km-1
lstr,km-1,km
lstr,km,1135
!
a,km-3,km-2,km-1,km,1135,1066,1012,916
!
*get,am,area,,num,max
!
lesize,3320,,,4,1,
lesize,3321,,,1,1,
lesize,3322,,,2,1,
lesize,3323,,,2,1,
lesize,3324,,,1,1,
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
k,,0,0,0
k,,0,0,1.00
!
*get,km,kp,,num,max
!
cp1=km-1
cp2=km
!
esize,0,8
vrotat,am,,,,,,cp1,cp2,ky(954)-ky(916),1
!
aclear,am
!
esize,0,9
vrotat,1906,,,,,,cp1,cp2,abs(ky(954))-abs(ky(955)),1
!
esize,0,9
vrotat,1915,,,,,,cp1,cp2,abs(ky(955))-abs(ky(956)),1
!
esize,0,8
vrotat,1924,,,,,,cp1,cp2,abs(ky(915))-abs(ky(956)),1
!
esize,0,2
vrotat,1933,,,,,,cp1,cp2,abs(ky(916))-abs(ky(915)),1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
a,1806,1801,1818,1814,1810
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
voffst,am,kz(1806)-kz(1805),
!
aclear,am
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!---------------------------------------------------------------------------
!
csys,0
!
k,,-1.6983,-.2397,-6.9953
k,,-4.1700,-2.0053,-6.9953
k,,-4.1700,-.2397,-5.2297
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km-1,km-2
lstr,km-2,km
!
a,km,km-1,km-2
!
k,,-4.1700,-.2397,4.7597
k,,-4.1700,-2.0053,6.5253
k,,-1.6983,-.2397,6.5253
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km-1,km-2
lstr,km-2,km
!
a,km,km-1,km-2
!
LPLOT
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Front frame
!
csys,0
!
k,,3.3137,-.500,4.5957
k,,3.3137,-.500,-5.0657
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,907,km-1
lstr,903,km
!
k,,kx(445)+2.00,ky(445),kz(445)
!
*get,km,kp,,num,max
!
lstr,445,km
!
*get,lm,line,,num,max
!
lsbl,3,lm,,delete,delete
lstr,1830,445
!
numcmp,all
!
k,,kx(443)+2.00,ky(443),kz(443)
!
*get,km,kp,,num,max
!
lstr,443,km
!
*get,lm,line,,num,max
!
lsbl,3372,lm,,delete,delete
lstr,1831,443
!
numcmp,all
!
k,,kx(449)+2.00,ky(449),kz(449)
!
*get,km,kp,,num,max
!
lstr,449,km
!
*get,lm,line,,num,max
!
lsbl,3375,lm,,delete,delete
lstr,1832,449
!
numcmp,all
!
k,,kx(447)+2.00,ky(447),kz(447)
!
*get,km,kp,,num,max
!
lstr,447,km
!
*get,lm,line,,num,max
!
lsbl,3378,lm,,delete,delete
lstr,1833,447
!
numcmp,all
!
lstr,1829,1830
lstr,1831,1832
lstr,453,1827
lstr,459,1828
!
adrag,3385,,,,,,902,
!
*get,am,area,,num,max
!
adele,am
!
lsbl,3376,3387,,delete,delete
!
ldele,3389,,,1
!
lstr,1835,1827
!
adrag,3386,,,,,,918,
!
*get,am,area,,num,max
!
adele,am
!
lsbl,3379,3387,,delete,delete
!
ldele,3392,,,1
!
lstr,1837,1828
!
ldele,3390,,,1
ldele,3393,,,1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
lstr,455,1833
lstr,461,1834
!
a,455,1833,1827,453
a,445,1829,1830,443
a,447,449,1831,1832
a,461,1834,1828,459
a,453,443,1830,1827
!
a,443,421,430,447,1832,1830
a,447,459,1828,1832
a,455,445,1829,1833
a,445,424,433,449,1831,1829
a,449,461,1834,1831
!
a,1833,1829,1830,1827
a,1829,1831,1832,1830
a,1831,1834,1828,1832
!
va,1940,1941,1944,572,1947,1950
va,1941,1945,1942,554,545,561,1948,1951
va,1942,1943,1946,585,1949,1952
!
FLST,5,12,4,ORDE,10
FITEM,5,3
FITEM,5,3372
FITEM,5,3375
FITEM,5,-3376
FITEM,5,3378
FITEM,5,-3379
FITEM,5,3383
FITEM,5,-3386
FITEM,5,3389
FITEM,5,-3390
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,3377
FITEM,5,3381
FITEM,5,3387
FITEM,5,-3388
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3380
FITEM,5,3382
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,10,1,
CMDEL,_Y
CMDEL,_Y1
!*  
mshape,0,3d
mshkey,1,
vatt,,,1,
!
vmesh,262,264,2
!
asel,s,area,,545,554,554-545
asel,a,area,,561
!
accat,all
!
lsel,s,line,,767,878,878-767
lsel,a,line,,889
!
lccat,all
!
lsel,s,line,,864,875,875-864
lsel,a,line,,886
!
lccat,all
!
vmesh,263
!
asel,all
vsel,all
lsel,all
!
csys,0
!
k,,kx(1415),ky(1415),kz(1391)
!
*get,km,kp,,num,max
!
lstr,km,1415
lstr,km,1391
!
*get,lm,line,,num,max
!
lesize,lm-1,,,1,1,
lesize,lm,,,8,1,
!
a,km,1415,1414,1413,1412,1388,1391
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
a,1319,1332,516,515
a,1318,1319,515,1333
!
csys,0
!
csn=csn+1
outfilcs=csn
clocal,outfilcs,1,-3.8770,ky(1318),-6.5850,90,0,90
!
csys,0
csn=csn+1
infilcs=csn
clocal,infilcs,1,-3.9520,ky(1318),-6.6600,90,0,90
!
k,,r1,0,kz(km)
k,,r1,90,kz(km)
*get,km,kp,,num,max
l,km,km-1
!
k,,r1,0,kz(1391)
k,,r1,90,kz(1391)
*get,km,kp,,num,max
l,km,km-1
!
k,,r1,0,kz(1390)
k,,r1,90,kz(1390)
*get,km,kp,,num,max
l,km,km-1
!
k,,r1,0,kz(1408)
k,,r1,90,kz(1408)
*get,km,kp,,num,max
l,km,km-1
!
lstr,1835,1837
lstr,1836,782
a,1332,1415,1835,1837,1836,782,685,603,516
!
lstr,1391,1839
lstr,1838,781
a,523,1391,1839,1838,781,777
!
lstr,1390,1841
lstr,1840,778
a,524,1390,1841,1840,778,766
!
lstr,1408,1843
lstr,1842,675
a,481,1408,1843,1842,675,591
!
lstr,1839,1837
lstr,1838,1836
lstr,1839,1841
lstr,1838,1840
lstr,1843,1841
!
lstr,1842,1840
lstr,1408,1390
!
FLST,2,4,3
FITEM,2,1843
FITEM,2,1408
FITEM,2,1390
FITEM,2,1841
A,P51X
!  
FLST,2,4,3
FITEM,2,1842
FITEM,2,1843
FITEM,2,1841
FITEM,2,1840
A,P51X
!  
FLST,2,4,3
FITEM,2,675
FITEM,2,1842
FITEM,2,1840
FITEM,2,778
A,P51X
!  
FLST,2,4,3
FITEM,2,1839
FITEM,2,1391
FITEM,2,1835
FITEM,2,1837
A,P51X
!
FLST,2,4,3
FITEM,2,1838
FITEM,2,1839
FITEM,2,1837
FITEM,2,1836
A,P51X
!  
FLST,2,4,3
FITEM,2,781
FITEM,2,1838
FITEM,2,1836
FITEM,2,782
A,P51X
!
a,1390,1389,1411,1410,1409,1408
!
*get,am,area,,num,max
!
FLST,5,2,4,ORDE,2
FITEM,5,3411
FITEM,5,3413
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,9,4,ORDE,6
FITEM,5,2374
FITEM,5,-2376
FITEM,5,3395
FITEM,5,-3398
FITEM,5,3409
FITEM,5,-3410
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3407
FITEM,5,-3408
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,10,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2373
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,10,4,ORDE,4
FITEM,5,1481
FITEM,5,3393
FITEM,5,3399
FITEM,5,-3406
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,6,4,ORDE,2
FITEM,5,3401
FITEM,5,-3406
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3399
FITEM,5,-3400
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2372
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3412
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
asel,s,area,,1954,am,am-1954
!
*do,i,1954,am,am-1954
voffst,i,.075,,
*enddo
!
asel,s,area,,1968,1976,1976-1968
!
*do,i,1968,1976,1976-1968
voffst,i,.25,,
*enddo
!
asel,all
!
csys,outfilcs
!
outr=0.650
!
k,,outr,0,kz(1720)
k,,outr,90,kz(1720)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,0,kz(1857)
k,,outr,90,kz(1857)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,0,kz(1839)
k,,outr,90,kz(1839)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,0,kz(1841)
k,,outr,90,kz(1841)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,0,kz(1843)
k,,outr,90,kz(1843)
*get,km,kp,,num,max
l,km,km-1
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
lstr,1847,1720
lstr,1846,811
lstr,1849,1845
lstr,1848,890
lstr,1851,1685
!
lstr,1850,889
lstr,1853,1684
lstr,1852,886
lstr,1855,1711
lstr,1854,798
!
lstr,1848,1846
lstr,1853,1851
lstr,1849,1851
lstr,1849,1847
lstr,1848,1850
!
lstr,1850,1852
lstr,1853,1855
!
FLST,2,4,3
FITEM,2,1855
FITEM,2,1711
FITEM,2,1684
FITEM,2,1853
A,P51X
!  
FLST,2,4,3
FITEM,2,1855
FITEM,2,1853
FITEM,2,1852
FITEM,2,1854
A,P51X
!  
FLST,2,4,3
FITEM,2,798
FITEM,2,1854
FITEM,2,1852
FITEM,2,886
A,P51X
!  
FLST,2,9,3
FITEM,2,675
FITEM,2,1842
FITEM,2,1843
FITEM,2,1408
FITEM,2,1564
FITEM,2,1711
FITEM,2,1855
FITEM,2,1854
FITEM,2,798
A,P51X
!  
FLST,2,4,3
FITEM,2,1853
FITEM,2,1684
FITEM,2,1685
FITEM,2,1851
A,P51X
!  
FLST,2,4,3
FITEM,2,1852
FITEM,2,1853
FITEM,2,1851
FITEM,2,1850
A,P51X
!  
FLST,2,4,3
FITEM,2,886
FITEM,2,1852
FITEM,2,1850
FITEM,2,889
A,P51X
!
FLST,2,4,3
FITEM,2,1851
FITEM,2,1685
FITEM,2,1845
FITEM,2,1849
A,P51X
! 
FLST,2,4,3
FITEM,2,1850
FITEM,2,1851
FITEM,2,1849
FITEM,2,1848
A,P51X
!  
FLST,2,4,3
FITEM,2,889
FITEM,2,1850
FITEM,2,1848
FITEM,2,890
A,P51X
!   
FLST,2,6,3
FITEM,2,1849
FITEM,2,1845
FITEM,2,1718
FITEM,2,1719
FITEM,2,1720
FITEM,2,1847
A,P51X
!
FLST,2,4,3
FITEM,2,1849
FITEM,2,1847
FITEM,2,1846
FITEM,2,1848
A,P51X
!
FLST,2,7,3
FITEM,2,1846
FITEM,2,811
FITEM,2,812
FITEM,2,813
FITEM,2,806
FITEM,2,890
FITEM,2,1848
A,P51X
!
FLST,5,301,4,ORDE,95
FITEM,5,975
FITEM,5,993
FITEM,5,-998
FITEM,5,1000
FITEM,5,1079
FITEM,5,1081
FITEM,5,-1083
FITEM,5,1086
FITEM,5,1099
FITEM,5,-1100
FITEM,5,1105
FITEM,5,-1109
FITEM,5,1113
FITEM,5,-1115
FITEM,5,1258
FITEM,5,-1268
FITEM,5,1270
FITEM,5,-1271
FITEM,5,1273
FITEM,5,-1275
FITEM,5,1278
FITEM,5,-1279
FITEM,5,1283
FITEM,5,-1288
FITEM,5,1292
FITEM,5,-1294
FITEM,5,1445
FITEM,5,-1446
FITEM,5,1448
FITEM,5,1457
FITEM,5,-1458
FITEM,5,1461
FITEM,5,-1469
FITEM,5,1472
FITEM,5,-1481
FITEM,5,1500
FITEM,5,-1509
FITEM,5,1511
FITEM,5,-1513
FITEM,5,1516
FITEM,5,-1517
FITEM,5,1521
FITEM,5,-1526
FITEM,5,1530
FITEM,5,-1532
FITEM,5,1675
FITEM,5,-1677
FITEM,5,1679
FITEM,5,-1681
FITEM,5,1695
FITEM,5,-1696
FITEM,5,1699
FITEM,5,-1709
FITEM,5,2270
FITEM,5,-2271
FITEM,5,2363
FITEM,5,-2365
FITEM,5,2367
FITEM,5,-2368
FITEM,5,2370
FITEM,5,-2379
FITEM,5,2414
FITEM,5,-2417
FITEM,5,2433
FITEM,5,-2435
FITEM,5,2466
FITEM,5,-2473
FITEM,5,2475
FITEM,5,2492
FITEM,5,-2503
FITEM,5,2583
FITEM,5,-2592
FITEM,5,2736
FITEM,5,-2739
FITEM,5,2755
FITEM,5,-2757
FITEM,5,2788
FITEM,5,-2795
FITEM,5,2797
FITEM,5,2814
FITEM,5,-2825
FITEM,5,2905
FITEM,5,-2914
FITEM,5,3074
FITEM,5,-3081
FITEM,5,3083
FITEM,5,3086
FITEM,5,3107
FITEM,5,-3121
FITEM,5,3206
FITEM,5,-3217
FITEM,5,3366
FITEM,5,-3367
FITEM,5,3393
FITEM,5,-3444
!
FLST,2,11,3
FITEM,2,811
FITEM,2,1846
FITEM,2,1847
FITEM,2,1720
FITEM,2,1573
FITEM,2,1417
FITEM,2,1318
FITEM,2,1333
FITEM,2,513
FITEM,2,608
FITEM,2,690
A,P51X
!
a,1333,515,514,513
!
csys,0
!
asel,s,loc,z,kz(811),kz(1318)
asel,r,loc,x,kx(1720),kx(513)
asel,r,loc,y,ky(513),ky(481)
cm,aset1,area
!
asel,s,loc,x,kx(516),0
asel,r,loc,y,ky(516),ky(798)
cm,uaset1,area
!
asel,s,loc,z,kz(523)+.1,0
asel,r,loc,y,ky(1718)+.1,ky(481)
cm,uaset2,area
!
asel,s,area,,aset1
asel,u,area,,uaset1
asel,u,area,,uaset2
asel,u,area,,1960
!
va,all
!
asel,all
vsel,all
lsel,all
!
FLST,5,5,4,ORDE,2
FITEM,5,3422
FITEM,5,-3426
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3443
FITEM,5,-3444
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3438
FITEM,5,3442
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3439
FITEM,5,3441
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3428
FITEM,5,3437
FITEM,5,3440
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3418
FITEM,5,3427
FITEM,5,3429
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,1,4,ORDE,1
FITEM,5,3427
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,2
FITEM,5,3431
FITEM,5,-3436
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3429
FITEM,5,-3430
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*
lesize,3397,,,2,1,
lesize,3398,,,2,1,
!
asel,s,area,,1978,1991,1
asel,a,area,,1955,1959,1
asel,a,area,,1961,1966,1
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
vatt,,,1,
!
vmesh,269
!
aclear,all
aclear,1954,1967,1967-1954
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
LPLOT
!
!---------------------------- Mesh Correction ---------------------------
!
vsel,s,volu,,253,
aslv,s
!
vclear,all
!
lesize,848,,,3,1,
lesize,267,,,8,1,
!
asel,u,area,,145,147,2
asel,u,area,,95,252,252-95
asel,u,area,,142,
asel,u,area,,98,114,114-98
asel,u,area,,596,599,3
asel,u,area,,100,601,601-100
asel,u,area,,140,598,598-140
asel,u,area,,574,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
vatt,,,1,
!
vmesh,all
!
aclear,all
!
vsel,s,volu,,103,
!
vclear,all
!
lesize,426,,,1,1,
lesize,428,,,1,1,
!
asel,s,area,,152,154,1
asel,a,area,,159,162,1
asel,a,area,,102,
asel,a,area,,210,215,1
asel,a,area,,225,226,1
asel,a,area,,500,503,1
asel,a,area,,610,611,1
asel,a,area,,593,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
vatt,,,1,
!
vmesh,all
!
aclear,all
!
vsel,s,volu,,255,
aslv,s
!
vclear,all
!
lesize,974,,,4,1,
lesize,972,,,4,1,
lesize,456,,,4,1,
lesize,307,,,6,1,
lesize,308,,,7,1,
!
lesize,158,,,6,1,
lesize,165,,,10,1,
lesize,248,,,8,1,
lesize,310,,,4,1,
lesize,858,,,2,1,
!
asel,u,area,,57,58,1
asel,u,area,,69,74,74-69
asel,u,area,,92,139,139-92
asel,u,area,,80,84,4
asel,u,area,,257,258,1
asel,u,area,,364,366,366-364
asel,u,area,,369,381,381-369
asel,u,area,,251,
asel,u,area,,383,386,386-383
asel,u,area,,613,614,1
asel,u,area,,618,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
vatt,,,1,
!
vmesh,all
!
aclear,all
!
vsel,all
asel,all
lsel,all
!
LPLOT
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,0
!
k,,-1.4052,-.6500,kz(1169)
k,,-3.8770,-2.4156,kz(1169)
!
*get,km,kp,,num,max
!
lstr,km,km-1
!
k,,kx(1785),-.6500,4.3494
k,,kx(1785),-2.4156,6.1150
!
*get,km,kp,,num,max
!
lstr,km,km-1
!
k,,kx(1785),-.6500,-4.8194
k,,kx(1785),-2.4156,-6.5850
!
*get,km,kp,,num,max
!
lstr,km,km-1
!
k,,-1.4052,-.6500,kz(1846)
k,,-3.8770,-2.4156,kz(1846)
!
*get,km,kp,,num,max
!
lstr,km,km-1
!
lstr,1833,7
lstr,1834,6
!
!---------------------------- Right Front Top Section ------------------------
!
csys,0
!
csn=csn+1
rtfilcs=csn
clocal,rtfilcs,1,kx(7),-outr,kz(7),0,0,90
!
k,,outr,180,0
k,,outr,180,1.00
!
*get,km,kp,,num,max
!
l,km-1,7
lstr,km,km-1
!
*get,lm,line,,num,max
!
adrag,lm-1,,,,,,lm,
!
csn=csn+1
cskp,csn,0,1151,907,7,,
!
k,,0,ky(7),0
!
*get,km,kp,,num,max
!
a,7,km,1151,907
!
*get,am,area,,num,max
!
aptn,am,am-1
!
adele,1996,1998,1,1
adele,1995
ldele,3461,,,1
ldele,3452,,,1
ldele,3451,,,1
!
lstr,1869,1151
!
numcmp,all
!
!---------------------------- Left Front Top Section ------------------------
!
csys,0
!
csn=csn+1
lftfilcs=csn
clocal,lftfilcs,1,kx(6),-outr,kz(6),0,0,90
!
k,,outr,0,0
k,,outr,0,1.00
!
*get,km,kp,,num,max
!
l,km-1,6
lstr,km,km-1
!
*get,lm,line,,num,max
!
adrag,lm-1,,,,,,lm,
!
csn=csn+1
cskp,csn,0,882,903,6,,
!
k,,0,ky(6),0
!
*get,km,kp,,num,max
!
a,6,km,882,903
!
*get,am,area,,num,max
!
aptn,am,am-1
!
adele,1996,1998,1,1
adele,1995
ldele,3463,,,1
ldele,3453,,,1
ldele,3454,,,1
!
lstr,1870,882
lstr,1856,1864
lstr,1862,1870
!
!-----------------------------------------------------------------------------
!
csys,rtfilcs
l,8,1856
!
csys,lftfilcs
l,5,1862
!
!
csys,0
!
vsel,s,loc,x,-10,kx(946)
vsel,r,loc,z,kz(1361),10
!
aslv,s
!
vclear,all
vdele,all
!
asel,u,area,,1369,
asel,u,area,,1418,
asel,u,area,,1510,1511,1
asel,u,area,,1514,1601,1601-1514
asel,u,area,,1699,1700,1700-1699
asel,u,area,,1703,1764,1764-1703
!
adele,all,,,1
!
asel,all
vsel,all
!
numcmp,all
!
lstr,934,944
k,,kx(933),ky(1358),kz(933)
!
*get,km,kp,,num,max
!
lstr,933,km
!
adele,1369
!
lsbl,2269,3386,,delete,delete
lstr,1832,933
!
numcmp,all
!
a,933,993,1047,1102,1831
a,944,1001,1055,1054,1000,934
a,1336,946,944,934,933,1831,1358,1348,1347,1361
!
lesize,3386,,,1,1,
lesize,3387,,,2,1,
lesize,2269,,,4,1,
lesize,3385,,,7,1,
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am-2,am,1
!
voffst,am,abs(kx(1336)-kx(1393)),,
voffst,am+1,abs(kx(1393)-kx(1538)),,
voffst,1964,abs(kx(1538)-kx(1667)),,
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
!
!-------------------------- Right Rear Corner -----------------------------
!
csys,0
!
csn=csn+1
outfilcs=csn
clocal,outfilcs,1,kx(1842)+outr,ky(1842),kz(1131)-outr,90,0,90
!
k,,outr,90,kz(1842)
k,,outr,180,kz(1842)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,90,kz(1843)
k,,outr,180,kz(1843)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,90,kz(1844)
k,,outr,180,kz(1844)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,90,kz(1845)
k,,outr,180,kz(1845)
*get,km,kp,,num,max
l,km,km-1
!
k,,outr,90,kz(1846)
k,,outr,180,kz(1846)
*get,km,kp,,num,max
l,km,km-1
!
lstr,1842,1849
lstr,1850,1131
lstr,1851,1843
lstr,1852,1124
lstr,1844,1853
!
lstr,1854,1123
lstr,1845,1855
lstr,1856,1116
lstr,1846,1857
!
*get,lm,line,,num,max
!
lesize,lm-8,,,1,1,
lesize,lm-7,,,1,1,
lesize,lm-6,,,1,1,
lesize,lm-5,,,1,1,
lesize,lm-4,,,1,1,
!
lesize,lm-3,,,1,1,
lesize,lm-2,,,1,1,
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
lesize,lm-13,,,4,1,
lesize,lm-12,,,4,1,
lesize,lm-11,,,4,1,
lesize,lm-10,,,4,1,
lesize,lm-9,,,4,1,
!
csys,0
!
k,,kx(1169),ky(1858),kz(1169)
!
*get,km,kp,,num,max
!
lstr,km,1858
lstr,km,1169
!
*get,lm,line,,num,max
!
lesize,lm-1,,,1,1,
lesize,lm,,,1,1,
!
a,1842,1849,1851,1843
a,1850,1131,1124,1852
a,1843,1851,1853,1844
a,1124,1852,1854,1123
a,1854,1123,1116,1856
!
a,1844,1853,1855,1845
a,1856,1116,1169,1859,1858
a,1845,1855,1857,1846
!
*get,lm,line,,num,max
!
lesize,lm-7,,,4,1,
lesize,lm-6,,,4,1,
lesize,lm-5,,,7,1,
lesize,lm-4,,,7,1,
lesize,lm-3,,,4,1,
!
lesize,lm-2,,,4,1,
lesize,lm-1,,,4,1,
lesize,lm,,,4,1,
!
a,1849,1850,1852,1851
a,1851,1852,1854,1853
a,1853,1854,1856,1855
a,1855,1856,1858,1857
!
lstr,km,1831
!
lesize,lm+1,,,3,1,
!
a,km,1831,1102,1169
a,km,1831,1836,1841,1846,1857,1858
a,946,1832,1837,1842,1849,1850,1131,1062,1008
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am-14,am,1
!
csys,0
!
asel,s,loc,z,kz(946),kz(1131)
asel,r,loc,x,kx(1842),kx(946)
asel,r,loc,y,ky(946),ky(1831)
!
va,all
!
*get,rtcrnv,volu,,num,max
!
!------------------------------ Right Top Fillet -----------------------------
!
csys,outfilcs
!
l,1824,1822
lstr,1822,1858
lstr,1824,1857
!
vsel,s,volu,,169,
vsel,a,volu,,172,178,178-172
vsel,a,volu,,181,191,191-181
vsel,a,volu,,194,204,204-194
vsel,a,volu,,209,210,1
!
vclear,all
!
aslv,s
vdele,all
!
aclear,all
!
asel,u,area,,1256,1284,1284-1256
asel,u,area,,1345,1355,1355-1345
asel,u,area,,1358,
asel,u,area,,1266,1269,1
asel,u,area,,1097,1173,1173-1097
asel,u,area,,1305,1306,1
asel,u,area,,1346,
!
adele,all,,,1
!
asel,s,area,,1256,1284,1284-1256
asel,a,area,,1345,1355,1355-1345
asel,a,area,,1358,
!
adele,all
!
lsbl,2235,3371,,delete,keep
lsbl,2096,3371,,delete,keep
lsbl,2098,3371,,delete,delete
!
lstr,917,918
lstr,918,919
lstr,919,1821
lstr,917,1822
!
lsbl,2240,3380,,delete,keep
lsbl,2145,3380,,delete,keep
lsbl,2147,3380,,delete,keep
lsbl,2245,3380,,delete,delete
!
ldele,1814,,,1
ldele,1821,,,1
ldele,1822,,,1
ldele,2244,,,1
ldele,2243,,,1
!
ldele,2146,,,1
ldele,2241,,,1
ldele,3380
!
lstr,920,1821
!
lstr,920,921
lstr,922,921
lstr,922,1829
!
ldele,2090,,,1
ldele,2089,,,1
ldele,2091,,,1
ldele,2245,,,1
!
csys,0
!
k,,kx(1146),ky(1829),kz(1829)
!
lstr,924,1146
!
lsbl,1824,1825,,delete,keep
!
numcmp,all
!
k,,-.5600,ky(921),kz(921)
k,,-.5600,-1.9637,kz(921)
k,,-.6400,-2.1186,kz(921)
!
*get,km,kp,,num,max
!
lstr,km-2,km-1
lstr,km-1,km
lstr,km,1084
!
lsbl,1821,3378,,delete,keep
!
numcmp,all
!
csys,rtfilcs
!
k,,outr,90,kz(920)
k,,outr,90,kz(1825)
k,,outr,90,kz(921)
k,,outr,90,kz(922)
k,,outr,90,kz(924)
!
*get,km,kp,,num,max
!
l,km-4,920
l,km-3,1825
l,km-2,921
l,km-1,922
l,km,924
!
lsbl,4,3382,,delete,keep
lsbl,3387,3383,,delete,keep
lsbl,4,3384,,delete,keep
lsbl,3387,3385,,delete,keep
lsbl,4,3386,,delete,keep
!
FLST,5,7,4,ORDE,4
FITEM,5,3302
FITEM,5,3305
FITEM,5,3382
FITEM,5,-3386
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,10,4,ORDE,7
FITEM,5,1756
FITEM,5,1758
FITEM,5,-1762
FITEM,5,1764
FITEM,5,1781
FITEM,5,1814
FITEM,5,3388
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1764
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1763
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3380
FITEM,5,3389
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1821
FITEM,5,3391
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3381
FITEM,5,3390
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1824
FITEM,5,3392
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1825
FITEM,5,3387
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1757
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,1779
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1820
FITEM,5,1822
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3378
FITEM,5,-3379
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1823
FITEM,5,3377
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3301
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
numcmp,all
!
FLST,2,4,3
FITEM,2,8
FITEM,2,1786
FITEM,2,920
FITEM,2,1828
A,P51X
!  
FLST,2,4,3
FITEM,2,920
FITEM,2,1828
FITEM,2,1829
FITEM,2,1825
A,P51X
!  
FLST,2,4,3
FITEM,2,1825
FITEM,2,1829
FITEM,2,1830
FITEM,2,921
A,P51X
!  
FLST,2,4,3
FITEM,2,921
FITEM,2,1830
FITEM,2,1831
FITEM,2,922
A,P51X
!  
FLST,2,4,3
FITEM,2,922
FITEM,2,1831
FITEM,2,1832
FITEM,2,924
A,P51X
!  
FLST,2,4,3
FITEM,2,924
FITEM,2,1832
FITEM,2,7
FITEM,2,1794
A,P51X
!   
FLST,2,7,3
FITEM,2,1137
FITEM,2,1824
FITEM,2,1823
FITEM,2,1787
FITEM,2,917
FITEM,2,1139
FITEM,2,1138
A,P51X
! 
FLST,2,10,3
FITEM,2,1086
FITEM,2,1137
FITEM,2,1138
FITEM,2,1139
FITEM,2,917
FITEM,2,918
FITEM,2,1079
FITEM,2,1078
FITEM,2,1088
FITEM,2,1087
A,P51X
! 
FLST,2,3,3
FITEM,2,917
FITEM,2,1080
FITEM,2,918
A,P51X
!
FLST,2,4,3
FITEM,2,918
FITEM,2,1080
FITEM,2,1081
FITEM,2,919
A,P51X
!
FLST,2,8,3
FITEM,2,918
FITEM,2,919
FITEM,2,1082
FITEM,2,1083
FITEM,2,1084
FITEM,2,1085
FITEM,2,1078
FITEM,2,1079
A,P51X
!   
FLST,2,4,3
FITEM,2,919
FITEM,2,1786
FITEM,2,920
FITEM,2,1082
A,P51X
!  
FLST,2,7,3
FITEM,2,1082
FITEM,2,920
FITEM,2,1825
FITEM,2,1826
FITEM,2,1827
FITEM,2,1084
FITEM,2,1083
A,P51X
!  
FLST,2,7,3
FITEM,2,1085
FITEM,2,1084
FITEM,2,1827
FITEM,2,1826
FITEM,2,1825
FITEM,2,921
FITEM,2,1102
A,P51X
!
FLST,2,7,3
FITEM,2,1078
FITEM,2,1085
FITEM,2,1102
FITEM,2,921
FITEM,2,922
FITEM,2,1103
FITEM,2,1089
A,P51X
!  
csys,0
!
k,,2.6063,ky(924),kz(924)
!
lstr,1117,1833
!
lsbl,1824,3392,,delete,keep
!
lesize,3393,,,1,1,
lesize,3394,,,3,1,
lesize,3392,,,3,1,
!
FLST,2,6,3
FITEM,2,1103
FITEM,2,922
FITEM,2,924
FITEM,2,1114
FITEM,2,1113
FITEM,2,1112
A,P51X
!
FLST,2,6,3
FITEM,2,1114
FITEM,2,924
FITEM,2,1833
FITEM,2,1117
FITEM,2,1116
FITEM,2,1115
A,P51X
!  
FLST,2,5,3
FITEM,2,1118
FITEM,2,1117
FITEM,2,1833
FITEM,2,1794
FITEM,2,1119
A,P51X
!
*get,am,area,,num,max
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am-17,am,1
!
*do,j,am-11,am,1
voffst,j,abs(kz(1088)-kz(1029)),,
*enddo
!
asel,s,area,,1967,1971,1971-1967
asel,a,area,,1976,2006,2006-1976
!
*do,j,1967,1971,1971-1967
voffst,j,abs(kz(1049)-kz(1005)),,
*enddo
!
*do,j,1976,2006,2006-1976
voffst,j,abs(kz(1049)-kz(1005)),,
*enddo
!
asel,s,area,,2034,2038,2038-2034
asel,a,area,,2043,2052,2052-2043
!
*do,j,2043,2052,2052-2043
voffst,j,abs(kz(1008)-kz(915)),,
*enddo
!
*do,j,2034,2038,2038-2034
voffst,j,abs(kz(1008)-kz(915)),,
*enddo
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
vsel,all
asel,all
lsel,all
ksel,all
!
mopt,pyra,on
mshape,1,3d
vatt,,,1,
!
vmesh,261
!
lstr,397,1878
lstr,397,1877
!
a,397,1877,1878
!
lstr,388,1851
lstr,389,1851
!
a,1851,389,388
!
lstr,397,1852
!
a,397,1852,1877
a,1847,1853,1867
a,1867,1853,1852,1877
a,397,1852,1851,387
a,1851,387,388
!
lstr,390,1829
!
a,389,1829,390
a,1829,389,1851,1825
!
lstr,384,1830
!
a,385,1881,383
a,398,1880,1881,386
a,1881,386,385
a,397,1878,1880,398
a,384,383,1881,1830
a,1881,1830,921,1854,1871
!
a,1829,390,384,1830
!
asel,s,area,,106,526,526-106
asel,a,area,,1932,1982,1982-1932
asel,a,area,,1983,2012,2012-1983
asel,a,area,,2017,2018,1
asel,a,area,,2027,2032,2032-2027
asel,a,area,,2033,
asel,a,area,,2044,2059,1
!
va,all
!
a,916,399,468
a,916,468,392,1882
a,1882,392,391
a,1882,391,396
a,1882,396,395,1831
!
a,922,1856,1872,1882,1831
a,1831,395,466,394,1832
a,394,1832,1857,393
a,1857,924,1832
a,1857,393,400
!
a,1857,400,912
a,1857,912,1010,1054
a,400,912,914,401
a,401,914,915,399
a,399,915,916
!
asel,s,area,,594,597,597-594
asel,a,area,,602,603,1
asel,a,area,,1116,1117,1
asel,a,area,,1177,1178,1
asel,a,area,,1828,1829,1
asel,a,area,,1934,
asel,a,area,,1990,1991,1
asel,a,area,,2020,2035,2035-2020
asel,a,area,,2060,2074,1
!
va,all
!
vsel,all
asel,all
lsel,all
ksel,all
!
numcmp,all
!
a,114,384,395
!
lesize,3549,,,1,1,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
*get,am,area,,num,max
!
amesh,am
!
esize,0,2
!
voffst,am,-topthk
!
FLST,2,4,3
FITEM,2,1881
FITEM,2,383
FITEM,2,396
FITEM,2,1882
A,P51X
!  
FLST,2,4,3
FITEM,2,384
FITEM,2,1830
FITEM,2,1831
FITEM,2,395
A,P51X
!
nummrg,all,.001,.001
! 
FLST,2,11,5,ORDE,11
FITEM,2,1933
FITEM,2,1987
FITEM,2,2019
FITEM,2,2034
FITEM,2,2057
FITEM,2,-2058
FITEM,2,2064
FITEM,2,-2065
FITEM,2,2078
FITEM,2,2080
FITEM,2,-2081
VA,P51X
!
vsel,s,volu,,264,265,1
!
vclear,all
aclear,1938,1939,1
!
aslv,s
!
vdele,all
!
adele,1938,1939,1,1
adele,1964,1965,1,1
adele,1961,1962,1,1
!
csys,0
!
k,,kx(1850),ky(389),kz(389)
!
lstr,389,1080
lstr,1080,1875
!
k,,kx(1828),ky(1828),kz(390)
!
lstr,1080,1081
lstr,390,1081
lstr,1081,1828
lstr,1080,1850
!
a,389,1851,1850,1080
a,389,390,1081,1080
a,1081,1828,920,1850,1080
a,1080,1875,1865,1845,1850
a,390,1829,1828,1081
!
FLST,2,8,5,ORDE,8
FITEM,2,1931
FITEM,2,1938
FITEM,2,-1939
FITEM,2,1961
FITEM,2,1964
FITEM,2,1978
FITEM,2,2051
FITEM,2,-2052
VA,P51X
!
numcmp,all
!
a,119,390,1081,188
!
*get,am,area,,num,max
!
lesize,2046,,,2,1,
lesize,3551,,,5,1,
!
esize,0,1
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
esize,0,2
voffst,am,topthk
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,0
!
k,,kx(54)-.50,ky(54),kz(54)
!
*get,km,kp,,num,max
!
lstr,54,km
!
lsbl,5,3553,,delete,delete
!
lstr,54,1887
!
a,256,252,136,144,9,1887,54,52,46,44
!
*get,am,area,,num,max
!
lesize,5,,,1,1,
lesize,3553,,,1,1,
lesize,3555,,,4,1,
!
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
esize,0,2
voffst,am,topthk
!
nummrg,all,.001,.001        ! merge all coincident entities
numcmp,all          ! renumber & compress all entities
!
csys,0
!
k,,-1.4052,-.650,6.1150
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,8,1756,,
!
l,8,1756
l,9,1754
!
a,9,1754,1756,8
!
csn=csn+1
cskp,csn,1,km,1786,1756,,
!
l,1786,1756
l,1787,1755
!
k,,kx(1756),ky(1756),kz(918)
!
*get,km,kp,,num,max
!
l,918,km
!
k,,kx(1756),ky(1756),kz(917)
!
*get,km,kp,,num,max
!
l,917,km
!
k,,kx(1756),ky(1756),kz(919)
!
*get,km,kp,,num,max
!
l,919,km
!
csys,0
!
k,,-3.8770,-.650,4.3495
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,1754,1788,,
!
l,1754,1640
l,1755,1789
!
lstr,1789,1640
!
ldele,3295,,,1
!
lsbl,3219,3566,,delete,keep
lsbl,3571,3565,,delete,keep
lsbl,3219,3567,,delete,keep
!
FLST,2,4,3
FITEM,2,1787
FITEM,2,1755
FITEM,2,1891
FITEM,2,917
A,P51X
!  
FLST,2,4,3
FITEM,2,917
FITEM,2,1891
FITEM,2,1890
FITEM,2,918
A,P51X
!  
FLST,2,4,3
FITEM,2,1890
FITEM,2,1892
FITEM,2,919
FITEM,2,918
A,P51X
!
FLST,2,4,3
FITEM,2,919
FITEM,2,1786
FITEM,2,1756
FITEM,2,1892
A,P51X
!
FLST,2,7,3
FITEM,2,1640
FITEM,2,1639
FITEM,2,1729
FITEM,2,1728
FITEM,2,1811
FITEM,2,1822
FITEM,2,1789
A,P51X
!
csys,0
!
k,,-3.0209,-2.6846,6.0623
!
lstr,1788,153
lstr,1788,1839
lstr,379,1157
!
asel,all
vsel,all
lsel,all
!
FLST,2,4,3
FITEM,2,1640
FITEM,2,1754
FITEM,2,1755
FITEM,2,1789
A,P51X
!  
FLST,2,3,3
FITEM,2,1789
FITEM,2,1787
FITEM,2,1755
A,P51X
!
FLST,2,4,3
FITEM,2,1789
FITEM,2,1822
FITEM,2,1823
FITEM,2,1787
A,P51X
!
FLST,2,3,3
FITEM,2,1786
FITEM,2,1756
FITEM,2,8
A,P51X
! 
csys,0
!  
k,,-3.0209,-1.884,6.0623
k,,-2.5478,-.750,5.2662
LSTR,    1788,    1894
LSTR,    1895,    1894
LSTR,    1894,    1883
LSTR,    1895,     148
!
FLST,2,4,3
FITEM,2,1839
FITEM,2,1788
FITEM,2,1796
FITEM,2,1077
A,P51X
!  
FLST,2,4,3
FITEM,2,1788
FITEM,2,153
FITEM,2,377
FITEM,2,1796
A,P51X
!
FLST,2,4,3
FITEM,2,1796
FITEM,2,377
FITEM,2,379
FITEM,2,1157
A,P51X
! 
FLST,2,4,3
FITEM,2,379
FITEM,2,142
FITEM,2,1158
FITEM,2,1302
A,P51X
!  
FLST,2,3,3
FITEM,2,379
FITEM,2,1157
FITEM,2,1302
A,P51X
!  
FLST,2,3,3
FITEM,2,142
FITEM,2,141
FITEM,2,1158
A,P51X
!  
FLST,2,4,3
FITEM,2,141
FITEM,2,145
FITEM,2,1887
FITEM,2,1158
A,P51X
!
FLST,2,4,3
FITEM,2,1838
FITEM,2,153
FITEM,2,1788
FITEM,2,1839
A,P51X
!
FLST,2,3,3
FITEM,2,1894
FITEM,2,1883
FITEM,2,1895
A,P51X
!
ADELE,    2105, , ,1
!
FLST,2,3,3
FITEM,2,1838
FITEM,2,149
FITEM,2,153
A,P51X
!
FLST,2,4,3
FITEM,2,1838
FITEM,2,149
FITEM,2,1883
FITEM,2,1837
A,P51X
!
FLST,2,4,3
FITEM,2,189
FITEM,2,1080
FITEM,2,1875
FITEM,2,1874
A,P51X
!  
FLST,2,4,3
FITEM,2,189
FITEM,2,148
FITEM,2,1885
FITEM,2,1874
A,P51X
!  
FLST,2,3,3
FITEM,2,148
FITEM,2,1885
FITEM,2,1884
A,P51X
!  
FLST,2,4,3
FITEM,2,148
FITEM,2,149
FITEM,2,1883
FITEM,2,1884
A,P51X
!
FLST,2,4,3
FITEM,2,1754
FITEM,2,9
FITEM,2,1887
FITEM,2,1158
A,P51X
!  
FLST,2,3,3
FITEM,2,1158
FITEM,2,1366
FITEM,2,1754
A,P51X
!  
FLST,2,4,3
FITEM,2,1366
FITEM,2,1511
FITEM,2,1640
FITEM,2,1754
A,P51X
!
ADELE,    2097, , ,1
!
FLST,2,4,3
FITEM,2,1788
FITEM,2,1796
FITEM,2,1824
FITEM,2,1839
A,P51X
!
FLST,2,5,3
FITEM,2,8
FITEM,2,1828
FITEM,2,1081
FITEM,2,144
FITEM,2,9
A,P51X
!
ADELE,    2097, , ,1
! 
FLST,2,4,3
FITEM,2,1788
FITEM,2,1796
FITEM,2,1077
FITEM,2,1839
A,P51X
!
FLST,5,284,5,ORDE,87
FITEM,5,111
FITEM,5,121
FITEM,5,126
FITEM,5,131
FITEM,5,137
FITEM,5,493
FITEM,5,497
FITEM,5,1075
FITEM,5,-1076
FITEM,5,1082
FITEM,5,-1097
FITEM,5,1099
FITEM,5,-1100
FITEM,5,1102
FITEM,5,1106
FITEM,5,-1107
FITEM,5,1143
FITEM,5,-1158
FITEM,5,1160
FITEM,5,-1161
FITEM,5,1163
FITEM,5,1167
FITEM,5,-1168
FITEM,5,1217
FITEM,5,1221
FITEM,5,-1236
FITEM,5,1238
FITEM,5,-1239
FITEM,5,1241
FITEM,5,1245
FITEM,5,-1246
FITEM,5,1295
FITEM,5,-1297
FITEM,5,1308
FITEM,5,1355
FITEM,5,-1356
FITEM,5,1362
FITEM,5,1432
FITEM,5,-1438
FITEM,5,1447
FITEM,5,-1454
FITEM,5,1465
FITEM,5,-1474
FITEM,5,1525
FITEM,5,-1526
FITEM,5,1532
FITEM,5,1602
FITEM,5,-1608
FITEM,5,1623
FITEM,5,-1630
FITEM,5,1641
FITEM,5,-1650
FITEM,5,1675
FITEM,5,-1676
FITEM,5,1682
FITEM,5,1760
FITEM,5,-1766
FITEM,5,1780
FITEM,5,-1784
FITEM,5,1834
FITEM,5,1888
FITEM,5,-1930
FITEM,5,1936
FITEM,5,-1937
FITEM,5,1940
FITEM,5,-1941
FITEM,5,1948
FITEM,5,-1963
FITEM,5,1965
FITEM,5,-1969
FITEM,5,1971
FITEM,5,-1975
FITEM,5,1999
FITEM,5,-2010
FITEM,5,2012
FITEM,5,-2014
FITEM,5,2021
FITEM,5,-2025
FITEM,5,2027
FITEM,5,-2029
FITEM,5,2036
FITEM,5,-2042
FITEM,5,2079
FITEM,5,-2081
FITEM,5,2084
FITEM,5,2087
FITEM,5,-2114
ASEL,S, , ,P51X
!  
FLST,5,136,5,ORDE,54
FITEM,5,111
FITEM,5,121
FITEM,5,126
FITEM,5,131
FITEM,5,137
FITEM,5,493
FITEM,5,497
FITEM,5,1308
FITEM,5,1362
FITEM,5,1449
FITEM,5,-1454
FITEM,5,1471
FITEM,5,-1474
FITEM,5,1532
FITEM,5,1625
FITEM,5,-1630
FITEM,5,1647
FITEM,5,-1650
FITEM,5,1682
FITEM,5,1780
FITEM,5,-1784
FITEM,5,1834
FITEM,5,1897
FITEM,5,1904
FITEM,5,1911
FITEM,5,-1912
FITEM,5,1927
FITEM,5,-1928
FITEM,5,1930
FITEM,5,1936
FITEM,5,-1937
FITEM,5,1940
FITEM,5,-1941
FITEM,5,1948
FITEM,5,-1963
FITEM,5,1965
FITEM,5,-1969
FITEM,5,1971
FITEM,5,-1975
FITEM,5,1999
FITEM,5,-2010
FITEM,5,2012
FITEM,5,-2014
FITEM,5,2021
FITEM,5,-2025
FITEM,5,2027
FITEM,5,-2029
FITEM,5,2036
FITEM,5,-2042
FITEM,5,2079
FITEM,5,-2081
FITEM,5,2084
FITEM,5,2087
FITEM,5,-2114
ASEL,R, , ,P51X
!
FLST,5,127,5,ORDE,52
FITEM,5,111
FITEM,5,121
FITEM,5,126
FITEM,5,131
FITEM,5,493
FITEM,5,497
FITEM,5,1308
FITEM,5,1362
FITEM,5,1449
FITEM,5,-1454
FITEM,5,1471
FITEM,5,-1474
FITEM,5,1532
FITEM,5,1625
FITEM,5,-1630
FITEM,5,1647
FITEM,5,-1650
FITEM,5,1682
FITEM,5,1780
FITEM,5,-1781
FITEM,5,1834
FITEM,5,1897
FITEM,5,1904
FITEM,5,1911
FITEM,5,-1912
FITEM,5,1927
FITEM,5,-1928
FITEM,5,1930
FITEM,5,1936
FITEM,5,-1937
FITEM,5,1940
FITEM,5,-1941
FITEM,5,1948
FITEM,5,-1963
FITEM,5,1965
FITEM,5,-1969
FITEM,5,1972
FITEM,5,-1975
FITEM,5,1999
FITEM,5,-2010
FITEM,5,2013
FITEM,5,-2014
FITEM,5,2021
FITEM,5,-2025
FITEM,5,2028
FITEM,5,-2029
FITEM,5,2036
FITEM,5,-2042
FITEM,5,2081
FITEM,5,2084
FITEM,5,2087
FITEM,5,-2114
ASEL,R, , ,P51X
!
FLST,5,5,5,ORDE,5
FITEM,5,1966
FITEM,5,1968
FITEM,5,-1969
FITEM,5,2010
FITEM,5,2021
ASEL,U, , ,P51X
! 
FLST,5,3,5,ORDE,3
FITEM,5,1940
FITEM,5,2007
FITEM,5,2009
ASEL,U, , ,P51X
! 
ASEL,U, , ,    2025
! 
ASEL,U, , ,    1956
! 
FLST,5,4,5,ORDE,4
FITEM,5,1937
FITEM,5,1959
FITEM,5,2013
FITEM,5,2028
ASEL,U, , ,P51X
!
ASEL,U, , ,    2024
! 
FLST,5,3,5,ORDE,3
FITEM,5,1958
FITEM,5,2014
FITEM,5,2029
ASEL,U, , ,P51X
!
FLST,5,8,5,ORDE,6
FITEM,5,1452
FITEM,5,-1454
FITEM,5,1471
FITEM,5,1628
FITEM,5,-1630
FITEM,5,1647
ASEL,U, , ,P51X
! 
FLST,5,3,5,ORDE,3
FITEM,5,1451
FITEM,5,1627
FITEM,5,1912
ASEL,U, , ,P51X
!
FLST,5,6,5,ORDE,6
FITEM,5,2000
FITEM,5,2006
FITEM,5,2022
FITEM,5,2036
FITEM,5,2039
FITEM,5,-2040
ASEL,U, , ,P51X
!
FLST,5,6,5,ORDE,5
FITEM,5,1960
FITEM,5,1999
FITEM,5,2001
FITEM,5,-2003
FITEM,5,2038
ASEL,U, , ,P51X
! 
FLST,5,2,5,ORDE,2
FITEM,5,1960
FITEM,5,2000
ASEL,A, , ,P51X
!
cm,aset,area
ADELE,    2114, , ,1
!
FLST,2,7,3
FITEM,2,144
FITEM,2,9
FITEM,2,8
FITEM,2,1828
FITEM,2,1081
FITEM,2,188
FITEM,2,143
A,P51X
!  
cm,aset,area
!
ADELE,    2106, , ,1
! 
FLST,2,4,3
FITEM,2,149
FITEM,2,1883
FITEM,2,1860
FITEM,2,1838
A,P51X
!
FLST,2,3,3
FITEM,2,1860
FITEM,2,1837
FITEM,2,1838
A,P51X
!
ADELE,    2099, , ,1
!
FLST,2,3,3
FITEM,2,1796
FITEM,2,377
FITEM,2,379
A,P51X
! 
FLST,2,4,3
FITEM,2,1796
FITEM,2,379
FITEM,2,1157
FITEM,2,1323
A,P51X
!
FLST,5,5,5,ORDE,5
FITEM,5,1449
FITEM,5,-1450
FITEM,5,1625
FITEM,5,-1626
FITEM,5,1648
ASEL,U, , ,P51X
! 
ASEL,U, , ,    1472
!
FLST,5,3,5,ORDE,3
FITEM,5,1941
FITEM,5,1967
FITEM,5,1975
ASEL,U, , ,P51X
!
lsla,s
!
APLOT
FLST,5,4,5,ORDE,3
FITEM,5,1936
FITEM,5,1953
FITEM,5,-1955
ASEL,U, , ,P51X
!
FLST,5,2,5,ORDE,2
FITEM,5,1949
FITEM,5,-1950
ASEL,U, , ,P51X
! 
ASEL,U, , ,    1927
!
cm,aset,area
!
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
!
VSEL,U, , ,     261
aslv,s
lsla,s
!
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
! 
VSEL,S, , ,     261
aslv,s
lsla,s
!
asel,s,area,,aset
!
VCLEAR,     261
!   
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
VPLOT
VSEL,S, , ,     261
! 
aslv,s
!   
cm,filaset,area
asel,s,area,,aset
! 
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
!   
VSEL,S, , ,     261
vdele,all
!
asel,s,area,,aset
! 
ACLEAR,    1928
! 
ADELE,    1928, , ,1
!
FLST,2,4,3
FITEM,2,1811
FITEM,2,1823
FITEM,2,1835
FITEM,2,1806
A,P51X
!
FLST,2,3,3
FITEM,2,1811
FITEM,2,1822
FITEM,2,1823
A,P51X
FLST,2,4,3
FITEM,2,1806
FITEM,2,1801
FITEM,2,1796
FITEM,2,1835
A,P51X
FLST,2,3,3
FITEM,2,1077
FITEM,2,1835
FITEM,2,1796
A,P51X
!
cm,aset,area
!
FLST,5,4,5,ORDE,3
FITEM,5,1834
FITEM,5,2088
FITEM,5,-2090
ASEL,U, , ,P51X
!
FLST,5,2,5,ORDE,2
FITEM,5,2093
FITEM,5,-2094
ASEL,U, , ,P51X
! 
ASEL,U, , ,    2087
!
FLST,2,3,3
FITEM,2,1835
FITEM,2,1834
FITEM,2,1077
A,P51X
asel,s,area,,aset
! 
asel,a,area,,2120
!
va,all
!
ALLSEL,ALL
VSEL,ALL
ASEL,ALL
LSEL,ALL
KSEL,ALL
ESEL,ALL
NSEL,ALL
!   
asel,s,area,,filaset
!  
FLST,5,48,5,ORDE,45
FITEM,5,1317
FITEM,5,1327
FITEM,5,1329
FITEM,5,1370
FITEM,5,-1371
FITEM,5,1400
FITEM,5,1424
FITEM,5,1451
FITEM,5,-1452
FITEM,5,1457
FITEM,5,-1458
FITEM,5,1471
FITEM,5,1476
FITEM,5,-1477
FITEM,5,1487
FITEM,5,1497
FITEM,5,1499
FITEM,5,1540
FITEM,5,-1541
FITEM,5,1570
FITEM,5,1594
FITEM,5,1617
FITEM,5,-1618
FITEM,5,1627
FITEM,5,-1628
FITEM,5,1633
FITEM,5,-1634
FITEM,5,1647
FITEM,5,1697
FITEM,5,-1699
FITEM,5,1728
FITEM,5,1752
FITEM,5,1775
FITEM,5,-1776
FITEM,5,1855
FITEM,5,1876
FITEM,5,1897
FITEM,5,1904
FITEM,5,1911
FITEM,5,-1912
FITEM,5,1928
FITEM,5,1949
FITEM,5,-1950
FITEM,5,2117
FITEM,5,-2120
ASEL,A, , ,P51X
!  
FLST,5,28,5,ORDE,28
FITEM,5,1329
FITEM,5,1400
FITEM,5,1424
FITEM,5,1451
FITEM,5,-1452
FITEM,5,1457
FITEM,5,-1458
FITEM,5,1471
FITEM,5,1476
FITEM,5,-1477
FITEM,5,1499
FITEM,5,1570
FITEM,5,1594
FITEM,5,1617
FITEM,5,-1618
FITEM,5,1627
FITEM,5,-1628
FITEM,5,1633
FITEM,5,-1634
FITEM,5,1647
FITEM,5,1728
FITEM,5,1752
FITEM,5,1775
FITEM,5,-1776
FITEM,5,1897
FITEM,5,1904
FITEM,5,1911
FITEM,5,-1912
ASEL,U, , ,P51X
!  
cm,filaset,area
asel,s,area,,aset
!  
asel,s,area,,filaset
!  
asel,s,area,,aset
!  
asel,a,area,,2120
! 
cm,aset,area
!  
asel,s,area,,filaset
!  
ACLEAR,    1927
! 
ADELE,    1927, , ,1
!  
cm,filaset,area
!
FLST,5,2,5,ORDE,2
FITEM,5,1949
FITEM,5,-1950
ASEL,U, , ,P51X
!
asel,s,area,,filaset
!
FLST,5,13,5,ORDE,12
FITEM,5,1317
FITEM,5,1327
FITEM,5,1370
FITEM,5,-1371
FITEM,5,1487
FITEM,5,1497
FITEM,5,1540
FITEM,5,-1541
FITEM,5,1697
FITEM,5,-1699
FITEM,5,1855
FITEM,5,1876
ASEL,U, , ,P51X
!
cm,filaset,area
! 
cm,filaset,area
! 
va,all
!
FLST,5,29,5,ORDE,24
FITEM,5,107
FITEM,5,521
FITEM,5,525
FITEM,5,1930
FITEM,5,-1931
FITEM,5,1938
FITEM,5,-1939
FITEM,5,1941
FITEM,5,1961
FITEM,5,-1962
FITEM,5,1964
FITEM,5,1967
FITEM,5,-1968
FITEM,5,1972
FITEM,5,1974
FITEM,5,-1978
FITEM,5,2008
FITEM,5,-2009
FITEM,5,2023
FITEM,5,-2024
FITEM,5,2044
FITEM,5,2048
FITEM,5,-2051
FITEM,5,2080
ASEL,S, , ,P51X
!   
FLST,5,6,5,ORDE,6
FITEM,5,107
FITEM,5,521
FITEM,5,525
FITEM,5,2048
FITEM,5,-2049
FITEM,5,2080
ASEL,U, , ,P51X
! 
FLST,5,4,5,ORDE,4
FITEM,5,1968
FITEM,5,1976
FITEM,5,2009
FITEM,5,2024
ASEL,U, , ,P51X
! 
FLST,5,2,5,ORDE,2
FITEM,5,1978
FITEM,5,2044
ASEL,U, , ,P51X
!  
FLST,5,7,5,ORDE,7
FITEM,5,1930
FITEM,5,1941
FITEM,5,1967
FITEM,5,1972
FITEM,5,1974
FITEM,5,2008
FITEM,5,2023
ASEL,U, , ,P51X
! 
FLST,5,2,5,ORDE,2
FITEM,5,1962
FITEM,5,1975
ASEL,U, , ,P51X
!
va,all
!
vsel,all
asel,all
lsel,all
!
numcmp,all
!
aclear,1934
adele,1934
!
vclear,241
!
csys,0
!
k,,kx(394),ky(426),kz(394)
!
*get,km,kp,,num,max
!
lstr,km,426
!
*get,lm,line,,num,max
!
asbl,101,lm,,delete,keep
!
lstr,1896,1857
!
vsel,s,volu,,281,
aslv,s
cm,v281a,area
!
vdele,281
!
adele,2065
!
a,1832,394,1896,1857
a,1857,1896,393,1857
!
asel,s,area,,v281a
asel,a,area,,101,2065,2065-101
!
va,all
!
asel,all
!
vdrag,2066,,,,,,3392,
vdrag,2124,,,,,,3393,
!
vdrag,101,,,,,,3604,
vdrag,2133,,,,,,3610,
!
nummrg,kp,.001,.001
numcmp,all
!
k,,kx(1763),ky(1763),kz(1794)
k,,kx(1794),ky(1794),kz(1763)
!
*get,km,kp,,num,max
!
a,1763,km-1,1794,km
!
*get,parta,area,,num,max
!
ainv,parta,289
!
k,,kx(1763),ky(1763),kz(1794)
k,,kx(1794),ky(1794),kz(1763)
!
*get,km,kp,,num,max
!
a,1763,km-1,1794,km
!
ainv,2124,291
!
lstr,1899,1907
lstr,1906,1900
!
ldele,3301,,,1
ldele,3385,,,1
!
lstr,1905,1897
!
FLST,2,4,3
FITEM,2,1900
FITEM,2,1899
FITEM,2,1907
FITEM,2,1906
A,P51X
!  
FLST,2,4,3
FITEM,2,1858
FITEM,2,1900
FITEM,2,1906
FITEM,2,1859
A,P51X
! 
FLST,2,4,3
FITEM,2,1897
FITEM,2,1899
FITEM,2,1907
FITEM,2,1905
A,P51X
! 
FLST,2,4,3
FITEM,2,1833
FITEM,2,1897
FITEM,2,1905
FITEM,2,1794
A,P51X
! 
va,2130,2123,2132,1996,2131,2124,2126,2136,2125
!
lstr,1757,1906
!
k,,kx(1900),ky(1757),kz(1757)
!
lstr,1898,1757
lstr,1900,1898
lstr,1763,1907
lstr,1898,908
!
vsel,all
asel,all
lsel,all
!
FLST,2,6,3
FITEM,2,1757
FITEM,2,453
FITEM,2,426
FITEM,2,1896
FITEM,2,1900
FITEM,2,1898
A,P51X
!  
FLST,2,4,3
FITEM,2,909
FITEM,2,1013
FITEM,2,1057
FITEM,2,1858
A,P51X
! 
FLST,2,4,3
FITEM,2,909
FITEM,2,1858
FITEM,2,1900
FITEM,2,1898
A,P51X
! 
FLST,2,3,3
FITEM,2,1898
FITEM,2,908
FITEM,2,909
A,P51X
!
FLST,2,4,3
FITEM,2,907
FITEM,2,908
FITEM,2,1898
FITEM,2,1757
A,P51X
!  
FLST,2,4,3
FITEM,2,1059
FITEM,2,907
FITEM,2,1757
FITEM,2,1906
A,P51X
! 
FLST,2,3,3
FITEM,2,1906
FITEM,2,1859
FITEM,2,1059
A,P51X
!  
FLST,2,5,3
FITEM,2,1907
FITEM,2,1763
FITEM,2,455
FITEM,2,428
FITEM,2,394
A,P51X
!   
FLST,2,4,3
FITEM,2,1906
FITEM,2,1907
FITEM,2,1763
FITEM,2,1757
A,P51X
!  
FLST,5,16,5,ORDE,11
FITEM,5,569
FITEM,5,1835
FITEM,5,1934
FITEM,5,1995
FITEM,5,2124
FITEM,5,-2125
FITEM,5,2128
FITEM,5,2133
FITEM,5,-2135
FITEM,5,2137
FITEM,5,-2142
ASEL,R, , ,P51X
!  
FLST,5,2,5,ORDE,2
FITEM,5,1122
FITEM,5,1183
ASEL,A, , ,P51X
!  
FLST,5,2,5,ORDE,2
FITEM,5,1121
FITEM,5,1182
ASEL,A, , ,P51X
!  
ADELE,    2141, , ,1
! 
FLST,2,6,3
FITEM,2,1907
FITEM,2,1763
FITEM,2,455
FITEM,2,428
FITEM,2,394
FITEM,2,1899
A,P51X
!   
ADELE,    2139, , ,1
!  
FLST,2,4,3
FITEM,2,1059
FITEM,2,1015
FITEM,2,907
FITEM,2,1757
A,P51X
! 
FLST,2,3,3
FITEM,2,1059
FITEM,2,1906
FITEM,2,1757
A,P51X
!
va,all
!
asel,all
vsel,all
!
nummrg,kp,.001,.001
numcmp,all
!
csys,lftfilcs
!
k,,kx(6),ky(1795),kz(900)
k,,kx(6),ky(6),kz(900)
*get,km,kp,,num,max
l,km-1,km
lstr,km-1,900
!
k,,kx(6),ky(6),kz(902)
*get,km,kp,,num,max
l,902,km
!
k,,kx(6),ky(1795),kz(415)
k,,kx(6),ky(6),kz(415)
*get,km,kp,,num,max
l,km-1,km
!
k,,kx(6),ky(6),kz(895)
*get,km,kp,,num,max
l,895,km
!
k,,kx(6),ky(6),kz(894)
*get,km,kp,,num,max
l,894,km
!
k,,kx(6),ky(6),kz(901)
*get,km,kp,,num,max
l,901,km
!
ldele,3303
ldele,2
!
lstr,6,1905
lstr,1905,1908
lstr,1908,1906
lstr,1906,1909
lstr,1909,1910
!
lstr,1910,1911
lstr,1911,5
lstr,901,1792
lstr,1904,1907
lstr,1907,902
!
lstr,1795,1904
!
csys,0
!
k,,kx(4),-outr,kz(4)
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,1753,4,,
!
l,4,1753
l,5,1751
!
csys,0
!
k,,-1.2184,-.7500,-6.6600
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,1792,1751,,
!
l,1792,1751
l,1793,1752
!
csys,0
!
k,,-3.8770,-2.4156,-6.5850
!
*get,km,kp,,num,max
!
csn=csn+1
cskp,csn,1,km,1791,1752,,
!
l,1790,1753
l,1791,1752
!
FLST,2,4,3
FITEM,2,1795
FITEM,2,6
FITEM,2,1905
FITEM,2,1904
A,P51X
! 
FLST,2,4,3
FITEM,2,1904
FITEM,2,1905
FITEM,2,1908
FITEM,2,1907
A,P51X
!
FLST,2,4,3
FITEM,2,1907
FITEM,2,902
FITEM,2,1906
FITEM,2,1908
A,P51X
! 
FLST,2,4,3
FITEM,2,902
FITEM,2,1906
FITEM,2,1909
FITEM,2,895
A,P51X
!
FLST,2,4,3
FITEM,2,895
FITEM,2,1909
FITEM,2,1910
FITEM,2,894
A,P51X
! 
FLST,2,4,3
FITEM,2,894
FITEM,2,1910
FITEM,2,1911
FITEM,2,901
A,P51X
! 
FLST,2,4,3
FITEM,2,901
FITEM,2,1911
FITEM,2,5
FITEM,2,1792
A,P51X
! 
FLST,2,3,3
FITEM,2,1792
FITEM,2,5
FITEM,2,1751
A,P51X
!
FLST,2,4,3
FITEM,2,1751
FITEM,2,5
FITEM,2,4
FITEM,2,1753
A,P51X
! 
FLST,2,4,3
FITEM,2,1753
FITEM,2,1790
FITEM,2,1791
FITEM,2,1752
A,P51X
! 
FLST,2,4,3
FITEM,2,1792
FITEM,2,1751
FITEM,2,1752
FITEM,2,1793
A,P51X
!   
LSTR,     415,    1906
LSTR,     797,    1906
LSTR,     797,     414
LSTR,     414,     498
LSTR,     498,     420
!  
LSTR,     420,     497
LSTR,     420,     496
LSTR,     496,     494
LSTR,     494,     418
LSTR,     418,     493
!  
LSTR,     418,     492
LSTR,     411,    1909
LSTR,     788,    1909
LSTR,     410,     788
LSTR,     412,     788
!  
LSTR,     492,     790
LSTR,     418,     789
!  
FLST,2,4,3
FITEM,2,1906
FITEM,2,415
FITEM,2,411
FITEM,2,1909
A,P51X
! 
FLST,2,3,3
FITEM,2,902
FITEM,2,797
FITEM,2,1906
A,P51X
! 
FLST,2,3,3
FITEM,2,895
FITEM,2,788
FITEM,2,1909
A,P51X
! 
FLST,2,4,3
FITEM,2,797
FITEM,2,1906
FITEM,2,415
FITEM,2,414
A,P51X
!  
FLST,2,4,3
FITEM,2,724
FITEM,2,642
FITEM,2,498
FITEM,2,414
A,P51X
!  
ADELE,    2159
! 
LDELE,    3663
! 
LSTR,     793,     414
LSTR,     793,     498
FLST,2,3,3
FITEM,2,793
FITEM,2,414
FITEM,2,797
A,P51X
!
ADELE,    2159, , ,1
! 
LSTR,     793,     414
!  
FLST,2,4,3
FITEM,2,414
FITEM,2,797
FITEM,2,794
FITEM,2,793
A,P51X
! 
FLST,2,3,3
FITEM,2,793
FITEM,2,498
FITEM,2,724
A,P51X
!  
FLST,2,3,3
FITEM,2,498
FITEM,2,414
FITEM,2,793
A,P51X
!  
FLST,2,4,3
FITEM,2,498
FITEM,2,420
FITEM,2,419
FITEM,2,414
A,P51X
! 
FLST,2,3,3
FITEM,2,498
FITEM,2,420
FITEM,2,497
A,P51X
!  
FLST,2,3,3
FITEM,2,497
FITEM,2,496
FITEM,2,420
A,P51X
!
FLST,2,4,3
FITEM,2,496
FITEM,2,722
FITEM,2,703
FITEM,2,494
A,P51X
!  
FLST,2,4,3
FITEM,2,496
FITEM,2,420
FITEM,2,418
FITEM,2,494
A,P51X
!
FLST,2,3,3
FITEM,2,494
FITEM,2,493
FITEM,2,418
A,P51X
!
FLST,2,3,3
FITEM,2,418
FITEM,2,492
FITEM,2,493
A,P51X
!  
FLST,2,4,3
FITEM,2,492
FITEM,2,619
FITEM,2,701
FITEM,2,790
A,P51X
!  
FLST,2,4,3
FITEM,2,492
FITEM,2,790
FITEM,2,789
FITEM,2,418
A,P51X
!
FLST,2,4,3
FITEM,2,410
FITEM,2,788
FITEM,2,1909
FITEM,2,411
A,P51X
!  
FLST,2,3,3
FITEM,2,412
FITEM,2,410
FITEM,2,788
A,P51X
! 
FLST,2,4,3
FITEM,2,412
FITEM,2,788
FITEM,2,789
FITEM,2,413
A,P51X
! 
FLST,2,4,3
FITEM,2,413
FITEM,2,479
FITEM,2,418
FITEM,2,789
A,P51X
!
ADELE,    2160, , ,1
! 
FLST,2,4,3
FITEM,2,793
FITEM,2,724
FITEM,2,642
FITEM,2,498
A,P51X
!
ADELE,    2155, , ,1
! 
FLST,2,5,3
FITEM,2,415
FITEM,2,1906
FITEM,2,1909
FITEM,2,411
FITEM,2,477
A,P51X
! 
FLST,5,31,5,ORDE,13
FITEM,5,673
FITEM,5,-674
FITEM,5,703
FITEM,5,-704
FITEM,5,784
FITEM,5,-785
FITEM,5,814
FITEM,5,-815
FITEM,5,900
FITEM,5,1063
FITEM,5,2147
FITEM,5,2155
FITEM,5,-2174
ASEL,S, , ,P51X
!
ADELE,    2165, , ,1
! 
FLST,2,4,3
FITEM,2,640
FITEM,2,621
FITEM,2,703
FITEM,2,722
A,P51X
!  
FLST,2,4,3
FITEM,2,640
FITEM,2,496
FITEM,2,494
FITEM,2,621
A,P51X
!
FLST,5,4,5,ORDE,4
FITEM,5,612
FITEM,5,615
FITEM,5,617
FITEM,5,620
ASEL,A, , ,P51X
!
va,all
!
LSTR,     408,    1910
LSTR,     409,     787
LSTR,     787,     402
LSTR,     787,     403
LSTR,     416,     489
LSTR,     490,     417
LSTR,     491,     417
LSTR,     103,     796
LSTR,     406,     796
LSTR,     796,     405
!
LDELE,    3673
! 
LSTR,     784,     405
LSTR,     416,     784
LSTR,     698,     416
LSTR,    1911,     406
LSTR,    1911,     407
LSTR,     409,    1910
! 
FLST,2,3,3
FITEM,2,409
FITEM,2,408
FITEM,2,1910
A,P51X
!  
FLST,2,4,3
FITEM,2,1910
FITEM,2,409
FITEM,2,787
FITEM,2,894
A,P51X
!  
FLST,2,3,3
FITEM,2,409
FITEM,2,402
FITEM,2,787
A,P51X
!  
FLST,2,3,3
FITEM,2,406
FITEM,2,407
FITEM,2,1911
A,P51X
!  
FLST,2,4,3
FITEM,2,406
FITEM,2,1911
FITEM,2,901
FITEM,2,796
A,P51X
! 
FLST,2,3,3
FITEM,2,787
FITEM,2,402
FITEM,2,403
A,P51X
!  
FLST,2,4,3
FITEM,2,787
FITEM,2,403
FITEM,2,417
FITEM,2,786
A,P51X
! 
FLST,2,4,3
FITEM,2,417
FITEM,2,786
FITEM,2,618
FITEM,2,700
A,P51X
!  
ADELE,    2183, , ,1
!
FLST,2,4,3
FITEM,2,491
FITEM,2,417
FITEM,2,786
FITEM,2,700
A,P51X
!
FLST,2,3,3
FITEM,2,417
FITEM,2,491
FITEM,2,490
A,P51X
!  
FLST,2,4,3
FITEM,2,490
FITEM,2,489
FITEM,2,416
FITEM,2,417
A,P51X
! 
FLST,2,4,3
FITEM,2,698
FITEM,2,616
FITEM,2,489
FITEM,2,416
A,P51X
! 
FLST,2,3,3
FITEM,2,698
FITEM,2,416
FITEM,2,784
A,P51X
!
FLST,2,3,3
FITEM,2,416
FITEM,2,784
FITEM,2,405
A,P51X
!  
ADELE,    2188, , ,1
! 
FLST,2,4,3
FITEM,2,796
FITEM,2,405
FITEM,2,404
FITEM,2,784
A,P51X
! 
FLST,2,3,3
FITEM,2,416
FITEM,2,784
FITEM,2,404
A,P51X
!
FLST,2,3,3
FITEM,2,405
FITEM,2,406
FITEM,2,796
A,P51X
!
FLST,5,25,5,ORDE,12
FITEM,5,12
FITEM,5,87
FITEM,5,537
FITEM,5,670
FITEM,5,-671
FITEM,5,781
FITEM,5,-782
FITEM,5,899
FITEM,5,1061
FITEM,5,2149
FITEM,5,2176
FITEM,5,-2190
ASEL,S, , ,P51X
!
FLST,2,4,3
FITEM,2,1910
FITEM,2,408
FITEM,2,407
FITEM,2,1911
A,P51X
!  
ADELE,    2183, , ,1
!
FLST,2,4,3
FITEM,2,417
FITEM,2,492
FITEM,2,618
FITEM,2,700
A,P51X
!  
FLST,2,3,3
FITEM,2,417
FITEM,2,700
FITEM,2,786
A,P51X
!
ADELE,    2183, , ,1
!
FLST,2,4,3
FITEM,2,417
FITEM,2,491
FITEM,2,618
FITEM,2,700
A,P51X
!
ASEL,U, , ,      12
!
va,all
!
asel,all
!
FLST,2,4,3
FITEM,2,410
FITEM,2,411
FITEM,2,408
FITEM,2,409
A,P51X
!  
FLST,2,4,3
FITEM,2,410
FITEM,2,788
FITEM,2,787
FITEM,2,409
A,P51X
! 
FLST,2,4,3
FITEM,2,411
FITEM,2,1909
FITEM,2,1910
FITEM,2,408
A,P51X
!
FLST,2,9,5,ORDE,8
FITEM,2,1049
FITEM,2,2148
FITEM,2,2157
FITEM,2,2171
FITEM,2,2176
FITEM,2,-2177
FITEM,2,2193
FITEM,2,-2195
VA,P51X
!
numcmp,all
!
csys,0
!
k,,kx(4),ky(1790),kz(4)
!
*get,km,kp,,num,max
!
csn=csn+1
bckfilcs=csn
cskp,bckfilcs,1,km,1790,4,,
!
l,4,1790
l,9,1640
!
csys,0
!
k,,kx(40)-.50,ky(40),kz(40)
!
*get,km,kp,,num,max
!
lstr,km,40
!
*get,lm,line,,num,max
!
lsbl,3553,lm,delete,keep
!
ldele,3688
ldele,3553
!
lstr,1917,40
lstr,1917,4
lstr,4,78
!
a,40,1917,4,78,76,228,232,17,25,31
!
lesize,3688,,,2,1,
lesize,3687,,,6,1,
lesize,3553,,,1,1,
!
*get,am,area,,num,max
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,am
!
voffst,am,topthk,
!
nummrg,all,.001,.001
numcmp,all
!
asel,all
vsel,all
lsel,all
!
lstr,393,912
!
a,393,912,400
a,1857,393,912
!
va,2201,2202,2067,2068
!
vadd,281,296
!
csys,171
!
l,1793,1791
!
lstr,1793,1784
lstr,1791,1785
!
a,1793,1752,1791
a,1793,1784,1785,1791
a,4,1753,1790
!
ldele,3686
!
numcmp,all
!
lstr,1161,37
lstr,1162,36
lstr,1162,1916
lstr,1163,1917
lstr,1160,51
!
lstr,1159,50
lstr,1159,1888
!
a,40,1915,1886,54,39
a,41,1916,1162,36
a,1162,1161,37,36
a,1161,1300,38,37
a,38,1300,1160,51
!
a,51,1160,1159,50
a,50,1159,1888,55
a,1917,1163,1162,1916
a,1888,1159,1158,1887
!
csys,0
!
k,,kx(1917),ky(1163),kz(1917)
k,,kx(1790),ky(1646),kz(1790)
!
*get,km,kp,,num,max
!
lstr,km-1,km
lstr,km-1,1917
lstr,km,1790
lstr,km,1646
lstr,km-1,1163
!
a,km,km-1,1163,1372,1517,1646
a,km-1,1917,1163
a,km,1790,4,1917,km-1
!
k,,kx(1640),ky(1790),kz(9)
!
*get,km,kp,,num,max
!
lstr,1640,km
!
csys,bckfilcs
!
l,km,9
!
k,,kx(1790),0,kz(1915)
*get,km,kp,,num,max
l,km,1915
!
k,,kx(1790),0,kz(1886)
*get,km,kp,,num,max
l,km,1886
!
csys,0
!
k,,kx(1915),0,kz(39)
!
*get,km,kp,,num,max
!
lstr,km,39
!
lsbl,3688,3713,,delete,keep
!
csys,bckfilcs
!
k,,kx(1790),0,kz(39)
*get,km,kp,,num,max
l,km,1923
!
a,4,1790,1921,1915
a,1915,1921,1924,1923
a,1923,1924,1922,1886
a,9,1920,1922,1886
a,9,1920,1640,1754
!
ldele,3713,,,1
ldele,3575,,,1
!
numcmp,all
!
csys,0
!
k,,kx(1920),ky(1920),kz(1645)
*get,km,kp,,num,max
lstr,1645,km
*get,lm,line,,num,max
lsbl,3715,lm,,delete,keep
!
k,,kx(1921),ky(1921),kz(1641)
*get,km,kp,,num,max
lstr,1641,km
lsbl,3716,3715,,delete,keep
!
a,1790,1918,1646,1645,1924,1920
a,1924,1645,1644,1643,1923
a,1923,1643,1642,1641,1925
a,1925,1641,1640,1919,1921
a,1791,1785,1654,1631,1630,1629,1646,1918,1790
!
asel,s,loc,x,kx(1923)-.1,kx(39)
asel,r,loc,y,ky(1643),ky(39)
asel,r,loc,z,kz(4),kz(1754)
asel,u,area,,1362,1369,1369-1362
asel,u,area,,1532,1539,1539-1532
asel,u,area,,1682,1689,1689-1682
!
va,all
!
asel,all
vsel,all
!
a,408,411,91
!
lesize,3681,,,2,1,
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
*get,am,area,,num,max
!
amesh,am
!
voffst,am,topthk,
!
nummrg,all,.001,.001
numcmp,all
!
csys,0
!
k,,-3.1578,-2.7374,-6.1551
k,,-3.1578,-1.6077,-6.1551
k,,-2.7941,-.7500,-5.5572
!
*get,km,kp,,num,max
!
lstr,km-2,km-1
lstr,km-1,km
lstr,km,66
!
k,,-3.6214,-2.8882,-6.3581
!
*get,km,kp,,num,max
!
lstr,km,81
lstr,km,km-3
!
LSTR,    1164,      81
LSTR,    1929,     481
LSTR,    1926,     482
LSTR,    1927,     760
LSTR,    1163,      79
!  
LSTR,    1163,      74
LSTR,      70,     761
LSTR,     382,    1926
LSTR,    1928,      70
LSTR,    1928,     761
!  
LSTR,    1324,      81
LSTR,      75,    1324
!
FLST,2,3,3
FITEM,2,1163
FITEM,2,79
FITEM,2,1916
A,P51X
! 
FLST,2,3,3
FITEM,2,1163
FITEM,2,79
FITEM,2,74
A,P51X
!
FLST,2,4,3
FITEM,2,1163
FITEM,2,1324
FITEM,2,75
FITEM,2,74
A,P51X
!  
FLST,2,3,3
FITEM,2,1324
FITEM,2,81
FITEM,2,75
A,P51X
!  
FLST,2,3,3
FITEM,2,1324
FITEM,2,1164
FITEM,2,81
A,P51X
!
FLST,2,3,3
FITEM,2,81
FITEM,2,1164
FITEM,2,1325
A,P51X
!
FLST,2,4,3
FITEM,2,81
FITEM,2,1325
FITEM,2,481
FITEM,2,1929
A,P51X
!
FLST,2,4,3
FITEM,2,481
FITEM,2,1929
FITEM,2,1926
FITEM,2,482
A,P51X
!
FLST,2,4,3
FITEM,2,482
FITEM,2,1926
FITEM,2,1927
FITEM,2,760
A,P51X
!
FLST,2,3,3
FITEM,2,81
FITEM,2,380
FITEM,2,1929
A,P51X
!  
FLST,2,4,3
FITEM,2,380
FITEM,2,382
FITEM,2,1926
FITEM,2,1929
A,P51X
!
FLST,2,3,3
FITEM,2,67
FITEM,2,1928
FITEM,2,66
A,P51X
!  
FLST,2,4,3
FITEM,2,67
FITEM,2,382
FITEM,2,1927
FITEM,2,1928
A,P51X
!  
FLST,2,3,3
FITEM,2,382
FITEM,2,1926
FITEM,2,1927
A,P51X
!
FLST,2,3,3
FITEM,2,1928
FITEM,2,70
FITEM,2,66
A,P51X
! 
FLST,2,3,3
FITEM,2,1928
FITEM,2,70
FITEM,2,761
A,P51X
!
k,,kx(5),0,kz(407)
!
*get,km,kp,,num,max
!
lstr,407,km
lstr,km,69
!
*get,lm,line,,num,max
!
lesize,lm-1,,,2,1,
lesize,lm,,,3,1,
!
a,407,km,69,90
!
esize,0,2
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
*get,am,area,,num,max
!
amesh,am
!
voffst,am,-topthk,
!
nummrg,all,.001,.001
numcmp,all
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Construction of Left/Rear Rib Volume
!
FLST,2,3,3
FITEM,2,70
FITEM,2,761
FITEM,2,1931
A,P51X
!  
FLST,2,4,3
FITEM,2,406
FITEM,2,796
FITEM,2,783
FITEM,2,1931
A,P51X
! 
FLST,2,3,3
FITEM,2,796
FITEM,2,784
FITEM,2,783
A,P51X
!
FLST,2,4,3
FITEM,2,407
FITEM,2,1910
FITEM,2,5
FITEM,2,1930
A,P51X
!
FLST,2,4,3
FITEM,2,5
FITEM,2,1930
FITEM,2,69
FITEM,2,68
A,P51X
!  
FLST,2,4,3
FITEM,2,68
FITEM,2,78
FITEM,2,4
FITEM,2,5
A,P51X
!
FLST,2,4,3
FITEM,2,901
FITEM,2,892
FITEM,2,891
FITEM,2,1792
A,P51X
!  
FLST,2,5,3
FITEM,2,1792
FITEM,2,891
FITEM,2,880
FITEM,2,879
FITEM,2,1793
A,P51X
!
FLST,2,5,3
FITEM,2,879
FITEM,2,799
FITEM,2,798
FITEM,2,1784
FITEM,2,1793
A,P51X
!
FLST,2,4,3
FITEM,2,761
FITEM,2,763
FITEM,2,765
FITEM,2,1931
A,P51X
!
FLST,2,3,3
FITEM,2,765
FITEM,2,783
FITEM,2,1931
A,P51X
!
FLST,2,4,3
FITEM,2,1928
FITEM,2,1927
FITEM,2,760
FITEM,2,761
A,P51X
!
asel,s,area,,59,64,64-59
asel,a,area,,70,75,75-70
asel,a,area,,505,509,509-505
asel,a,area,,641,752,752-641
asel,a,area,,862,863,1
asel,a,area,,867,868,1
asel,a,area,,902,
asel,a,area,,1012,1013,1
asel,a,area,,1044,1045,1
asel,a,area,,1060,1309,1309-1060
asel,a,area,,1352,1353,1
asel,a,area,,1369,1370,1
asel,a,area,,1522,1523,1
asel,a,area,,1539,1540,1
asel,a,area,,1672,1673,1
asel,a,area,,1689,1698,1698-1689
asel,a,area,,1833,1855,1855-1833
asel,a,area,,1876,
asel,a,area,,2067,2068,1
asel,a,area,,2150,2154,1
asel,a,area,,2179,2180,1
asel,a,area,,2200,2203,3
asel,a,area,,2213,2215,1
asel,a,area,,2225,
asel,a,area,,2229,2244,1
asel,a,area,,2247,2260,1
!
va,all
!
asel,all
vsel,all
lsel,all
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Construction of Left/Front Volume
!
vclear,243
!
csys,0
!
k,,kx(415),ky(435),kz(415)
!
*get,km,kp,,num,max
!
lstr,435,km
!
*get,lm,line,,num,max
!
asbl,544,lm,,delete,keep
!
lstr,km,797
!
vsel,s,volu,,291,
aslv,s
cm,v291a,area
!
vdele,291
!
adele,2158
!
a,415,1932,797,1905
a,1932,797,414
!
asel,s,area,,v291a
asel,a,area,,544,2158,2158-544
!
va,all
!
asel,all
vsel,all
!
numcmp,all
!
csys,0
!
k,,kx(1897),ky(1758),kz(1758)
!
*get,km,kp,,num,max
!
lstr,1758,km
lstr,km,502
!
ldele,3224
!
csys,176
!
k,,kx(503),ky(503),kz(903)
k,,kx(503),0,kz(903)
!
*get,km,kp,,num,max
!
lstr,1758,km-1
lstr,903,km
lstr,km,584
lstr,km,km-1
lstr,km-1,503
!
csys,0
!
k,,kx(1933),ky(1933),kz(1932)
!
*get,km,kp,,num,max
!
lstr,km,1933
lstr,km,1932
!
a,902,1906,1903,900,899
!
k,,kx(1758),ky(1758),kz(1936)
!
*get,km,kp,,num,max
!
lstr,km,1936
lstr,km,1758
!
k,,kx(6),ky(6),kz(415)
!
*get,km,kp,,num,max
!
lstr,km,415
!
lsbl,3299,3770,,delete,keep
!
a,1937,1938,415,1932,1936
!
lstr,1937,1795
!
k,,kx(1936),ky(797),kz(797)
!
*get,km,kp,,num,max
!
lstr,km,1936
lstr,km,797
!
k,,kx(795),ky(797),kz(797)
!
*get,km,kp,,num,max
!
lstr,km,km-1
lstr,km,795
lstr,km,1903
!
a,797,km-1,km,795,794
a,km,1903,900,795
a,1936,1932,797,km-1
a,1937,1936,1939,1940
a,1937,1940,1903,1795
!
a,1938,415,1905,1907,1904,6
a,1938,6,1795,1937
!
asel,s,area,,544,1056,1056-544
asel,a,area,,1064,
asel,a,area,,2144,2146,1
asel,a,area,,2156,
asel,a,area,,2263,2271,1
!
va,all
!
asel,all
vsel,all
!
a,1764,461,437,415,1938
a,1758,1764,1938,1937
a,1758,459,435,1932,1936,1933
!
vsel,s,volu,,300,
aslv,s
cm,v300a,area
!
vdele,300
adele,2268
!
csys,0
!
k,,kx(1940),ky(1936),kz(1937)
!
*get,km,kp,,num,max
!
lstr,km,1940
!
lsbl,3768,3780,,delete,keep
!
a,1936,1939,1940,1941
a,1941,1940,1937
!
asel,s,area,,v300a
asel,a,area,,2268,2275,2275-2268
!
va,all
!
a,1941,501,644,726
a,726,795,1940,1941
a,501,1941,1936
a,501,1936,1933
a,501,1933,502
!
a,1758,1933,502,503
a,1758,503,1934
a,503,584,1935,1934
!
FLST,2,5,3
FITEM,2,882
FITEM,2,774
FITEM,2,903
FITEM,2,1935
FITEM,2,1934
A,P51X
!
FLST,2,4,3
FITEM,2,1934
FITEM,2,882
FITEM,2,1795
FITEM,2,1937
A,P51X
!
FLST,2,3,3
FITEM,2,1758
FITEM,2,1937
FITEM,2,1934
A,P51X
!
FLST,2,4,3
FITEM,2,1795
FITEM,2,1903
FITEM,2,900
FITEM,2,847
A,P51X
!
FLST,2,6,3
FITEM,2,847
FITEM,2,848
FITEM,2,849
FITEM,2,850
FITEM,2,882
FITEM,2,1795
A,P51X
!
a,584,1935,903,647
!
asel,s,area,,582,
asel,a,area,,707,709,1
asel,a,area,,818,820,1
asel,a,area,,966,968,1
asel,a,area,,1017,
asel,a,area,,1057,1067,10
asel,a,area,,1838,
asel,a,area,,2261,2264,3
asel,a,area,,2266,2269,3
asel,a,area,,2272,2289,1
!
va,all
!
asel,all
vsel,all
lsel,all
!
numcmp,all
!
!********************************* Mesh Volumes *****************************
!
lesize,3598,,,3,1,
lesize,3597,,,3,1,
lesize,3601,,,4,1,
lesize,3620,,,4,1,
lesize,3618,,,1,1,
!
lesize,3605,,,1,1,
lesize,3610,,,4,1,
lesize,3611,,,4,1,
lesize,3385,,,4,1,
lesize,3621,,,2,1,
!
lesize,3607,,,3,1,
lesize,3301,,,2,1,
lesize,3602,,,2,1
lesize,3613,,,3,1,
lesize,3614,,,6,1,
!
lesize,3612,,,9,1,
lesize,3223,,,9,1,
lesize,3615,,,9,1,
lesize,3616,,,9,1,
lesize,3604,,,2,1,
!
lesize,3609,,,2,1,
lesize,3617,,,2,1,
!
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
asel,s,area,,2137,2143,1
asel,a,area,,2131,
asel,a,area,,2126,
asel,a,area,,2136,
asel,a,area,,2132,
asel,a,area,,168,169,1
asel,a,area,,542,543,1
asel,a,area,,2120,
asel,a,area,,143,146,3
asel,a,area,,141,144,144-141
asel,a,area,,136,
asel,a,area,,117,170,170-117
asel,a,area,,105,576,576-105
!
amesh,all
!
FLST,2,9,6,ORDE,6
FITEM,2,241
FITEM,2,280
FITEM,2,282
FITEM,2,286
FITEM,2,-290
FITEM,2,295
VADD,P51X
!   
mopt,pyra,on
mshape,1,3d
MSHKEY,0
!
CM,_Y,VOLU
VSEL, , , ,     302
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*  
VMESH,_Y1
!*  
CMDEL,_Y
CMDEL,_Y1
CMDEL,_Y2
!*  
aclear,all
!
asel,all
!
vadd,243,300,301
!
vsel,s,volu,,291,293,1
aslv,s
cm,aset,area
!
vdele,291,293,1
!
adele,2157,,,1
adele,2171,,,1
adele,2176,,,1
adele,2177,,,1
!
asel,s,area,,aset
!
va,all
!
vsel,all
asel,all
!
FLST,5,3,4,ORDE,3
FITEM,5,3224
FITEM,5,3761
FITEM,5,3786
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
!
FLST,5,1,4,ORDE,1
FITEM,5,3788
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
! 
FLST,5,1,4,ORDE,1
FITEM,5,3302
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3787
FITEM,5,3789
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
!
FLST,5,4,4,ORDE,4
FITEM,5,3306
FITEM,5,3622
FITEM,5,3624
FITEM,5,-3625
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,2
FITEM,5,3626
FITEM,5,-3628
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3766
FITEM,5,3769
FITEM,5,3772
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,3635
FITEM,5,3637
FITEM,5,3760
FITEM,5,3770
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,2
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3303
FITEM,5,3629
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,1736
FITEM,5,3636
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,1,4,ORDE,1
FITEM,5,3636
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3785
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3299
FITEM,5,3773
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,9,4,ORDE,7
FITEM,5,3648
FITEM,5,3650
FITEM,5,-3653
FITEM,5,3661
FITEM,5,3663
FITEM,5,3669
FITEM,5,3680
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3630
FITEM,5,3632
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3631
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,2
FITEM,5,3762
FITEM,5,-3765
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*
lesize,3645,,,4,1,
!  
vsel,s,volu,,241,243,2
aslv,s
cm,aset,area
!
FLST,5,6,4,ORDE,6
FITEM,5,833
FITEM,5,3768
FITEM,5,3774
FITEM,5,3780
FITEM,5,3783
FITEM,5,-3784
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,3767
FITEM,5,3775
FITEM,5,-3776
FITEM,5,3781
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,1,1,
CMDEL,_Y
CMDEL,_Y1
!*
vdele,241,243,2
!  
adele,544,,,1
adele,2156,,,1
adele,612,,,1
adele,620,,,1
adele,2158,,,1
adele,2159,,,1
!
a,1932,797,794,414
a,794,414,793
a,1903,1940,795,900
a,1940,1903,1906
a,1906,902,797,1939
a,1940,1906,1939
!
va,569,582,594,603,1056,1064,2263,2265
!
asel,s,area,,aset,
asel,a,area,,101,544,544-101
asel,a,area,,582,594,594-582
asel,a,area,,569,603,603-569
asel,u,area,,1056,1064,1064-1056
asel,u,area,,2263,2265,2265-2263
!
va,all
!
asel,s,area,,1791,
asel,a,area,,513,516,3
asel,a,area,,589,
asel,a,area,,2271,2273,1
asel,a,area,,2285,2286,1
asel,a,area,,2147,2149,1
asel,a,area,,2287,2288,1
asel,a,area,,2281,2282,1
asel,a,area,,93,
asel,a,area,,94,96,2
asel,a,area,,163,164,1
asel,a,area,,578,579,1
asel,a,area,,2262,
asel,a,area,,2144,2145,1
asel,a,area,,2279,2280,1
!
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
MSHKEY,0
!
vmesh,241
!
asel,all
vsel,all
!
vadd,296,299
!
vsel,s,volu,,243,280,280-243
aslv,s
cm,aset,area
!
vdele,243
vdele,280
!
adele,2179,2180,1
!
a,796,783,1792,901
a,783,891,1792
!
va,1045,1060,1934,1937,2251,2255
!
asel,s,area,,aset,
asel,a,area,,1934,1937,3
asel,u,area,,1045,1060,1060-1045
asel,u,area,,2251,2255,2255-2251
!
va,all
!
vsel,all
!
vclear,257
!
vsel,s,volu,,257,280,280-257
aslv,s
cm,aset2,area
!
vdele,257
vdele,280
!
adele,1876
!
asel,s,area,,aset2,
!
va,all
!
vsel,all
!
FLST,5,6,4,ORDE,5
FITEM,5,1
FITEM,5,3216
FITEM,5,-3218
FITEM,5,3296
FITEM,5,-3297
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3305
FITEM,5,3532
FITEM,5,3543
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3633
FITEM,5,-3634
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,9,4,ORDE,9
FITEM,5,3724
FITEM,5,3726
FITEM,5,3734
FITEM,5,-3735
FITEM,5,3737
FITEM,5,3740
FITEM,5,-3741
FITEM,5,3749
FITEM,5,3756
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3753
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,7,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,5
FITEM,5,3712
FITEM,5,-3714
FITEM,5,3717
FITEM,5,3720
FITEM,5,3722
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3723
FITEM,5,3739
FITEM,5,3743
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,2,4,ORDE,2
FITEM,5,3694
FITEM,5,-3695
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,5,4,ORDE,4
FITEM,5,3687
FITEM,5,3709
FITEM,5,-3711
FITEM,5,3716
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,4,4,ORDE,4
FITEM,5,4
FITEM,5,3220
FITEM,5,-3221
FITEM,5,3569
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,9,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,2
FITEM,5,3372
FITEM,5,-3374
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,3,4,ORDE,3
FITEM,5,3372
FITEM,5,3588
FITEM,5,-3589
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3295
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,5,4,ORDE,5
FITEM,5,3575
FITEM,5,-3576
FITEM,5,3579
FITEM,5,3585
FITEM,5,3587
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3219
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,1761
FITEM,5,3571
FITEM,5,-3572
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,1,4,ORDE,1
FITEM,5,3572
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,2,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,9,4,ORDE,2
FITEM,5,3560
FITEM,5,-3568
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,6,4,ORDE,2
FITEM,5,3638
FITEM,5,-3643
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,3,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3755
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,3,4,ORDE,3
FITEM,5,3373
FITEM,5,-3374
FITEM,5,3578
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,2,4,ORDE,2
FITEM,5,3373
FITEM,5,-3374
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
FLST,5,1,4,ORDE,1
FITEM,5,3374
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,4,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,1,4,ORDE,1
FITEM,5,3580
CM,_Y,LINE
LSEL, , , ,P51X
!*  
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,5,1,
CMDEL,_Y
CMDEL,_Y1
!*  
FLST,5,23,5,ORDE,20
FITEM,5,620
FITEM,5,1833
FITEM,5,-1834
FITEM,5,1964
FITEM,5,2068
FITEM,5,2086
FITEM,5,-2088
FITEM,5,2091
FITEM,5,-2092
FITEM,5,2094
FITEM,5,2150
FITEM,5,2152
FITEM,5,-2154
FITEM,5,2217
FITEM,5,-2219
FITEM,5,2222
FITEM,5,-2223
FITEM,5,2225
FITEM,5,2254
FITEM,5,2257
ASEL,S, , ,P51X
!
asel,a,area,,1874
asel,a,area,,1878
asel,a,area,,1881
asel,a,area,,1884
asel,a,area,,2068
!
aatt,,,2,0      ! set element attributes
mshkey,0        ! select free meshing
!
amesh,all
!
mopt,pyra,on
mshape,1,3d
MSHKEY,0
!
vsel,all
!
vmesh,243
vmesh,257
vmesh,261
vmesh,285
!
asel,all
vsel,all
!
aclear,all
!
nummrg,all,.001,.001
numcmp,all
!
eplot