Prty::Math - Mathematische Funktionen
Prty::Object
$pi = $class->pi;
$y = $class->roundTo($x,$n); $y = $class->roundTo($x,$n,$normalize);
Runde $x auf $n Nachkommastellen und liefere das Resultat zurück.
Ist $normalize "wahr", wird die Zahl nach der Rundung mit normalizeNumber() normalisiert.
Bei $n > 0 rundet die Methode mittels
$y = sprintf '%.*f',$n,$x;
bei $n == 0 mittels roundToInt().
$n = $class->roundToInt($x);
Runde Zahl $x zu ganzer Zahl und liefere das Resultat zurück, nach folgender Regel:
Für Nachkommastellen < .5 runde ab, für Nachkommastellen >= .5 runde auf. Für negative $x ist es umgekehrt.
Folgender Ansatz funktioniert nicht
$n = sprintf '%.0f',$x;
denn dieser gibt inkonsistente Ergebnisse
0.5 => 0 1.5 => 2 2.5 => 2
($minRounded,$maxRounded) = $class->roundMinMax($min,$max);
Die Methode rundet $min ab und $max auf, so dass geeignete Bereichsgrenzen für eine Diagrammskala entstehen.
Sind $min und $max gleich, schaffen wir einen künstlichen Bereich ($min-1,$max+1).
Die Rundungsstelle leitet sich aus der Größe des Bereichs $max-$min her.
8.53, 8.73 -> 8.5, 8.8
8.53, 8.53 -> 7, 10
$gcd = $class->gcd($a,b);
Berechne den größten gemeinsamen Teiler (greatest common divisor) der beiden natürlichen Zahlen $a und $b und liefere diesen zurück. Die Methode ist nach dem Euklidschen Algorithmus implementiert.
($latitude,$longitude) = $class->geoMidpoint(\@coordinates);
Berechne den geografischen Mittelpunkt der Geo-Koordination (plus optionaler Gewichtung) und liefere diesen zurck.
Beschreibung des Alogrithmus siehe http://www.geomidpoint.com/example.html
Array von Geo-Koordinaten. Eine einzelne Geo-Koordinate ist ein Tipel [$latitude,$logitude,$weight], wobei die Gewichtung $weight optial ist. Wenn die Gewichtung fehlt, wird als Wert 1 angenommen.
Breite und Länge des geografischen Mittelpunkts
$rad = $class->degreeToRad($degree);
$degree = $class->radToDegree($rad);
$dezDeg = $class->geoToDegree($deg,$min,$sec,$dir);
Wandele eine geographische Ortsangabe in Grad, Minuten, Sekunden, Himmelsrichtung in eine dezimale Gradzahl und liefere diese zurück.
50 6 44 N -> 50.11222 50 6 44 S -> -50.11222
$km = $class->geoDistance($lat1,$lon1,$lat2,$lon2);
Berechne die Entfernung zwischen den beiden Geokoordinaten ($lat1,$lon1) und (lat2,$lon2) und liefere die Distanz in Kilometern zurück. Die Angabe der Geokoordinaten ist in Grad.
Der Berechnung liegt die Formel zugrunde:
km = 1.852*60*180/pi*acos( sin($lat1*pi/180)*sin($lat2*pi/180)+ cos($lat1*pi/180)*cos($lat2*pi/180)*cos(($lon2-$lon1)*pi/180) )
Abstand zw. zwei Längengraden (359. und 360.) am Äquator:
sprintf '%.2f',Prty::Math->geoDistance(0,359,0,360); # -> 111.12
Abstand zw. zwei Längengraden am Pol:
Prty::Math->geoDistance(90,359,90,360); # -> 0
Prof. Dirk Reichhardt - Hinweise zur Berechnung von Abständen
Blog Martin Kompf - Entfernungsberechnung
$km = $class->latitudeDistance($lat);
Liefere den Abstand zwischen zwei Längengraden bei Breitengrad $lat. Die Methode ist eigentlich nicht nötig, da sie einen Spezialfall der Mehode geoDistance() behandelt. Die Formel stammt von Herrn Petersen.
1.108
Frank Seitz, http://fseitz.de/
Copyright (C) 2017 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Prty, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Prty
CPAN shell
perl -MCPAN -e shell install Prty
For more information on module installation, please visit the detailed CPAN module installation guide.