### 9.19.7 Savoir si on a un triangle rectangle ou si on a un rectangle : `is_rectangle est_rectangle`

Voir aussi : 10.13.11 pour la géométrie 3-d.
`est_rectangle` est une fonction booléenne ayant comme argument trois ou quatre points ou un objet géométrique.
`est_rectangle` vaut 1 (resp 2 ou 3) si les trois points forment un triangle rectangle, l’angle droit étant désigné par le premier (resp second, troisième) argument ou si l’objet géométrique est un triangle rectangle,
`est_rectangle` vaut 1 (resp 2) si les quatre points forment un rectangle (resp un carré) ou si l’objet géométrique est un rectangle (resp un carré), et vaut 0 sinon.
On tape :

`est_rectangle(1,1+i,i)`

On obtient :

`2`

On tape :

`est_rectangle(1+i,-2+i,-2-i,1-i)`

On obtient :

`1`

On tape :

`R:=rectangle(-2-i,1-i,3,C,D);est_rectangle(R[0])`

On obtient :

`1`

En effet `R[0]` désigne un rectangle car `R` est une liste composée du rectangle et de ses sommets `C` et `D`.