24小时热门版块排行榜    

CyRhmU.jpeg
查看: 3102  |  回复: 11

hardwzb

木虫 (正式写手)

[求助] 请教Ansys 车轮 模型车轮原地转动,如何做到?

请教Ansys  车轮 模型车轮原地转动,如何做到?

上图那个模型,我想做的是:让这个模型要绕中心 以一定的速度旋转 需要怎么加载和呢?

有一种思路如下:
用Ansys建立上图模型,请问如何用个rbe3把各个节点连起来 集中到一个点 然后对单位点施角速度载荷呢?

但是我不知道具体怎么操作,有谁知道的吗?  能不能帮我操作一下呢?
回复此楼
天道酬勤
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

htbbzzg

铁杆木虫 (著名写手)

★ ★
臭水沟: 金币+2, 谢谢交流~ 2013-07-05 21:33:05
试试看: 转换到圆柱坐标系中,对内圈节点约束径向位移,然后在内圈或外圈节点上施加周向速度,设置求解类型为瞬态,定义适当的终止时间和步长,然后做一次瞬态分析。
6楼2013-07-05 07:25:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

hardwzb

木虫 (正式写手)

后面是我附的APDL代码:创建这个模型用的。

/PREP7  
!画轮子外圆
FLST,2,2,8  
FITEM,2,0,0,0   
FITEM,2,R1,0,0
CIRCLE,P51X, , , ,360, ,
!画轮子内圆
FLST,2,2,8  
FITEM,2,0,0,0   
FITEM,2,62,0,0
CIRCLE,P51X, , , ,360, ,
!选择内外圆,创建轮子平面
FLST,2,8,4  
FITEM,2,2   
FITEM,2,6   
FITEM,2,7   
FITEM,2,5   
FITEM,2,3   
FITEM,2,1   
FITEM,2,8   
FITEM,2,4   
AL,P51X
!显示面积
aplot
!定义轨道和车轮的单元
ET,1,PLANE13
KEYOPT,1,1,4
KEYOPT,1,2,0
KEYOPT,1,3,0
KEYOPT,1,4,0
KEYOPT,1,5,0
!定义材料属性,其中有ET、DENS、KXX、C、PRXY
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,207000
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,0.779e-5
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,1,,470000  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,KXX,1,,4.1e-2
!划分车轮的网格
FLST,2,1,5,ORDE,1   
FITEM,2,1   
AESIZE,P51X,5,  
MSHAPE,0,2D
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y   
AMESH,_Y1   
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!显示单元格子
eplot
天道酬勤
2楼2013-05-26 20:59:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

easonxi

木虫 (小有名气)

同样感兴趣,帮楼主顶顶
3楼2013-05-27 21:37:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hardwzb

木虫 (正式写手)

引用回帖:
3楼: Originally posted by easonxi at 2013-05-27 21:37:11
同样感兴趣,帮楼主顶顶

谢谢啊!
天道酬勤
4楼2013-05-28 08:37:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

N@天河

新虫 (初入文坛)

【答案】应助回帖

★ ★
xiegangmai: 金币+2, 谢谢参与! 2013-07-04 22:40:32
你可以对内圈进行径向约束,切向旋转360度,时间步长自己定
5楼2013-07-04 22:16:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hardwzb

木虫 (正式写手)

引用回帖:
6楼: Originally posted by htbbzzg at 2013-07-05 07:25:02
试试看: 转换到圆柱坐标系中,对内圈节点约束径向位移,然后在内圈或外圈节点上施加周向速度,设置求解类型为瞬态,定义适当的终止时间和步长,然后做一次瞬态分析。

能不能把你的APDL语言贴出来,我可以调试一下啊!
天道酬勤
7楼2013-07-05 08:15:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

htbbzzg

铁杆木虫 (著名写手)

只是一个建议,现在还没有相应的命令流。
8楼2013-07-05 09:13:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hardwzb

木虫 (正式写手)

引用回帖:
8楼: Originally posted by htbbzzg at 2013-07-05 09:13:12
只是一个建议,现在还没有相应的命令流。

我这方面的新手,能不能抽个时间帮我做一下呢!
天道酬勤
9楼2013-07-06 14:56:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

N@天河

新虫 (初入文坛)

【答案】应助回帖

★ ★
1592203609: 金币+2, 谢谢回帖 2013-07-06 16:11:49
给段程序你,提取有用的部分就可以了,这个好做。
/CLEAR
/FILNAM,EXAMPLE24_1
/CONFIG,NRES,2000  !设置最大子步数

/PREP7
/PNUM,VOLU,ON
ET,1,SHELL43      !选择单元类型,壳单元用于划分上下辊
ET,2,SOLID186     !实体单元用于划分钢板
MP,EX,1,2E11      !定义材料模型1的弹性模量
MP,DENS,1,7800
MP,NUXY,1,0.3
MP,EX,2,2E11      !定义材料模型2的弹性模量
MP,DENS,2,7800
MP,NUXY,2,0.3

TB,BKIN,2,1       !见P247—激活双线性随动强化选项(对类型2表示钢板)
TBTEMP,0          !
TBDATA,,240E6,0   !屈服极限240E6,切线模量
R,1,0.02          !定义实常数,壳的厚度

CYLIND,0.38/2,0,0.2,1.7,0,360  !创建上辊,圆柱体
CYLIND,0.38/4,0,0.2,0,0,360
CYLIND,0.38/4,0,1.7,1.9,0,360
VGLUE,ALL         !粘接
VSEL,NONE

WPOFF,0.54/2,-0.37   !偏移工作平面原点到右下辊中心
CYLIND,0.3/2,0,0.2,1.7,0,360  !创建右下辊
CYLIND,0.3/4,0,0.2,0,0,360
CYLIND,0.3/4,0,1.7,1.9,0,360
VGLUE,ALL         
VSEL,NONE

WPOFF,-0.54      !偏移工作平面原点到左下辊中心
CYLIND,0.3/2,0,0.2,1.7,0,360  !
CYLIND,0.3/4,0,0.2,0,0,360
CYLIND,0.3/4,0,1.7,1.9,0,360
VGLUE,ALL         
ALLSEL             !选择所有实体
VDELE,ALL        !删除体,但保留面
HPTCREATE,AREA,5,,COORD   !在上辊端面中心处创建硬点
HPTCREATE,AREA,10,,COORD,0,0,1.9
HPTCREATE,AREA,34,,COORD,-0.54/2,-0.37,1.9  !左下辊
HPTCREATE,AREA,29,,COORD,-0.54/2,-0.37,0
HPTCREATE,AREA,22,,COORD,0.54/2,-0.37,1.9   !右下辊
HPTCREATE,AREA,17,,COORD,0.54/2,-0.37,0
MAT,1          !为上下辊划分单元指定属性,材料模型
TYPE,1         !
REAL,1         !
ESIZE,0.04     !
SMRTSIZE,7     !
MSHAPE,1       !指定单元形状为三角形
AMESH,ALL      !对所有面划分单元
BLOCK,0.7,-0.5,0.3/2,0.3/2+0.03,0.5,1.4    !创建钢板,块
LESIZE,96,,,2    !指定线96(厚度)分为两段
MAT,2
TYPE,2
MSHKEY,1       !映射网格
MSHAPE,0       !指定单元为六面体
ESIZE,0.05     !指定单元边长
VMESH,ALL      !对块划分网格
ET,4,TARGE170    !指定单元类型,用于创建接触对
ET,5,CONTA174,,,,,1
KEYOPT,5,12,1         !单元5接触表面无滑动
R,10,,,0.1        !定义实常数KFN=0.1
R,11,,,0.1
R,12,,,0.1
ASEL,S,,,40       !在钢板上表面和上辊表面建立接触对
NSLA,S,1
NSEL,U,LOC,Z,0.8,1.1
MAT,3
REAL,10
TYPE,4
ESURF
ALLS
ASEL,S,,,3,4,1
NSLA,S,1
NSEL,U,LOC,Z,0.2,0.5
NSEL,U,LOC,Z,0.8,1.1
NSEL,U,LOC,Z,1.4,1.7
MAT,3
REAL,10
TYPE,5
ESURF
ALLS
ASEL,S,,,39        !在钢板下表面和左下辊表面建立接触对
NSLA,S,1
NSEL,U,LOC,Z,0.8,1.1
MAT,4
REAL,11
TYPE,4
ESURF
ALLS
ASEL,S,,,27,28,1
NSLA,S,1
NSEL,U,LOC,Z,0.2,0.5
NSEL,U,LOC,Z,0.8,1.1
NSEL,U,LOC,Z,1.4,1.7
MAT,4
REAL,11
TYPE,5
ESURF
ALLS
ASEL,S,,,39        !钢板下表面和右下辊表面接触对
NSLA,S,1
NSEL,U,LOC,Z,0.8,1.1
MAT,4
REAL,12
TYPE,4
ESURF
ALLS
ASEL,S,,,15,16,1
NSLA,S,1
NSEL,U,LOC,Z,0.2,0.5
NSEL,U,LOC,Z,0.8,1.1
NSEL,U,LOC,Z,1.4,1.7
MAT,4
REAL,12
TYPE,5
ESURF
ALLS
FINI
            !首先模拟下辊不动,上辊下降
/SOLU
D,ALL,UZ
D,ALL,ROTX
D,ALL,ROTY
NSEL,S,LOC,X   !选择上辊轴上的节点
NSEL,R,LOC,Y
D,ALL,UY,-0.03  !施加约束,上辊下降0.03米
D,ALL,UX
D,ALL,UZ
ALLSEL
CSYS,4         !激活工作平面坐标系
ASEL,S,LOC,Y,-0.2,0.3/2 !选择下辊所有面
ASEL,U,,,39
NSLA,S,1       !选择下辊所有节点
D,ALL,ALL      !约束掉所有自由度
ALLSEL
ANTYPE,TRANS   !瞬态分析
LNSRCH,ON       !打开线性搜索
NLGEOM,ON       !打开大变形选项
TIME,1          !指定载荷步时间
AUTOT,ON        !打开自动载荷步步长
NSUBST,15,20,10  !指定子步数目
KBC,0            !斜坡载荷
OUTRES,ALL,ALL   !输出所有子步所有项目结果
SOLVE            !解答
                 !一下模拟下辊转动,驱动钢板前进
CSYS,4
ASEL,S,LOC,Y,-2,0.3/2   !选择下辊上所有面
ASEL,U,,,39
NSLA,S,1       !选择下辊上所有节点
DDELE,ALL,ALL   !删除掉上一载荷步施加在下辊上的所有约束
ALLSEL
D,ALL,UZ        !在所有节点上施加约束
D,ALL,ROTX
D,ALL,ROTY
NSEL,S,LOC,X,0   !选择左下辊轴线上所有节点
NSEL,R,LOC,Y
D,ALL,ROTZ,-3.1415926/2  !转动1/4周
D,ALL,UX        !约束掉移动
D,ALL,UY
ALLSEL
WPOFF,0.54      !偏移工作平面
NSEL,S,LOC,X,0   !
NSEL,R,LOC,Y
D,ALL,UX        !
D,ALL,UY
D,ALL,ROTZ,-3.1415926/2   !转动1/4周
TIME,2
ALLSEL
KBC,0
NSUBST,800,1000,300
SOLVE                    !
!模拟卸载
ACEL,0,9.8               !施加重力加速度
CSYS,0                 !激活全球直角坐标系
NSEL,S,LOC,X            !选择上辊轴线上所有节点
NSEL,R,LOC,Y
D,ALL,UY,0              !辊向上移动,卸载(前面已经到-0.03了,现在从-0.03—0变化)
D,ALL,UX
D,ALL,UZ
D,ALL,ROTX
D,ALL,ROTY
ALLS
KBC,0
NSUBST,20,300,10
TIME,2.1
SOLVE
FINI
!查看结果
/POST1
SET,LAST   
PLNS,U,SUM  
ANTIME,50,0.5,,1,2,0,2.1
FINI
10楼2013-07-06 16:05:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hardwzb 的主题更新
信息提示
请填处理意见