[PD] haversine formula in Pd

[Max]

I tried to implement the Haversine formula in Pd which should give you
the distance in km between two lat long coordinates.

https://en.wikipedia.org/wiki/Haversine_formula
http://www.movable-type.co.uk/scripts/latlong.html

One huge obstacle is the imprecision of the 32bit floats, but even
without that I can't get the formula to work. I kept 3 failed
implementations in the test-case.

http://rosettacode.org/wiki/Haversine_formula

Could someone give me a hand please?
-------------- next part --------------
A non-text attachment was scrubbed...
Name: deg2rad.pd
Type: text/x-puredata
Size: 417 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20150607/56d3c718/attachment-0003.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: loca.haversine.pd
Type: text/x-puredata
Size: 3904 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20150607/56d3c718/attachment-0004.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: loca.haversine-help.pd
Type: text/x-puredata
Size: 719 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20150607/56d3c718/attachment-0005.bin>