C# :: Aufgabe #344

1 Lösung Lösung öffentlich

Landeablage Fallschirmspringer

Fortgeschrittener - C# von JKooP - 16.11.2020 um 12:34 Uhr
Fallschirmspringer versuchen stets ihre vorgegebene Landezone (rot) zu treffen. Dennoch kommt es häufiger vor, dass aufgrund von unvorhergesehenen Einflüssen wie Scher- und Bodenwinde diese auch mal verfehlt wird (blau, orange, grün). Landeablagen, die radial einen Wert größer als 100m haben müssen dokumentiert werden. Dabei werden die Entfernung und die Richtung zum Soll- Ziel ermittelt. Die Koordinate (UTM) der Soll-Landezone ist bekannt.
Der Ist- Landepunkt wird mit einem GPS- Modul als Koordinate im UTM- Verfahren (WGS-84) ermittelt. Die Skizze im Anhang soll dies verdeutlichen.

Beispielkoordinate:

Ost: 374200
3: 100km- Quadrat
74200: Angabe in Meter -> 74200m (für Berechnung wichtig)

Nord: 5500150
55: 100km- Quadrat
00150: Angabe in Meter -> 150m (für Berechnung wichtig)

UTM: 374200 5500150


Beispiel zur Berechnung:

Soll- Koordinate: [Ost: 383000, Nord: 5500010]
Ist- Koordinate: [Ost: 383320, Nord: 5500220]

Wie groß sind die Landeablage in Meter und die Richtungsablage in Grad zu geografisch Nord?
Schreibe ein Programm, mit dem es möglich ist, jegliche Ablage in beliebige Richtung zu bestimmen.

Lösungen:

vote_ok
von JKooP (9900 Punkte) - 03.01.2021 um 11:01 Uhr
NET 5.x; C# 9.x
Quellcode ausblenden C#-Code
using System;
using static System.Math;

Coordinate target = new(383000, 5500010);
Coordinate actual = new(383320, 5500220);
PairOfCoordinates pair = new (target, actual);
DropZoneDiff diff = new (pair);
Console.WriteLine(diff);

enum Quad { I = 90, II = 180, III = 270, IV = 360 }

class DropZoneDiff
{
    public DropZoneDiff(PairOfCoordinates pair) => Pair = pair;
    private PairOfCoordinates Pair { get; }
    public double Distance => Round(Sqrt(Pow(Abs(Pair.Target.E - Pair.Actual.E), 2) + Pow(Abs(Pair.Target.N - Pair.Actual.N), 2)), 1);
    public Quad Quadrant => (Pair.Actual.E > Pair.Target.E, Pair.Actual.N > Pair.Target.N) switch
    {
        (true, true) =>   Quad.I,
        (true, false) =>  Quad.II,
        (false, false) => Quad.III,
        (false, true) =>  Quad.IV
    };
    public double Angle => (int)Quadrant - Round(Atan2(Abs(Pair.Target.N - Pair.Actual.N), Abs(Pair.Target.E - Pair.Actual.E)) * 180 / PI, 1);
    public override string ToString() => $"Die Ablage beträgt {Distance}m und {Angle}°.";
}

record PairOfCoordinates(Coordinate Target, Coordinate Actual);

record Coordinate(int E, int N);