精选优质文档-倾情为你奉上disp( )disp( ver July 3, 2006)disp( by Tom Irvine Email)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( )%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;%iun
