Differenze tra le versioni di "Calcolare il rilevamento (bearing) in gradi"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Il ''bearing'' è l'angolo orizzontale (angolo azimutale) tra la direzione di un oggetto e un altro oggetto (''bearing'' relativo), o tra esso e quello del nord vero (''bearin...") |
|||
| Riga 3: | Riga 3: | ||
Più in particolare il rilevamento ''relativo'' si riferisce all'angolo tra la direzione in avanti di un oggetto e la posizione di un altro oggetto considerato. Mentre il rilevamento ''assoluto'' si riferisce all'angolo rispetto al punto dell'osservatore tra il nord magnetico (rilevamento magnetico) o il nord reale (rilevamento reale) e un oggetto. | Più in particolare il rilevamento ''relativo'' si riferisce all'angolo tra la direzione in avanti di un oggetto e la posizione di un altro oggetto considerato. Mentre il rilevamento ''assoluto'' si riferisce all'angolo rispetto al punto dell'osservatore tra il nord magnetico (rilevamento magnetico) o il nord reale (rilevamento reale) e un oggetto. | ||
| − | + | '''<FONT size=5>Ⓝ</font>''' '''ogg''' | |
| / | | / | ||
| / | | / | ||
| Riga 11: | Riga 11: | ||
Nell'esempio, che segue, si otterrà il ''bearing'' assoluto fra un punto iniziale e un secondo punto (finale), cliccando con il mouse sulla ''MapView'' su due punti differenti. | Nell'esempio, che segue, si otterrà il ''bearing'' assoluto fra un punto iniziale e un secondo punto (finale), cliccando con il mouse sulla ''MapView'' su due punti differenti. | ||
| − | + | '''Public''' Sub Form_Open() | |
| − | + | ||
| − | Public Sub Form_Open() | ||
| − | |||
Dim mp As New MapPoint | Dim mp As New MapPoint | ||
| Riga 22: | Riga 20: | ||
.W = Me.W | .W = Me.W | ||
.H = Me.H | .H = Me.H | ||
| − | .Map.AddTile("GoogleMap", "https | + | .Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "860"]).SubDomains = ["0", "1", "2"] |
.Map.Zoom = 13 | .Map.Zoom = 13 | ||
.Map["GoogleMap"].Visible = True | .Map["GoogleMap"].Visible = True | ||
| Riga 28: | Riga 26: | ||
<FONT Color=gray>' ''Imposta il centro dellla mappa:''</font> | <FONT Color=gray>' ''Imposta il centro dellla mappa:''</font> | ||
| − | mp.Lat = 41. | + | mp.Lat = 41.8902142 |
| − | mp.Lon = | + | mp.Lon = 12.4900422 |
MapView1.Map.Center = mp | MapView1.Map.Center = mp | ||
Versione delle 17:49, 18 gen 2020
Il bearing è l'angolo orizzontale (angolo azimutale) tra la direzione di un oggetto e un altro oggetto (bearing relativo), o tra esso e quello del nord vero (bearing assoluto).
Più in particolare il rilevamento relativo si riferisce all'angolo tra la direzione in avanti di un oggetto e la posizione di un altro oggetto considerato. Mentre il rilevamento assoluto si riferisce all'angolo rispetto al punto dell'osservatore tra il nord magnetico (rilevamento magnetico) o il nord reale (rilevamento reale) e un oggetto.
Ⓝ ogg | / | / |^/ |/ oss.
Nell'esempio, che segue, si otterrà il bearing assoluto fra un punto iniziale e un secondo punto (finale), cliccando con il mouse sulla MapView su due punti differenti.
Public Sub Form_Open()
Dim mp As New MapPoint
With MapView1
.X = 0
.Y = 0
.W = Me.W
.H = Me.H
.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "860"]).SubDomains = ["0", "1", "2"]
.Map.Zoom = 13
.Map["GoogleMap"].Visible = True
End With
' Imposta il centro dellla mappa:
mp.Lat = 41.8902142
mp.Lon = 12.4900422
MapView1.Map.Center = mp
End
Public Sub MapView1_MouseUp()
Dim pt As New Point(Mouse.X, Mouse.Y)
Dim f As Float
Print " Latitudine "; CStr(MapView1.Map.PixelToMapPointRel(pt).Lat); ", "; CStr(MapView1.Map.PixelToMapPointRel(pt).Lon)
br.Push(Rad(MapView1.Map.PixelToMapPointRel(pt).Lat))
br.Push(Rad(MapView1.Map.PixelToMapPointRel(pt).Lon))
If br.Count = 4 Then
' Si applica la seguente formula: θ = atan2( sin Δλ ⋅ cos φ2 , cos φ1 ⋅ sin φ2 − sin φ1 ⋅ cos φ2 ⋅ cos Δλ )
' Dove: φ1,λ1 è il punto iniziale; φ2,λ2 è il punto finale (Δλ è la differenza in longitudine)
f = ATan2(Sin(br[3] - br[1]) * Cos(br[2]), Cos(br[0]) * Sin(br[2]) - Sin(br[0]) * Cos(br[2]) * Cos(br[3] - br[1]))
Print "Bearing: "; (CInt(Deg(f)) + 360) Mod 360; "°\n\n"
br.Clear
br = New Float[]
Endif
End
