希望有老師可以提供一些FLAC3D中加速度的放大系數的命令流,不勝感激!
這家伙很懶,沒有個性簽名!2015-01-15
;-------------------------------------------
;Initialize initial displacements and velocities to zero
;-------------------------------------------
ini xvel=0
ini xdisp=0
ini yvel=0
ini ydisp=0
table 101 read dis-PICA100s-v.txt
.....
apply ffield
apply xvel 1 hist table 101 from 251,1 to 1,1
apply yvel 0 from 251,1 to 1,1
....
solve dytime 100