Horizontal sundial calculations: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 291: | Line 291: | ||
18 90.500 -95.775 |
18 90.500 -95.775 |
||
</pre> |
</pre> |
||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |
||
{{works with|BBC BASIC for Windows}} |
{{works with|BBC BASIC for Windows}} |
||
Line 897: | Line 898: | ||
end program SunDial</lang> |
end program SunDial</lang> |
||
=={{header|freeBASIC}}== |
=={{header|freeBASIC}}== |
||
{{trans|BBC BASIC}} |
{{trans|BBC BASIC}} |
||
Line 1,119: | Line 1,121: | ||
HR= +5; HRA= +75.500; HLA= -18.451 |
HR= +5; HRA= +75.500; HLA= -18.451 |
||
HR= +6; HRA= +90.500; HLA= +84.225 |
HR= +6; HRA= +90.500; HLA= +84.225 |
||
</pre> |
</pre> |
||
=={{header|Haskell}}== |
=={{header|Haskell}}== |
||
Line 1,531: | Line 1,533: | ||
if x >0 then return 1 else return -1 |
if x >0 then return 1 else return -1 |
||
end sgn</lang> |
end sgn</lang> |
||
=={{header|Logo}}== |
=={{header|Logo}}== |
||
Line 1,969: | Line 1,970: | ||
5 PM 75.500 -18.451 |
5 PM 75.500 -18.451 |
||
6 PM 90.500 -95.775</pre> |
6 PM 90.500 -95.775</pre> |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
Line 2,406: | Line 2,363: | ||
HR= 6; HRA= 90.500; HLA=-95.775 |
HR= 6; HRA= 90.500; HLA=-95.775 |
||
> |
> |
||
⚫ | |||
⚫ | |||
(formerly Perl 6) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
</pre> |
</pre> |
||
Line 2,720: | Line 2,722: | ||
}</lang> |
}</lang> |
||
=={{header|Seed7}}== |
=={{header|Seed7}}== |
||
<lang seed7>$ include "seed7_05.s7i"; |
<lang seed7>$ include "seed7_05.s7i"; |