一个用Ansys APDL做的会走得时钟(转)

delay

1. finish
   
2. /clear,start
   
3. n=100
   
4. deg=-10
   
5. 
   
6. /prep7
   
7. 
   
8. csys,1
   
9. *do,i,1,12
   
10. n,i,9,-360/12*i+90
    
11. *enddo
    
12. 
    
13. csys,0
    
14. k,21,
    
15. k,22,0,9,
    
16. k,23,
    
17. k,24,0,6
    
18. 
    
19. lstr,21,22
    
20. lstr,23,24
    
21. 
    
22. k,25,10,10
    
23. k,26,-10,10
    
24. k,27,-10,-10
    
25. k,28,10,-10
    
26. lstr,25,26
    
27. lstr,26,27
    
28. lstr,27,28
    
29. lstr,28,25
    
30. 
    
31. /GTYPE,1,KEYP,0
    
32. /GTYPE,1,LINE,1
    
33. /GTYPE,1,AREA,0
    
34. /GTYPE,1,VOLU,0
    
35. /GTYPE,1,NODE,1
    
36. /GTYPE,1,ELEM,0
    
37. /GCMD,1
    
38. /pnum,node,1
    
39. GPLOT
    
40. 
    
41. csys,1
    
42. *do,i,1,n
    
43. LGEN, ,1, , , ,deg, , , ,1
    
44. LGEN, ,2, , , ,deg/60, , , ,1
    
45. gplot
    
46. *vwrite,i
    
47. (f8.2)
    
48. /wait,0.001
    
49. *enddo

复制代码