Discussion :

[nadir18]

bonjour a vous membre de forum
je suis etudiant en informatique et debutant avec matlab ..j ai besoin svp de votre aide pour developpez en matlab la marche de Jarvis et le parcours de Graham graphiquement en 2d ,j ai essayer a maintes reprises de le programmer mais a chaque fois ce fut un echec et j en ai vraiment besoin.j espere vraiment trouver de l aide aupres de vous.merci d'avance

[Invité]

Bonjour,

Montre-nous ton code même si c'est faux.
Pour Jarvis, tu peux regarder cette discussion

[nadir18]

voici mon code merci de me corriger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
type 
  TVector = record X,Y: Double; end;
  TVectorArray = Array of TVector;
 
function Jarvis(T: TVectorArray; N: Integer): TVectorArray;
 
  function SensDirect(A,B,C: TVector): Boolean;
  begin
    Result:=(((C.X-A.X)*(B.Y-A.Y)-(B.X-A.X)*(C.Y-A.Y))>0);
  end;
 
var
  I,A0,A,B: Integer;
  MinX: Double;
begin
 
  SetLength(Result,0);
 
  // Recherche du point le plus à gauche
  MinX:=T[0].X;
  A0:=0;
  For I:= 0 to N-1 do
    if (T[I].X<=MinX) then
      begin
        MinX:=T[I].X;
        A0:=I;
      end;
 
  // Génération de l'enveloppe convexe
  A:=A0;
  Repeat
    if (A=0) then
      begin
        B:=1;
        For I:= 2 to N-1 do
          if SensDirect(T[A],T[B],T[I]) then B:=I;
      end
    else
      begin
        B:=0;
        For I:= 1 to A-1 do
          if SensDirect(T[A],T[B],T[I]) then B:=I;
        For I:= A+1 to N-1 do
          if SensDirect(T[A],T[B],T[I]) then B:=I;
      end;
    SetLength(Result,Length(Result)+1);
    Result[Length(Result)-1]:=T[B];
    A:=B;
  Until (A=A0);
 
end;

[Jerome Briot]

voici mon code merci de me corriger

1. ce code n'est pas du code MATLAB mais du Pascal
2. ce code n'est pas de toi => http://www.uzit.fr/algorithmique/marche-jarvis.html

Donc montre nous ton code MATLAB.

[nadir18]

je sais bien que ce n'est pas mon code matlab.je n ai pas solicité votre aide si j' avais su le faire SEUL.j ai fais des essaies qui n'ont pas abouties.et je ne suis pas present sur ce forum pour avoir un travail fini et sans efforts de ma part.

[Invité]

et je ne suis pas present sur ce forum pour avoir un travail fini et sans efforts de ma part.

Et donc qu'attendais-tu que l'on fasse du code que tu nous as fourni?

j ai fais des essaies qui n'ont pas abouties

Donc montres-nous les.

[nadir18]

de me guider et de me montrer les etapes a suivre

[nadir18]

ayant terminé en matlab la marche jarvis j ai besoin svp d'une aide (qui sera tres precieuse ) une fonction pour eliminer les angles convexe pour le circuit polaire

[Invité]

La réponse se trouve dans le code Pascal que tu nous as présenté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function SensDirect(A,B,C: TVector): Boolean;
begin
    Result:=(((C.X-A.X)*(B.Y-A.Y)-(B.X-A.X)*(C.Y-A.Y))>0);
end;

Il te suffit de vérifier si la sortie est positive ou négative.

[nadir18]

pouvez vous m aider a realiser cette fonction en matlab?

[Invité]

Tout dépend du reste de ton code: en particulier la forme de tes points.
Sont-ils sous la forme de structure comme dans le code Pascal? Si c'est le cas, c'est pratiquement du recopiage
Sous simple forme de vecteurs de 2 valeurs?
Autre: ...?

[nadir18]

vecteur de 2 valeur

[Invité]

Dans ce cas:
A.X devient A(1)
A.Y devient A(2)
de même pour B et C... je ne vois pas où est la difficulté

[nadir18]

la principale difficulté c est que je suis tout nouveau avec matlab donc j prouve beaucoup de difficulté