Imaginary base numbers: Difference between revisions

Imaginary base numbers (view source)

Revision as of 03:29, 15 February 2017

40 bytes removed , 7 years ago

m

→‎{{header|Perl 6}}: Remove checks for things that can never happen. Reword exposition a bit.

Thundergnat

10,333

edits

Revision as of 02:58, 15 February 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Remove some more intermediate variables.) ← Older edit		Revision as of 03:29, 15 February 2017 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Perl 6}}: Remove checks for things that can never happen. Reword exposition a bit.) Newer edit →
Line 305: =={{header\|Perl 6}}== {{works with\|Rakudo\|2017.01}} These are generalized imaginary-base conversion routines. They only work for imaginary bases, not complex. (Any real portion of the radix must be zero.) Theoretically they could be made to work for any imaginary base; in practice, they are limited to integer bases from -6i to -2i and 2i to 6i ~~since those bases will fit within standard base 36 digit representations~~. Bases -1i and 1i exist but require special handling and are not supported. Bases larger than 6i (or -6i) require digits outside of base 36 to express them, so aren't as standardized, are implementation dependent and are not supported here. Note that imaginary ~~numbers~~number coefficients are stored as floating point numbers in Perl 6 so some rounding error may creep in during calculations. The precision these conversion routines use is configurable; we are using 8 <strike>decimal</strike>, um... radicimal(?) places of precision here. <lang perl6>multi sub base ( Real $num, Int $radix where -37 < * < -1, :$precision = -15 ) { Line 332: my ($re-wh, $re-fr) = $re.&base( -$radix.im².Int, :precision($precision) ).split: '.'; my ($im-wh, $im-fr) = ($im/$radix.im).&base( -$radix.im².Int, :precision($precision) ).split: '.'; $_ //= '' for ~~$re-wh,~~ $re-fr~~, $im-wh~~, $im-fr; sub zip (Str $a, Str $b) {