声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 866|回复: 0

[综合讨论] 急求:ANSYS----这段程序的意思是?

[复制链接]
发表于 2008-4-8 16:14 | 显示全部楼层 |阅读模式

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

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

x
allsel,all
*get,e_suma,elem, ,num,max
cmsel,s,dam_e
cmsel,s,dam_up_n
nsel,r,loc,y,55,60
nsel,r,loc,z,40,108

*get,n_suma,node, ,count
*dim,n_massa,array,n_suma,3,1

*get,n_massa(1,1),node, ,num,min
*get,n_massa(1,2),node,n_massa(1,1),loc,z
n_massa(1,3)=arnode(n_massa(1,1))*0.399*0.875*1000*sqrt(68*(108-n_massa(1,2)))
type,2
r,1,n_massa(1,3)
en,e_suma+1,n_massa(1,1)
emodif,e_suma+1,real,1

*do,k,2,n_suma
  n_massa(k,1)=ndnext(n_massa(k-1,1))
  *get,n_massa(k,2),node,n_massa(k,1),loc,z
  n_massa(k,3)=arnode(n_massa(k,1))*0.399*0.875*1000*sqrt(68*(108-n_massa(k,2)))
  type,2
  r,k,n_massa(k,3)
  en,e_suma+k,n_massa(k,1)
  emodif,e_suma+k,real,k
*enddo
回复
分享到:

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-27 20:28 , Processed in 0.064759 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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