%《MATLAB在電子信息課程中的應用》第二章第四節演示程序q24
% 邏輯運算及流程控制
% 電子工業出版社出版  陳懷琛 吳大正 高西全合著 2001年10月

clear, 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('  求最大數')
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('  求相對精度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('  判斷奇偶數')
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