lvyoujie123 发表于 2004-9-1 15:27:47

【讨论】单元生死中单元排序问题

*SET,mine,0
*do,i1,1,aemax
*if,mine,ne,0,then
esel,u,elem,,mine
*endif
*get,ansel,elem,,count
[*SET,ii,0
*do,i,1,emax
*if,esel(i),eq,1,then
*SET,ii,ii+1
*SET,ane(ii),i
*endif
*enddo ]
*do,i,1,ansel
*get,aney(i),elem,ane(i),cent,y
*get,anex(i),elem,ane(i),cent,x
*get,anez(i),elem,ane(i),cent,z
*enddo
*SET,miny,1e20
*SET,minx,1e20
*SET,minz,1e20
*do,i,1,ansel
*if,anez(i),lt,minz,then
*SET,minx,anex(i)
*SET,miny,aney(i)
*SET,minz,anez(i)
*SET,mine,ane(i)
*else
*if,anez(i),eq,minz,then
*if,miny,lt,aney(i),then
*SET,minx,anex(i)
*SET,miny,aney(i)
*SET,minz,anez(i)
*SET,mine,ane(i)
*else
*if,aney(i),eq,miny,then
*if,anex(i),lt,minx,then
*SET,minx,anex(i)
*SET,miny,aney(i)
*SET,minz,anez(i)
*SET,mine,ane(i)
*endif
*endif
*endif
*endif
*endif
*enddo
*SET,aneo(i1),mine
*enddo !对焊缝区的单元按形心规则排列
上面这段命令中带[ ]的这段是对所有单元进行循环。请问，其目的是什么？能否可以改动程序不要对所有单元进行操作？谢谢

ainite 发表于 2004-9-4 13:10:20

回复： 【讨论】单元生死中单元排序问题

这个问题你还不如发到编程版，自己看看FORTRAN吧，不是专业问题可能大伙没兴趣。

sunxingzhe 发表于 2004-11-22 08:18:16

Re:【讨论】单元生死中单元排序问题

循环里是对符合条件的点进行操作,因为并不知道这些点的编号.

wdwangcool 发表于 2014-9-2 13:12:47

没有那段 谁知道焊缝单元编号是多少？
页: [1]
查看完整版本: 【讨论】单元生死中单元排序问题