#randomowy przyklad do sprawdzania warunkow z przekatna i symetrycznoscia
#moze nam sie trafic niespojny graf
(M10<-matrix(sample(0:1,9,replace=TRUE), nrow=3,ncol=3,byrow=TRUE))
(war<-any(diag(M10)!=0))
if(war){ #gdy przekatna nie jest zerowa
   cat('Przekatna nie jest zerowa. Zerujemy ja.\n')
   diag(M10)<-0
   print(M10)
   cat("Zobaczmy teraz co sie stanie...\n")
   print(kolorowanieHeurystyczne(M10))
} #albo wyrzuci blad ze nie symetryczna albo policzy i da wynik
if(!war){ #gdy przekatna jest zerowa; w ten sposob, by errorow nie wyrzucal
      #dla else gdy war=TRUE; teraz najwyzej sie nie wykona
   print(M10)
   cat('Przekatna jest zerowa. Zobaczmy teraz co sie stanie...\n')
   kolorowanieHeurystyczne(M10)
} #albo wyrzuci blad ze nie symetryczna albo policzy i da wynik