% This is exercise 1.29 from [CMR] - page 61.
% Government bonds 55 per cent.
% Bonds 12 per cent.
% Italian equities 23 per cent
% Foreign equities 6 per cent.
% Cash 4 per cent.
% Compute concentration ratio and show the concentration area.
Q=[55 12 23 6 4];
Q=sort(Q);
out=GUIconcentration(Q,'plots',1);

% This is exercise 1.28 from [CMR] - page 59.
% Classes of income and frequencies.
% 5  - 10	10 
% 10 - 20	25
% 20 - 30	45
% 30 - 50	65
% 50 - 70	35
% 70 - 100	20
% Compute the concentration ratio and show the concentration area.
% Note that given that n is large we can use the approximate formula.
% Using as x_i the central value of the classes, we estimate the Q_i as
% x_i * n_i. For example Q_1 = 7.5 * 10, Q_2 = 15 * 25...Q_6 = 85 * 20
Q=[75 375 1125 2600 2100 1700];
ni=[10 25 45 65 35 20];
out=GUIconcentration(Q,'freq',ni,'plots',1);