马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
/units,si
/FILNAM,SCRATCH
/TITLE,OPTIMIZATION OF TOWER
/PREP7
*SET,D1,5.663
*SET,D2,4.593
*SET,D3,4.593
*SET,D4,4.243
*SET,D5,4.243
*SET,t1,0.018
*SET,t2,0.018
*SET,t3,0.016
*SET,t4,0.016
*SET,t5,0.014
MP,EX,1,2.07e11
MP,PRXY,1,0.3
MP,DENS,1,7850
ET,1,SHELL93
R,1,t1,t1,t2,t2
R,2,t2,t2,t3,t3
R,3,t3,t3,t4,t4
R,4,t4,t4,t5,t5
K,1,D1/2,,,
K,2,D2/2,,20.5,
K,3,D3/2,,41,
K,4,D4/2,,61.5,
K,5,D5/2,,82,
l,1,2
l,2,3
l,3,4
l,4,5
LPLOT
K,100,0,,0,
K,101,0,,82,
Arotat,all,,,,,,100,101
K,1001,0,0,1.5,
KWPAVE,1001
CSYS,4
WPROTA,,,-90.000000
WPROTA,,-45,,
K,2001,0.75,0.25,0,
K,2002,0.75,-0.25,0,
K,2003,-0.75,-0.25,0,
K,2004,-0.75,0.25,0,
L,2001,2004
L,2002,2003
L,2001,2002
L,2003,2004
LPLOT
LFILLT,37,39,0.25, ,
LFILLT,39,38,0.25, ,
LFILLT,38,40,0.25, ,
LFILLT,40,37,0.25, ,
AL,41,42,38,39,43,37
VOFFST,17,3,100,
ASBV,13,1
Aplot
AATT,1,1,1,0
LESIZE,ALL,0.5
MSHAPE,1,2D
AMESH,ALL
CSYS,0
K,9999,0,0,82
ET,2,MASS21
R,5,0.01
KSEL,S,LOC,Z,82,82
KMESH,ALL
NSEL,S,LOC,Z,82,82
CERIG,NODE(0,0,82),ALL,ALL,,,,
/SOL
ANTYPE,0
DL,17,,ALL
DL,22,,ALL
DL,27,,ALL
DL,32,,ALL
ACEL,0,0,9.8,
F,21045,FY,385732
nsel,all
/STATUS,SOLU
SOLVE
FINISH
/POST1
PLNSOL, U,SUM,0,1
PLNSOL, S,EQV,2,1
/POST1
ETABLE,VOLU,VOLU
ETABLE,SMAX_I,NMISC,1
ETABLE,SMAX_J,NMISC,3
ESORT,ETAB,SMAX_I,,1
*GET,SMAXI,SORT,,MAX
ESORT,ETAB,SMAX_J,,1
*GET,SMAXJ,SORT,,MAX
SMAX=ABS(SMAXI)>ABS(SMAXJ)
SSUM
*GET,VOLUME,SSUM,,ITEM,VOLU
*STATUS,Parm ! 列表显示内存变量的值
FINISH ! 退出后处理模块
LGWRITE,SCRATCH,lgw ! 宏程序定义结束
/OPT
OPANL,SCRATCH,lgw ! 定义优化设计文件SCRATCH
OPVAR,t1,DV,0.01,0.03
OPVAR,t2,DV,0.01,0.03
OPVAR,t3,DV,0.01,0.02
OPVAR,t4,DV,0.01,0.02
OPVAR,t5,DV,0.01,0.02
OPVAR,D1,DV,3,6
OPVAR,D2,DV,3,5
OPVAR,D3,DV,3,5
OPVAR,D4,DV,3,5
OPVAR,D5,DV,3,5 !定义设计变量
OPVAR,SMAX,SV,0,0.235e9 !定义状态变量(约束)
OPVAR,VOLUME,OBJ !定义目标函数
OPTYPE,SUBP !使用子模型近似优化设计方法
OPSUBP,15 ! 最大优化设计15个循环
OPPRNT,ON ! 显示优化过程中的详细情况
OPEXE ! 用子模型近似优化设计方法开始优化设计
OPLIST,ALL,,1 ! 显示设计集中的参数
/AXLAB,Y,VOLUME ! 将目标函数设置为Y轴
PLVAROPT,VOLUME ! 显示体积收敛过程
*STATUS,Parm ! 列表显示内存变量的值 请问:以上写的有什么不当之处? |