马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
/BATCH
/COM,ANSYS RELEASE 8.0 UP20030930 21:48:03 06/29/2006
/TITLE,optimization of a three-bar truss
*SET,b,1000
*SET,a1,1000
*SET,a2,1000
*SET,a3,1000
!*
/NOPR
/PMETH,OFF,0
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
KEYW,PR_CFD,0
/GO
!*
/COM,
/COM,Preferences for GUI filtering have been set to display:
/COM, Structural
!*
/PREP7
!*
ET,1,LINK1
!*
R,1,a1, ,
!*
R,1,1000,0,
!*
R,1,1000,0,
!*
R,2,a2, ,
!*
R,2,1000,0,
!*
R,3,a3, ,
!*
R,3,1000,0,
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e6
MPDATA,PRXY,1,,
N,1,-b,0,0,,,,
N,2,0,0,0,,,,
N,3,b,0,0,,,,
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/AUTO,1
/REP,FAST
N,4,0,-1000,0,,,,
/REPLOT,RESIZE
FLST,2,2,1
FITEM,2,1
FITEM,2,4
E,P51X
/DIST,1,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
TYPE, 1
MAT, 1
REAL, 2
ESYS, 0
SECNUM,
TSHAP,LINE
!*
FLST,2,2,1
FITEM,2,2
FITEM,2,4
E,P51X
TYPE, 1
MAT, 1
REAL, 3
ESYS, 0
SECNUM,
TSHAP,LINE
!*
FLST,2,2,1
FITEM,2,3
FITEM,2,4
E,P51X
FINISH
/SOL
FLST,2,3,1,ORDE,2
FITEM,2,1
FITEM,2,-3
!*
/GO
D,P51X, , , , , ,ALL, , , , ,
FLST,2,1,1,ORDE,1
FITEM,2,4
!*
/GO
F,P51X,FX,200000
/STATUS,SOLU
SOLVE
FINISH
/POST1
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,U,X,0,1
AVPRIN,0, ,
ETABLE,Evol,VOLU,
!*
SSUM
!*
*GET,vtot,SSUM, ,ITEM,EVOL
*SET,rho,2.85E-4
*SET,wt,rho*vtot
AVPRIN,0, ,
ETABLE,sig,LS, 1
!*
!*
*GET,sig1,ELEM,1,ETAB,SIG
!*
!*
*GET,sig2,ELEM,2,ETAB,SIG
!*
!*
*GET,sig3,ELEM,3,ETAB,SIG
!*
*SET,sig1,abs(sig1)
*SET,sig2,abs(sig2)
*SET,sig3,abs(sig3)
!*
/SHRINK,0
/ESHAPE,2
/EFACET,1
/RATIO,1,1,1
/CFORMAT,32,0
/REPLOT
!*
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
EPLOT
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
/ANG,1,30,XS,1
/REP,FAST
! LGWRITE,truss,lgw,E:\OPTIMI~1\,COMMENT
FINISH
/OPT
OPANL,';truss';,';lgw';,'; ';
!*
!*
OPVAR,B,DV,400,2000, ,
!*
OPVAR,A1,DV,1,1000, ,
!*
OPVAR,A2,DV,1,1000, ,
!*
OPVAR,A3,DV,1,1000, ,
!*
!*
OPVAR,SIG1,SV, ,400, ,
!*
OPVAR,SIG2,SV, ,400, ,
!*
OPVAR,SIG3,SV, ,400, ,
!*
OPSAVE,';truss';,';opt';,'; ';
!*
!*
OPVAR,WT,OBJ, , ,2,
!*
OPTYPE,FIRS
OPFRST,45, , ,
!*
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:19:47 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:20:40 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
!*
OPLIST,ALL, ,0
!*
!*
OPTYPE,GRAD
!*
OPGRAD,BEST,1.5151049951015e-311
!*
!*
OPTYPE,RAND
OPRAND,1,0,
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:23:10 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
*SET,RHO , 2.850000000
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:24:30 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
FINISH
/CLEAR,NOSTART
/COM,ANSYS RELEASE 8.0 UP20030930 22:24:57 06/29/2006
!*
/filnam,truss
/title, optimization of a three-bar truss
*SET,b,1000
*SET,a1,1000
*SET,a2,1000
*SET,a3,1000
/prep7
et,1,link1
r,1,a1
r,2,a2
r,3,a3
mp,ex,1,2.1e6
n,1,-b,0,0
n,2,0,0,0
n,3,b,0,0
n,4,0,-100,0
e,1,4
real,2
e,2,4
real,3
e,3,4
finish
/solu
d,1,all,0,,3
f,4,fx,200000
f,4,fy,-200000
solve
finish
/post1
set,last
etable,evol,volu
ssum
*get,vtot,ssum,,item,evol
*SET,rho,2.85e-4
*SET,wt,rho*vtot
etable,sig,ls,1
*get,sig,elem,1,etab,sig
*get,sig,elem,2,etab,sig
*get,sig,elem,3,etab,sig
*SET,sig1,abs(sig1)
*SET,sig2,abs(sig2)
*get,sig1,elem,1,etab,sig
*get,sig2,elem,2,etab,sig
*get,sig3,elem,3,etab,sig
*SET,sig1,abs(sig1)
*SET,sig2,abs(sig2)
*SET,sig3,abs(sig3)
/eshape,2
/view,1,1,1,1
/eshape,2
eplot
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
/ANG,1,-30,XS,1
/REP,FAST
FINISH
/OPT
! opnal,truss,lgw
opanl,truss,lgw
opvar,b,dv,400,2000
opvar,a1,dv,1,1000
opvar,a2,dv,1,1000
opvar,a3,dv,1,1000
opvar,sig1,sv,,400
opvar,sig2,sv,,400
opvar,sig3,sv,,400
opsave,trussvar,opt
opvar,wt,obj,,,2,
optype,first
opfrst,45
opexe
/COM,ANSYS RELEASE 8.0 UP20030930 22:45:47 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
FINISH
/PDS
FINISH
/OPT
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:46:41 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:47:15 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 22:47:36 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
FINISH
/CLEAR,NOSTART
/COM,ANSYS RELEASE 8.0 UP20030930 22:49:14 06/29/2006
!*
/FILNAME,electric,0
!*
/NOPR
/PMETH,OFF,1
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,1
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,1
KEYW,PR_MULTI,0
KEYW,PR_CFD,0
/GO
!*
/COM,
/COM,Preferences for GUI filtering have been set to display:
/COM, Electric
!*
/PREP7
*SET,r,100
!*
ET,1,PLANE121
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,PERX,1,,1
RECTNG,-200,200,0,200,
*SET,h,100
CYL4,0,h,r
*SET,R , 5
CYL4,0,h,r
ADELE, 2, , ,1
/DIST,1,0.924021086472,1
/REP,FAST
ASBA, 1, 3
/DIST,1,0.924021086472,1
/REP,FAST
CM,_Y,AREA
ASEL, , , , 2
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
SMRT,6
SMRT,2
MSHAPE,1,2D
MSHKEY,0
!*
CM,_Y,AREA
ASEL, , , , 2
CM,_Y1,AREA
CHKMSH,';AREA';
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
FLST,2,1,4,ORDE,1
FITEM,2,1
/GO
!*
DL,P51X, ,VOLT,0
/ZOOM,1,SCRN,0.284410,0.068662,0.456301,-0.076051
FLST,2,4,4,ORDE,2
FITEM,2,9
FITEM,2,-12
/GO
!*
DL,P51X, ,VOLT,10000
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/STATUS,SOLU
SOLVE
FINISH
/POST1
/EFACE,1
!*
PLNSOL,EF,SUM,0,
FINISH
/OPT
! LGWRITE,electric,lgw,E:\OPTIMI~1\,COMMENT
OPANL,';electric';,';lgw';,'; ';
!*
!*
OPVAR,,DEL,7
OPVAR,,DEL,4
!*
FINISH
/POST1
ETABLE,emax,EF,SUM
!*
SMAX,emax1,EMAX,EMAX,1,1,
! LGWRITE,electric,lgw,E:\OPTIMI~1\,COMMENT
FINISH
/OPT
OPANL,';electric';,';lgw';,'; ';
!*
!*
OPVAR,R,DV,0.5,90, ,
!*
!*
OPVAR,H,SV,100,100, ,
!*
OPVAR,H,SV,99,100, ,
!*
!*
!*
!*
OPVAR,WT,DEL
OPVAR,MAXLAYER,OBJ, , ,2,
!*
!*
OPTYPE,FIRS
OPFRST,45, , ,
!*
!*
OPEXE
/COM,ANSYS RELEASE 8.0 UP20030930 23:03:44 06/29/2006
! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG
KEYW,BETA,0
!*
!*
!*
OPLIST,ALL, ,0
!*
FINISH
! /EXIT,NOSAV
|