Hi, I am also learing the same thing. Here is how I have done.

/SOLU

!creating array of 18000x2 containing data of time and accln

*dim,ang,,18000,2

*CREATE,ansuitmp

*VREAD,ang(1,1),'ang','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

*dim,awg,,18000,2

*CREATE,ansuitmp

*VREAD,awg(1,1),'awg','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

*dim,adg,,18000,2

*CREATE,ansuitmp

*VREAD,adg(1,1),'adg','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

!*

ANTYPE,4

!*

TRNOPT,FULL

LUMPM,0

!*

KBC,0

TIME,0.005

*do,t,1,18000,1

time,0.005*t

ACEL,ang(t,2),awg(t,2),adg(t,2)

allsel,all

solve

*enddo

Hi,

you may perform a spectrum analysis or fully transient analysis.

If you have earthquake time history data of acceleration, velocity, or displacement in a separate file, you may create a data table "tab1" using *DIM,tab1,TABLE command, and read from file using the *TREAD command. Then use the D command to apply the load specified in "tab1" and choose AUTOTS,0 and DELTIM compatible with "tab1" and SOLVE as a transient problem in the time domain. If you want to do spectrum analysis instead (as you want to develop the response spectrum), your earthquake data first has to be transformed from time to frequency domain.

Hi Daniel,

Thank you for your answer. Since I just started using ansys, I am having a little problem in understanding your answer. Do you have any tutorial or could you explain to me in step. Thank you

Hi, I am also learing the same thing. Here is how I have done.

/SOLU

!creating array of 18000x2 containing data of time and accln

*dim,ang,,18000,2

*CREATE,ansuitmp

*VREAD,ang(1,1),'ang','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

*dim,awg,,18000,2

*CREATE,ansuitmp

*VREAD,awg(1,1),'awg','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

*dim,adg,,18000,2

*CREATE,ansuitmp

*VREAD,adg(1,1),'adg','txt',' ',JIK,2,18000,, ,

(e9.3,e11.3)

*END

/INPUT,ansuitmp

!*

ANTYPE,4

!*

TRNOPT,FULL

LUMPM,0

!*

KBC,0

TIME,0.005

*do,t,1,18000,1

time,0.005*t

ACEL,ang(t,2),awg(t,2),adg(t,2)

allsel,all

solve

*enddo