Maple
Enviado por Programa Chuletas y clasificado en Matemáticas
Escrito el en 
español con un tamaño de 807 bytes
u(n+2)+(b-1)*u(n+1)+(1-b)*u(n)=0 u(0)=1 u(1)=1-b
Resolver recurrencia:
U:=rsolve({u(n+2)+(b-1)*u(n+1)+(1-b)*u(n)=0,u(0)=1,u(1)=1-b},{u});
U:=rhs(op(1,%));
eval(U,{b=2,n=1000})
eval(U{b=-1,n=1000})
Representar graficamente
U1:=eval(U,b=2)
points:={seq([n,U1],n=0..10)}
with(plots)
pointplot(points)
Calculo de funcion generatriz
U2:=rsolve({u(n+2)+(b-1)*u(n+1)+(1-b)*u(n)=0,u(0)=1,u(1)=1-b},{u},'genfunc'(x));
U2:=rhs(op(1,%));
U2:=eval(U2,b=2)
Descomposicion en fracciones simples
convert(U2,fullparfrac);
Resolver recurrencia:
U:=rsolve({u(n+2)+(b-1)*u(n+1)+(1-b)*u(n)=0,u(0)=1,u(1)=1-b},{u});
U:=rhs(op(1,%));
eval(U,{b=2,n=1000})
eval(U{b=-1,n=1000})
Representar graficamente
U1:=eval(U,b=2)
points:={seq([n,U1],n=0..10)}
with(plots)
pointplot(points)
Calculo de funcion generatriz
U2:=rsolve({u(n+2)+(b-1)*u(n+1)+(1-b)*u(n)=0,u(0)=1,u(1)=1-b},{u},'genfunc'(x));
U2:=rhs(op(1,%));
U2:=eval(U2,b=2)
Descomposicion en fracciones simples
convert(U2,fullparfrac);