今天與老師和幾位朋友探討了一會關于荷載-位移曲線的問題，有點意思。而且還遇到了各種各樣、千奇百怪的曲線圖，說明做的還有些問題。但在ANSYS繪制曲線的命令控制方面，倒是用得比較熟練了。

把這段APDL記錄在此，以后留用。

/post26
numvar,200 !定義POST26中允許的變量數不超過200個
nsol,2,226,u,y,UY !變量2為節點豎向位移
prod,3,1,,,P-LOAD,,,p0/1000 !變量3為時間乘以po，并變為KN單位
prod,4,2,,,UY,,,-1 !變量4將其反號
/axlab,X,UY(mm) !曲線X軸注釋
/axlab,y,P-LOAD(kN) !曲線Y軸注釋
/xrange,0,10  !X軸范圍
xvar,4 ! 定義變量4為X軸
plvar,3 !定義變量3為Y繪圖

主要用到的命令是：

PROD, IR, IA, IB, IC, Name, --, --, FACTA, FACTB, FACTC

其中，關鍵是通過計算返回的新變量數值(因子乘以老變量)的確定方式：

IR = (FACTA x IA) x (FACTB x IB) x (FACTC x IC)

下面是在網上找到的幾條曲線畫法，方法都是先確定點，連點成線，亮點在函數構造上，很是有點意思。

―――――――――――――――――――――――――――――――――

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、彈簧線

/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

 

/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

5、星型線

/prep7

*do,i,0,70,1

*set,x,5*(cos(i*360))**3

*set,y,5*(sin(i*360))**3

k,i+1,x,y

*enddo

（連線用鼠標操作）

 

6、葉型線

/prep7

*do,i,0,10,1

*set,x,3*10*i/(1+(i**3))

*set,y,3*10*(i**2)/(1+i**3)

k,i+1,x,y

*enddo

spline,2,3,4,5,6,7

spline,7,8,9,10,1

 

7、奧運標志

/prep7

*do,i,0,34,1

*set,x,2+(10-5)*cos(i*360*4)+6*cos((10/6-1)*i*360*4)

*set,y,2+(10-5)*sin(i*360*4)-6*sin((10/6-1)*i*360*4)

k,i+1,x,y

*enddo

*do,j,1,5,1

spline,j,j+5,j+10

*enddo

*do,k,15,20,1

spline,k,k+5,k+10

*enddo

*do,m,11,15,1

l,m,m+5

*enddo

spline,1,34,29

spline,2,35,30

spline,3,31,26

spline,4,32,27

spline,5,33,28

 

8、花花

/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