Kevin Ryde > Math-PlanePath-110 > Math::PlanePath::PowerArray

Math-PlanePath-110.tar.gz

Dependencies

Annotate this POD

Website

# CPAN RT

 Open 2
View/Report Bugs
Module Version: 110   Source   Latest Release: Math-PlanePath-114

# NAME

Math::PlanePath::PowerArray -- array by powers

# SYNOPSIS

``` use Math::PlanePath::PowerArray;
my \$path = Math::PlanePath::PowerArray->new (radix => 2);
my (\$x, \$y) = \$path->n_to_xy (123);```

# DESCRIPTION

This is a split of N into an odd part and power of 2,

```     14  |   29    58   116   232   464   928  1856  3712  7424 14848
13  |   27    54   108   216   432   864  1728  3456  6912 13824
12  |   25    50   100   200   400   800  1600  3200  6400 12800
11  |   23    46    92   184   368   736  1472  2944  5888 11776
10  |   21    42    84   168   336   672  1344  2688  5376 10752
9  |   19    38    76   152   304   608  1216  2432  4864  9728
8  |   17    34    68   136   272   544  1088  2176  4352  8704
7  |   15    30    60   120   240   480   960  1920  3840  7680
6  |   13    26    52   104   208   416   832  1664  3328  6656
5  |   11    22    44    88   176   352   704  1408  2816  5632
4  |    9    18    36    72   144   288   576  1152  2304  4608
3  |    7    14    28    56   112   224   448   896  1792  3584
2  |    5    10    20    40    80   160   320   640  1280  2560
1  |    3     6    12    24    48    96   192   384   768  1536
Y=0  |    1     2     4     8    16    32    64   128   256   512
+-----------------------------------------------------------
X=0     1     2     3     4     5     6     7     8     9```

For N=odd*2^k the coordinates are X=k, Y=(odd-1)/2. The X coordinate is how many factors of 2 can be divided out. The Y coordinate counts odd integers 1,3,5,7,etc as 0,1,2,3,etc. This is clearer by writing N values in binary,

```    N values in binary

6  |  1101     11010    110100   1101000  11010000 110100000
5  |  1011     10110    101100   1011000  10110000 101100000
4  |  1001     10010    100100   1001000  10010000 100100000
3  |   111      1110     11100    111000   1110000  11100000
2  |   101      1010     10100    101000   1010000  10100000
1  |    11       110      1100     11000    110000   1100000
Y=0  |     1        10       100      1000     10000    100000
+----------------------------------------------------------
X=0         1         2         3         4         5```

The `radix` parameter can do the same dividing out in a higher base. For example radix 3 divides out factors of 3,

```     radix => 3

9  |   14    42   126   378  1134  3402 10206 30618
8  |   13    39   117   351  1053  3159  9477 28431
7  |   11    33    99   297   891  2673  8019 24057
6  |   10    30    90   270   810  2430  7290 21870
5  |    8    24    72   216   648  1944  5832 17496
4  |    7    21    63   189   567  1701  5103 15309
3  |    5    15    45   135   405  1215  3645 10935
2  |    4    12    36   108   324   972  2916  8748
1  |    2     6    18    54   162   486  1458  4374
Y=0  |    1     3     9    27    81   243   729  2187
+------------------------------------------------
X=0     1     2     3     4     5     6     7```

N=1,3,9,27,etc on the X axis is the powers of 3.

N=1,2,4,5,7,etc on the Y axis is the integers N=1or2 mod 3, ie. those not a multiple of 3. Notice if Y=1or2 mod 4 then the N values in that row are all even, or if Y=0or3 mod 4 then the N values are all odd.

```    radix => 3,  N values in ternary

6  |   101     1010    10100   101000  1010000 10100000
5  |    22      220     2200    22000   220000  2200000
4  |    21      210     2100    21000   210000  2100000
3  |    12      120     1200    12000   120000  1200000
2  |    11      110     1100    11000   110000  1100000
1  |     2       20      200     2000    20000   200000
Y=0  |     1       10      100     1000    10000   100000
+----------------------------------------------------
X=0        1        2        3        4        5```

# FUNCTIONS

See "FUNCTIONS" in Math::PlanePath for the behaviour common to all path classes.

`\$path = Math::PlanePath::PowerArray->new ()`

Create and return a new path object.

`(\$x,\$y) = \$path->n_to_xy (\$n)`

Return the X,Y coordinates of point number `\$n` on the path. Points begin at 1 and if `\$n < 0` then the return is an empty list.

`\$n = \$path->xy_to_n (\$x,\$y)`

Return the N point number at coordinates `\$x,\$y`. If `\$x<0` or `\$y<0` then there's no N and the return is `undef`.

N values grow rapidly with `\$x`. Pass in a number type such as `Math::BigInt` to preserve precision.

`(\$n_lo, \$n_hi) = \$path->rect_to_n_range (\$x1,\$y1, \$x2,\$y2)`

The returned range is exact, meaning `\$n_lo` and `\$n_hi` are the smallest and biggest in the rectangle.

# FORMULAS

## Rectangle to N Range

Within each row increasing X is increasing N, and in each column increasing Y is increasing N. So in a rectangle the lower left corner is the minimum N and the upper right is the maximum N.

```    |               N max
|     ----------+
|    |  ^       |
|    |  |       |
|    |   ---->  |
|    +----------
|   N min
+-------------------```

# OEIS

Entries in Sloane's Online Encyclopedia of Integer Sequences related to this path include

```    radix=2
A007814    X coordinate, count low 0-bits of N
A006519    2^X

A025480    Y coordinate of N-1, ie. seq starts from N=0
A003602    Y+1, being k for which N=(2k-1)*2^m
A153733    2*Y of N-1, strip low 1 bits
A000265    2*Y+1, strip low 0 bits

A094267    dX, change count low 0-bits
A050603    abs(dX)
A108715    dY, change in Y coordinate

A000079    N on X axis, powers 2^X
A057716    N not on X axis, the non-powers-of-2

A005408    N on Y axis (X=0), the odd numbers
A003159    N in X=even columns, even trailing 0 bits
A036554    N in X=odd columns

A014480    N on X=Y diagonal, (2n+1)*2^n
A118417    N on X=Y+1 diagonal, (2n-1)*2^n
(just below X=Y diagonal)

A054582    permutation N by diagonals, upwards
A135764    permutation N by diagonals, downwards
A075300    permutation N-1 by diagonals, upwards
A117303    permutation N at transpose X,Y

A007949    X coordinate, power-of-3 dividing N
A000244    N on X axis, powers 3^X
A001651    N on Y axis (X=0), not divisible by 3
A007417    N in X=even columns, even trailing 0 digits
A145204    N in X=odd columns (extra initial 0)
A141396    permutation, N by diagonals down from Y axis
A191449    permutation, N by diagonals up from X axis
A135765    odd N by diagonals, deletes the Y=1,2mod4 rows
A000975    Y at N=2^k, being binary "10101..101"

A000302    N on X axis, powers 4^X

A112765    X coordinate, power-of-5 dividing N
A000351    N on X axis, powers 5^X

A122841    X coordinate, power-of-6 dividing N

A011557    N on X axis, powers 10^X
A067251    N on Y axis, not a multiple of 10
A151754    Y coordinate of N=2^k, being floor(2^k*9/10)```

http://user42.tuxfamily.org/math-planepath/index.html