matlabfunction3

MATLAB CODE FOR PRINTING LETTERS USED IN ART1

                                                                                              Back To Home Page
                                                                                                Back To Matlab Code
                                                                                            Continue looking at Code


function cool

a=[0 0 1 1 0 0 0; 0 0 0 1 0 0 0;0 0 0 1 0 0 0 ; 0 0 1 0 1 0 0; 0 0 1 0 1 0 0 ; 0 1 1 1 1 1 0; 0 1 0 0 0 1 0; 0 1 0 0 0 1 0; 1 1 1 0 1 1 1];

for i=1:9
    for j=1:7;
        if a(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot (3 ,7 , 1); plot(x,y,'k.');
        end
end
end

a2=[0 0 0 1 0 0 0 ; 0 0 0 1 0 0 0 ;0 0 0 1 0 0 0 ; 0 0 1 0 1 0 0 ;0 0 1 0 1 0 0 ;0 1 0 0 0 1 0; 0 1 1 1 1 1 0; 0 1 0 0 0 1 0; 0 1 0 0 0 1 0];
for i=1:9
    for j=1:7;
    if a2(i,j)==1
        x=j;
        y=-i;
        hold on;
        subplot(3,7,8); plot(x,y,'k.');
    end
end
end
a3=[0 0 0 1 0 0 0 ;0 0 0 1 0 0 0; 0 0 1 0 1 0 0;0 0 1 0 1 0 0 ;0 1 0 0 0 1 0; 0 1 1 1 1 1 0 ;1 0 0 0 0 0 1;1 0 0 0 0 0 1;1 1 0 0 0 1 1];
for i=1:9
    for j= 1:7;
        if a3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3 ,7 , 15); plot(x,y,'k.');
        end
end
end

b1=[1 1 1 1 1 1 0;0 1 0 0 0 0 1;0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 1 1 1 1 0; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 1 0; 1 1 1 1 1 1 0];
for i=1:9
    for j= 1:7;
        if b1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3 , 7, 2), plot(x,y,'k.');
        end
end
end

b2=[1 1 1 1 1 1 0;1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 1 1 1 1 1 0; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 1 1 1 1 1 0];
for i= 1:9
    for j=1:7;
        if b2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,9),plot(x,y,'k.');
        end
end
end

b3=[1 1 1 1 1 1 0;0 1 0 0 0 0 1; 0 1 0 0 0 0 1;0 1 1 1 1 1 0; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1;1 1 1 1 1 1 0];
for i=1:9
    for j=1:7;
        if b3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,16), plot(x,y,'k.');
        end
end
end

c1=[0 0 1 1 1 1 1 ; 0 1 0 0 0 0 1; 1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0; 0 1 0 0 0 0 1; 0 0 1 1 1 1 0];
for i=1:9
    for j=1:7;
        if c1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,3), plot(x,y,'k.');
        end
end
end

c2=[0 0 1 1 1 0 0 ;0 1 0 0 0 1 0; 1 0 0 0 0 0 1; 1 0 0 0 0 0 0;1 0 0 0 0 0 0;1 0 0 0 0 0 0 ; 1 0 0 0 0 0 1 ; 0 1 0 0 0 1 0; 0 0 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if c2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,10), plot(x,y,'k.');
        end
end
end

c3=[0 0 1 1 1 0 1; 0 1 0 0 0 1 1; 1 0 0 0 0 0 1;1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0;1 0 0 0 0 0 0; 1 0 0 0 0 0 1; 0 1 0 0 0 1 0; 0 0 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if c3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,17), plot(x,y,'k.');
        end
end
end

d1=[1 1 1 1 1 0 0 ; 0 1 0 0 0 1 0; 0 1 0 0 0 0 1;0 1 0 0 0 0 1;0 1 0 0 0 0 1;0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 1 0; 1 1 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if d1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,4), plot(x,y,'k.');
        end
end
end

d2=[1 1 1 1 1 0 0;1 0 0 0 0 1 0; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1; 1 0 0 0 0 0 1;1 0 0 0 0 1 0; 1 1 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if d2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,11), plot(x,y,'k.');
        end
end
end

d3=[1 1 1 1 1 0 0; 0 1 0 0 0 1 0; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 1;0 1 0 0 0 1 0; 1 1 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if d3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,18), plot(x,y,'k.');
        end
end
end

e1=[1 1 1 1 1 1 1; 0 1 0 0 0 0 1; 0 1 0 0 0 0 0 ; 0 1 0 1 0 0 0 ;0 1 1 1 0 0 0 ;0 1 0 1 0 0 0 ;0 1 0 0 0 0 0 ; 0 1 0 0 0 0 1; 1 1 1 1 1 1 1];
for i=1:9
    for j=1:7;
        if e1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,5), plot(x,y,'k.');
        end
end
end

e2=[1 1 1 1 1 1 1;1 0 0 0 0 0 0;1 0 0 0 0 0 0 ; 1 0 0 0 0 0 0;1 1 1 1 1 0 0;1 0 0 0 0 0 0; 1 0 0 0 0 0 0;1 0 0 0 0 0 0;1 1 1 1 1 1 1];
for i=1:9
    for j=1:7;
        if e2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,12), plot(x,y,'k.');
        end
end
end

e3=[1 1 1 1 1 1 1;0 1 0 0 0 0 1; 0 1 0 0 1 0 0;0 1 1 1 1 0 0 ;0 1 0 0 1 0 0; 0 1 0 0 0 0 0; 0 1 0 0 0 0 0 ;0 1 0 0 0 0 1; 1 1 1 1 1 1 1 ];
for i=1:9
    for j=1:7;
        if e3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,19), plot(x,y,'k.');
        end
end
end

j1=[0 0 0 1 1 1 1;0 0 0 0 0 1 0;0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 1 0 0 0 1 0; 0 1 0 0 0 1 0; 0 0 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if j1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,6), plot(x,y,'k.');
        end
end
end

j2=[0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 1 0 0 0 1 0; 0 1 0 0 0 1 0; 0 0 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if j2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,13), plot(x,y,'k.');
        end
end
end

j3=[0 0 0 0 1 1 1 ; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 0 0 0 0 1 0; 0 1 0 0 0 1 0; 0 0 1 1 1 0 0];
for i=1:9
    for j=1:7;
        if j3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,20), plot(x,y,'k.');
        end
end
end

k1=[1 1 1 0 0 1 1 ; 0 1 0 0 1 0 0 ;0 1 0 1 0 0 0 ;0 1 1 0 0 0 0 ;0 1 1 0 0 0 0 ;0 1 0 1 0 0 0 ; 0 1 0 0 1 0 0 ;0 1 0 0 0 1 0;1 1 1 0 0 1 1];
for i=1:9
    for j=1:7;
        if k1(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,7), plot(x,y,'k.');
        end
end
end

k2=[1 0 0 0 0 1 0; 1 0 0 0 1 0 0;1 0 0 1 0 0 0 ;1 0 1 0 0 0 0 ; 1 1 0 0 0 0 0; 1 0 1 0 0 0 0 ; 1 0 0 1 0 0 0 ; 1 0 0 0 1 0 0 ; 1 0 0 0 0 1 0];
for i=1:9
    for j=1:7;
        if k2(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,14), plot(x,y,'k.');
        end
end
end

k3=[1 1 1 0 0 1 1;0 1 0 0 0 1 0;0 1 0 0 1 0 0 ;0 1 0 1 0 0 0 ;0 1 1 0 0 0 0 ; 0 1 0 1 0 0 0 ; 0 1 0 0 1 0 0;0 1 0 0 0 1 0; 1 1 1 0 0 1 1];
for i=1:9
    for j=1:7;
        if k3(i,j)==1
            x=j;
            y=-i;
            hold on;
            subplot(3,7,21), plot(x,y,'k.');
        end
end
end