На основе Шуберда, отличного решения и расширения на От декартового участка к полярной гистограмме с использованием системы Mathematica, пожалуйста, рассмотрим следующее :
list = {{21, 16}, {16, 14}, {11, 11}, {11, 12},
{13, 15}, {18, 17}, {19, 11}, {17, 16}, {16, 19}}
ScreenCenter = {20, 15}
ListPolarPlot[{ArcTan[##], EuclideanDistance[##]} & @@@ (# - ScreenCenter & /@ list),
PolarAxes -> True, PolarGridLines -> Automatic, Joined -> False,
PolarTicks -> {"Degrees", Automatic},
BaseStyle -> {FontFamily -> "Arial", FontWeight -> Bold,
FontSize -> 12}, PlotStyle -> {Red, PointSize -> 0.02}]
Module[{Countz, maxScale, angleDivisions, dAng},
Countz = Reverse[BinCounts[Flatten@Map[ArcTan[#[[1]] - ScreenCenter[[1]], #[[2]] -
ScreenCenter[[2]]] &, list, {1}], {-\[Pi], \[Pi], \[Pi]/6}]];
maxScale = 4;
angleDivisions = 12;
dAng = (2 \[Pi])/angleDivisions;
SectorChart[{ConstantArray[1, Length[Countz]], Countz}\[Transpose],
SectorOrigin -> {-\[Pi]/angleDivisions, "Counterclockwise"},
PolarAxes -> True,
PolarGridLines -> Automatic,
PolarTicks -> {Table[{i \[Degree] + \[Pi]/angleDivisions,i \[Degree]},
{i, 0, 345, 30}], Automatic},
ChartStyle -> {Directive[EdgeForm[{Black, Thickness[0.005]}], Red]},
BaseStyle -> {FontFamily -> "Arial", FontWeight -> Bold,
FontSize -> 12}, ImageSize -> 400]]
Как вы можете видеть, гистограмма показывает вращательную симметрию того, что она должна. Я перепробовал все, чтобы получить их прямолинейность, но не получилось. Без Реверса это хуже всего. Я попробовал RotateRight безуспешно. Я чувствую, что проблема в моем BinCount. ArcTan выход из -Pi в Pi в то время как Sjoerd предложил мне перейти от 0 до 2Pi. Но я не понимаю, как это сделать.
EDIT: Проблема решена. Благодаря решениям Sjoerd, Belisarius, Heike я могу показать гистограмму расположения глазных фиксаторов с учетом центра тяжести изображения.