$n=<>; for(1..$n){ ($t,$p,$w,$v,$gx,$gy)=glob<>; $v+=1; $r=sqrt($v*$v+$w*$w); $z=0; for(0..$t-1){ $z+=($r**($t-1-$_))**2 } $a=atan2($w,$v); { $c=cos($a*$t); $s=sin($a*$t); $dx=($gx-$c*$r**$t)/$z; $dy=($gy-$s*$r**$t)/$z; } for(0..$t-1){ $c=cos($a*($_-($t-1))); $s=sin($a*($_-($t-1))); $x=($dx*$c-$dy*$s)*$r**($t-1-$_); $y=($dx*$s+$dy*$c)*$r**($t-1-$_); print $x," ",$y,"\n"; } }