%satlan3.m

!asciicon sat0026b.cal data.raw output.txt &
disp('press enter to continue')

pause
fid = fopen('output.txt','rt');
fout = fopen('output2.txt','wt')
n=1;
output =['%', fgetl(fid);];
fprintf(fout,'%s\n',output);
while ~feof(fid);
   output=(fgetl(fid));
   fprintf(fout,'%s\n',output);
end
fclose('all');
load output2.txt;


year = str2num(time1(:,1:4));
month =str2num(time1(:,6:7));
day =str2num(time1(:,9:10));
hh=hex2dec(time1(:,21:22))/240;
day = day+hh;
time3 = datenum(year,month,day);
output2(:,13)=time3;
jday1997 = 729391; %julian date for Jan 1 1997
output2(:,14) = output2(:,13)-jday1997; %SOMTHING we can acctualy recognize as a DATE!!

figure(1)
plot(output2(:,14),output2(:,2:8));
xlabel('Julian Date');ylabel('up')
legend('LU(412)','LU(443)','LU(490)','LU(510)','LU(555)','LU(670)','LU(683)')


figure(2)
plot(output2(:,14),output2(:,9));
xlabel('Julian Date');ylabel('Downwelling')
legend('Ed(490)')

figure(3)
plot(output2(:,14),output2(:,10));
xlabel('Julian Date');ylabel('Volts')
legend('Flourometer')

figure(4)
plot(output2(:,14),output2(:,11:12))
xlabel('Julian Date'); ylabel('Temp (C) / Volts')
legend('SST', 'Bat Voltage')