【正文】
,MESHk,5000,1000000lsel,u,real,1,200latt,enum_beam,enum_beam,enum_beam,5000,1lesize,all,1,1lmesh,allallsel,allesel,s,ename,beam188cm,main_beam,elemallsel,all/,create the cable element*set,enum_link,enum_beam+1 !拉索的開始單元號*dim,cable_area,13 !定義拉索單元的面積數(shù)組*dim,cable_istrain,13 !定義拉索單元的初始應(yīng)變數(shù)組*dim,cable_dens,13/,define the angle of all cable*set,cable_area1, *set,cable_area2, *set,cable_area3,*set,cable_area4,*set,cable_area5,*set,cable_area6,*set,cable_area7,*set,cable_area8,*set,cable_area9,*set,cable_area10,*set,cable_area11,*set,cable_area12,*set,cable_area13,*set,cable_area_back,*set,cable_area(1),cable_area1*set,cable_area(2),cable_area2*set,cable_area(3),cable_area3*set,cable_area(4),cable_area4*set,cable_area(5),cable_area5*set,cable_area(6),cable_area6*set,cable_area(7),cable_area7*set,cable_area(8),cable_area8*set,cable_area(9),cable_area9*set,cable_area(10),cable_area10*set,cable_area(11),cable_area11*set,cable_area(12),cable_area12*set,cable_area(13),cable_area13*set,cable_dens(1),*set,cable_dens(2),*set,cable_dens(3),*set,cable_dens(4),*set,cable_dens(5),*set,cable_dens(6),*set,cable_dens(7),*set,cable_dens(8),*set,cable_dens(9),*set,cable_dens(10),*set,cable_dens(11),*set,cable_dens(12),*set,cable_dens(13),*set,cable_dens_back,*set,cable_istrain1, *set,cable_istrain2,*set,cable_istrain3,*set,cable_istrain4,*set,cable_istrain5,*set,cable_istrain6,*set,cable_istrain7,*set,cable_istrain8,*set,cable_istrain9,*set,cable_istrain10,*set,cable_istrain11,*set,cable_istrain12,*set,cable_istrain13,cable_back_istrain1=cable_back_istrain2=*set,cable_istrain(1),cable_istrain1*set,cable_istrain(2),cable_istrain2*set,cable_istrain(3),cable_istrain3*set,cable_istrain(4),cable_istrain4*set,cable_istrain(5),cable_istrain5*set,cable_istrain(6),cable_istrain6*set,cable