earthquakepredisposal.m

来自「薄壁结构有限元计算」· M 代码 · 共 16 行

% 输入地震波横波数据
load transverse.dat;

% 输入横波与截面主轴的夹角
angle=input('Please input the angle between earthquake and axis: ');

% 角度转化为弧度
angle1=angle*pi/180;

% 根据角度将横波沿主轴分解为纵向波与横向波
Longitude=cos(angle1)*transverse;
Tranveral=sin(angle1)*transverse;

% 将数据存入纵向波、横向波的数据文件中
save F:/txt/lunwen/Longitude.dat Longitude -ascii;
save F:/txt/lunwen/Tranveral.dat Tranveral -ascii;