clear
close all

fid = fopen('HawaiiDriftPCRData.txt');
PCRData = textscan(fid, '%s %s %f %f %f %f %f %f %f %f %f', 'Headerlines', 1);
fclose(fid);

LonDeg = PCRData{5}(:);
LonMin = PCRData{6}(:);
PCRLon = LonDeg - LonMin/60.0;
LatDeg = PCRData{3}(:);
LatMin = PCRData{4}(:);
PCRLat = LatDeg + LatMin/60.0;

PCRNames = ['GrpA', 'GrpB', 'Tricho', 'Het-1', 'Gamma'];

for i=1:5
    legs(:,i) = PCRData{6+i};
end
logLegs = log10(legs);

angle = 0;
dA = degtorad(360.0 / 5.0);
axis([-6 6 -6 6]);
colorNum= ['y' 'm' 'c' 'r' 'g' 'b' 'w' 'k'];
for i=1:5
    line([0 cos(angle)*logLegs(1,i)], [0 sin(angle)*logLegs(1,i)], 'Color', colorNum(i));
    angle = angle + dA;
end
