<<Vilcretas`

GrafoString["Bienvenidos"]

?GraficaRRL

GraficaRRL[{-4},{5}, npuntos->20, inicio->0]

RT[{-4},{5},20, inicio->0]

GraficaRRL[{3n,3^n},{1},npuntos->20]
RT[{3n,3^n},{1},20]

?PruebaADAGrafica

PruebaADAGrafica[{Fibonacci, FibonacciColaED, FibonacciPilaED}, 50, 5, 1]

NFibonacci[7]

Table[Fibonacci[i], {i,1,7}]

1+1+2+3+5+8+13

GraficaRRL[{-1,6},{1,3}, npuntos->20, inicio->0]

Last[RT[{-1,6},{1,3}, 20, inicio->0]]

a[n_]:=((-(7/2)(a[n-1])^3+5(a[n-2])^3)^(1/3))
a[2]=(Sqrt[2]);

a[3]=-(2/3);

DiscretePlot[a[n],{n,2,20}]

?FindRRHL

Clear[a]

FindRRHL[{5,-8,29,((-109)/2),(689/4),((-2869)/8)},a,n]

FindRRHL[{9,-15,-2367,90057,-2477511,60101985,-1363435407,29670733497},a,n]

Table[-((2^(5-2n)(16767*2^n-128*3^n))/2187),{n,6,20}]

FindRRHL[{-(7/2),-(5/3),-(37/48),-(65/192),-(103/768),-(125/3072),-(7/12288),(715/49152),(3617/196608),(13795/786432),(47273/3145728),(153595/12582912),(484337/50331648),(1500115/201326592),(4594553/805306368)},a,n]

?MetodoI

MetodoI[{3^n},3]

?RR

RR[{3^n},{2},n,inicio->0]

PlotFactorialRecursionTree[5]

MetodoI[{5+2n-(Sqrt[2])}, 3]

(Sqrt[2])//N

RR[{5,2n-(Sqrt[2]) },{2},n,inicio->5]

RR[{1.13},{300},n]

RR[{1,0.13},{300},n]

RR[{((-7)/4),((-49)/64)},{(Sqrt[1]),(Sqrt[(4/5)])},n]