Three word location: Difference between revisions
m
→{{header|Phix}}: syntax coloured, made p2js compatible
No edit summary |
m (→{{header|Phix}}: syntax coloured, made p2js compatible) |
||
Line 946:
=={{header|Phix}}==
{{trans|Go}}
<!--<lang Phix>(phixonline)-->
<span style="color: #000080;font-style:italic;">--
-- demo\rosetta\Three_word_location.exw
-- ====================================
--</span>
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
<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>
<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>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<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>
<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>
<span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">function</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;">"Starting figures:\n"</span><span style="color: #0000FF;">)</span>
<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>
<span style="color: #000000;">lon</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">81.5638</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>
<span style="color: #000080;font-style:italic;">-- convert lat and lon to positive integers</span>
<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>
<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>
<span style="color: #000080;font-style:italic;">-- build 43 bit BigInt comprising 21 bits (lat) and 22 bits (lon)
-- (std phix atoms have 53/64 bits of precision on 32/64 bit, both plenty)</span>
<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>
<span style="color: #000080;font-style:italic;">-- isolate relevant bits</span>
<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>
<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>
<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>
<span style="color: #000080;font-style:italic;">-- convert to word format</span>
<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>
<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>
<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>
<span style="color: #000080;font-style:italic;">-- and print the results</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;">"\nThree word location is:\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;">" %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>
<span style="color: #000080;font-style:italic;">-- now reverse the procedure</span>
<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>
<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>
<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>
<span style="color: #000080;font-style:italic;">-- NB: or_bits (likewise ||), being expressly 32-bit, is NOT appropriate here...</span>
<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>
<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>
<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>
<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>
<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>
<span style="color: #000080;font-style:italic;">-- and print the results</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;">"\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>
<!--</lang>-->
{{out}}
<pre>
|