mathdem.m

很多matlab的源代码

% ADSP Toolbox: Version 2.0 
% For use with "Analog and Digital Signal Processing", 2nd Ed.
% Published by PWS Publishing Co.
%
% Ashok Ambardar, EE Dept. MTU, Houghton, MI 49931, USA
% http://www.ee.mtu/faculty/akambard.html
% e-mail: [e-mail]
% Copyright (c) 1998


clc,v=exist('version');
gcd1,disp(' '),disp('Strike a key to continue'),pause
lcm1,disp(' '),disp('Strike a key to continue'),pause
alog,disp(' '),disp('Strike a key to continue'),pause
numdig,disp(' '),disp('Strike a key to continue'),pause
simpson,disp(' '),disp('Strike a key to continue'),pause
%rootsn,disp(' '),disp('Strike a key to continue'),pause
oderk1,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
oderk2,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
oderk4,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
odesimp,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
%ss2mat,disp(' '),disp('Strike a key to continue'),pause
polymap,disp(' '),disp('Strike a key to continue'),pause

disp(' '),disp(' ')
disp('Here are some special mathematical functions you can evaluate')
disp(' ')
besin,disp(' '),disp('Strike a key to continue'),pause
besinu,disp(' '),disp('Strike a key to continue'),pause
besjn,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
besjnu,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
%bicoeff,disp(' '),disp('Strike a key to continue'),pause
chebyfun,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
%chebyu,if v~=5,pause,end
%disp(' '),disp('Strike a key to continue'),pause
si,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
si2,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
%siabs,if v~=5,pause,end
%disp(' '),disp('Strike a key to continue'),pause
cx,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
sx,if v~=5,pause,end
disp(' '),disp('Strike a key to continue'),pause
gm,disp(' '),disp('Strike a key to continue'),pause
invsi,disp(' '),disp('Strike a key to continue'),pause
invsi2,disp(' '),disp('Strike a key to continue'),pause
invsinc,disp(' '),disp('Strike a key to continue'),pause
invsinc2
disp(' '),disp('Strike a key to return to menu'),pause