bmarechal / octave_scripts

Download as
Browse Code ยป

Commit 146b73337a99e14c93be6fd01e60ce532362c97c

Authored by bmarechal
1 parent 76682e8cb5
Exists in master

save long without truncature

Showing 4 changed files with 4 additions and 4 deletions Inline Diff

#!/usr/bin/octave-cli --persist 1 1 #!/usr/bin/octave-cli --persist
2 2
# allanplot.m computes Allan deviation from temporal dataset 3 3 # allanplot.m computes Allan deviation from temporal dataset
# 4 4 #
# use : allanplot.m file.dat column_i gain_i ad_opt 5 5 # use : allanplot.m file.dat column_i gain_i ad_opt
# allanplot.m file.dat [column_i,column_j] [gain_i,gain_j] [ad_opt_i,ad_opt_j] 6 6 # allanplot.m file.dat [column_i,column_j] [gain_i,gain_j] [ad_opt_i,ad_opt_j]
# 7 7 #
# inputs: 8 8 # inputs:
# file.dat : [string] file to load 9 9 # file.dat : [string] file to load
# columns : int or [int] columns to load 10 10 # columns : int or [int] columns to load
# fs : int or [int] sampling frequency 11 11 # fs : int or [int] sampling frequency
# gains : float or [float] gains to apply 12 12 # gains : float or [float] gains to apply
# ad_opt : int or [int] ad options : 13 13 # ad_opt : int or [int] ad options :
# 0 direct allan computation 14 14 # 0 direct allan computation
# 1 drift removed ad 15 15 # 1 drift removed ad
# 2 relative ad 16 16 # 2 relative ad
# 3 relative drift removed ad 17 17 # 3 relative drift removed ad
# arg_save : [int] save adev with one file per column : 18 18 # arg_save : [int] save adev with one file per column :
# 0 without save 19 19 # 0 without save
# 1 save adev result to file-col.sig 20 20 # 1 save adev result to file-col.sig
21 21
filename = argv(){1}; 22 22 filename = argv(){1};
col = eval(argv(){2}); 23 23 col = eval(argv(){2});
fs = eval(argv(){3}); 24 24 fs = eval(argv(){3});
mult = eval(argv(){4}); 25 25 mult = eval(argv(){4});
ad_opt = eval(argv(){5}); 26 26 ad_opt = eval(argv(){5});
arg_save = eval(argv(){6}); 27 27 arg_save = eval(argv(){6});
28 28
if length(col) == length(mult) 29 29 if length(col) == length(mult)
figure 30 30 figure
hold all 31 31 hold all
grid on 32 32 grid on
cc = 'bkcgmry'; 33 33 cc = 'bkcgmry';
for i = [1:length(col)] 34 34 for i = [1:length(col)]
data.freq = load(filename)(:,col(i)).*mult(i); 35 35 data.freq = load(filename)(:,col(i)).*mult(i);
if ad_opt(i) == 1 36 36 if ad_opt(i) == 1
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n')) 37 37 printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n'))
data.freq = detrend(data.freq); 38 38 data.freq = detrend(data.freq);
elseif ad_opt(i) == 2 39 39 elseif ad_opt(i) == 2
printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n')) 40 40 printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n'))
data.freq = data.freq./mean(data.freq); 41 41 data.freq = data.freq./mean(data.freq);
elseif ad_opt(i) == 3 42 42 elseif ad_opt(i) == 3
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n')) 43 43 printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n'))
data.freq = detrend(data.freq./mean(data.freq)); 44 44 data.freq = detrend(data.freq./mean(data.freq));
end 45 45 end
data.rate = fs(i); 46 46 data.rate = fs(i);
[ad, S, err, tau] = allan(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); 47 47 [ad, S, err, tau] = allan(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')) 48 48 loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s'))
leg{i} = strcat(filename, ' col', num2str(col(i))); 49 49 leg{i} = strcat(filename, ' col', num2str(col(i)));
axis(10.^ceil(log10([tau(1), tau(end)]))) 50 50 axis(10.^ceil(log10([tau(1), tau(end)])))
hold on 51 51 hold on
if arg_save ==1 52 52 if arg_save ==1
filenameout = strcat(strsplit(filename,'.'){1},'-',num2str(col(i)),'.sig') 53 53 filenameout = strcat(strsplit(filename,'.'){1},'-',num2str(col(i)),'.sig')
datatosave = horzcat(tau', ad', err'); 54 54 datatosave = horzcat(tau', ad', err');
save('-text', filenameout , 'datatosave'); 55 55 save('-ascii', '-double', '-tabs', filenameout , 'datatosave');
end 56 56 end
end 57 57 end
legend(leg) 58 58 legend(leg)
input("Press to continue..."); 59 59 input("Press to continue...");
#!/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});
fs = eval(argv(){4}); 6 6 fs = eval(argv(){4});
mult1 = eval(argv(){5}); 7 7 mult1 = eval(argv(){5});
mult2 = eval(argv(){6}); 8 8 mult2 = eval(argv(){6});
driftRem1 = eval(argv(){7}); 9 9 driftRem1 = eval(argv(){7});
driftRem2 = eval(argv(){8}); 10 10 driftRem2 = eval(argv(){8});
arg_save = eval(argv(){9}); 11 11 arg_save = eval(argv(){9});
12 12
if length(col1) == length(mult1) 13 13 if length(col1) == length(mult1)
figure 14 14 figure
hold all 15 15 hold all
grid on 16 16 grid on
cc = 'bkcgmry'; 17 17 cc = 'bkcgmry';
for i = [1:length(col1)] 18 18 for i = [1:length(col1)]
data.freq = load(filename)(:,col1(i)).*mult1(i); 19 19 data.freq = load(filename)(:,col1(i)).*mult1(i);
data.freq2 = load(filename)(:,col2(i)).*mult2(i); 20 20 data.freq2 = load(filename)(:,col2(i)).*mult2(i);
data.freq = data.freq(1:min(length(data.freq), length(data.freq2))); 21 21 data.freq = data.freq(1:min(length(data.freq), length(data.freq2)));
data.freq2 = data.freq2(1:min(length(data.freq), length(data.freq2))); 22 22 data.freq2 = data.freq2(1:min(length(data.freq), length(data.freq2)));
if driftRem1 == 1 23 23 if driftRem1 == 1
printf('\ndata1 drift removed\n\n') 24 24 printf('\ndata1 drift removed\n\n')
data.freq = detrend(data.freq); 25 25 data.freq = detrend(data.freq);
end 26 26 end
if driftRem2 == 1 27 27 if driftRem2 == 1
printf('\ndata2 drift removed\n\n') 28 28 printf('\ndata2 drift removed\n\n')
data.freq2 = detrend(data.freq2); 29 29 data.freq2 = detrend(data.freq2);
end 30 30 end
data.rate = fs(i); 31 31 data.rate = fs(i);
[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); 32 32 [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')) 33 33 loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s'))
leg{i} = strcat(filename, ' cov col', num2str(col1(i)), ' col', num2str(col2(i))); 34 34 leg{i} = strcat(filename, ' cov col', num2str(col1(i)), ' col', num2str(col2(i)));
axis(10.^ceil(log10([tau(1), tau(end)]))) 35 35 axis(10.^ceil(log10([tau(1), tau(end)])))
hold on 36 36 hold on
if arg_save ==1 37 37 if arg_save ==1
filenameout = strcat(strsplit(filename,'.'){1},'-cov-',num2str(col1),num2str(col2),'.sig') 38 38 filenameout = strcat(strsplit(filename,'.'){1},'-cov-',num2str(col1),num2str(col2),'.sig')
datatosave = horzcat(tau', ad', err'); 39 39 datatosave = horzcat(tau', ad', err');
save('-text', filenameout , 'datatosave'); 40 40 save('-ascii', '-double', '-tabs', filenameout , 'datatosave');
end 41 41 end
end 42 42 end
legend(leg) 43 43 legend(leg)
input("Press to continue..."); 44 44 input("Press to continue...");
end 45 45 end
#!/usr/bin/octave-cli 1 1 #!/usr/bin/octave-cli
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
filename = argv(){1}; 7 7 filename = argv(){1};
col = eval(argv(){2}); 8 8 col = eval(argv(){2});
mult = eval(argv(){3}); 9 9 mult = eval(argv(){3});
ad_opt = eval(argv(){4}); 10 10 ad_opt = eval(argv(){4});
11 11
if length(col) == length(mult) 12 12 if length(col) == length(mult)
for i = [1:length(col)] 13 13 for i = [1:length(col)]
data.freq = load(filename)(:,col(i)).*mult(i); 14 14 data.freq = load(filename)(:,col(i)).*mult(i);
if ad_opt(i) == 1 15 15 if ad_opt(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 ad_opt(i) == 2 18 18 elseif ad_opt(i) == 2
printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\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 ad_opt(i) == 3 21 21 elseif ad_opt(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
data.rate = 1; 25 25 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); 26 26 [ad, S, err, tau] = allan(data, 2.^[0:nextpow2(length(data.freq))-3]./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0);
ad_tosave{i} = vertcat(ad, err)'; 27 27 ad_tosave{i} = vertcat(ad, err)';
end 28 28 end
tosave = tau'; 29 29 tosave = tau';
for i = [1:length(col)] 30 30 for i = [1:length(col)]
tosave = horzcat(tosave, ad_tosave{i}); 31 31 tosave = horzcat(tosave, ad_tosave{i});
end 32 32 end
#!/usr/bin/octave-cli 1 1 #!/usr/bin/octave-cli
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
filename = argv(){1}; 7 7 filename = argv(){1};
col = eval(argv(){2}); 8 8 col = eval(argv(){2});
mult = eval(argv(){3}); 9 9 mult = eval(argv(){3});
ad_opt = eval(argv(){4}); 10 10 ad_opt = eval(argv(){4});
11 11
if length(col) == length(mult) 12 12 if length(col) == length(mult)
for i = [1:length(col)] 13 13 for i = [1:length(col)]
data.freq = load(filename)(:,col(i)).*mult(i); 14 14 data.freq = load(filename)(:,col(i)).*mult(i);
if nargin == 4 15 15 if nargin == 4
if ad_opt(i) == 1 16 16 if ad_opt(i) == 1
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n')) 17 17 printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n'))
data.freq = detrend(data.freq); 18 18 data.freq = detrend(data.freq);
elseif ad_opt(i) == 2 19 19 elseif ad_opt(i) == 2
printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n')) 20 20 printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n'))
data.freq = data.freq./mean(data.freq); 21 21 data.freq = data.freq./mean(data.freq);
elseif ad_opt(i) == 3 22 22 elseif ad_opt(i) == 3
printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n')) 23 23 printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n'))
data.freq = detrend(data.freq./mean(data.freq)); 24 24 data.freq = detrend(data.freq./mean(data.freq));
end 25 25 end
endif 26 26 endif
data.rate = 1; 27 27 data.rate = 1;
[ad, S, err, tau] = allan_overlap(data, 2.^[0:nextpow2(length(data.freq))-3]./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0); 28 28 [ad, S, err, tau] = allan_overlap(data, 2.^[0:nextpow2(length(data.freq))-3]./data.rate, strcat(strsplit(filename, '/'){end}, num2str(i)), 0);
ad_tosave{i} = vertcat(ad, err)'; 29 29 ad_tosave{i} = vertcat(ad, err)';
end 30 30 end
tosave = tau'; 31 31 tosave = tau';
for i = [1:length(col)] 32 32 for i = [1:length(col)]
tosave = horzcat(tosave, ad_tosave{i}); 33 33 tosave = horzcat(tosave, ad_tosave{i});
end 34 34 end