ANSYS曲线建模实例

来源:百度文库 编辑:神马文学网 时间:2024/04/29 00:27:26
2007年05月22日 星期二 下午 09:46
平时没有用过曲线建模,今天见SIMWE上有人画的不错,曲线蛮好。也转来我这里玩玩。道理简单,利用APDL中循环命令建立数组,关键点,再连接。不过此人心思细密,令人佩服。
转自:http://www.simwe.com/forum/thread-722196-1-2.html
1、正弦线
*AFUN,RAD
/PREP7
*do,i,0,100,1
*SET,x,0.1* i
*SET,y,sin(0.1*i)
k,i+1,x,y
*enddo
*do,j,1,100,1
l,j,j+1
*enddo

2、次声波
/prep7
*do,i,1,91,1
*set,x,i*0.25
*set,y,cos(i*360*8*0.05)*i*0.05
k,i,x,y
*enddo
*do,j,1,90,5
spline,j,j+1,j+2,j+3,j+4,j+5
*enddo

3、波形环线
/prep7
*do,i,0,100,1
*set,x,50*sin(5*360*i)*i/5
*set,y,50*cos(5*360*i)*i/5
*set,z,10*sin(25*360*i)*i/5
k,i+1,x,y,z
*enddo
*do,j,1,45,5
spline,2*j,2*(j+1),2*(j+2),2*(j+3),2*(j+4),2*(j+5)
*enddo
*do,k,0,45,5
spline,2*k+1,2*k+3,2*k+5,2*k+7,2*k+9,2*k+11
*enddo
splin,92,94,96,98,100
line,1,2

4、弹簧线1
/prep7
*do,i,0,200
*set,x,200*cos(i/4)
*set,y,i*3
*set,z,200*sin(i/4)
k,i+1,x,y,z
*enddo
*do,i,1,194,5
bsplin,i,i+1,i+2,i+3,i+4,i+5
*enddo
bsplin,196,197,198,199,200
kwpave,1
pcirc,20,,0,360
*do,j,1,40,1
vdrag,1+(j-1)*5,,,,,,j
*enddo

5、弹簧线2
/prep7
*do,i,0,119
*set,x,(200-i)*cos(i/4)
*set,y,i*3
*set,z,(200-i)*sin(i/4)
k,i+1,x,y,z
*enddo
*do,i,1,114,5
bsplin,i,i+1,i+2,i+3,i+4,i+5
*enddo
bsplin,116,117,118,119,120
kwpave,1
pcirc,20,,0,360
*do,j,1,24,1
vdrag,1+(j-1)*5,,,,,,j
*enddo

6、“花花”
/prep7
*do,i,0,474,1
*set,x,(8+5*sin(i*6.28*5*5)*i)*cos(i*6.28*5)
*set,y,(8+5*sin(i*6.28*5*5)*i)*sin(i*6.28*5)
k,i+1,x,y
*enddo
*do,j,1,469,5
spline,j,j+1,j+2,j+3,j+4,j+5
*enddo