Iteradores

Mathematica

| Walter Mora F. | Revista Digital Matemática, Educación e Internet |

Revista 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Iteradores

Do[]

Do[] lleva un iterador de la forma {i, a, b, salto}, si se omite salto el default es 1. salto puede ser cualquier número real. El formato de Do[] es como sigue:

Do[instr1;
   instr2;
   ...
   instrk
,{i, a, b, salto}]; (* Do *)

$\begin{ejemplo}\hspace{5in} \par\vspace{0.5 cm} \begin{verbatim}(*1. formulas ... ..., 2.0, 0.2}];; (* Do *)\end{verbatim} \hfill \rule{0.1in}{0.1in} \end{ejemplo}$

ANIMACIÓN

Para hacer una animación con el último Do[], seleccione la celda que contiene el grupo de gráficos y haga doble click (esto pone el grupo en una sola celda). Ahora haga doble click en el gráfico que está en la celda. Observe los botones en el extremo inferior izquierdo. Haga click sobre ellos!

Table[ ]

Table[] hace listas. Por ejemplo

Table[Integrate[x^n,x],{n, -2,2,0.5} ]

Otro ejemplo: Se sabe que 2ⁿ + 1 es compuesto si n no es potencia de dos. Pero si n es potencia de dos, 2^{2^k}+1 no siempre es primo. Fermat verificó que era primo hasta k=4 y se equivocó en la generalización. El siguiente programa hace un test de primalidad para k=1,2,...6

fermat=Table[2^2^k+1,{k,1,6} ];
Do[
   If[PrimeQ[fermat[[i]]],
      Print["Cierto para k= ",i],
          Print["Incorrecto para k= ",i]
     ]
,{i,1, Length[fermat]}]

F_k=2^{2^k}+1 es primo sólo si divide a 3 + 1. Después de k=4, cuál es el siguiente primo de Fermat?

Revista 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Revista digital Matemática, Educación e Internet.
Derechos Reservados