! ********** creat date: 2021-03-13 **********! ********** author: xdd1997 **********! ********** email: [email protected] **********! 輸出結點座標/post1
allsel
csys,0
*get,nodenumall,node,0,count ! 獲取總結點數目
*get,nd,node,0,num,min ! 獲取結點最小編號
*dim,nodeinfo1,array,nodenumall,4! 定義陣列,nodenumall行5列
*do,i,1,nodenumall,1 ! 遍歷nodenumall次，每次i=i+1nodeinfo1(i,1)=nd
nodeinfo1(i,2)=nx(nd)
nodeinfo1(i,3)=ny(nd)
nodeinfo1(i,4)=nz(nd)
nd=ndnext(nd) ! 取得當前選擇集中大於nd的下乙個節點編號
*enddo
*create,dw62,mac ! 建立巨集檔案
*cfopen,node_info_coord,txt
*vwrite,nodeinfo1(1,2),nodeinfo1(1,3),nodeinfo1(1,4) !寫出資訊到檔案
(4f25.10)
*cfclose
*end !結束巨集檔案的建立
dw62 !執行巨集檔案
! ********** creat date: 2021-03-13 **********! ********** author: xdd1997 **********
! ********** email: [email protected] **********
/post1
allsel
*get,nodenumall,node,0,count !獲取總結點數目
*get,nd,node,0,num,min !獲取結點最小編號
*dim,nodeinfo2,array,nodenumall,5 !定義陣列,nodenumall行5列
*do,i,1,nodenumall,1 ! 遍歷nodenumall次，每次i=i+1
nodeinfo2(i,
1)=nd
nodeinfo2(i,
2)=ux(nd)
nodeinfo2(i,
3)=uy(nd)
nodeinfo2(i,
4)=uz(nd)
*get,nodesum,node,nd,u,sum !提取節點的和位移
nodeinfo2(i,
5)=nodesum
nd=ndnext(nd) !取得當前選擇集中大於nd的下乙個節點編號
*enddo
*create,dw62,mac !建立巨集檔案
*cfopen,node_displacement,txt
*vwrite,nodeinfo2(1,2),nodeinfo2(1,3),nodeinfo2(1,4),nodeinfo2(1,5) !寫出資訊到檔案
(4f25.10)
*cfclose
*end !結束巨集檔案的建立
dw62 !執行巨集檔案
!輸出單元資訊 solid45：8個結點/post1
allsel
*get,elemnumall,elem,0,count !獲取總結點數目
*get,ed,elem,0,num,min !獲取結點最小編號
*dim,eleminfo,array,elemnumall,9 !定義陣列,nodenumall行5列
*do,i,1,elemnumall,1 ! 遍歷nodenumall次，每次i=i+1
eleminfo(i,
1)=ed
*get,node1,elem,ed,node,1 !獲取單元的8個結點
*get,node2,elem,ed,node,2
*get,node3,elem,ed,node,3
*get,node4,elem,ed,node,4
*get,node5,elem,ed,node,5
*get,node6,elem,ed,node,6
*get,node7,elem,ed,node,7
*get,node8,elem,ed,node,8
eleminfo(i,
2)=node1
eleminfo(i,
3)=node2
eleminfo(i,
4)=node3
eleminfo(i,
5)=node4
eleminfo(i,
6)=node5
eleminfo(i,
7)=node6
eleminfo(i,
8)=node7
eleminfo(i,
9)=node8
ed=ndnext(ed) !取得當前選擇集中大於ed的下乙個單元編號
*enddo
*create,dw63,mac !建立巨集檔案
*cfopen,elem_info,txt !開啟檔案
*vwrite,eleminfo(1,2),eleminfo(1,3),eleminfo(1,4),eleminfo(1,5),eleminfo(1,6),eleminfo(1,7),eleminfo(1,8),eleminfo(1,9) !寫出資訊到檔案
%10i %10i %10i %10i %10i %10i %10i %10i
!上面一行可以沒有空格，但是不能寫5%10i，也不能寫注釋
*cfclose !關閉檔案
*end !結束巨集檔案的建立
dw63 ! 執行巨集檔案
輸出單層結點
對於一棵二叉樹，請設計乙個演算法，建立含有某一深度上所有結點的鍊錶。給定二叉樹的根結點指標treenode root，以及鍊錶上結點的深度，請返回乙個鍊錶listnode，代表該深度上所有結點的值，請按樹上從左往右的順序鏈結，保證深度不超過樹的高度，樹上結點的值為非負整數且不超過100000。str...
輸出單層結點
對於一棵二叉樹，請設計乙個演算法，建立含有某一深度上所有結點的鍊錶。給定二叉樹的根結點指標treenode root，以及鍊錶上結點的深度，請返回乙個鍊錶listnode，代表該深度上所有結點的值，請按樹上從左往右的順序鏈結，保證深度不超過樹的高度，樹上結點的值為非負整數且不超過100000。根節點...
輸出單層結點
對於一棵二叉樹，請設計乙個演算法，建立含有某一深度上所有結點的鍊錶。給定二叉樹的根結點指標treenode root，以及鍊錶上結點的深度，請返回乙個鍊錶listnode，代表該深度上所有結點的值，請按樹上從左往右的順序鏈結，保證深度不超過樹的高度，樹上結點的值為非負整數且不超過100000。str...