Microns = 15:35;
Frequency=[7 31 148 230 326 252 237 184 143 115 130 ...
          110 127 133 113 96 54 44 11 7 2];
glossina =[];
for i = 1:21
    glossina = [glossina   Microns(i)*ones(1,Frequency(i)) ];
end

out = gmdistribution.fit(glossina',2);

mu1 = out.mu(1);
mu2 = out.mu(2);

sigma12 = out.Sigma(:,:,1);
sigma22 = out.Sigma(:,:,2);

prop1 = out.PComponents(1); 
prop2 = out.PComponents(2); 

figure;
histn(glossina, 15, 1, 35)
hold on
xrange = 13:0.2:37;
plot(xrange, 0.5443 * normpdf(xrange, 19.4926, sqrt(3.1403))...
+ 0.4557 * normpdf(xrange, 26.5222, sqrt(10.1167)),...
        'g-','LineWidth',2) 