SimWe仿真论坛's Archiver

COMSOL 2008年会

malv2006 发表于 2007-8-6 21:53

接触分析实例

在这个实例中,我们将对一个弹簧卡子进行接触分析,计算将卡头压进卡座和拉出卡座所需要的力。
!



fini
/cle
/prep7
/title,plastic snap-fit connector

et,1,42,,,3                !168
et,2,42,,,3
mp,ex,1,2.8e3
r,1,5                !164
et,3,48,,,1

k,1,10
k,2,20
k,3,15,18.5
k,4,10,20
k,5,12.5,30
k,6,20,30



l,1,3
l,3,4
l,4,5
l,5,6
l,6,2
l,2,1
al,all



lgen,2,1,3,1
k,11,5
k,12,5,30
l,11,7
l,11,12
l,12,10
lsla,s
lsel,invert                      !
al,all
lsel,all
rectng,0,15,0,10
asba,2,3                    !



agen,2,4,,,0,30,0,,0,1
asel,s,,,4
aatt,1,1,2                         !
asel,all

esize,4
amesh,all
fini






/solution
nsel,s,loc,y,0
d,all,all
nsel,s,loc,y,60
d,all,uy
nsel,r,loc,x,5
d,all,ux
nsel,all
fini





/prep7
mp,mu,3,0.2                   ! mu表示摩擦系数
r,3,6e3                       !实常数(法向刚度)
r,4,6e3

lsel,s,,,9
lsel,a,,,17
nsll,s,1
cm,snapins,node
lsel,,,3
nsll,s,1
cm,snapprg,node
lsel,s,,,8
nsll,s,1
cm,pullins,node
lsel,s,,,2
nsll,s,1
cm,pullprg,node
lsel,all
nsel,all
type,3
mat,3
real,3
gcgen,snapins,snapprg                !
gcgen,snapprg,snapins

real,4
gcgen,pullins,pullprg
gcgen,pullprg,pullins
fini





/solu
pred,on
autot,on
nsubst,10,100,5
outres,all,all

nsel,s,loc,y,60
d,all,uy,-30
nsel,all
solve

nsel,s,loc,y,60
d,all,uy,-27
nsel,all
lnsr,on                     !
solv
fini





/post1
set,list
set,,,,,0.8
esel,s,type,,3
etable,st,nmisc,1                  !
etable,gap,nmisc,3
etable,length,nmisc,4
esel,s,etab,st,1,2                 !
esort,etab,gap,1                   !
pretab
esel,all
/dscal,,1                          !
/plops,minm,0                   !
/edge,,1

esel,u,type,,3
set,first
pldi
/user
set,,,,,0.8
plns,s,eqv
/cont,,,user
fini





/post26
nsol,2,44,u,y,disp
rfor,3,44,f,y
rfor,4,59,f,y
rfor,5,56,f,y
add,6,3,4,5,force          !
add,2,2,,,,,,,-1
xvar,2
plva,6
fini

[color=magenta]最好能对该命令流进行解释,以便大家更好理解。谢谢。[/color]
[color=magenta]wei1012[/color]

[[i] 本帖最后由 wei1012 于 2007-8-7 09:15 编辑 [/i]]

benbbs 发表于 2007-8-14 17:20

嗯,谢谢你的分享
强烈鄙视那些光复制下载不回贴的人!
:)

lhxing 发表于 2007-8-15 11:15

谢谢分享!

好孩子1998 发表于 2007-8-19 15:24

先谢谢,再下载

wuchg999 发表于 2007-8-22 19:43

回复 #1 malv2006 的帖子

多谢  哈:)

zuliangliu 发表于 2007-8-25 10:44

先谢谢,再下载:D

wang0107114 发表于 2007-8-27 17:25

能够解释下最好了,大虾

benkui 发表于 2007-8-28 13:52

我也先谢一下,奉献就是人生,呵呵

wangdengke99111 发表于 2007-8-29 12:05

是啊,能拿出来给大家分享就是好的
也不一定每条命令都解释,有些简单的就可以免去解释

herzloswang 发表于 2007-9-2 00:08

学习了:)

erican 发表于 2007-9-2 11:08

good man

ytlnuaa 发表于 2007-9-5 21:41

thank you

mal2002 发表于 2007-9-9 10:46

这是一本书上的实例吧
似曾相识

windtalker 发表于 2007-9-12 15:40

回复 #1 malv2006 的帖子

不错!
正好学习一下!

njweiwei2 发表于 2007-9-13 21:18

是一本书上或者是帮助文件上的例子

hygeia44 发表于 2007-9-17 23:58

Thanks!

liulytd 发表于 2007-9-18 16:06

要是能配上命令的注解就更好了

ansys2007zq 发表于 2007-9-19 10:31

怎么在求解的时候,ansys自己关掉了?

xuyong415 发表于 2007-11-15 16:20

谢谢你的分享
强烈鄙视那些光复制下载不回贴的人!
学习中成长,成长中进步

huanghui01 发表于 2007-11-17 09:49

谢谢,下了

wood257 发表于 2007-11-21 22:24

回复 #1 malv2006 的帖子

谢谢楼主!!!!

eddie0853 发表于 2007-11-27 11:32

不错喔!多谢了

lu6719 发表于 2007-12-5 10:34

THANK YOU

betterthanit 发表于 2007-12-6 20:42

楼主辛苦了,谢谢啊

远航 发表于 2007-12-7 20:05

谢谢,不下载也回复!

yjj0609 发表于 2007-12-12 11:42

谢谢!很好用!

weefine 发表于 2007-12-12 20:41

这是《ansys非线性分析指南》中接触问题的例子

tt-xyf 发表于 2007-12-15 17:19

thx very much

gaofengflac 发表于 2007-12-16 08:57

最好能对该命令流进行解释,以便大家更好理解。谢谢:hug:

skguo 发表于 2008-3-24 10:48

先谢谢了,要是能附上解释就更好了!!

happyxf 发表于 2008-3-26 16:04

谢谢,看看,学习下

liufupeng1984 发表于 2008-3-28 09:21

thanks

爱情骨头 发表于 2008-4-2 11:59

哈哈哈哈

qzrkaser 发表于 2008-4-5 11:29

回复 1# 的帖子

哈,多谢楼主,最近准备做车架分析,太多地方不会啦

ymhdflt 发表于 2008-4-6 13:48

学习了 多谢

shouxinwj 发表于 2008-4-6 15:22

!



fini
/cle
/prep7                                                      !进入前处理器
/title,plastic snap-fit connector                    !定义工作标题

et,1,42,,,3                !168                            !定义单元类型
et,2,42,,,3                                                   !定义单元类型
mp,ex,1,2.8e3                                             !输入弹性模量
r,1,5                !164                                      !定义实常数
et,3,48,,,1                                                   !定义单元类型

k,1,10                                                          !生成关键点
k,2,20
k,3,15,18.5
k,4,10,20
k,5,12.5,30
k,6,20,30



l,1,3                                                            ! 由关键点生成线段
l,3,4
l,4,5
l,5,6
l,6,2
l,2,1
al,all                                                            !由线段生成面



lgen,2,1,3,1                                               !生成线段  
k,11,5                                                       !生成关键点
k,12,5,30
l,11,7                                                         ! 由关键点生成线段
l,11,12
l,12,10
lsla,s                                                        !选择面上的所有线段
lsel,invert                                                   ! 反向选择线段
al,all                                                          !由线段生成面
lsel,all                                                       !选择所有实体
rectng,0,15,0,10                                         !生成矩形面
asba,2,3                                                     ! 面相减



agen,2,4,,,0,30,0,,0,1                                   !生成面
asel,s,,,4
aatt,1,1,2                         !
asel,all

esize,4                                               !设置单元尺寸
amesh,all
fini






/solution                                                       !进入求解器
nsel,s,loc,y,0                                                !选择节点
d,all,all                                                         !施加位移约束
nsel,s,loc,y,60                                               !选择节点                          
d,all,uy
nsel,r,loc,x,5
d,all,ux
nsel,all                                                          !选择所有节点
fini





/prep7                                              !进入前处理器
mp,mu,3,0.2                   ! mu表示摩擦系数
r,3,6e3                       !实常数(法向刚度)
r,4,6e3

lsel,s,,,9                                               !选择线段
lsel,a,,,17
nsll,s,1                                                  !选择线段上所有节点
cm,snapins,node                                    !创建节点组元
lsel,s,,,3
nsll,s,1
cm,snapprg,node
lsel,s,,,8
nsll,s,1
cm,pullins,node
lsel,s,,,2
nsll,s,1
cm,pullprg,node
lsel,all
nsel,all
type,3                                                          !指定单元类型参考号
mat,3                                                          !指定材料参考号
real,3                                                          ! 指定实常数参考号
gcgen,snapins,snapprg                !
gcgen,snapprg,snapins

real,4
gcgen,pullins,pullprg
gcgen,pullprg,pullins
fini





/solu                                                !进入求解器
pred,on
autot,on                                            !打开自动时间步长
nsubst,10,100,5                                !指定计算子步长
outres,all,all                                      !存储全部求解结果

nsel,s,loc,y,60                                   !选择节点
d,all,uy,-30                                         !施加位移荷载
nsel,all                                               !选择所有实体
solve                                                  !开始求解计算

nsel,s,loc,y,60                                    !选择节点
d,all,uy,-27                                          !施加位移荷载
nsel,all                                                !选择所有实体
lnsr,on                     !
solv                                                     !开始求解计算
fini





/post1                                                    !进入POST1后处理器
set,list
set,,,,,0.8
esel,s,type,,3
etable,st,nmisc,1                  !
etable,gap,nmisc,3
etable,length,nmisc,4
esel,s,etab,st,1,2                 !
esort,etab,gap,1                   !
pretab
esel,all
/dscal,,1                          !
/plops,minm,0                   !
/edge,,1

esel,u,type,,3
set,first
pldi
/user
set,,,,,0.8
plns,s,eqv
/cont,,,user
fini





/post26                                                !进入POST26后处理器
nsol,2,44,u,y,disp                                  !定义节点变量
rfor,3,44,f,y
rfor,4,59,f,y
rfor,5,56,f,y
add,6,3,4,5,force          !
add,2,2,,,,,,,-1
xvar,2                                               !定义X轴显示变量
plva,6                                                !曲线显示变量
fini
我是初学者,要是有什么解释的不对的地方还希望大家体谅更正,另外也希望大家能帮我把没有注释的补全。如有冒犯楼主之处,还望谅解。

sanjinsteven 发表于 2008-4-9 16:54

学习了啊,

hust2008 发表于 2008-4-12 16:10

谢谢!

gcgen命令是什么作用?
怎么在ansys help里面都查不到呢?


怎么没有接触单元?都是plane42单元。

另外,et,3,48,,,1     48单元是什么单元?在help里面也找不到。


//好像都是以前的版本,ansys11的help里面没有。







[quote]原帖由 [i]shouxinwj[/i] 于 2008-4-6 15:22 发表 [url=http://www.simwe.com/forum/redirect.php?goto=findpost&pid=1294336&ptid=791880][img]http://www.simwe.com/forum/images/common/back.gif[/img][/url]
!



fini
/cle
/prep7                                                      !进入前处理器
/title,plastic snap-fit connector                    !定义工作标题

et,1,42,,,3                !168  ... [/quote]

[[i] 本帖最后由 hust2008 于 2008-4-12 16:41 编辑 [/i]]

狼王遨游 发表于 2008-4-12 22:11

谢谢分享啊!

nihao7788520 发表于 2008-4-14 04:27

人品好 就是真的好

页: [1] 2
 

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.