%% write_queue.m
% Script scans coordinate directory for all available coordinates and
% reads the coorsponding polar output if available.  If polar output does
% not show signs of stall, or does not exist, it will write the necessary
% run data to the queue directory in a .mat file.

clc
clear
dirlist = dir('airfoils/*.dat');
for ii = 1:length(dirlist)
    fname = dirlist(ii).name;
    foil = fname(1:length(fname)-4);
    res = [foil,'.polar'];
    if length(dir(['queue/',foil,'.mat'])) == 0
        if ~check_foil(res)
            disp(['Writing Queue for ',foil])
            write_qf(fname,foil);
        end
    end
end