### 9.19.9 Savoir si on a un parallélogramme : `is_parallelogram est_parallelogramme`

Voir aussi : 10.13.14 pour la géométrie 3-d.
`est_parallelogramme` est une fonction booléenne ayant comme argument quatre points ou un objet géométrique.
`est_parallelogramme` vaut 1 (resp 2, 3, 4) si les quatre points forment un parallélogramme (resp un losange, un rectangle, un carré) ou si l’objet géométrique est un parallélogramme (resp un losange, un rectangle, un carré), et vaut 0 sinon.
On tape :

`est_parallelogramme(i,-1+i,-1-i,1-i)`

On obtient :

`0`

On tape :

`est_parallelogramme(1+i,-1+i,-1-i,1-i)`

On obtient :

`1`

On tape :

`Q:=quadrilatere(1+i,-1+i,-1-i,1-i);est_parallelogramme(Q)`

On obtient :

`4`

Attention
On doit taper :

`P:=parallelogramme(-1-i,1-i,i,D);est_parallelogramme(P[0])`

Pour obtienir :

`1`

En effet c’est `P[0]` qui désigne un parallélogramme car `P` est une liste composée d’un parallélogramme et de son dernier sommet `D`.
Si on tape `affixe(D))`, on obtient `-2+i`.