- 积分
- 13
- 注册时间
- 2006-5-2
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2018-6-20 17:59:46
|
显示全部楼层
来自 北京
!初始化关键点,清除关键点及对应节点上的所有载荷
ksel,s,kp,,1,32 !选择1~32关键点
nslk,s,1 !选择关键点对应的节点
fkdele,all,all !清除关键点上的载荷
fdele,all,all !清除对应节点上的载荷
!对关键点随机施加载荷
*do,ii,1,32,1
aa=rand(1,32) !在1~32之间产生一个随机数
ksel,s,kp,,aa !选择这个关键点
nslk !选择关键点对应的节点
*get,bb,node,,num,min !得到节点号
*get,cc,node,bb,f,fx !提取节点上x方向的力,以避免对已经施加载荷的关键点重复施加。APDL好像没有判断关键点载荷的命令,所以用节点判断
*if,cc,eq,0,then, !如果提取的力等于0,则施加力。此处有一个要求就是f1~f32不能为0fk,aa,fx,f%ii% !对随机关键点aa施加力 f%ii%,
sbctran !将关键点上施加的力传递到对应节点上,以便上面的语句进行判断
*endif
*enddo
|
|