b@0: function endPairComp(hf)
b@0: 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: % 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: dat=get(hf,'userdata');
b@0: sesDat=dat.sesDat;
b@0: reREAD=sesDat.reREAD;
b@0: rsl=dat.rsl;
b@0: 
b@0: noComb=dat.noComb;
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: % collect datas in .rsl 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: if noComb<=dat.nbComb
b@0:    if dat.nbQuest
b@0:       for noQuest=1:dat.nbQuest
b@0:          rsl.quest(noComb,noQuest)=get(dat.hQuest(noQuest),'value');
b@0: %          if(rsl.quest(noComb,noQuest))
b@0: %              disp(noQuest); % in case of crash
b@0: %          end
b@0:       end
b@0:    end
b@0:    if dat.nbScale
b@0:       for noScale=1:dat.nbScale
b@0:          rsl.scale(noComb,noScale)=get(dat.hScale(noScale),'value');
b@0:       end
b@0:    end
b@0:    if dat.COM
b@0:       rsl.com{noComb}=get(dat.hCom,'string');
b@0:    end   
b@0:    
b@0:    dat.rsl=rsl;
b@0:    dat.noComb=noComb+1;
b@0:    set(hf,'name',sprintf('%d tests left / pair #%d/%d',sesDat.nbTst-sesDat.noTst,dat.noComb,dat.nbComb));
b@0:    set(hf,'userdata',dat);
b@0:    
b@0:    % reLAUNCH the next pair comparison
b@0:    
b@0:    if noComb<dat.nbComb
b@0:       if reREAD
b@0:          if dat.nbQuest
b@0:             for noQuest=1:dat.nbQuest
b@0:                set(dat.hQuest(noQuest),'value',rsl.quest(noComb+1,noQuest));
b@0:             end
b@0:          end
b@0:          if dat.nbScale
b@0:             for noScale=1:dat.nbScale
b@0:                set(dat.hScale(noScale),'value',rsl.scale(noComb+1,noScale));
b@0:             end
b@0:          end
b@0:          if dat.COM
b@0:             set(dat.hCom,'string',rsl.com{noComb+1});
b@0:          end         
b@0:       else
b@0:          if dat.nbQuest
b@0:             set(dat.hQuest,'value',0);
b@0:          end
b@0:          if dat.nbScale
b@0:             for noScale=1:dat.nbScale
b@0:                set(dat.hScale(noScale),'value',get(dat.hScale(noScale),'min'));
b@0:             end
b@0:          end
b@0:          if dat.COM
b@0:             set(dat.hCom,'string',dat.stri);
b@0:          end         
b@0:       end
b@0:       return
b@0:    end
b@0: end
b@0: 
b@0: 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: % Timer 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: rsl.duration=etime(clock,dat.t0);
b@0: 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: % generate a small report file 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: 
b@0: fid=reportTest(sesDat,rsl,'PAIR COMPARISONS');
b@0: 
b@0: if dat.nbScale
b@0:    fprintf(fid,'--------- scales ');eol(fid);
b@0:    for noScale=1:dat.nbScale
b@0:       fprintf(fid,'Scale #%d : %s',noScale,dat.scale(noScale).name);eol(fid);
b@0:    end
b@0: end
b@0: 
b@0: fprintf(fid,'------------- COMBINATIONS ');eol(fid);eol(fid);
b@0: fprintf(fid,'A\t B\t ');eol(fid);
b@0: 
b@0: for noComb=1:dat.nbComb
b@0:    fprintf(fid,'%d \t %d ',dat.comb(noComb,1),dat.comb(noComb,2));eol(fid);
b@0: end
b@0: eol(fid);
b@0: 
b@0: for noComb=1:dat.nbComb
b@0:     fprintf(fid,'%d \t %d ',dat.comb(noComb,1),dat.comb(noComb,2));eol(fid);
b@0:     if (dat.comb(noComb,1) - dat.comb(noComb,2) == 0)
b@0:         if (rsl.quest(noComb,3)==0)
b@0:             disp('FALSE UNEQUAL');
b@0:             fprintf(fid,'PROBLEM: False unequal');
b@0:         end
b@0:     else if (rsl.quest(noComb,3)) 
b@0:             if (dat.comb(noComb,1) - dat.comb(noComb,2) ~= 0)
b@0:                 disp('FALSE EQUAL');
b@0:                 fprintf(fid,'PROBLEM: False equal');
b@0:             end
b@0:         end
b@0:     end
b@0:     if dat.nbScale
b@0:         fprintf(fid,'SCALES:\t');
b@0:         for noScale=1:dat.nbScale
b@0:             fprintf(fid,'%2.2f\t',rsl.scale(noComb,noScale));
b@0:         end
b@0:         eol(fid);   
b@0:     end
b@0:     if dat.nbQuest
b@0:         fprintf(fid,'QUESTS:\t');
b@0:         for noQuest=1:dat.nbQuest
b@0:             if rsl.quest(noComb,noQuest)
b@0:                 fprintf(fid,'%s',dat.quest{noQuest});eol(fid);
b@0:             end
b@0:         end
b@0:         eol(fid);   
b@0:     end
b@0:     if dat.COM
b@0:         fprintf(fid,'COM:\t');
b@0:         scom=rsl.com{noComb}';
b@0:         fprintf(fid,'%s',scom(:));eol(fid);eol(fid);
b@0:     end
b@0: end
b@0: 
b@0: fprintf(fid,'------------- LIST OF RESULTS');eol(fid);eol(fid);
b@2: 
b@0: for noComb=1:dat.nbComb
b@0:     if rsl.quest(noComb,1)
b@0:         fprintf(fid,'%d',dat.comb(noComb,1));eol(fid);
b@0:     else if rsl.quest(noComb,2)
b@0:             fprintf(fid,'%d',dat.comb(noComb,2));eol(fid);
b@0:         else
b@0:             fprintf(fid,'%d',0);eol(fid);
b@0:         end
b@0:     end
b@0: end
b@0: eol(fid);
b@0: 
b@0: fclose(fid);
b@0: 
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: % Save it
b@0: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
b@0: dat=get(hf,'userdata');
b@0: saveTest(dat,rsl,'paircomp');
b@0: