Как я могу рассчитать медиану в гамма-распределении?

Question

У меня есть распределение ниже, для которого я хочу вычислить медиану:

x=0:0.01:10;
x=[x' x' x' x' x'];
a=ones(1,1001)';
a=[a*2 a*4 a*6 a*8 a*10];
b=2;
f = gampdf(x,a,b);
plot(x,f)
grid on

Answer 1

dx = 0.04;
b=2;

x=kron([0:dx:10]',ones(1,5));
a=kron(ones(size(x,1),1),[2:2:10]);
f = gampdf(x,a,b);
cf = cumsum(f)*dx;
[i,j] = find(cf(1:end-1,:)<0.5 & cf(2:end,:)>=0.5);

cflow  = cf(sub2ind(size(x),i  ,j));
cfhigh = cf(sub2ind(size(x),i+1,j));

xm = x(i)+dx/2 + (0.5-cflow)./(cfhigh-cflow) * dx
fm = gampdf(xm',a(1,:),b)';

plot(x,f)
hold on; plot([xm xm]',[fm fm]','*'); hold off
grid on

Answer 2

Пользователь TwistedSim ответил на мой вопрос.

Вам нужно найти значение m, для которого дают интеграл от 0 до m ты 0,5. Вы можете сделать это с c = cumsum(f)*dx, где dx = 0.01 в вашем дело. После того, как это просто вопрос использования find(c>0.5, 1, 'first').