
% Bayesian Estimation of theta in  Uniform (0, theta)
clear all
close all
  disp('Bayesian Estimation of Uniform')
  lw = 2; 
  set(0, 'DefaultAxesFontSize', 16);
  fs = 15;
 msize = 10;

pareto = @(x, c, alpha)   alpha* c * (c./x).^(alpha + 1)  .* (x >= c)
range=4:0.01:15;
plot(range, pareto(range, 6,6),'LineWidth',lw)
hold on
plot(range, pareto(range, 6,2),'r--','LineWidth',lw)
plot([6 6],[0, 0],'o', 'LineWidth',2, 'MarkerEdgeColor','k','MarkerFaceColor','b', 'MarkerSize',10)
plot([7.2 7.2],[0, 0],'o', 'LineWidth',2, 'MarkerEdgeColor','k','MarkerFaceColor','g', 'MarkerSize',10)
plot([6.7348 6.7348],[0, 0],'o', 'LineWidth',2, 'MarkerEdgeColor','k','MarkerFaceColor','k', 'MarkerSize',10)
plot([12 12],[0, 0],'o', 'LineWidth',2, 'MarkerEdgeColor','k','MarkerFaceColor','r', 'MarkerSize',10)

axis tight
%print -depsc 'C:\Springer\Bayes\Bayeseps\pareto.eps'