Question: how to represent a recurent suite

restart; F := rsolve({16*s(n+1) = 2+12*s(n)-2*s(n-1), s(1) = 1, s(2) = 5/8}, s); Error, (in s) cannot determine if this expression is true or false: n <= 1 f := unapply(F, n); s := proc (n) option remember; if n <= 2 then 1 else 1/16+(1/4)*s(n-1)+(1/16)*sqrt(1+24*s(n-1)) end if end proc; suite := proc (n) options operator, arrow; 1/3+(1/6)*(3*2^(n-1)+1)/4^(n-1) end proc; for i from 2 to 13 do i-1, s(i), suite(i-1), f(i-1) end do; F := proc (x) options operator, arrow; 1/16+(1/4)*x+(1/16)*sqrt(1+24*x) end proc; 1 1 1 F := x -> -- + - x + -- sqrt(1 + 24 x) 16 4 16 solve(F(x) = x, x); with(plots); Courbe := plot(F(x), x = 0 .. 10, color = blue); escalier := plot(seq*RealRange([[i, f(i)]], Open(i = 1 .. 10)), color = black); Error, (in RealRange) invalid arguments display([Courbe, escalier], scaling = constrained); Error, (in plots:-display) expecting plot structures but received: [escalier] Bad representation to correct. Thank you.
Please Wait...