Ajout de cyclencode (wow, incroyable)
This commit is contained in:
parent
3a5c532475
commit
51d2e44ff8
2
Codes.ml
2
Codes.ml
@ -146,5 +146,7 @@ let decoder code z =
|
|||||||
| (_, e) -> antecedent code ((lxor) z e)
|
| (_, e) -> antecedent code ((lxor) z e)
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
let cyclencode code (x:vecteur) :vecteur = polmul code.pol x;;
|
||||||
|
|
||||||
|
|
||||||
(* Voilà *)
|
(* Voilà *)
|
||||||
2
Test.ml
2
Test.ml
@ -75,3 +75,5 @@ let cocylined = cycliqueVersLineaire cocycl;;
|
|||||||
print_matrice 7 cocylined.g;;
|
print_matrice 7 cocylined.g;;
|
||||||
print_matrice 4 cocylined.h;;
|
print_matrice 4 cocylined.h;;
|
||||||
distance_minimale cocylined;;
|
distance_minimale cocylined;;
|
||||||
|
|
||||||
|
print_vecteur 7 (cyclencode cocycl 0b1010);;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user