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

Voir aussi : 9.19.9 pour la géométrie plane.
`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 sont coplanaires et 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([0,0,0],[2,0,0],[3,1,0],[1,1,0])`

On obtient :

`1`

On tape :

`K:=parallelogramme([0,0,0],[2,0,0],[1,1,0]);est_parallelogramme(K)`

`K` est le parallelogramme `ABCD` de sommets [0,0,0],[2,0,0],[3,1,0], [1,1,0]. On tape :

`est_parallelogramme([-1,0,0],[0,1,0],[2,0,0],[0,-1,0])`

On obtient :

`0`

Attention On doit taper :

`K:=parallelogramme([0,0,0],[2,0,0],[1,1,0],D); est_parallelogramme(K[0])`

Pour obtenir :

`1`

car K est une liste composée d’un parallélogramme et du point D