『求助』相同的材料,相同的边界,相同的尺寸,结果为何不同?

浏览:117623
我的程序如下,算出的UX比参考文献的UX大05m左右,请帮忙找下错误,谢谢。
/BATCH
/COM,ANSYS RELEASE 10.0 UP20050718 15:19:17 10/09/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE
!*
/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,PLANE42
!*
ET,2,PLANE42
!*
ETDEL,2
!*
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,0
KEYOPT,1,5,0
KEYOPT,1,6,0
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,53000000
MPDATA,PRXY,1,,0.25
TB,DP,1,,,
TBMODIF,1,1,108782
TBMODIF,1,2,36
TBMODIF,1,3,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,1900
*CSET,1,2, 1,2,
MPCOPY, ,1,2
TBCOPY,ALL,1,2
!*
*CSET,1,2, 1,3,
MPCOPY, ,1,3
TBCOPY,ALL,1,3
!*
*CSET,1,2, 1,4,
MPCOPY, ,1,4
TBCOPY,ALL,1,4
!*
RECTNG,0,12,0,6,
RECTNG,4,12,6,9,
RECTNG,4,12,9,10,
RECTNG,4,12,10,11,
RECTNG,4,12,11,12,
SAVE
FLST,2,5,5,ORDE,2
FITEM,2,1
FITEM,2,-5
AGLUE,P51X
CM,_Y,AREA
ASEL, , , , 9
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 8
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 7
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,2,5,ORDE,2
FITEM,5,6
FITEM,5,10
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 4, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,2,5,5,ORDE,2
FITEM,2,6
FITEM,2,-10
AESIZE,P51X,0.75,
MSHAPE,0,2D
MSHKEY,0
!*
FLST,5,5,5,ORDE,2
FITEM,5,6
FITEM,5,-10
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
/DIST,1,1.08222638492,1
/REP,FAST
FINISH
/SOL
!*
NSUBST,30,0,0
!*
NLGEOM,0
NROPT,FULL, ,
LUMPM,0
EQSLV, , ,0,
PRECISION,0
MSAVE,0
PIVCHECK,1
SSTIF
PSTRES
TOFFST,0,
!*
FLST,2,17,1,ORDE,2
FITEM,2,133
FITEM,2,-149
!*
/GO
D,P51X, , , , , ,UX,UY, , , ,
FLST,2,28,1,ORDE,15
FITEM,2,1
FITEM,2,13
FITEM,2,-16
FITEM,2,61
FITEM,2,-62
FITEM,2,85
FITEM,2,-86
FITEM,2,109
FITEM,2,-110
FITEM,2,133
FITEM,2,-134
FITEM,2,150
FITEM,2,-157
FITEM,2,163
FITEM,2,-169
!*
/GO
D,P51X, , , , , ,UX, , , , ,
ACEL,0,9.8,0,
/STATUS,SOLU
SOLVE
/DIST,1,1.08222638492,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
FINISH
/POST1
SET,NEXT
!*
/DSCALE,ALL,OFF
/EFACET,1
PLNSOL, U,X, 0,1.0
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
!*
/PSF,PRES,NORM,1,0,1
/PBF,DEFA, ,1
/PIC,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
!*
/EFACET,1
PLNSOL, U,X, 0,1.0
!*
/EFACET,1
PLNSOL, S,X, 0,1.0
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
!*
/EFACET,1
PLNSOL, U,X, 0,1.0
FINISH
/SOL
ANTYPE,0
NLGEOM,1
/STATUS,SOLU
SOLVE
/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,0.924021086472,1
/REP,FAST
/DIST,1,0.924021086472,1
/REP,FAST
FINISH
/POST1
SET,NEXT
SET,LAST
!*
/EFACET,1
PLNSOL, U,X, 0,1.0
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
FINISH
! /EXIT,MODEL
/BATCH
/COM,ANSYS RELEASE 10.0 UP20050718 15:57:22 10/09/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE
RESUME
/COM,ANSYS RELEASE 10.0 UP20050718 15:57:28 10/09/2007
/REPLOT,RESIZE
!*
/PSF,PRES,NORM,1,0,1
/PBF,DEFA, ,1
/PIC,DEFA, ,1
/PSYMB,CS,0
/PSYMB,NDIR,0
/PSYMB,ESYS,0
/PSYMB,LDIV,0
/PSYMB,LDIR,0
/PSYMB,ADIR,0
/PSYMB,ECON,0
/PSYMB,XNODE,0
/PSYMB,DOT,1
/PSYMB,PCONV,
/PSYMB,LAYR,0
/PSYMB,FBCS,0
!*
/PBC,ALL, ,1
/REP
!*
/POST1
SET,LAST
!*
/DSCALE,ALL,OFF
/EFACET,1
PLNSOL, U,X, 0,1.0
!*
/EFACET,1
PLNSOL, U,Y, 0,1.0
FINISH
! /EXIT,MODEL
邀请回答 我来回答

当前暂无回答

回答可获赠 200金币

没解决?试试专家一对一服务

换一批
    App下载
    技术邻APP
    工程师必备
    • 项目客服
    • 培训客服
    • 平台客服

    TOP