q241.m

电路与系统专业的matlab程序。有很多经典的实例。

%《MATLAB在电子信息课程中的应用》第二章第四节演示程序q24
% 逻辑运算及流程控制
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月

clear
pause,echo on

pause,disp('  求最大/小数')
pause, x=1;
while x~=inf;
    x1=x;
    x=2*x;
end,
x1
pause, y=1;
while y~=0;y1=y;
    y=y/2;
end,
y1
pause, format long, y1, format short
pause,disp('  求相对精度eps')
pause, y=1;while 1+y>1,y1=y;y=y/2;end,y1
pause, format long, y1, format short
pause,disp('  求hilbert矩阵')
pause, n=input('n='),h=zeros(n,n);format rat,
for i=1:n,
    for j=1:n,h(i,j)=1/(i+j-1);
    end
end
h
format short
pause,disp('  判断奇偶数')
pause,n=input('n='),
if n<0 A='negative', 
elseif rem(n,2)==0 
    A='even', 
else 
    A='odd',
end
A
pause,n=input('n=');
switch mod(n,2),
    case 1,A='奇',
    case 0,A='偶',
    otherwise,A='空', 
end