matlab单自由度的时程分析程序.docx

clear;clc;%结构模型初始参数m=3e3;%质量(单位：kg)k=le6;%刚度(单位：Nm)kesai=0.05;%阻尼比取0.05c=2*kesai*sqrt(k*m);%阻尼系数%读取地震波数据acc=textread('D:处理后的smc文件51WCW_90.chnua370295.smc-090501.a'z'%f,'headerlines,56);PGA-Ma×=ma×(abs(acc)%最大地面加速度肯定值%Newmark-beta法的基本参数beta=1/6;gama=0.5;%按线性加速度法计算更接近真实结果，故取此组参数dt=0.02;%地震加速度时程波记录时间间隔bl=l(beta*dt2);b2=l(beta*dt);b3=l-l(2*beta);%计算参数b4=gama(beta*dt);b5=gamabeta-l;b6=(l-gama(2*beta)*dt;ke=k+m*bl+c*b4;%等效刚度%设定结构初始状态为零，生成向量空间存储计算（i,iu=zeros(100dtzl);v=zeros(100dt,l);a=zeros(100dt,l);%Newmark-beta法的主计匏程序forn=2:100/dtfe=-m*acc(n)+bl*u(n-l)+b2*v(n-l)-b3*a(n-l)*m+b4*u(n-l)+b5*v(n-l)-b6*a(n-l)*c;%等效荷载u(n)=feke;a(n)=bl*u(n)-u(n-l)-b2*v(n-l)+b3*a(n-l);v(n)=b4*u(n)-u(n-l)-b5*v(n-l)+b6*a(n-l);end%绘制结构在地震作用下的位移、速度、加速度时程曲线subplot(3,l,l)t=(Odength（八）-l)*dt;pot(tza)%加速度时程曲线Acc-Ma×=ma×(abs（八）)title(,EarthquakeResponseCurveOfStation51WCW-90'fontsize,15)ylabel('Acc(cm/sA2),z,fontsize'/12)subplot(3,l,2)pot(tzv)%速度时程曲线Ve1.Max=max(abs(v)ylabel(,Vel(cms)fontsize,z12)subplot(3zl3)pot(tzu)%位移时程曲线Dis-Max=max(abs(u)xlabel('Times7fontsize',12)ylabel('Discm','fontsize',12)%End一程序结束小弟初次发贴，恳请达人们帮分析一下，不胜感谢！其中的循环部分是依据结构动力学书上的写的，感觉问题就出在那部分了，请高人们指引一下设性加速度法是干脆数俵枳分法求解地表反应的方法之一，本文所采纳的戏性加速度法看考人蛤Kl彦的地振动的谐分析入门其次版.详细计克公式详见大崎颤彦的4地振动的谱分析入门9其次版P116P118.clear%"""""谈入地震记录fid三fopen('ei.tx);Accelerate.count=fscanf(fid,"%g'):%count注入的记录的收time=0:0.02:(CoUnl-I)0.02:%设性加速度法计算各反应%初始化各储存向业DispIace=Zerosf1,unt);%相对位移VeloCity=ZeroS(I.count);%相对速发AbSACCe=ZeroSCI,coUnt);%行定加速度Damp-0.05;%结构阻尼比取为0.05TC=O.0:0.05:10：%结构自振周期Dt=O.02：%地震记业的步长%记录计算得到的反应，MDiS为最大相对位依MVeI为H大相对速改MAcc某阻尼时M大肯定加速度,用于面图MDis-zeros(1.Iength(Tc);MVel=zeros(1Jength(Tc):MAcc=zeros(1.Iength(Tc);t1;%在下一个循环中限制不同的结构自振周期forT-0.0«.05：10FrCy=2pi11%结构自推领车DamFrcy-Frcy*sqrt(1-Damp,Damp);%计t/公式化简eJ=exp(-Damp,Frcy,Dt);S-SinfDamFrcy*Dt);C=COS(DamFrCy.Dt):A=ZeroS(2,2);A(1,1)-ef(s,Damp.lsqr1(1-Damp,Damp)+c):A(1,2)-eWDamFrcy;A(2.1)=Frcyej,s'sqrt(1-Damp,Damp)：