### 6.48.12 Forme normale de Hermite : `ihermite`

`ihermite` a comme argument une matrice à coefficient dans ℤ.
`ihermite` renvoie les matrices `U` et `B` tels que `U` est inversible dans ℤ, `B` est triangulaire supérieure et vérifie : `B=U*A`.
Pour faire cela on effectue la réduction sous forme échelonnée (de type Gauss) d’une matrice d’entiers en utilisant uniquement des opérations de lignes inversibles dans les entiers, en d’autres termes si `A` est la matrice originale, on calcule une matrice `U` inversible dans ℤ et une matrice `B` triangulaire superieure telles que `B = U*A`.
De plus les coefficients au-dessus de la diagonale de `A` sont en module inferieurs au pivot de la colonne divisé par 2. Puisque `det(U) = 1`, on passe aussi de `B` a `A` uniquement avec des manipulations de ligne a coefficients entiers.
On tape :

`A:=[[9,-36,30],[-36,192,-180],[30,-180,180]]; U,B:=ihermite(A)`

On obtient :

`[[9,-36,30],[-36,192,-180],[30,-180,180]], [[13,9,7],[6,4,3],[20,15,12]],[[3,0,30],[0,12,0],[0,0,60]]`

Application: Calcul d’une Z-base d’un noyau
Soit `M` la matrice dont on cherche le noyau.
Soit `U,A:=ihermite(transpose(M))`.
On a `A=U*transpose(M)` donc `transpose(A)=M*transpose(U)`.
Les colonnes nulles de `transpose(A)` correspondent donc aux colonnes de `transpose(U)` qui sont dans `Ker(M)`. Ainsi, les lignes nulles de `A` correspondent aux lignes de `U` qui sont dans `Ker(M)`.
Exemple
Si `M:=[[1,4,7],[2,5,8],[3,6,9]]`
`U,A:=ihermite(tran(M))` renvoie :
`U:=[[-3,1,0],[4,-1,0],[-1,2,-1]]` et
`A:=[[1,-1,-3],[0,3,6],[0,0,0]]`
`A[2]=[0,0,0]` donc une base de `Ker(M)` est composée de `U[2]=[-1,2,-1]`.
On vérifie que l’a bien `M*U[2]=[0,0,0]`.