<<Vilcretas`

GrafoString["Bienvenidos"]

Sumatoria1[n_]:=If[n==6, (1/2), ((n-5)/(n-4))+Sumatoria1[n-1]]

Sumatoria1[10]

(1/(1+1))

Sumatoria2[n_]:=If[n==9,(49/262144), (((n+5)/(2^(n+1))))^2+ Sumatoria2[n-1]]

Sumatoria2[10]

Table[Sumatoria1[n]==Sum[(i/(i+1)),{i, 1, n-5}],{n, 6, 15}]

((14/(2^(14-4))))^2

Productoria1[n_]:=If[n==11,2,Productoria1[n-1]*((3*n)-31)]

Productoria1[15]

3 i - 1
3 n - 1
3 (n - 10) - 1

ProductoriaAux[n_]:=If[n==3,-1,If[n==1||n==2, 1,ProductoriaAux[n-1]*(2*n - 7)]]

Sumatoria3[n_]:=If[n==0,1,Sumatoria3[n-1]+ProductoriaAux[n+1]*(n+1)]

Sumatoria3[3]

Or[] o bien ||
And[] o bien &&

2 n - 5
2 (n - 1) - 5
2 n - 2 - 5 = 2 n - 7

<<TutoriasED`

FibonacciPilaED[15, show->True]

fib[n_]:=If[n==1,1, If[n==0,0, fib[n-1]+fib[n-2]+fib[n-3]]]

fib[5]

Se debe tener tantos If como casos base

?GrafoDato

buscarDato[lista_, dato_]:=If[Last[lista]==dato, Print["Dato encontrado: ", lista], 
If[lista=={}, Print["Dato no encontrado"],Print[lista]];
 buscarDato[Delete[lista, Length[lista]], dato];
]

list = {1,2,3,4,5,6,7,"Ocho","a"};

buscarDato[list, 7]

Clear[list] (*Para limpiar x nombre de variable/función*)