- 积分
- 0
- 注册时间
- 2019-8-6
- 仿真币
-
- 最后登录
- 1970-1-1
|
群桩节点跟土节点的耦合,跟混凝土与钢筋的节点之间的耦合很相似。在网上找到的一个命令流,希望可以帮助到大家。
说明:其中slavenode跟masternode名称需要根据不同的分析自行修改,slavenode表示钢筋(桩)的节点,masternode表示混凝土(土)的节点。
!**************************************
allsel !最好保留这句命令
!*******将从属节点编号依次存入数组****************
cmsel,s,slavenode
*get,count1_node,node,0,count
*del,slave_node
*dim,slave_node,array,count1_node
*get,slave_node(1),node,0,num,min
*do,i,2,count1_node
slave_node(i)=ndnext(slave_node(i-1))
*enddo
!*******将主节点编号依次存入数组****************
allsel
cmsel,s,masternode
*get,count2_node,node,0,count
*del,master_node
*dim,master_node,array,count2_node
*get,master_node(1),node,0,num,min
*do,i,2,count2_node
master_node(i)=ndnext(master_node(i-1))
*enddo
!********将与从属节点耦合的节点数组初始化****************
*del,cp_node
*dim,cp_node,array,count1_node
*do,i,1,count1_node
cp_node(i)=0
*enddo
!*********开始选择程序****************
allsel
cmsel,s,masternode
*do,i,1,count1_node
kk=1
k=1
*dowhile,kk
k=nnear(slave_node(i))
nsel,s,cp,,all
kk=nsel(k)+0.001
allsel
cmsel,s,masternode
nsel,u,node,,k
cm,masternode,node
*enddo
cp_node(i)=k
*enddo
!*******选择完毕****************
!*******开始耦合****************
allsel,all
/prep7
*do,i,1,count1_node
cp,next,UX,slave_node(i),cp_node(i)
cp,next,UY,slave_node(i),cp_node(i)
cp,next,UZ,slave_node(i),cp_node(i)
*enddo
!*******耦合完毕**************** |
|