% FILE d014hlp.m begins.
% USES: widemarg.m
path(path,'../util')
close all
disp('Triangle')
x=[0, 2, 1, 0]; y=[0, 0, sqrt(3), 0];
fprintf('d014area = %12.5e  , exact area = %12.5e \n', ...
d014area(x,y),sqrt(3))
%figure
subplot(2,2,1)
plot(x,y)
widemarg(gcf)
patch(x,y,'y')
disp('Square')
x=[0, 2, 2, 0, 0]; y=[0, 0, 2, 2, 0];
fprintf('d014area = %12.5e  , exact area = %12.5e \n', ...
d014area(x,y),4)
%figure
subplot(2,2,2)
plot(x,y)
widemarg(gcf)
patch(x,y,'y')
disp('Hexagon')
k=0:6;
x=real(exp(i*pi*k/3)); y=imag(exp(i*pi*k/3));
fprintf('d014area = %12.5e  , exact area = %12.5e \n', ...
d014area(x,y),1.5*sqrt(3))
%figure
subplot(2,2,3)
plot(x,y)
widemarg(gcf)
patch(x,y,'y')
print -dps d014.ps
% FILE d014hlp.m ends.
