有没有关于函数加载方面的资料

jameshust

请问哪位大侠有关于函数加载方面的资料，请拿出来共享，或推荐一下相关资料书籍，谢谢了

[ 本帖最后由 rodge 于 2008-3-27 17:09 编辑 ]

meil32

好多书上都有详细的介绍的
比如：
APDL参数化有限元分析技术及其应用实例
ANSYS 9.0经典产品高级分析技术与实例详解
ANSYS高级工程有限元分析范例精选
等等

meil32

转两个例子吧

1. finish
   
2. /clear
   
3. /filname,qiuqiao
   
4. /prep7
   
5. et,1,shell63
   
6. *afun,deg
   
7. csys,2
   
8. k,10000,
   
9. k,1,1,0,-60
   
10. k,50,1,0,90
    
11. l,1,50
    
12. ldiv,1,,,49
    
13. lsel,all
    
14. arotat,all,,,,,,50,10000,360,72
    
15. esize,,1
    
16. amesh,all
    
17. nummrg,all
    
18. numcmp,all
    
19. eplot
    
20. *get,num,elem,,count
    
21. /psf,pres,,2
    
22. *do,i,1,num
    
23. *get,a,elem,i,centr,y
    
24. *get,b,elem,i,centr,z
    
25. p=sin(a)*cos(b)
    
26. esel,s,,,i
    
27. sfe,all,,PRES,,p
    
28. allsel
    
29. *enddo
    
30. /viem,1,,-1
    
31. /rep,fast
    
32. /ang,1,90,ys,1
    
33. /rep,fast
    
34. finish

复制代码

meil32

圆柱表面施加函数变化载荷：

1. /prep7
   
2. et,1,45
   
3. cyl4,,,0.5,,,,3
   
4. vsweep,all
   
5. asel,s,loc,y,0.01,1
   
6. nsla
   
7. !
   
8. *get,nmax,node,,num,max,
   
9. *get,nmin,node,,num,min,
   
10. *afun,deg
    
11. *dim,t1,array,nmax,1,1,
    
12. csys,1
    
13. *do,k,nmin,nmax
    
14. *if,nsel(k),eq,1,then
    
15. t1(k)=1000*sin(ny(k))
    
16. *else
    
17. t1(k)=0
    
18. *endif
    
19. *enddo
    
20. !
    
21. sffun,pres,t1(1)
    
22. sf,all,pres,0
    
23. 
    

复制代码

sczhang

不错，真不错！！

talping

utility menu—parameter—array parameter—define/edit