- 积分
- 1
- 注册时间
- 2006-5-26
- 仿真币
-
- 最后登录
- 1970-1-1
|
INPUT 文件pinp.txt
/filename,07-258-st1n2
resume
/filename,07-258-test
/config,nproc,2
!*********input**********************
/prep7
CMSE,S,TONGUE
*Get,nnod,NODE,0,COUNT
*Get,nd,NODE,0,NUM,MIN
*DIM,TS,array,nnod,1
*Do,I,1,nnod,
TS(I,1)= nd
nd = Ndnext(nd)
*ENDDO
alls
fload=2
/solu
FDELE,HOLE1,FX
FDELE,HOLE1,FY
FDELE,HOLE1,FZ
F,HOLE1,FX,0.12096213*Fload
F,HOLE1,FY,0.9397273*Fload
F,HOLE1,FZ,0.31984341*Fload
ANTYPE,0
EQSLV,PCG,1e-5
solve
/post1
file,07-258-test,rst
set,1
!******************************************
TALLOW,25,200,400,600,800,850
SALLOW,622e6,441e6,423e6,215e6,69e6,46e6
ETABLE,,S,EQV
ETABLE,,S,1
ETABLE,,S,3
ETABLE,,BFE,TEMP
SFCALC,F,SEQV,BFETEMP,3
*DO,I,1,nnod
NSEL,S, , , TS(I,1)
ESLN,S
SSUM
*GET,ENUM, ELEM, 0, COUNT
*GET, FTOT, SSUM, 0, ITEM, F
FVAR=FTOT/ENUM
*IF,FVAR,GT,FMAX,THEN
FMAX=FVAR
*ENDIF
*ENDDO
loadi=fload/fmax
OBJK=abs(fload-loadi)
alls
优化文件:
!******************************************
!******OPTI
!******************************************
/input,opinp,txt
/opt
opanl,opinp,txt
opvar,FLOAD,dv,0,10
opvar,FMAX,sv,0.9,1.1
opvar,OBJK,obj,
opkeep,on
optype,subp
!opsave,opttest,opt0
opexe
优化的过程中,Fload没有变化,这是想调整出合适的载荷,有没有谁做过类似的例子近来讨论一下. |
|