Wrong coordinates or/and formula?

Question

Perl

There is an array with coordinates.
I use this code

$rad = 45 * (pi / 180);
    $c = 2; # центр xy

    # цикл

    $nx = $c + ($x - $c) * cos($rad) + ($y - $c) * sin($rad);
    $ny = $c - ($x - $c) * sin($rad) + ($y - $c) * cos($rad);

but such data is returned, shown in the table:

what is the error?

Answer 1

solution https://stackoverflow.com/a/29983827