Módulos

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

Módulos

El formato de un módulo es

prog[var1_,...]:=Module[{v1local, v2local,...(* var locales*)},

                        instr1;
                        instr2;
                         ...
                        instrk ]; (* modulo *)

$\begin{ejemplo}\hspace{5in} \par\vspace{0.5 cm} {\em Vamos a hacer un programa q... ...sol]}]]; (* modulo *)\end{verbatim} \hfill \rule{0.1in}{0.1in} \end{ejemplo}$

Ahora haga unas cuantas corridas de su pograma!. Por ejemplo

Resolver[3+1/(2 (-1+x))==x+15/(2(3+x))]

$\begin{ejemplo}\hspace{5in} \par\vspace{0.5 cm} {\em Hacer un programa que recib... ... (* corrida *) parabola\end{verbatim} \hfill \rule{0.1in}{0.1in} \end{ejemplo}$

El programa mejoraría bastante si agregamos

Print["Gráfico  "];
puntos=Graphics[{ RGBColor[0,0,1],
                  PointSize[0.03],Point[vertice]
               }];
g=Plot[f, {x,xi,xd},
    AspectRatio-> Automatic,
    PlotStyle->{RGBColor[1,1,0], GrayLevel[0]},
    DisplayFunction->Identity];
Show[{g,puntos}, DisplayFunction->$DisplayFunction]

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