!最大的索直徑為10～15 cm 間
!支座豎向反力為1300 kN
!構(gòu)豎向撓度為150 mm ,控制在l/ 400 = 170 mm 以內(nèi)
!文件名為net
D1=0.03
A1=3.1415926*D1*D1/4
D2=0.02
A2=3.1415926*D2*D2/4
ISTR=0.005
ro=7800
/filname,net
/prep7
et,1,link8
et,2,link10
r,1,A1
r,2,A2,ISTR
SSTIF,ON            
mp,ex,1,2.1e11
mp,prxy,1,0.3
mp,dens,1,ro

!上層
n,1
n,2,2
n,3,4
n,4,6
n,5,8
n,6,10
ngen,21,6,1,6,1,,,-2
save
*do,i,1,5,1
e,i,i+1
*enddo
egen,21,6,1,5,1
save
/view,1,1,1,1
eplot

*do,i,1,115,6
e,i,i+6
*enddo
egen,6,1,106,125,1
save



!下層
n,1001,1,-2,-1
n,1002,3,-2,-1
n,1003,5,-2,-1
n,1004,7,-2,-1
n,1005,9,-2,-1
ngen,20,6,1001,1005,1,,,-2
*do,i,1001,1004,1
e,i,i+1
*enddo
egen,20,6,226,229,1
save

*do,i,1001,1109,6
e,i,i+6
*enddo
egen,5,1,306,324,1
save

!底層部分
n,2001,3,-6,-10
n,2002,7,-6,-10
ngen,3,30,2001,2002,1,,,-10
save

e,2001,2002
egen,3,30,401
e,2001,2031
e,2031,2061
e,2002,2032
e,2032,2062
eplot

!斜桿(上，下層間)
*do,i,1001,1005,1
e,i,i-1000
e,i,i-999
e,i,i-994
e,i,i-993
*enddo
egen,20,6,408,427,1


!斜桿（下，底層間）
e,2001,1019
e,2001,1021
e,2001,1037
e,2001,1039
e,2002,1021
e,2002,1023
e,2002,1039
e,2002,1041
egen,3,30,808,815,1

!索
n,3001,3,-6,-10
n,3002,7,-6,-10
ngen,3,30,3001,3002,1,,,-10
type,2
real,2
e,1002,3001
e,3001,3031
e,3031,3061
e,3061,1116
e,1004,3002
e,3002,3032
e,3032,3062
e,3062,1118
!索與底層弦梁節(jié)點(diǎn)Y向位移的約束
cp,1,uy,2001,3001
cp,2,uy,2002,3002
cp,3,uy,2031,3031
cp,4,uy,2032,3032
cp,5,uy,2061,3061
cp,6,uy,2062,3062
save
finish

/solu
nsel,s,loc,z,-1
nsel,a,loc,z,-39
nplot
d,all,all
allsel
eplot
!前面的都沒有問題
acel,,9.8
f,2031,fy,-500000
f,2032,fy,-500000

time,2
nsub,5
solve


!插入一步，即保存到net.lgw文件中
finish

/post1
pldisp,1
etable,evol,volu
ssum
*get,vtot,ssum,,item,evol
wt=ro*vtot
*GET,uy,NODE,2032,U,Y

*status,parm
!前面的正確
! LGWRITE,net,lgw,G:\yezi\ANSYSC~1\check\6-1\,COMMENT
finish
/opt                       !進(jìn)入優(yōu)化器
OPANL,'net','lgw',' '             !指定分析文件
opvar,D1,DV,0.02,0.04    !定義設(shè)計(jì)變量
opvar,D2,DV,0.01,0.02    
opvar,ISTR,DV,0.002,0.006
opvar,uy,SV,-0.17,-0.1       !定義狀態(tài)變量
opsave,netvar,opt        !存儲(chǔ)數(shù)據(jù)
opvar,wt,obj,,,0.1,        !定義目標(biāo)函數(shù)

optype,subp             !定義一階方法
opsubp,45                !最大45次跌代
opexe                     !開始優(yōu)化

oplist,all                !列出所有設(shè)計(jì)序列