Here's an example:
(* The ff mathematica commands plot the posterior in (a,b) for Likelihood: p(y[i]|a,b) = Beta(a,b) Prior: p(a,b) = const *) pbeta[y_,a_,b_] := y^(a-1)(1-y)^(b-1)/Beta[a,b] (* the Beta(a,b) pdf *) y = {0.7,0.9,0.6,0.8} (* a data vector *) likl[a_,b_] := Product[pbeta[y[[i]],a,b],{i,1,4}] (* the likelihood *) Plot3D[likl[a,b],{a,4,10},{b,4,10}] (* plot the posterior = likelihood *) (* Note: something's wrong - the plot looks awefull. If you play around with it, and fix things up, please send me a note *)