登机桥

/PREP7   
ET,1,SHELL63
ET,2,BEAM188
MPTEMP,,,,,,,,   
MPTEMP,1,0   
MPDATA,EX,1,,2.1E5   
MPDATA,PRXY,1,,0.3   
MPTEMP,,,,,,,,   
MPTEMP,1,0   
MPDATA,DENS,1,,7.8E-6   
R,1,2,,,,,,   
R,2,12,,,,,,
SECTYPE,1,BEAM,HREC,,0   
SECOFFSET,CENT   
SECDATA,150,100,6,6,6,6,0,0,0,0   
SECTYPE,2,BEAM,HREC,,0   
SECOFFSET,CENT   
SECDATA,100,60,4,4,4,4,0,0,0,0   
SECTYPE,3,BEAM,HREC,,0   
SECOFFSET,CENT   
SECDATA,60,100,4,4,4,4,0,0,0,0   
SECTYPE,4,BEAM,HREC,,0   
SECOFFSET,CENT   
SECDATA,50,100,3,3,3,3,0,0,0,0   
SECTYPE,5,BEAM,HREC,,0   
SECOFFSET,CENT   
SECDATA,60,120,6,6,6,6,0,0,0,0   
K,1,0,970,-763   
K,2,25,970,-763   
K,3,225,970,-763
k,4,250,970,-763
kgen,2,1,4,1,0,62,0   
k,9,0,-970,-738
k,10,25,-970,-738
k,11,225,-970,-738
k,12,250,-970,-738
kgen,2,9,12,1,0,-62,0
   
l,1,2   
l,2,3   
l,3,4   
l,1,5   
l,5,6   
l,6,7   
l,7,8   
l,4,8
l,9,10
l,10,11
l,11,12
l,9,13
l,13,14
l,14,15
l,15,16
l,12,16
   
   
*get,kmax,kp,,num,max   
k,kmax+1,0, 970,763   
l,1,kmax+1   
*get,Lmax,line,,num,max   
adrag,1,,,,,,lmax   
adrag,3,,,,,,lmax   
adrag,4,,,,,,lmax   
adrag,5,,,,,,lmax   
adrag,6,,,,,,lmax   
adrag,7,,,,,,lmax   
adrag,8,,,,,,lmax   
nummrg,all   
numcmp,all   
   
*get,kmax,kp,,num,max   
k,kmax+1,0,-970,738
l,9,kmax+1   
*get,Lmax,line,,num,max   
adrag,9,,,,,,lmax   
adrag,11,,,,,,lmax   
adrag,12,,,,,,lmax   
adrag,13,,,,,,lmax   
adrag,14,,,,,,lmax   
adrag,15,,,,,,lmax   
adrag,16,,,,,,lmax
   
nummrg,all   
numcmp,all   
   
agen,55,1,14,1,250,0,0
   
   
*get,kmax,kp,,num,max   
k,kmax+1,0,942,-763   
l,1,kmax+1   
*get,Lmax,line,,num,max   
adrag,1,,,,,,lmax   
adrag,2,,,,,,lmax   
adrag,3,,,,,,lmax   
nummrg,all   
numcmp,all   
a,1,2,6,5   
a,2,6,7,3   
a,3,7,8,4   
*get,kmax,kp,,num,max   
k,kmax+1,0,942,-863   
l,1329,kmax+1   
*get,Lmax,line,,num,max   
adrag,1992,,,,,,lmax   
adrag,1994,,,,,,lmax   
adrag,1996,,,,,,lmax   
   
l,9,10   
*get,kmax,kp,,num,max   
k,kmax+1,0,-907,-738
l,9,kmax+1   
*get,Lmax,line,,num,max   
adrag,9,,,,,,lmax   
adrag,10,,,,,,lmax   
adrag,11,,,,,,lmax   
   
a,9,10,14,13   
a,10,11,15,14   
a,11,12,16,15   
*get,kmax,kp,,num,max   
k,kmax+1,0,-907,-863
l,1340,kmax+1   
*get,Lmax,line,,num,max   
adrag,2011,,,,,,lmax   
adrag,2014,,,,,,lmax   
adrag,2017,,,,,,lmax   
   
   
nummrg,all   
numcmp,all   
ARSYM,Z,663,680,,,,0,0
agen,55,663,698,1,250,0,0   
nummrg,all   
numcmp,all   
aglue,all
   
AATT,1,1,1,,,   
AESIZE,ALL,100   
AMESH,663,2642,1   
AATT,1,2,1,,,   
AESIZE,ALL,100   
AMESH,1,662,1
   
lsel,none
asel,none
*get,kmax,kp,,num,max
k,kmax+1,0,942,-813
k,kmax+2,0,-907,-813
   
l,kmax+1,kmax+2
   
LATT,1,,2,,,,1
LESIZE,ALL,125,,,,1,,,1,
LMESH,ALL
   
lgen,2,all,,,13750,,,,0
lsymm,z,all,,,,0,0
   
lsel,none
asel,none
   
*get,kmax,kp,,num,max
k,kmax+1,0,942,-813
k,kmax+2,1500,-907,-813
   
l,kmax+1,kmax+2
   
LATT,1,,2,,,,2
LESIZE,ALL,125,,,,1,,,1,
LMESH,ALL
   
lgen,5,all,,,3000,,,,0
lsymm,z,all,,,,0,0
   
lsel,none
   
*get,kmax,kp,,num,max
k,kmax+1,1500,-907,-813
k,kmax+2,3000,942,-813
   
l,kmax+1,kmax+2
   
LATT,1,,2,,,,2
LESIZE,ALL,125,,,,1,,,1,
LMESH,ALL
   
lgen,4,all,,,3000,,,,0
lsymm,z,all,,,,0,0
   
nsel,s,loc,x,0
d,all,all,0
alls
   
nsel,s,loc,x,13750
d,all,all,0   
alls
acel,,9.8,
/solu
solve