81
As equações de verossimilhança aproximadas
> f11 := (a,b,r)-> N*sum('1/(a+k)',k=0,,(r-1)):
f12 := (a,b,r)-> N*sum('1/(a+b+k)',k=0,,(r-1)):
f13 := (a,b,r)-> sum('Fx[(x+1),2]*sum(1/(a+b+r+k),
k=0,,(x-1))',x=1,,(tam-1)):
f1 := (a,b,r) -> f11 - f12 - f13:
> f21 := (a,b,r)-> sum('Fx[(x+1),2]*sum(1/(b+k),
k=0,,(x-1)))',x=1,,(tam-1)):
f22 := (a,b,r)-> N*sum('1/(a+b+k)',k=0,,(r-1)):
f23 := (a,b,r)-> sum('Fx[(x+1),2]*sum(1/(a+b+r+k), k=0,,(x-1))',x=1,,(tam-1)):
f2 := f21 - f22 - f23:
> f31 := (a,b,r)-> N*sum('1/(r+k-1)',k=1,,a):
f32 := (a,b,r)-> N*sum('1/(r+k-1)',k=1,,(a+b)):
f33 := (a,b,r)-> sum('Fx[(x+1),2]*(sum(1/(r+k-1),
k=1,,x))',x=1,,(tam-1)):
f34 := (a,b,r)-> sum('Fx[(x+1),2]',x=1,,(tam-1))
*sum('1/(r+k-1)',k=1,,(a+b)):
f35 := (a,b,r)-> sum('Fx[(x+1),2]*(sum(1/(r+k-1),
k=1,,(a+b+x)))',x=1,,(tam-1)):
f3 := f31 - f32 + f33 + f34 - f35:
> fsolve({f1(a,b,r)=0, f2(a,b,r)=0, f3(a,b,r)=0}, {a,b,r});
{a= , b= ,r= }