iterative_point_recovery/visualisation/Scilab/sample_data_parser.sce

if generateNewCase==1 then
    if getos()<>'Windows' then
        unix(strcat(["../../test_suite/build/./ptrc_test >",fileName]));
    else
        dos(strcat(["../../test_suite/build/ptrc_test >",fileName]));
    end
end
if exists("dat")==1 clear dat; end
if exists("rts")==1 clear rts; end
if exists("bestGuess")==1 clear bestGuess; end
dataFile=mopen(fileName,'rb');
dat.unc=mfscanf(1,dataFile,"%f");
dat.itr=mfscanf(1,dataFile,"%f");
dat.d=mfscanf(1,dataFile,"%f");
dat.n=mfscanf(1,dataFile,"%f");
dat.runs=mfscanf(1,dataFile,"%f");
for i=1:1:(dat.n)
    for j=1:1:(dat.d)
        dat.C(j,i)=mfscanf(1,dataFile,"%f");
    end
end
for i=1:1:(dat.n)
    dat.R(i)=mfscanf(1,dataFile,"%f");
end
iter=mfscanf(1,dataFile,"%f"); option=0; step=0;
while(iter>-2)
    if(iter==0) option=option+1; step=0; end
    if(iter>-1)
        step=step+1;
        rts(option).s(step).i=iter;
        for i=1:1:dat.d rts(option).s(step).P(i)=mfscanf(1,dataFile,"%f"); end
        rts(option).s(step).lambda=mfscanf(1,dataFile,"%f");
    end
    iter=mfscanf(1,dataFile,"%f");
    if(iter==-1)
        bestGuess.i=iter;
        for i=1:1:dat.d bestGuess.P(i)=mfscanf(1,dataFile,"%f"); end
        bestGuess.lambda=mfscanf(1,dataFile,"%f");
        iter=mfscanf(1,dataFile,"%f");
    end
    if(iter==-2)
        bestGuess.i=iter;
        for i=1:1:dat.d dat.realPoint(i)=mfscanf(1,dataFile,"%f"); end
        dat.error=mfscanf(1,dataFile,"%f");
    end
end
mclose(dataFile);
clear dataFilename dataFile iter i j option step;