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

lvyoujie123

*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

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

sunxingzhe

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

wdwangcool

没有那段 谁知道焊缝单元编号是多少？