MATLAB程序精確法求解反應譜

”

ResponSespectrumProgram(精確法求解)

%%%%%%%%%%%%%%%%%%%%% 反應譜 精確法 程序 Begin With

matlab6.5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% clear

% ***********讀入地震記錄***********

fid = fopen('CHI010.txt');

[Accelerate,count] = fscanf(fid,'%g'); %count 讀入的記錄的量

Accelerate=9.8*Accelerate'; %單位統一為 m和s

time=0:0.005:(count-1)*0.005; %單位 s

% ***********精確法計算各反應***********

%初始化各儲存向量

Displace=zeros(1,count); %相對位移

Velocity=zeros(1,count); %相對速度

AbsAcce=zeros(1,count); %絕對加速度

% ***********A,B矩陣***********

DampA=[0,0.05,0.1]; %三個阻尼比

TA=0.0:0.05:6; %TA=0.000001:0.02:6; %結構周期

Dt=0.005; %地震記錄的步長

%記錄計算得到的反應，MDis為某阻尼時最大相對位移，MVel為某阻尼

總結

以上是生活随笔為你收集整理的matlab程序求反应谱,MATLAB程序精确法求解反应谱的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。