Berechnung von Koordinaten aus Waypoints

[Pleiospilos]

Hallo,
gibt es ein Tool für den hp ipaq, welches aus 3 Waypoints und den entsprechenden Entfernungen zum Cache die Koordinaten berechnen kann? :hilfe:
Vielen Dank für jede Information.

 

[KoenigDickBauch]

Mopsos

program FindP4;

VAR
 Lat1,Lon1,s1: real;
 Lat2,Lon2,s2: real;
 Lat3,Lon3,s3: real;
 Lat4,Lon4: real;
 LatA,LonA: real;
 LatB,LonB: real;
 dist: real; 
begin
   Lat1:='48 17.460';
   Lon1:=' 8 46.577';
   Lat2:='48 16.432';
   Lon2:=' 8 45.549';
   Lat3:='48 15.488';
   Lon3:=' 8 44.605';

   (* sinnvolle Testdaten berechnen *)
   Lat4:='48 16.404';
   Lon4:=' 8 45.521';

   s1:= Distance(lat1, lon1, lat4, lon4);
   s2:= Distance(lat2, lon2, lat4, lon4);
   s3:= Distance(lat3, lon3, lat4, lon4);

   (* hier geht es eigentlich los *)
   if Bogenschnitt(Lat1, Lon1, Lat2, Lon2, s1, s2, LatA, LonA, LatB, LonB) then begin
      dist:= Distance(lat3, lon3, latA, lonA);
      if abs(dist-s3)<10 then begin
         writeln(wgs84(LatA,LonA))
      end
      else begin
         dist:= Distance(lat3, lon3, latB, lonB);
         if abs(dist-s3)<10 then begin
            writeln(wgs84(LatB,LonB))
         end
         else begin
            writeln('MIST')
         end 
      end
   end
   else begin
       writeln('MIST')
   end;
end.

Ergebnis

N 48° 16.4038 E 8° 45.5219

 

[Pleiospilos]

Hallo,
danke für den Code.
Sieht ja aus wie Pascal oder Delphi.
Könntest Du mir noch die Routinen Bogenschnitt, Distance und WGS84 zur Verfügung stellen?

Danke.

 

[KoenigDickBauch]

Hallo,
danke für den Code.
Sieht ja aus wie Pascal oder Delphi.

Das ist die Scriptsprachen von Mopsos.

 

[Pleiospilos]

Hallo,
danke für den Hinweis, Mopsos war mir leider bisher noch nicht geläufig und ich hatte auch den Verweis über dem Codeblock übersehen.
Ich werde mir Mopsos morgen mal ansehen.

 

[Pleiospilos]

Hallo KoenigDickBauch,
hat prima funktioniert, vielen Dank hierfür und generell für den Tipp zu Mopsos.

 

[KoenigDickBauch]

Das hört man gern. ps:

im geocaching-kurpfalz ist es einen kleinen Bereich wo Anwender sich austauschen.