--- Saving session to:
    ECE480.PH437_31-Jan-2002.txt
--- Processed startup.m ---
; ; ; ; ; ; ; 
[u v] = meshgrid(1:3,1:3)

u =

     1     2     3
     1     2     3
     1     2     3


v =

     1     1     1
     2     2     2
     3     3     3

[u v] = meshgrid(-2:2,-2:2)

u =

    -2    -1     0     1     2
    -2    -1     0     1     2
    -2    -1     0     1     2
    -2    -1     0     1     2
    -2    -1     0     1     2


v =

    -2    -2    -2    -2    -2
    -1    -1    -1    -1    -1
     0     0     0     0     0
     1     1     1     1     1
     2     2     2     2     2

r=sqrt(u.^2 + v.^2)

r =

  Columns 1 through 4 

    2.8284    2.2361    2.0000    2.2361
    2.2361    1.4142    1.0000    1.4142
    2.0000    1.0000         0    1.0000
    2.2361    1.4142    1.0000    1.4142
    2.8284    2.2361    2.0000    2.2361

  Column 5 

    2.8284
    2.2361
    2.0000
    2.2361
    2.8284

mesh(r)
mesh(r<2)
mesh(r>1)

jpegnew

cname =

c100.jpg


cname =

c90.jpg


cname =

c80.jpg


cname =

c70.jpg


cname =

c60.jpg


cname =

c50.jpg


cname =

c40.jpg


cname =

c30.jpg


cname =

c20.jpg


cname =

c10.jpg


cname =

c9.jpg


cname =

c8.jpg


cname =

c7.jpg


cname =

c6.jpg


cname =

c5.jpg


cname =

c4.jpg


cname =

c3.jpg


cname =

c2.jpg


cname =

c1.jpg


cname =

c0.jpg

Press a key to continue

type jgpegnew
??? Error using ==> type
jgpegnew.m: File not found.

type jpegnew

% ECE480/PH437: Introduction to Image Processing (Winter 2001-02)
% Image compression demo with JPEG

% Delete existing figures
delfigs 

% Image name
fname='shut8.png';

% Load original image
[f,m]=imread(fname);

% Clear image name variable (to avoid overwriting)
clear fname;

% Save as JPEG with 100% quality
cname='c100.jpg';
imwrite(f,m,cname,'Quality',100)

% Display the original
figure(1)
imshow(cname)
finfo=imfinfo(cname);
bigfig
bigtitle(['Original Image: ' num2str(finfo.FileSize) ' bytes'])


% Compression quality factors
q=[100 90 80 70 60 50 40 30 20 10 9 8 7 6 5 4 3 2 1 0];

% Create figures of compressed images at various quality factors
for k=q
    cname=['c' num2str(k) '.jpg']
    imwrite(f,m,cname,'Quality',k)
    cinfo=imfinfo(cname);
    cr = finfo.FileSize/cinfo.FileSize;
    figure
    imshow(cname)
    bigfig
    bigtitle(['Quality = ' num2str(k) '; ' num2str(cinfo.FileSize) ...
            ' bytes; Cr = ', num2str(cr)])
    zoom on
end

% Step through the images
figure(1)
disp('Press a key to continue')
pause

for k=1:length(q)
    figure(k+1)
    pause(2)
end

exit