%From Tippett (1941)
close all
clear all


 disp('Spirals in Cotton Fibers')
 lw = 2.5; 
 set(0, 'DefaultAxesFontSize', 16);
 fs = 15;
 msize = 10;




%f Distance between Spiral Reversals in Cotton Fibers.
%  Distance & $[0, 2.5)$ & $[2.5, 4.5)$ & $[4.5, 6.5)$  & $[6.5, 8.5)$     & $[8.5, 10.5)$ \\
%  & $[10.5, 12.5)$ &  $[12.5, 16.5)$   & $[16.5, 20.5)$  & $[20.5, 24.5)$ & $[24.5, 28.5)$ \\
%  & $[28.5, 32.5)$ & $[32.5, 36.5)$ & $[36.5, 40.5)$   & $[40.5, 50.5)$ & $[50.5, 60.5)$ \\ 
%  &  $[60.5, 70.5)$ & $[70.5, 80.5)$ & $[80.5, 90.5)$  & $[90.5, \infty)$ 
%  
%  Number  & 7 & 48 & 100 & 106 & 84 \\ \hline
%                   & 72 & 136 & 94 & 78 & 69 \\ \hline
%                   & 53 & 45 & 36 & 69 & 40 \\ \hline
%                   & 31 & 21 & 17 & 11  \\ 
close all

edges = [0 2.5 4.5 6.5 8.5 10.5 12.5 16.5 20.5 24.5 28.5 32.5 36.5 ...
               40.5 50.5 60.5 70.5 80.5 90.5 110.5];
midints = [1.25  3.25  5.25  7.25  9.25 11.25  14.25 18.25 22.25  ...
               26.25  30.25  34.25  38.25  45.25  55.25  65.25  75.25  85.25  100.25];
fr = [7  48 100 106 84 72 136 94 78  69  53  45 36 69 40 31 21 17 11];

plot(midints, fr,'o')
