%《MATLAB及其在理工課程中的應(yīng)用指南》(十一五規(guī)劃版)第二章第四節(jié)演示程序
% 西安電子科技大學(xué)出版社出版  陳懷琛編著 2007年7月
%
clear, close all
format,echo off
disp('  <   小于 '),disp(' ')
disp('  <=   小于等于 '),disp(' ')
disp('  >   大于 '),disp(' ')
disp('  >=   大于等于 '),disp(' ')
disp('  ==   等于 '),disp(' ')
disp('  ~=   不等于 '),disp(' ')
pause,echo on
pause, 2+2==4
pause, A=magic(6)
pause, p=(rem(A,3)==0),
pause,echo off
disp('  &     與'),disp(' ')
disp('  |     或'),disp(' ')
disp('  ~     非'),disp(' ')
disp('   all    全為真 '),disp(' ')
disp('   any    不全為假 '),disp(' ')
pause,echo on
u=p|~p
pause, all(p),all(u)
pause, v=p&(~p)
pause, any(p),any(v)
pause,disp('  求最大數(shù)')
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,realmax,eps
pause,disp('  求相對(duì)精度eps')
pause, y=1;while 1+y>1,y1=y;y=y/2;end,y1
pause, format long, y1, format short
pause, y=1;while y*eps~=0,y3=y;y=y/2;end,y3
pause, format long, y3, 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
pause, n=input('n='),format rat,for i=1:n,h1(i,:)=1./(i+[1:n]-1);end,h1,format short
pause,disp('  判斷奇偶數(shù)')
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