马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
如题,请各位大侠帮看一下,我尝试了各种网格划分,自由的,映射的,手动LESIZE还有refine at,都不行,请高手指点一下!不甚感激额!!parameters
*set,x1,10
*set,x2,40
*set,x3,10
*set,x4,90
*set,x5,90
*afun,deg
*set,sitahub,180-x4
*set,sitarim,180-x5
*set,h_rim,x1
*set,h_hub,x3
*set,l_hub,x2
*set,xmid,78
*set,ymid,10
*set,h_rim,h_rim/1000
*set,xmid,xmid/1000
*set,ymid,ymid/1000
*set,h_hub,h_hub/1000
*set,l_hub,l_hub/1000
*set,b,120/1000
keyw,pr_struc,1
/prep7
et,1,plane82,,,1
uimp,1,ex,dens,nuxy,2.06e11,7850,0,29
k,1,0,0,0
k,2,0,h_hub
k,3,l_hub,h_hub
k,4,xmid,ymid
k,5,0.12,h_rim
k,6,0.12,0
l,1,2
l,2,3
bsplin,3,4,5,,,,-sin(sitahub),cos(sitahub),0,sin(sitarim),-cos(sitarim),0
l,5,6
l,6,1
FLST,2,5,4
FITEM,2,1
FITEM,2,2
FITEM,2,3
FITEM,2,4
FITEM,2,5
AL,P51X
! SAVE, file,db,
! SAVE, file,db,
! LGWRITE,'ll','lgw','I:\ylll\',COMMENT
esize,0.001,0,
mshape,1,2d
mshkey,0
amesh,1
FINISH
/SOL
d,all,,,,,,uy,,,,,
omega,0,2800,0,0
solve
/POST1
nsort,s,z,0,0,,0
*get,szmax,sort,,max
*get,szmin,sort,,min
*set,sz_data,szmax-szmin
/EFACET,1
SAVE
lgwrite,ll,lgw,,comment
FINISH
/OPT
OPANL,'ll','lgw',' '
OPVAR,X1,DV,2,5,0.0001 ,
OPVAR,X2,DV,35,45,0.0001 ,
OPVAR,X3,DV,8,14,0.0001 ,
OPVAR,X4,DV,155,180, 0.0001,
OPVAR,X5,DV,85,98, 0.0001,
OPVAR,xmid,DV,77.5,82.5, 0.0001,
OPVAR,xmid,DV,5,9.5, 0.0001,
OPVAR,SZMAX,SV, ,355000000, 0.0001,
opsave,'ll','opt',''
OPVAR,SZ_DATA,OBJ, , , 0.0001,
OPDATA, , ,
OPLOOP,TOP,IGNO,SCAL
OPPRNT,OFF
OPKEEP,OFF
OPTYPE,firs
OPfrst,100, , ,
OPEXE |