$s[$i] = $AxisLineUnitvector x $Vector[$i];