function matrix = unitcircle
%This function with produce key unit circle values
%in order to jimplot them.

%Created by Mary Ellen Kustin, University of South Carolina, August 13th, 2003

M = [];		%create matrix

M = [M; 1 1 0; 2 sqrt(3)/2 .5; 3 sqrt(2)/2 sqrt(2)/2;
   4 .5 sqrt(3)/2; 5 0 1; 6 -sqrt(3)/2 .5; 7 -sqrt(2)/2 sqrt(2)/2;
   8 -.5 sqrt(3)/2; 9 -1 0; 10 0 -1; 11 -sqrt(3)/2 -.5; 
   12 -sqrt(2)/2 -sqrt(2)/2; 13 -.5 -sqrt(3)/2; 14 sqrt(3)/2 -.5; 
   15 sqrt(2)/2 -sqrt(2)/2; 16 .5 -sqrt(3)/2; 17 0 0; 18 .25 .25
	19 -.25 -.25; 20 -.25 .25; 21 .25 -.25];
%key unit circle points with built-in index and 
%the origin with surrounding points.

matrix = M;