【正文】
_istrain(7),cable_istrain7*set,cable_istrain(8),cable_istrain8*set,cable_istrain(9),cable_istrain9*set,cable_istrain(10),cable_istrain10*set,cable_istrain(11),cable_istrain11*set,cable_istrain(12),cable_istrain12*set,cable_istrain(13),cable_istrain13/,create the kps of croSSbeams*set,w5, !橫梁到主梁中心的距離*do,i,1,13k,kp_numfour+i*14+400+12,i*7+6,beam_height,w5k,kp_numfour+i*14+800+12,i*7+6,beam_height,w5*enddo!定義拉索單元*do,i,1,13et,enum_link+i1,link10 mp,ex,enum_link+i1,mp,prxy,enum_link+i1,mp,dens,enum_link+i1,cable_dens(i)!mp,alpx,enum_link+i1, !定義索(鋼材)的線膨脹系數(shù)lsel,u,real,1,1000r,i+enum_link1,cable_area(i),cable_istrain(i)lstr,302*(i1),kp_numfour+i*14+400+12lstr,302*(i1),kp_numfour+i*14+800+12latt,enum_link+i1,enum_link+i1,enum_link+i1lesize,all,1,1lmesh,alllsel,all*enddo/,create the back cables*set,enum_back_cable,enum_link+13et,enum_back_cable,link10mp,ex,enum_back_cable,mp,prxy,enum_back_cable,mp,dens,enum_back_cable,cable_dens_backr,enum_back_cable,cable_area_back,cable_back_istrain1lsel,u,real,1,enum_back_cable1k,3001,45,k,3002,45+lstr,3001,10latt,enum_back_cable,enum_back_cable,enum_back_cablelesize,all,1,1lmesh,allallsel,allet,enum_back_cable+1,link10mp,ex,enum_back_cable+1,mp,prxy,enum_back_cable+1,mp,dens,enum_back_cable+1,cable_dens_backr,enum_back_cable+1,cable_area_back,cable_back_istrain2lsel,u,real,1,200lstr,3002,18latt,enum_back_cable+1,enum_back_cable+1,enum_back_cable+1lesize,all,1,1lmesh,allallsel,allesel,s,ename,link10cm,cable,elemalls/,create the croSSbeams*set,enum_croSSbeam,enum_back_cable+2 !橫梁的單元號(hào)et,enum_croSSbeam,beam4mp,ex,enum_croSSbeam,mp,prxy,enum_croSSbeam,mp,dens,enum_croSSbeam,2500r,enum_croSSbeam,**3/12,1,lsel,u,real,1,150*do,i,1,13lstr,kp_numfour+i*14+400+12,kp_numfour+i*14+12lstr,kp_numfour+i*14+12,kp_numfour+14*i+800+12lesize,all,3,1latt,enu