% plot1.m 96/07/15
%
% Program to plot a box in 3 space
% 


% bottom surface

    plot3([1 3],[1 1],[1 1],'w--'); 
    hold on
    axis([0 4 0 4 0 4]);
    plot3([1 3],[3 3],[1 1],'w--'); 
    plot3([1 1],[1 3],[1 1],'w--');
    plot3([3 3],[1 3],[1 1],'w--');

% top surface

    plot3([1 3],[1 1],[3 3],'w--'); 
    plot3([1 3],[3 3],[3 3],'w--'); 
    plot3([1 1],[1 3],[3 3],'w--');
    plot3([3 3],[1 3],[3 3],'w--');

% lines connecting top and bottom surfaces 

    plot3([1 1],[1 1],[1 3],'w--');
    plot3([3 3],[1 1],[1 3],'w--');
    plot3([1 1],[3 3],[1 3],'w--');
    plot3([3 3],[3 3],[1 3],'w--');

%

    text(1.1,.5,0,'a');
    text(3.0,.5,0,'b');
    text(.4,1.2,0,'c');
    text(.4,3.2,0,'d');
    text(.2,4,1,'r');
    text(.2,4,3,'s');
    xlabel('x');
    ylabel('y');
    zlabel('z');
    text(1.2,3.0,2.5,'R');
    hold off;
