!对于地震波的输入，可以把荷载记录做成文件，利用apdl的读取功能读入倒数据库中。下面的例子是自己编的一个小文件。修改一下可以更简洁。有用到的朋友自己作一下把。

fini

/config,nres,1000

*dim,aceX,TABLE,3000,1

*dim,aceY,TABLE,3000,1

*dim,aceZ,TABLE,3000,1
*creat,ff

*vread,aceX(1,1),acex,txt,,1

(e16.6)

*vread,aceX(1,0),ACETT,,,1

(e17.6)

ACEX(0,1)=1

*end

/input,ff



*creat,ff

*vread,aceY(1,1),acey,txt,,1

(e16.6)

*vread,aceY(1,0),ACETT,,,1

(e17.6)

ACEY(0,1)=1

*end

/input,ff



*creat,ff

*vread,aceZ(1,1),acez,txt,,1

(e16.6)

*vread,aceZ(1,0),ACETT,,,1

(e17.6)

ACEZ(0,1)=1

*end

/input,ff
！地震波时程记录分成了3个文件，每个文件是一列。分别记录x,y,z方向的加速度。acett是时间记录。

这样就可以把加速度记录读取倒ansys数据库中作为数组。

也可以把加速度记录做成一个文件，这样程序就简单多了。大家可以试看看修改一下。

下面是计算部分语句：



/SOLU



ANTYPE,trans

！求解其自己选了

TM_START=0.01

TM_END=15.00

TM_INCR=0.01

*DO,TM,TM_START,TM_END,TM_INCR

TIME,tm

alpha,

BETAD,

ACEL,acex(tm),acey(tm),acez(tm)

SOLVE

*ENDDO

fini