Commit 4a63914c1dee42ed5c3421a3e3bb93c3bb5b32e4
1 parent
1a0e88f0ce
Exists in
master
add relative ad option
Showing 1 changed file with 1 additions and 1 deletions Inline Diff
allanplot.m
#!/usr/bin/octave-cli --persist | 1 | 1 | #!/usr/bin/octave-cli --persist | |
2 | 2 | |||
filename = argv(){1}; | 3 | 3 | filename = argv(){1}; | |
col = eval(argv(){2}); | 4 | 4 | col = eval(argv(){2}); | |
mult = eval(argv(){3}); | 5 | 5 | mult = eval(argv(){3}); | |
6 | 6 | |||
if length(col) == length(mult) | 7 | 7 | if length(col) == length(mult) | |
figure | 8 | 8 | figure | |
hold all | 9 | 9 | hold all | |
grid on | 10 | 10 | grid on | |
cc = 'bkcgmry'; | 11 | 11 | cc = 'bkcgmry'; | |
for i = [1:length(col)] | 12 | 12 | for i = [1:length(col)] | |
data.freq = load(filename)(:,col(i)).*mult(i); | 13 | 13 | data.freq = load(filename)(:,col(i)).*mult(i); | |
if nargin == 4 | 14 | 14 | if nargin == 4 | |
if eval(argv(){4})(i) == 1 | 15 | 15 | if eval(argv(){4})(i) == 1 | |
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n')) | 16 | 16 | printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n')) | |
data.freq = detrend(data.freq); | 17 | 17 | data.freq = detrend(data.freq); | |
elseif eval(argv(){4})(i) == 2 | 18 | 18 | elseif eval(argv(){4})(i) == 2 | |
printf(strcat(filename, ' col', num2str(col(i)), ' relative ad\n\n')) | 19 | 19 | printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n')) | |
data.freq = data.freq./mean(data.freq); | 20 | 20 | data.freq = data.freq./mean(data.freq); | |
elseif eval(argv(){4})(i) == 3 | 21 | 21 | elseif eval(argv(){4})(i) == 3 | |
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n')) | 22 | 22 | printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n')) | |
data.freq = detrend(data.freq./mean(data.freq)); | 23 | 23 | data.freq = detrend(data.freq./mean(data.freq)); | |
end | 24 | 24 | end | |
endif | 25 | 25 | endif | |
data.rate = 1; | 26 | 26 | data.rate = 1; | |
[ad, S, err, tau] = allan(data, 2.^[0:nextpow2(length(data.freq))-3]./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0); | 27 | 27 | [ad, S, err, tau] = allan(data, 2.^[0:nextpow2(length(data.freq))-3]./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0); | |
loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s')) | 28 | 28 | loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s')) | |
leg{i} = strcat(filename, ' col', num2str(col(i))); | 29 | 29 | leg{i} = strcat(filename, ' col', num2str(col(i))); | |
axis(10.^ceil(log10([tau(1), tau(end)]))) | 30 | 30 | axis(10.^ceil(log10([tau(1), tau(end)]))) | |
hold on | 31 | 31 | hold on | |
end | 32 | 32 | end | |
legend(leg) | 33 | 33 | legend(leg) | |
input("Press to continue..."); | 34 | 34 | input("Press to continue..."); | |
end | 35 | 35 | end |