title: From Cartesian Plot to Polar Histogram using  Mathematica
body: <p>Please Consider: </p>
  
  <pre><code>dalist={{21, 22}, {26, 13}, {32, 17}, {31, 11}, {30, 9}, 
          {25, 12}, {12, 16}, {18, 20}, {13, 23}, {19, 21}, 
          {14, 16}, {14, 22}, {18,22}, {10, 22}, {17, 23}}
  
  
  ScreenCenter = {20, 15}
  
  FrameXYs = {{4.32, 3.23}, {35.68, 26.75}}
  
  Graphics[{EdgeForm[Thick], White, Rectangle @@ FrameXYs, 
            Black, Point@dalist, Red, Disk[ScreenCenter, .5]}]
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/ahoke.png" alt="enter image description here"></p>
  
  <p>What I would like to do is to compute, for each point, its angle in a coordinate system such as :</p>
  
  <p><img src="https://i.stack.imgur.com/Ne047.png" alt="enter image description here"></p>
  
  <p>Above is the Deisred output, those are frequency count of point given a particular "Angle Bin".
  Once I know how to compute the angle i should be able to do that.</p>