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 = 360.0 / 5.0;
for i=1:5
    li = [cos(angle)*logLegs(i,1) sin(angle)*logLegs(i,1)];
    angle = angle + dA;
end

for i=1:5
    line([0 0], logLegXY(i));
end