bmarechal / octave_scripts

Download as
Browse Code ยป

Commit 7ec25ad9fc3fba265c89dd1960e88444fdb1e548

Authored by bmarechal
1 parent 7bd8746382
Exists in master

allanplot_cov.m: add save option

Showing 1 changed file with 6 additions and 0 deletions Inline Diff

#!/usr/bin/octave-cli --persist 1 1 #!/usr/bin/octave-cli --persist
2 2
filename = argv(){1}; 3 3 filename = argv(){1};
col1 = eval(argv(){2}); 4 4 col1 = eval(argv(){2});
col2 = eval(argv(){3}); 5 5 col2 = eval(argv(){3});
mult1 = eval(argv(){4}); 6 6 mult1 = eval(argv(){4});
mult2 = eval(argv(){5}); 7 7 mult2 = eval(argv(){5});
8 arg_save = eval(argv(){6});
8 9
if length(col1) == length(mult1) 9 10 if length(col1) == length(mult1)
figure 10 11 figure
hold all 11 12 hold all
grid on 12 13 grid on
cc = 'bkcgmry'; 13 14 cc = 'bkcgmry';
for i = [1:length(col1)] 14 15 for i = [1:length(col1)]
data.freq = load(filename)(:,col1(i)).*mult1(i); 15 16 data.freq = load(filename)(:,col1(i)).*mult1(i);
data.freq2 = load(filename)(:,col2(i)).*mult2(i); 16 17 data.freq2 = load(filename)(:,col2(i)).*mult2(i);
data.freq = data.freq(1:min(length(data.freq), length(data.freq2))); 17 18 data.freq = data.freq(1:min(length(data.freq), length(data.freq2)));
data.freq2 = data.freq2(1:min(length(data.freq), length(data.freq2))); 18 19 data.freq2 = data.freq2(1:min(length(data.freq), length(data.freq2)));
if eval(argv(){end-1}) == 1 19 20 if eval(argv(){end-1}) == 1
printf('\ndata1 drift removed\n\n') 20 21 printf('\ndata1 drift removed\n\n')
data.freq = detrend(data.freq); 21 22 data.freq = detrend(data.freq);
end 22 23 end
if eval(argv(){end}) == 1 23 24 if eval(argv(){end}) == 1
printf('\ndata2 drift removed\n\n') 24 25 printf('\ndata2 drift removed\n\n')
data.freq2 = detrend(data.freq2); 25 26 data.freq2 = detrend(data.freq2);
end 26 27 end
data.rate = 1; 27 28 data.rate = 1;
[ad, S, err, tau] = allan_cov(data, horzcat(reshape([1:0.1:9]'.*10.^[0:round(log10(length(data.freq)))-1],1,[]), 10^(round(log10(length(data.freq)))-1))./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0); 28 29 [ad, S, err, tau] = allan_cov(data, horzcat(reshape([1:0.1:9]'.*10.^[0:round(log10(length(data.freq)))-1],1,[]), 10^(round(log10(length(data.freq)))-1))./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0);
loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s')) 29 30 loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s'))
leg{i} = strcat(filename, ' cov col', num2str(col1(i)), ' col', num2str(col2(i))); 30 31 leg{i} = strcat(filename, ' cov col', num2str(col1(i)), ' col', num2str(col2(i)));
axis(10.^ceil(log10([tau(1), tau(end)]))) 31 32 axis(10.^ceil(log10([tau(1), tau(end)])))
hold on 32 33 hold on
34 if arg_save ==1
35 filenameout = strcat(strsplit(filename,'.'){1},'-cov-',num2str(col1),num2str(col2),'.sig')
36 datatosave = horzcat(tau', ad', err');
37 save('-ascii', filenameout , 'datatosave');
38 end
end 33 39 end
legend(leg) 34 40 legend(leg)
input("Press to continue..."); 35 41 input("Press to continue...");