Maple - définir un point

[invite6fbd5e88]

Bonjour,

Je fais un TIPE en mathématiques et j'ai quelques soucis avec Maple.

J'utilise les packages linalg, tools, plottools et geometry.

Pour définir un polygone, je définis d'abord les sommets S[i]:=[x,y], puis le polygone lui-même : PO:=polygon([S[1],...S[n]]).

Dans la suite, j'ai besoin de connaître la distance entre deux sommets. Le problème est que la commande distance ne fonctionne qu'avec des points (différents des sommets pour Maple), que je peux définir ainsi : point(A,[x,y]).
L'idéal est donc de définir un point P[i] pour chaque sommet S[i]. Mais Maple refuse d'exécuter la commande point avec un nom de point comportant un indice. Comment faire ?
-----

[invite551c2897]

Bonjour.
Un exemple :

restart:with(Student:-Precalculus):with(geometry):S[1]:=[0,0];
> S[2]:=[0,1];
> S[3]:=[1,1];
> S[4]:=[1,0];
> PO:=polygon([S[1],S[2],S[3],S[4]]);
> P[1]:=point(A,S[1]);
> P[2]:=point(B,S[3]);
> distance(P[1],P[2]);

[invite6fbd5e88]

Je comprends, mais le problème est que je suis alors contraint de définir chaque point individuellement. Je préfèrerais utiliser une commande en boucle :

[CODE]for i from 1 to n
do P[i]:=point(X,S[i])
od;[CODE]

où S[i] est le sommet dont j'ai défini les coordonnées précédemment. Le problème est justement le X. Comment le contourner ?

[invite6fbd5e88]

D'ailleurs, j'ai le même problème avec la fonction line, qui refuse l'indexation du nom des éléments.

[A voir en vidéo sur Futura]

[invite551c2897]

Une piste :

restart:with(geometry):S[1]:=[0,0];
> S[2]:=[0,1];
> S[3]:=[1,1];
> S[4]:=[1,0];
> PO:=polygon([S[1],S[2],S[3],S[4]]);
> P[1]:=point(A,S[1]);
> P[2]:=point(B,S[3]);
> d1:=distance(P[1],P[2]);
> d2:= distance(A,B);
> X:=[p1,p2,p3,p4];
> for i from 1 to 4 do
> Q[i]:=point(X[i],S[i]);
> od;
> for i from 1 to 2 do 
> d[i]:=distance(Q[i],Q[i+2]);
> od;

ou

for i from 1 to 2 do d[i]:=distance(X[i],X[i+2]);
> od;