声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1001|回复: 1

[前后处理] 多种压强叠加?

[复制链接]
发表于 2007-7-2 13:37 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
如图:1个6mX3m的板,先对其施加梯度载荷,然后施加5的均布载荷,如图,我用如下命令流会出现问题(红色部分),红色部分要对板施加5的均布载荷,但变成了剃度载荷.
/PREP7
L=6
H=3
YOUNG=210E9
THICKNESS=0.02
FORCE=10E3
DENSITY=7.85E3
/PREP7
MP,EX,1,YOUNG
MP,NUXY,1,0.3
MP,DENS,1,DENSITY
ET,1,SHELL63
R,1,THICKNESS,THICKNESS,THICKNESS,THICKNESS
K,1,0
K,2,L,0
K,3,L,H
K,4,0,H
A,1,2,3,4
LSEL,ALL
!LESIZE,ALL,,,0.05
!AMESH,ALL
LSEL,S,LINE,,1,1
LSEL,A,LINE,,3,3
LESIZE,ALL,,,8
LSEL,S,LINE,,2,2
LSEL,A,LINE,,4,4
LESIZE,ALL,,,4
AMESH,ALL
FINI
/SOLU
Lsel,S,LINE,,2,2
lsel,a,LINE,,4,4
DL,all,,all
*get, ELMAX,elem,,count    !获取单元个数
*DIM,ELEM_X,,ELMAX,1,1
*DO,i,1,ELMAX,1            !获取每个单元X坐标
   *GET,ELEM_X(i),ELEM,i,CENT,X
*ENDDO
ESEL,S,ELEM,,ELMAX, ELMAX
*DO,i,1, ELMAX
   *IF,ELEM_X(i),GE,0.5*L,THEN
      ESEL,A,ELEM,,i,i
   *ENDIF
*ENDDO
SFGRAD,PRES, ,X,0.5*L,10/(0.5*L)     !施加剃度载荷
SFE,all,1,PRES, ,0
allsel
!!!!!!!!!!!!!!!!!!!!    施加均布压强5到板上(此处发生错误,也是剃度载荷,怎么改?)                !
*DO,i,1,ELMAX,1
   SFCUM,PRES,ADD   !压力叠加
   ESEL,S,ELEM,,i,i
   SFE,all,1,PRES, ,5
   allsel
*ENDDO
!!!!!!!!!!!!!!!!!!!!!!!!!!
allsel
solve
载荷叠加.JPG
回复
分享到:

使用道具 举报

 楼主| 发表于 2007-7-2 20:46 | 显示全部楼层
答案找到,将梯度置为0就可以了。
SFGRAD,PRES   !把斜率置零
*DO,i,1,ELMAX,1
   SFCUM,PRES,ADD   !压力叠加
   ESEL,S,ELEM,,i,i
   SFE,all,1,PRES, ,5
   allsel
*ENDDO

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-25 00:43 , Processed in 0.062384 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表