WebMail Inecol Página principal INECOL Consejo Nacional de Ciencia y Tecnología

 Tecnologías de Información y Comunicaciones

DEFINICION DE ECUACIONES

La forma de escribir ecuaciones en Mathematica® es bastante simple.

<Expresión> == <Expresión o valor numérico>

La razón por la cual se teclea dos veces seguidas el caracter "=" es porque ya se ha utilizado uno de ellos para representar la asignación. Veamos un ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= 3x + 8y == 20
Out[1]= 3x + 8y == 20
In[2]:= P = %
Out[2]= 3x + 8y == 20
In[3]:= P
Out[3]= 3x + 8y == 20

Sustitución y Evaluación Simple

Es posible sustituir una variable dentro de una ecuación por un valor numérico o por otra variable según lo requeriramos.

<Expresión> /. <Variable> -> <Valor numérico o variable>

Observemos el siguiente ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:=p = 3x + 8y == 20
Out[1]= 3x + 8y == 20
In[2]:= P /. x -> 0
Out[2]= 8y == 20
In[3]:= p /. x -> w
Out[3]= 3w + 8y == 20

Como se puede apreciar en la primera entrada estamos asignando una ecuación a la variable "p" que fungirá como etiqueta.
En la segunda entrada, de esa misma ecuación evaluamos la variable "x" en 0, y en la tercera, sustituimos la variable "x" por "w".

Despeje de Variables

Muchas veces queremos saber el valor de una variable de una expresión. Necesariamente recurrimos al proceso de despejar la variable en dicha ecuación lo que nos daría como resultado que la variable en cuestión esté escrita en términos de las demás variables de la ecuación dada.

Para lograr esto utilizamos el siguiente operador:

Solve [ <Expresión> ,<Variable> ]

donde "variable" es la variable a despejar.

Veamos a continuación un ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:=r = 2x + 8y == -2
Out[1]= 2x + 8y == -2
In[2]:= Solve [r, x]
Out[2]= {{x -> -1 - 4y}}
In[3]:= Solve[r, y]
Out[3]= {{y -> ¼ (-1 - x)}}

Sistemas de Ecuaciones

Un sistema de ecuaciones es un conjunto de ecuaciones que concurren en una misma región del espacio (de allí el concepto de simultaneidad).

Cuando decimos que se desea resolver un sistema de ecuaciones significa que queremos encontrar aquellos valores de las variables de las ecuaciones que satisfagan simultáneamente a las ecuaciones mismas.

Mathematica® emplea la siguiente sintaxis para resolver el problema mencionado.

Solve [ { <Expr 1>,<Expr 2>, ... , <Expr "n"> },{ <Variable 1>,<Variable 2>, ..., <Variable "n"> } ]

Dadas las ecuaciones:

x2 + 2x - y + 4 = 0
3x - y + 6 = 0

encontrar el conjunto solución.

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= p=x^2 + 2x - y + 4 = 0
Out[1]= x2 + 2x - y + 4 = 0
In[2]:= r = 3x - y + 6 = 0
Out[2]= 3x - y + 6 = 0
In[3]:= Solve[{p, r}, {x, y}]
Out[3]= {{y -> 3, x -> -1},{y -> 12, x -> 2}}

En el resultado se nos presenta el conjunto solución para el sistema, es decir, los dos primeros valores se obtuvieron de la primera ecuación y satisfacen tanto a la primera como a la segunda, mismo caso para los siguientes dos valores.

No siempre los sistemas de ecuaciones que introduzcamos serán simultáneas. Por eso, Mathematica® nos muestra la siguiente expresión y significa que el sistema introducido no es simultáneo y por lo tanto, no tiene solución.

Out[xx]:={{}}

Definición de Funciones

Las funciones son relaciones que afectan a dos o más conjuntos determinados de tal manera que a cada elemento de un conjunto le corresponde un solo elemento de los otros.

Supóngase la ecuación siguiente:

y = x4 - 2x3 - 7x2 + 10x + 8

f(x)=y

Por lo tanto:

f(x) = x4 - 2x3 - 7x2 + 10x + 8

Para escribir funciones dentro de Mathematica® es necesario recurrir a la siguiente nomenclatura:

f[x_]:= <Expresión>

Veamos este ejemplo sobre el uso de funciones:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= f[x_]: = x^4 - 2x^3 - 7x^2 + 10x + 8
In[2]:= f[x_]
Out[2]= 8 + 10x_ - 7x_2 - 2x_3 + x_4

Podemos observar que la primera salida no es desplegada como estamos acostumbrados sino que realiza un reconocimiento interno. En la segunda entrada se comprueba dicho reconocimiento.


NOTA IMPORTANTE: No se debe omitir el guión subescrito y los dos puntos en " f[x_]: " pues de otra forma, Mathematica® nunca la reconocería como función que se pueda evaluar posteriormente.


Evaluación de una Función

Como en las matemáticas, Mathematica® nos ofrece la posibilidad de evaluar una función con respecto a un valor numérico. Esto se logra al sustituir el valor por la variable determinada en " f[ ] ". Veamos:

Supongamos que se desea evaluar la siguiente función:

f(x) = x4 - 2x3 - 7x2 + 10x + 8

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= f[x_]: = x^4 - 2x^3 - 7x^2 + 10x + 8
In[2]:= f[1]
Out[2]= 10
In[3]:= f[2]
Out[3]= 0
In[4]:= f[-1]
Out[4]= -6
In[5]:= f[3]
Out[5]= 2

Una característica tanto en matemáticas como en Mathematica® es que podemos utilizar cualquier letra para denotar una función, por ejemplo, g(x).

Tabulación de Funciones

Podemos conocer los puntos donde pasa la función para cualquier rango de valores de la variable independiente. Esto se logra gracias al manejo de un comando compuesto que enseguida se menciona:

Table [ Point [<Var.independiente> , <Función> ] {<Rango> } ]

Existen dos formas de definir el rango deseado:

1. { <Var.independiente> ,<Límite superior> }
Por defecto el valor de la variable independiente va de 0 hasta límite superior.

2. { <Var.independiente> ,<Límite inferior > ,<Límite superior> }
La variable independiente toma los valores de límite inferior hasta límite superior.

Veamos a continuación un ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= f[x_]:= x^3 + 5x^2 - 2x - 24
In[2]:= f[x]
Out[2]= -24 - 2x + 5x2 + x3 10
In[3]:= Table[Point[x, f[x]], {x, 10}]
Out[3]= {Point[1,-20], Point[2,0], Point[3,42], Point[4,112], Point[5,216], Point[6,360], Point[7,550], Point[8,792], Point[9,1092], Point[10,1456]}
In[4]:= Table[Point[x, f[x]],{x, -10, 10}]
Out[4]= {Point[-10,-504], Point[-9,-330], Point[-8,-200], Point[-7,-108], Point[-6,-48], Point[-5,-14], Point[-4,0], Point[-3,0], Point[-2,-8], Point[-1,-18], Point[0,-24], Point[1,-20], Point[2,0], Point[3,42], Point[4,112], Point[5,216], Point[6,360], Point[7,550], Point[8,792], Point[9,1092], Point[10,1456]}

Graficación de una Función

Muchas veces, es necesario utilizar gráficas para representar funciones y de esa manera, entenderíamos claramente el comportamiento de una función dada.

Mathematica® permite la graficación de la siguiente forma (entre otras):

Plot [<Función> , {<Variable independiente> ,<Límite inferior> ,<Límite superior> } ]

Enseguida observemos un ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= f[x_]:= x^3 + 5x^2 - 2x - 24
In[2]:= Plot[f[x], {x, -10, 10}]
Out[2]= - Graphics -

Mathematica® , no despliega la gráfica en nuestra ventana de diálogo sino en una ventana especial para gráficas. En la segunda salida aparece la leyenda "-Graphics-" con lo cual indica que en un breve lapso aparacerá la ventana con la gráfica deseada (en caso de estar utilizando un ambiende gráfico).

Graficación de Sistemas de Ecuaciones Simultaneas

La sintaxis es la misma que se utilizó en la sección anterior.
Supóngase que se desea graficar el siguiente sistema de ecuaciones:

x2 - 6x - y = -5
-2x + y = -7

El procedimiento a desarrollar es el que a continuación se presenta en el ejemplo:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= w = x^2 - 6x - y == -5
Out[1]= -6x + x2 - y == -5
In[2]:= u = -2x + y == -7
Out[2]= -2x + y == -7
In[3]:= {Solve[w, y], Solve[u, y]}
Out[3]= {{{y -> 5 - 6x + x2}}, {{y -> -7 + 2x}}}
In[4]:= Plot[{5 - 6x + x^2, -7 + 2x},{x, -5, 10}]
Out[4]= - Graphics -

Obtencion de las Raices de una Función

En matemáticas obtener las raíces de una función significa encontrar los puntos críticos de esa función. Recuérdese que un punto crítico es aquel valor de la variable independiente que hacen que la función se convierta en 0.

Mathematica® emplea nuevamente un comando compuesto para resolver este caso:

Solve [ <Expresión> ==0,<Variable independiente> ]

La equivalencia expresión igual a 0 puede no hacerse dentro del comando. También puede efectuarse fuera del mismo como a continuación se ejemplifica:

Mathematica 3.0 for Linux
Copyright 1988-97 Wolfram Research, Inc.
-- Motif graphics initialized --

In[1]:= f[x_]:= x^3 + 6x^2 + 3x - 10
In[2]:= f[x]==0
Out[2]= -10 + 3x + 6x2 + x 3
In[3]:= Solve[%, x]
Out[3]= {{x -> -5}, {x -> -2}, {x -> 1}}