#! /usr/bin/octave-3.2.3 -qf

arg_list = argv ();
if (size(arg_list)(1)!=5)
  printf("Usage: gossip m-files-dir data-file-dir v kstart kstop\n");
  exit(0);
endif
dir = arg_list{2};
addpath(arg_list{1});
kstart=str2num(arg_list{4});
kstop=str2num(arg_list{5});
v=str2num(arg_list{3});

printf("computing one round gossip\n");
load(strcat(dir,"/graph.dat"),"A");

Gtol=[];
Grank=[];
r=0;
variance=0;

for k1=kstart:4:kstop
  load(strcat(dir,"k1-",num2str(k1),"-TOL.mat"),"VTol");
  load(strcat(dir,"k1-",num2str(k1),"-rank.mat"),"Vrank");
  i=0;
  for k2=0:4:120-k1
    i=i+1;
    printf("k1=%d k2=%d\n",k1,k2);
    Gtol = [Gtol, one_round_gossip_vote_with_failure(A,VTol(:,i),v)];
    Grank = [Grank, one_round_gossip_vote_with_failure(A,Vrank(:,i),v)];
  endfor
  save(strcat(dir,"k1-gossip-",num2str(k1),"-TOL.mat"),"Gtol");
  save(strcat(dir,"k1-gossip-",num2str(k1),"-rank.mat"),"Grank");
endfor


