正四角锥网架final.txt

是用apdl语言编的

!最大的索直径为10～15 cm 间
!支座竖向反力为1300 kN
!构竖向挠度为150 mm ,控制在l/ 400 = 170 mm 以内
!文件名为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
!索与底层弦梁节点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                       !进入优化器
OPANL,'net','lgw',' '             !指定分析文件
opvar,D1,DV,0.02,0.04    !定义设计变量
opvar,D2,DV,0.01,0.02    
opvar,ISTR,DV,0.002,0.006
opvar,uy,SV,-0.17,-0.1       !定义状态变量
opsave,netvar,opt        !存储数据
opvar,wt,obj,,,0.1,        !定义目标函数

optype,subp             !定义一阶方法
opsubp,45                !最大45次跌代
opexe                     !开始优化

oplist,all                !列出所有设计序列