aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Haversine-formula/Sidef/haversine-formula.sidef
View file

@ -1,17 +1,17 @@
class EarthPoint(lat, lon) {
const earth_radius = 6371; # mean earth radius
const radian_ratio = Math.pi/180;
const earth_radius = 6371 # mean earth radius
const radian_ratio = Num.pi/180
# accessors for radians
method latR { self.lat * radian_ratio };
method lonR { self.lon * radian_ratio };
method latR { self.lat * radian_ratio }
method lonR { self.lon * radian_ratio }
method haversine_dist(EarthPoint p) {
var arc = EarthPoint(
self.lat - p.lat,
self.lon - p.lon,
);
)
var a = Math.sum(
(arc.latR / 2).sin**2,
@ -19,11 +19,11 @@ class EarthPoint(lat, lon) {
self.latR.cos * p.latR.cos
)
earth_radius * a.sqrt.asin * 2;
earth_radius * a.sqrt.asin * 2
}
}
var BNA = EarthPoint.new(lat: 36.12, lon: -86.67);
var LAX = EarthPoint.new(lat: 33.94, lon: -118.4);
var BNA = EarthPoint.new(lat: 36.12, lon: -86.67)
var LAX = EarthPoint.new(lat: 33.94, lon: -118.4)
say BNA.haversine_dist(LAX); # => 2886.44444283798329974715782394574672
say BNA.haversine_dist(LAX) #=> 2886.444442837983299747157823945746716...