Three word location: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Phix}}: syntax coloured, made p2js compatible) |
||
Line 946: | Line 946: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
{{trans|Go}} |
{{trans|Go}} |
||
<!--<lang Phix>(phixonline)--> |
|||
<lang Phix>requires("0.8.2") -- (new || && << and >> operators, pre-0.8.2 code left in as comments) |
|||
<span style="color: #000080;font-style:italic;">-- |
|||
-- demo\rosetta\Three_word_location.exw |
|||
function toWord(integer w) |
|||
-- ==================================== |
|||
return sprintf("W%05d", w) |
|||
--</span> |
|||
end function |
|||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span> |
|||
function fromWord(string ws) |
|||
<span style="color: #008080;">function</span> <span style="color: #000000;">toWord</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">w</span><span style="color: #0000FF;">)</span> |
|||
sequence r = scanf(ws,"W%05d") |
|||
<span style="color: #008080;">return</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"W%05d"</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">w</span><span style="color: #0000FF;">)</span> |
|||
integer res = r[1][1] |
|||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span> |
|||
return res |
|||
end function |
|||
<span style="color: #008080;">function</span> <span style="color: #000000;">fromWord</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">ws</span><span style="color: #0000FF;">)</span> |
|||
<span style="color: #004080;">sequence</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">scanf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ws</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"W%05d"</span><span style="color: #0000FF;">)</span> |
|||
printf(1,"Starting figures:\n") |
|||
<span style="color: #004080;">integer</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">][</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> |
|||
atom lat = 28.3852, |
|||
<span style="color: #008080;">return</span> <span style="color: #000000;">res</span> |
|||
lon = -81.5638 |
|||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span> |
|||
printf(1," latitude = %0.4f, longitude = %0.4f\n", {lat, lon}) |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Starting figures:\n"</span><span style="color: #0000FF;">)</span> |
|||
-- convert lat and lon to positive integers |
|||
<span style="color: #004080;">atom</span> <span style="color: #000000;">lat</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">28.3852</span><span style="color: #0000FF;">,</span> |
|||
integer ilat := floor((lat+90)*10000), |
|||
<span style="color: #000000;">lon</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">81.5638</span> |
|||
ilon := floor((lon+180)*10000) |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" latitude = %0.4f, longitude = %0.4f\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">lat</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">lon</span><span style="color: #0000FF;">})</span> |
|||
-- build 43 bit BigInt comprising 21 bits (lat) and 22 bits (lon) |
|||
<span style="color: #000080;font-style:italic;">-- convert lat and lon to positive integers</span> |
|||
-- (Std phix atoms have 53/64 bits of precision on 32/64 bit, both plenty) |
|||
<span style="color: #004080;">integer</span> <span style="color: #000000;">ilat</span> <span style="color: #0000FF;">:=</span> <span style="color: #7060A8;">floor</span><span style="color: #0000FF;">((</span><span style="color: #000000;">lat</span><span style="color: #0000FF;">+</span><span style="color: #000000;">90</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">10000</span><span style="color: #0000FF;">),</span> |
|||
--atom latlon := ilat*power(2,22) + ilon -- (pre-0.8.2) |
|||
<span style="color: #000000;">ilon</span> <span style="color: #0000FF;">:=</span> <span style="color: #7060A8;">floor</span><span style="color: #0000FF;">((</span><span style="color: #000000;">lon</span><span style="color: #0000FF;">+</span><span style="color: #000000;">180</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">10000</span><span style="color: #0000FF;">)</span> |
|||
atom latlon := (ilat << 22) + ilon |
|||
<span style="color: #000080;font-style:italic;">-- build 43 bit BigInt comprising 21 bits (lat) and 22 bits (lon) |
|||
-- isolate relevant bits |
|||
-- (std phix atoms have 53/64 bits of precision on 32/64 bit, both plenty)</span> |
|||
--integer w1 = and_bits(floor(latlon/power(2,28)),0x7fff), --("") |
|||
<span style="color: #004080;">atom</span> <span style="color: #000000;">latlon</span> <span style="color: #0000FF;">:=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">ilat</span> <span style="color: #0000FF;"><<</span> <span style="color: #000000;">22</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">ilon</span> |
|||
-- w2 = and_bits(floor(latlon/power(2,14)),0x3fff), |
|||
-- w3 = and_bits(latlon,0x3fff) |
|||
<span style="color: #000080;font-style:italic;">-- isolate relevant bits</span> |
|||
integer w1 = (latlon >> 28) && 0x7fff, |
|||
<span style="color: #004080;">integer</span> <span style="color: #000000;">w1</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">latlon</span> <span style="color: #0000FF;">>></span> <span style="color: #000000;">28</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">&&</span> <span style="color: #000000;">0x7fff</span><span style="color: #0000FF;">,</span> |
|||
w2 = (latlon >> 14) && 0x3fff, |
|||
<span style="color: #000000;">w2</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">latlon</span> <span style="color: #0000FF;">>></span> <span style="color: #000000;">14</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">&&</span> <span style="color: #000000;">0x3fff</span><span style="color: #0000FF;">,</span> |
|||
w3 = latlon && 0x3fff |
|||
<span style="color: #000000;">w3</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">latlon</span> <span style="color: #0000FF;">&&</span> <span style="color: #000000;">0x3fff</span> |
|||
-- convert to word format |
|||
<span style="color: #000080;font-style:italic;">-- convert to word format</span> |
|||
string w1s = toWord(w1), |
|||
<span style="color: #004080;">string</span> <span style="color: #000000;">w1s</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">toWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w1</span><span style="color: #0000FF;">),</span> |
|||
w2s = toWord(w2), |
|||
<span style="color: #000000;">w2s</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">toWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w2</span><span style="color: #0000FF;">),</span> |
|||
w3s = toWord(w3) |
|||
<span style="color: #000000;">w3s</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">toWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w3</span><span style="color: #0000FF;">)</span> |
|||
-- and print the results |
|||
<span style="color: #000080;font-style:italic;">-- and print the results</span> |
|||
printf(1,"\nThree word location is:\n") |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nThree word location is:\n"</span><span style="color: #0000FF;">)</span> |
|||
printf(1," %s %s %s\n", {w1s, w2s, w3s}) |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" %s %s %s\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">w1s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">w2s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">w3s</span><span style="color: #0000FF;">})</span> |
|||
-- now reverse the procedure |
|||
<span style="color: #000080;font-style:italic;">-- now reverse the procedure</span> |
|||
w1 = fromWord(w1s) |
|||
<span style="color: #000000;">w1</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">fromWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w1s</span><span style="color: #0000FF;">)</span> |
|||
w2 = fromWord(w2s) |
|||
<span style="color: #000000;">w2</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">fromWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w2s</span><span style="color: #0000FF;">)</span> |
|||
w3 = fromWord(w3s) |
|||
<span style="color: #000000;">w3</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">fromWord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">w3s</span><span style="color: #0000FF;">)</span> |
|||
-- NB: or_bits (likewise ||), being expressly 32-bit, is NOT appropriate here... |
|||
<span style="color: #000080;font-style:italic;">-- NB: or_bits (likewise ||), being expressly 32-bit, is NOT appropriate here...</span> |
|||
--latlon = w1*power(2,28) + w2*power(2,14) + w3 -- (pre-0.8.2) |
|||
<span style="color: #000000;">latlon</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">w1</span> <span style="color: #0000FF;"><<</span> <span style="color: #000000;">28</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">+</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">w2</span> <span style="color: #0000FF;"><<</span> <span style="color: #000000;">14</span><span style="color: #0000FF;">)</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">w3</span> |
|||
--ilat = floor(latlon/power(2,22)) |
|||
<span style="color: #000000;">ilat</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">latlon</span> <span style="color: #0000FF;">>></span> <span style="color: #000000;">22</span> |
|||
--ilon = and_bits(latlon,0x3fffff) |
|||
<span style="color: #000000;">ilon</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">latlon</span> <span style="color: #0000FF;">&&</span> <span style="color: #000000;">0x3fffff</span> |
|||
latlon = (w1 << 28) + (w2 << 14) + w3 |
|||
<span style="color: #000000;">lat</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">ilat</span><span style="color: #0000FF;">/</span><span style="color: #000000;">10000</span> <span style="color: #0000FF;">-</span> <span style="color: #000000;">90</span> |
|||
ilat = latlon >> 22 |
|||
<span style="color: #000000;">lon</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">ilon</span><span style="color: #0000FF;">/</span><span style="color: #000000;">10000</span> <span style="color: #0000FF;">-</span> <span style="color: #000000;">180</span> |
|||
ilon = latlon && 0x3fffff |
|||
lat = ilat/10000 - 90 |
|||
<span style="color: #000080;font-style:italic;">-- and print the results</span> |
|||
lon = ilon/10000 - 180 |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nAfter reversing the procedure:\n"</span><span style="color: #0000FF;">)</span> |
|||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" latitude = %0.4f, longitude = %0.4f\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">lat</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">lon</span><span style="color: #0000FF;">})</span> |
|||
-- and print the results |
|||
<!--</lang>--> |
|||
printf(1,"\nAfter reversing the procedure:\n") |
|||
printf(1," latitude = %0.4f, longitude = %0.4f\n", {lat, lon})</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |