#!/usr/bin/octave-cli --persist

# allanplot.m computes Allan deviation from temporal dataset
#
# 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]
#
# inputs:
#	file.dat : [string]			file to load
#	columns : int or [int]		columns to load
#	fs : int or [int]			sampling frequency
#	gains : float or [float]	gains to apply
#	ad_opt : int or [int]		ad options :
#										0 direct allan computation
#										1 drift removed ad
#										2 relative ad
#										3 relative drift removed ad
#	arg_save : [int]				save adev with one file per column :
#										0 without save
#										1 save adev result to file-col.sig

filename = argv(){1};
col = eval(argv(){2});
fs = eval(argv(){3});
mult = eval(argv(){4});
ad_opt = eval(argv(){5});
arg_save  = eval(argv(){6});

if length(col) == length(mult)
	figure
	hold all
	grid on
	cc = 'bkcgmry';
	for i = [1:length(col)]
		data.freq = load(filename)(:,col(i)).*mult(i);
		if nargin == 5
			if ad_opt(i) == 1
				printf(strcat(filename, ' col', num2str(col(i)), ' drift removed\n\n'))
				data.freq = detrend(data.freq);
			elseif ad_opt(i) == 2
				printf(strcat(filename, ' col', num2str(col(i)), ' relative ad : mean=', num2str(mean(data.freq)), '\n\n'))
				data.freq = data.freq./mean(data.freq);
			elseif ad_opt(i) == 3
				printf(strcat(filename, ' col', num2str(col(i)), ' drift removed relative ad\n\n'))
				data.freq = detrend(data.freq./mean(data.freq));
			end
		endif
		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);
		loglogerr(tau, ad, err, strcat(cc(mod(i, length(cc))), '-s'))
		leg{i} = strcat(filename, ' col', num2str(col(i)));
		axis(10.^ceil(log10([tau(1), tau(end)])))
		hold on
		if arg_save ==1
			filenameout = strcat(strsplit(filename,'.'){1},'-',num2str(col(i)),'.sig')
			datatosave = horzcat(tau', ad', err');
			save('-ascii', filenameout , 'datatosave');
		end
	end
	legend(leg)
	input("Press to continue...");
end
exit