mod_assemb_prep
!
sf=5.0                          ! scaling factor
ar=3.0                          ! aspect ratio (wingspan/trunk wing chord)
!
csys,0
!
create_cs,0,'aircs',0,sf*(-0.5),0,0,0,0,0
!
k,,sf*0.00240,sf*0.00917                ! Upper Camber
k,,sf*0.00909,sf*0.01947
k,,sf*0.02004,sf*0.03027
k,,sf*0.03527,sf*0.04120
k,,sf*0.05469,sf*0.05201
!                
k,,sf*0.07816,sf*0.06250
k,,sf*0.10546,sf*0.07247
k,,sf*0.13635,sf*0.08175
k,,sf*0.17050,sf*0.09019
k,,sf*0.20758,sf*0.09761
!                
k,,sf*0.24720,sf*0.10389
k,,sf*0.28894,sf*0.10887
k,,sf*0.33237,sf*0.11240
k,,sf*0.37702,sf*0.11428
k,,sf*0.42253,sf*0.11427
!                
k,,sf*0.46864,sf*0.11219
k,,sf*0.51524,sf*0.10784
k,,sf*0.56247,sf*0.10147
k,,sf*0.61010,sf*0.09373
k,,sf*0.65752,sf*0.08513
!                
k,,sf*0.70408,sf*0.07603
k,,sf*0.74914,sf*0.06673
k,,sf*0.79206,sf*0.05746
k,,sf*0.83222,sf*0.04844
k,,sf*0.86902,sf*0.03983
!                
k,,sf*0.90193,sf*0.03175
k,,sf*0.93044,sf*0.02428
k,,sf*0.95409,sf*0.01737
k,,sf*0.97285,sf*0.01082
k,,sf*0.98710,sf*0.00507
!                
k,,sf*0.99658,sf*0.00126
k,,sf*1.00000,sf*0.00000
!                
k,,sf*0.99630,sf*0.00086                ! Lower Camber
k,,sf*0.98504,sf*0.00323
k,,sf*0.96588,sf*0.00655
k,,sf*0.93862,sf*0.00990
k,,sf*0.90359,sf*0.01198
!                
k,,sf*0.86198,sf*0.01155
k,,sf*0.81565,sf*0.00804
k,,sf*0.76645,sf*0.00167
k,,sf*0.71614,sf*(-0.00705)
k,,sf*0.66662,sf*(-0.01663)
!                
k,,sf*0.61825,sf*(-0.02441)
k,,sf*0.56920,sf*(-0.02925)
k,,sf*0.51867,sf*(-0.03225)
k,,sf*0.46731,sf*(-0.03415)
k,,sf*0.41576,sf*(-0.03519)
!                
k,,sf*0.36468,sf*(-0.03554)
k,,sf*0.31473,sf*(-0.03531)
k,,sf*0.26654,sf*(-0.03456)
k,,sf*0.22073,sf*(-0.03334)
k,,sf*0.17788,sf*(-0.03166)
!                
k,,sf*0.13854,sf*(-0.02954)
k,,sf*0.10324,sf*(-0.02699)
k,,sf*0.07242,sf*(-0.02399)
k,,sf*0.04653,sf*(-0.02052)
k,,sf*0.02592,sf*(-0.01656)
!                
k,,sf*0.01099,sf*(-0.01211)
k,,sf*0.00245,sf*(-0.00704)
k,,sf*0.00000,sf*(-0.00006)
!
create_lines
!
lsel,s,line,,lm-38,lm-29
lcomb,all
allsel,all
!
lsel,s,line,,lm-43,lm-39
lcomb,all
allsel,all
!
lsel,s,line,,lm-46,lm-44
lcomb,all
allsel,all
!
lsel,s,line,,lm-49,lm-47
lcomb,all
allsel,all
!
lsel,s,line,,lm-52,lm-50
lcomb,all
allsel,all
!
lsel,s,line,,lm-55,lm-53
lcomb,all
allsel,all
!
lsel,s,line,,lm-28,lm-25
lcomb,all
allsel,all
!
lsel,s,line,,lm-24,lm-22
lcomb,all
allsel,all
!
lsel,s,line,,lm-21,lm-19
lcomb,all
allsel,all
!
lsel,s,line,,lm-17,lm-13
lcomb,all
allsel,all
!
lsel,s,line,,lm-12,lm-8
lcomb,all
allsel,all
!
lsel,s,line,,lm-7,lm-5
lcomb,all
allsel,all
!
numcmp,all
!
al,all
!
init_entity_num
!
!VEXT, NA1, NA2, NINC, DX, DY, DZ, RX, RY, RZ
csys,0
vext,am,,,0,0,sf*ar,0.75,0.75
! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, ecs, mat, real, pmwolsz
asel,s,area,,1
lsla,s
!
MSH_AREA,0,0,,0.2,0.2,,,,2
!vext,am,,,0,0,-sf*ar,0.75,0.75
!
lplot