《冲击响应谱计算的matlab程序》由会员分享,可在线阅读,更多相关《冲击响应谱计算的matlab程序(7页珍藏版)》请在人人文库网上搜索。
1、disp( )disp( srs.m ver 2.0 July 3, 2006)disp( by Tom Irvine Email: tomirvineaol.com)disp( )disp( This program calculates the shock response spectrum)disp( of an acceleration time history, which is pre-loaded into Matlab.)disp( The time history must have two columns: time(sec) & acceleration)disp( )%。
2、clear t;clear y;clear yy;clear n;clear fn;clear a1;clear a2clear b1;clear b2;clear jnum;clear THM;clear resp;clear x_pos;clear x_neg;%iunit=input( Enter acceleration unit: 1= G 2= m/sec2 );%disp( )disp( Select file input method );disp( 1=external ASCII file );disp( 2=file preloaded into Matlab );fil。
3、e_choice = input();%if(file_choice=1)filename, pathname = uigetfile(*.*);filename = fullfile(pathname, filename);% fid = fopen(filename,r);THM = fscanf(fid,%g %g,2 inf);THM=THM;elseTHM =