Topographie

Gegecaux -  
 abdelkhalek -
Bonjour,
Je cherche en vain une formule de calcul qui devrait être simple....cependant!

Ce calcul à pour but de calculer un gisement topo ,connaissant;

les X
les Y
les delta X
les delta Y
le produit de delta X/delta Y
le Gisement brut.

Reste seulement à ajouter un des 4 cas de figure du cadran ++ = Gisement brut
+- =200-gisement brut
-- =gisement brut-200
-+ =400-gisement brut
Simple ?
Merci de m'aider
Configuration: Windows XP
Firefox 3.0.13

2 réponses

  1. JCT
     
    Bonjour,
    Je ne suis pas sur de comprendre mais tu peux utiliser ceci :
    On connais le X,Y station et le X,Y point de visée.
    calcul un deltat x : X(point)-X(station)
    calcul un deltat y : Y(point)-Y(station)
    On travail par quadrant
    Tu regardes fait un check sur le signe de deltatX et deltat Y
    Tu sais que si deltat x >0 et deltat y>0
    Gisement = arctg(|delatX|/|delatY|)
    Tu sais que si deltat x >0 et deltat y<0
    Gisement = 100+arctg(|delatY|/|delatX|)
    Tu sais que si deltat x <0 et deltat y<0
    Gisement = 200+arctg(|delatX|/|delatY|)
    Tu sais que si deltat x <0 et deltat y>0
    Gisement = 300+arctg(|delatY|/|delatX|)
    Je travail en gon, on avec des gisement donc origine à l'ordonnée (Nord)
    6
    1. hz 7t
       
      voila le mien sous VB.net,
      'Calcul des gisements GtAB
      DX = X2 - X1
      DY = Y2 - Y1
      If DX > 0 And DY > 0 Then
      Giz = Atan(DX / DY)
      ElseIf (DX > 0 And DY < 0) Or (DX < 0 And DY < 0) Then
      Giz = Atan(DX / DY) + 200
      ElseIf DX < 0 And DY > 0 Then
      Giz = Atan(DX / DY) + 400
      End If
      Gt4.Text = CStr(Round(Giz, 4))
      0
      1. abdelkhalek > hz 7t
         
        ElseIf (DX > 0 And DY < 0) Then Giz =200- Atan(DX / DY)
        ElseIf (DX < 0 And DY < 0) Then Giz =200+ Atan(DX / DY)
        ElseIf (DX < 0 And DY > 0) Then Giz =400- Atan(DX / DY)
        0
  2. simo
     
    bonjour jai un logitielle de faire tous ca topogen
    mohammed de outat elhaj
    1