prologues:=3;
input graph;
input latexmp;
color magenta; magenta = (1,0,1);
pair pos; 
string file;

gwd := 100mm;
ght := gwd * 3/4;

pos := (.4gwd, .95ght);
len := .07gwd;
ystep := .05ght;


def beta (expr a,b)(text col)=
  file := "prob-a" & decimal(a) & "-b" & decimal(b) & ".dat";
  gdraw(file) withcolor col;
  draw pos -- pos+(len,0) withcolor col;
  label.rt(textext("$\alpha=" & decimal(a) &
                   ",\,\beta=" & decimal(b) & "$"),
           pos+(len,0));
  pos := pos - (0,ystep);
enddef;

beginfig(1)
  draw begingraph(100mm,75mm);
    setrange(origin, 1, 2.6);
    beta(.5,.5,red);
    beta(5,1,green);
    beta(1,3,blue);
    beta(2,2,magenta);
    beta(2,5,black);
  endgraph;
endfig;

end