vibs2.m

来自「美国辛辛那提大学的振动教材」· M 代码 · 共 47 行

%	VIBS2 brings up a menu of the available exercises designed
%       for the Vibrations II course at the University of
%       Cincinnati.
%
%**********************************************************************
% Author: Randall J. Allemang
% Date:	18-Apr-94
% Structural Dynamics Research Lab
% University of Cincinnati
% Cincinnati, Ohio  45221-0072
% TEL:  [phone]
% FAX:  [phone]
% E-MAIL: [e-mail]
%*********************************************************************
%

echo off
clear
while 1
	vibs2= ['v2_001'
                'v2_002'
                'v2_009'
                'v2_011'
                'v2_015'
                'v2_016'
                'v2_017'
                'v2_020'
                'v2_052'
                'v2_055'
                'v2_056'
                'v2_057'
                'v2_090'
                'v2_095'
                'v2_099'];
	clc
	help v2list
	n = input('Select a VIBS2 program number: ');
	if ((n <= 0) | (n > 17)) 
                clear
		break
	end
	vibs2 = vibs2(n,:);
	eval(vibs2)
	clear
end
clc