Menu

Topographie [Fermé]

Gegecaux - 19 août 2009 à 10:48 - Dernière réponse :  abdelkhalek
- 16 mars 2016 à 19:22
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
Afficher la suite 

4 réponses

+5
Utile
2
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)
Cette réponse vous a-t-elle aidé ?  
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))
abdelkhalek > hz 7t - 16 mars 2016 à 19:22
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)
+1
Utile
bonjour jai un logitielle de faire tous ca topogen
mohammed de outat elhaj