izlocisosede.ml

(* tu not bodo funkcije, ki nam iz podane matrike (ne vem še kakšna bo) izločijo sosede v obliki kot sem jo določil 
treba bo prvo določiti meje sistema ali pač da je neskončen in da se bo torej dodajalo stvari

mogoče najprej rečemo, da so periodični boundary conditioni, je najlažje

trenutno nastavljeno na obliko

     j-2,j-1,j,j+1,j+2, j+3
	  |1| |2|	i-1
	|3|4|x|5|6|   vrstica i
	  |7| |8| |9|   i+1
	stolpec j

*)
let rec randomarray n =
match n with
| 0 -> [| |]
| k -> Array.append [|Random.bool()|] (randomarray (k-1))

let rec randommatrika m n =
match m with 
| 0 -> [| |]
| k -> Array.append [|randomarray n|] (randommatrika (m-1) n)

let (^^^) x y = x ^ " " ^ y

let izpisimatrikoint matrika =
 Array.map (fun vrstica -> print_string ((Array.fold_left (^^^) "" @@ Array.map string_of_int vrstica) ^ "\n")) matrika

let mapmatrix f mat =
Array.map (fun vrstica -> Array.map f vrstica) mat

let intofbool = function
| true -> 1
| false -> 0

let boolofint = function
| 1 -> true
| 0 -> false
| _ -> true

let izpisisosedeint sosedi = 
match sosedi with 
| prvi::drugi::tretji::cetrti::peti::sesti::sedmi::osmi::deveti::[] -> izpisimatrikoint [|[|0;prvi;0;drugi;0;0|]; [|tretji; cetrti; 0; peti; sesti; 0|]; [|0; sedmi; 0; osmi; 0; deveti|]|]
| _ -> izpisimatrikoint (Array.make_matrix 3 6 0)

let izlocisosede matrika m n i j = (* m = st_vrstic, n= st_stolpcev, i,j sta koordinati trenutnega polja *)
let prvi = matrika.((i-1+m) mod m).((j-1+n) mod n) in
let drugi = matrika.((i-1+m) mod m).((j+1)  mod n) in
let tretji = matrika.(i mod m).((j-2+n)  mod n) in
let cetrti = matrika.(i mod m).((j-1+n)  mod n) in
let peti = matrika.(i mod m).((j+1) mod n) in
let sesti = matrika.(i mod m).((j+2) mod n) in
let sedmi = matrika.((i+1) mod m).((j-1+n) mod n) in
let osmi = matrika.((i+1) mod m).((j+1) mod n) in
let deveti = matrika.((i+1) mod m).((j+3) mod n) in
prvi::drugi::tretji::cetrti::peti::sesti::sedmi::osmi::deveti::[]