|< 1 2 3 >| | 27 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use strict;
use Math::Trig;
#Geodaten Ort1 (Bochum)
my $B1 = 7.2167121725093;
my $L1 = 51.4840049423119;
#Geodaten Ort2 (Essen)
my $B2 = 7.008753968688;
my $L2 = 51.4586961144773;
#Kreiszahl Pi
my $pi = 3.14159;
#Umrechnung von Grad in Radius
my $breite1 = $B1 / 180 * $pi;
my $laenge1 = $L1 / 180 * $pi;
my $breite2 = $B2 / 180 * $pi;
my $laenge2 = $L2 / 180 * $pi;
#Entfernungsberechnung
my $entfernung = acos(sin($breite1)*sin($breite2) + cos($breite1)*cos($breite2)*cos($laenge2-$laenge1));
#Erdrundung einbeziehen
$entfernung = $entfernung * 6378.137;
print "Entfernung (Luftlinie): $entfernung km\n";
|< 1 2 3 >| | 27 Einträge, 3 Seiten |