Арктан Биннинг, от сюжета к гистограмме, уловки

На основе Шуберда, отличного решения и расширения на От декартового участка к полярной гистограмме с использованием системы 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}]

enter image description here

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]]

enter image description here

Как вы можете видеть, гистограмма показывает вращательную симметрию того, что она должна. Я перепробовал все, чтобы получить их прямолинейность, но не получилось. Без Реверса это хуже всего. Я попробовал RotateRight безуспешно. Я чувствую, что проблема в моем BinCount. ArcTan выход из -Pi в Pi в то время как Sjoerd предложил мне перейти от 0 до 2Pi. Но я не понимаю, как это сделать.

EDIT: Проблема решена. Благодаря решениям Sjoerd, Belisarius, Heike я могу показать гистограмму расположения глазных фиксаторов с учетом центра тяжести изображения.

enter image description here

7
задан Community 23 May 2017 в 12:30
поделиться