clear all
a=randperm(16) ;
b=randperm(16) ;
a=a.*31;
b=b.*31;

 kroa=[a',b'] ;

%kroa=reshape(kroa,16,2) ;
 [besttour t1 l1]=tspsiman_me(kroa)	;
 
aa=randperm(16) ;
bb=randperm(16) ;
aa=aa.*31 ;
bb=bb.*31 ;

 kroa_1=[aa',bb'] ;
  besttour=	tspsiman_me(kroa_1)	;