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

Voir aussi : 10.18.10 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 parallélogramme 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.