Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) - Contribuciones del usuario [es]

Archivo:Ej4selec.png

2010-06-07T03:38:15Z

Ccarbonellc: Ejercicio 4 de Selectividad

Ejercicio 4 de Selectividad

Archivo:Image.png

2010-06-07T03:36:46Z

Ccarbonellc: subida una nueva versión de «Archivo:Image.png»: Ejercicio 4 de Selectividad

Ejercicios de selectividad

2010-06-07T02:24:22Z

Ccarbonellc:

== Introducción ==
En esta sección se encuentran problemas de selectividad de Matemáticas resueltos con sistemas de software libre. Los enunciados de los problemas se encuentran en
* [http://www.selectividad.tv/matematicas/ Colección de Eduardo Ramos].
* [http://www.selectividad.profes.net/contsel_info.asp?id_categoria=30105&categoria=Estrategias+y+modelos+de+ex%E1menes+de+Matem%E1ticas Estrategias y modelos de exámenes de Matemáticas].
* [http://ieszurbaranbad.juntaextremadura.net/descargas/matematicas/A4.pdf Ejercicios resueltos de selectividad. Matemáticas II]

== Ejercicios ==
* [[Ejercicio 1 de Selectividad]].
* [[Ejercicio 2 de Selectividad]].
* [[Ejercicio 3 de Selectividad]].
* [[Ejercicio 4 de Selectividad]].

2010 Ejercicios 2: Funciones de una variable

2010-05-09T22:45:00Z

Ccarbonellc: /* Ejercicio 2.6 */

'''Funciones a utilizar:''' ''if...then...else'', ''assume'', ''limit'', ''forget'', ''plot2d'', ''diff'', ''define'', ''solve'', ''trigexpand'', ''trigsimp'' y ''subst''.

== Ejercicio 1 ==
Sean <math>a</math> y <math>b</math> dos números reales. Se considera la función <math>f</math> definida sobre los números reales por
:<math>
f(x)=\left\{
\begin{array}{lll}
\dfrac{e^x-1}{x} &\mbox{si} & x>0\\
a\,x+b &\mbox{si} & x\leq 0
\end{array}
\right.
</math>

=== Ejercicio 1.1 ===
Definir la función <math>f</math> usando el condicional ''if ... then ... else''.
(%i1) f(x):= if(x>0) then (%e^x-1)/x else a*x+b$

== Ejercicio 1.2 ==
''limit'' no puede evaluar expresiones del tipo ''if...then''. Por ello, para determinar el límite de <math>f</math> en cero por la derecha se necesita precisar en qué intervalo se encuentra <math>x</math>. Esto puede hacerse con la función ''assume''.

Escribir la expresión ''assume(x>0)'', después calcular el límite de <math>f</math> en cero por la derecha. Se puede eliminar la hipótesis sobre <math>x</math> con ''forget(x>0)''.

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) limit(f(x),x,0,plus);
(%o2) 1
=== Ejercicio 1.3 ===
Deducir el valor de <math>b</math> para el que <math>f</math> es continua en <math>\mathbb{R}</math>.

(%i1) j(x):=a*x+b $
(%i2) limit(j(x),x,0,minus);
(%o2) b
(%i3) b:1 $
(%i4) b;
(%o4) 1

=== Ejercicio 1.4 ===
Calcular la derivada de <math>f</math> en cero por la derecha.

(%i1) g(x):= (exp(x)-1)/x;
(%i2) diff(g(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) ratsimp(%o2);
(%o3) ((x-1)*%e^x+1)/x^2
(%i4) define (h(x), %o3);
(%i5) limit(h(x),x,0,plus);
(%o5) 1/2

OTRA FORMA

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) diff(f(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) limit (%o2,x,0,plus);
(%o3) 1/2

=== Ejercicio 1.5 ===
Calcular el valor de <math>a</math> para el que <math>f</math> es derivable en cero.

(%i6) j(x):=a*x+b;
(%i7) diff(j(x),x);
(%o7) a
(%i8) define (k(x), %o7)$
(%i9) limit (k(x),x,0,minus);
(%o9) a
(%i10)a:%o5;
(%i11) a;
(%o11) 1/2

== Ejercicio 2 ==
Sea <math>g</math> la función real definida por <math>g(x) = 2x-\sqrt{1+x^2}</math>
(%i1)g(x):= 2*x-sqrt(1+x^2)$

=== Ejercicio 2.1 ===
Calcular los límites de <math>g</math> en más y menos infinito.
(%i2)limit(g(x), x, inf);
(%o2)inf
(%i3)limit(g(x), x, minf);
(%o3)-inf

=== Ejercicio 2.2 ===
Dibujar la gráfica de la función <math>g</math>.

(%i1) g(x):= 2*x-sqrt(1+x^2)$
(%i2) wxplot2d(g(x), [x,-5,5], [y,-5,5]);
[[Imagen:ej_2.2.png]]

=== Ejercicio 2.3 ===
Calcular <math>g'(x)</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)'diff(g(x),x)=diff(g(x),x);
(%o1) 'diff((2*x-sqrt(x^2+1)),x,1)=2-x/sqrt(x^2+1)

=== Ejercicio 2.4 ===
Resolver la ecuación <math>g(x)=0</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)find_root(2*x=sqrt(1+x^2),x,-100,100);
(%o1)0.57735026918963

=== Ejercicio 2.5 ===
Determinar los intervalos de crecimiento de <math>g</math>.

(%i1) define(w(x),diff(g(x),x))$
(%i2) find_root(w(x),x,-1000,1000)

Obtenemos el resultado:
function has same sign at endpoints
[f(-1000.0)=2.999999500000375,f(1000.0)=1.000000499999625]
-- an error. To debug this try debugmode(true);

Que nos indica que la función no tiene ceros en ese intervalo. Si los límites en menos infinito y más infinito coinciden con esos
valores, la derivada segunda no se anula nunca, con lo que su valor es siempre positivo y, por tanto, la función es siempre creciente:

(%i3) limit(w(x), x, inf)
(%o3) 1
(%i4) limit(w(x), x, minf)
(%o4) 3

Efectivamente, la función f(x) es siempre monótona creciente.

=== Ejercicio 2.6 ===
Calcular las ecuaciones reducidas de las asíntotas de <math>g</math>.

Para comprobar si la función tiene asíntotas horizontales:
(%i1) limit(2*x-sqrt(1+x^2), x, inf);
(%o1) inf
De tener asíntota oblicua, vendrá dada por la ecuación y=m*x+n
Para calcular la pendiente de la asíntota oblicua:
(%i2) limit((2*x-sqrt(1+x^2))/x, x, inf);
(%o2) 1
Para calcular la ordenada de la asíntota oblicua:
(%i3) limit((2*x-sqrt(1+x^2))-x, x, inf);
(%o3) 0
Por lo que la función no tiene asíntotas horizontales (%o1) y la ecuación de su asíntota oblicua es y=x

== Ejercicio 3 ==
=== Ejercicio 3.1 ===
Desarrollar <math>cos(3t)</math> en función de <math>cos(t)</math>.
(%i1)wxplot2d([['parametric, cos(t), cos(3*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o1)[[Archivo: ejercicio_3-1.png]]

=== Ejercicio 3.2 ===
Desarrollar <math>cos(4t)</math> en función de <math>cos(t)</math>
(%i2)wxplot2d([['parametric, cos(t), cos(4*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o2)[[Archivo:Ejercicio_3-2.png]]

=== Ejercicio 3.3 ===
Desarrollar <math>cos(5t)</math> en función de <math>cos(t)</math>.
(%i3)wxplot2d([['parametric, cos(t), cos(5*t), [t, -10, 10], [nticks, 300]]], [x,-1,1], [y,-1.5,1.5])$
(%o3)[[Archivo:ejercicio_3-3.png]]

=== Ejercicio 3.4 ===
Determinar los polinomios <math>T_n</math> de la variable <math>x</math> tales que para todo <math>t \in \mathbb{R}</math>, <math>cos(nt) = T_n(cos\ t)</math> para <math>n \in \{3,4,5\}</math>.

=== Ejercicio 3.5 ===
Representar las funciones <math>T_3</math>, <math>T_4</math> y <math>T_5</math> en la misma gráfica.

2010 Ejercicios 2: Funciones de una variable

2010-05-09T22:44:48Z

Ccarbonellc: /* Ejercicio 2.6 */

'''Funciones a utilizar:''' ''if...then...else'', ''assume'', ''limit'', ''forget'', ''plot2d'', ''diff'', ''define'', ''solve'', ''trigexpand'', ''trigsimp'' y ''subst''.

== Ejercicio 1 ==
Sean <math>a</math> y <math>b</math> dos números reales. Se considera la función <math>f</math> definida sobre los números reales por
:<math>
f(x)=\left\{
\begin{array}{lll}
\dfrac{e^x-1}{x} &\mbox{si} & x>0\\
a\,x+b &\mbox{si} & x\leq 0
\end{array}
\right.
</math>

=== Ejercicio 1.1 ===
Definir la función <math>f</math> usando el condicional ''if ... then ... else''.
(%i1) f(x):= if(x>0) then (%e^x-1)/x else a*x+b$

== Ejercicio 1.2 ==
''limit'' no puede evaluar expresiones del tipo ''if...then''. Por ello, para determinar el límite de <math>f</math> en cero por la derecha se necesita precisar en qué intervalo se encuentra <math>x</math>. Esto puede hacerse con la función ''assume''.

Escribir la expresión ''assume(x>0)'', después calcular el límite de <math>f</math> en cero por la derecha. Se puede eliminar la hipótesis sobre <math>x</math> con ''forget(x>0)''.

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) limit(f(x),x,0,plus);
(%o2) 1
=== Ejercicio 1.3 ===
Deducir el valor de <math>b</math> para el que <math>f</math> es continua en <math>\mathbb{R}</math>.

(%i1) j(x):=a*x+b $
(%i2) limit(j(x),x,0,minus);
(%o2) b
(%i3) b:1 $
(%i4) b;
(%o4) 1

=== Ejercicio 1.4 ===
Calcular la derivada de <math>f</math> en cero por la derecha.

(%i1) g(x):= (exp(x)-1)/x;
(%i2) diff(g(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) ratsimp(%o2);
(%o3) ((x-1)*%e^x+1)/x^2
(%i4) define (h(x), %o3);
(%i5) limit(h(x),x,0,plus);
(%o5) 1/2

OTRA FORMA

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) diff(f(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) limit (%o2,x,0,plus);
(%o3) 1/2

=== Ejercicio 1.5 ===
Calcular el valor de <math>a</math> para el que <math>f</math> es derivable en cero.

(%i6) j(x):=a*x+b;
(%i7) diff(j(x),x);
(%o7) a
(%i8) define (k(x), %o7)$
(%i9) limit (k(x),x,0,minus);
(%o9) a
(%i10)a:%o5;
(%i11) a;
(%o11) 1/2

== Ejercicio 2 ==
Sea <math>g</math> la función real definida por <math>g(x) = 2x-\sqrt{1+x^2}</math>
(%i1)g(x):= 2*x-sqrt(1+x^2)$

=== Ejercicio 2.1 ===
Calcular los límites de <math>g</math> en más y menos infinito.
(%i2)limit(g(x), x, inf);
(%o2)inf
(%i3)limit(g(x), x, minf);
(%o3)-inf

=== Ejercicio 2.2 ===
Dibujar la gráfica de la función <math>g</math>.

(%i1) g(x):= 2*x-sqrt(1+x^2)$
(%i2) wxplot2d(g(x), [x,-5,5], [y,-5,5]);
[[Imagen:ej_2.2.png]]

=== Ejercicio 2.3 ===
Calcular <math>g'(x)</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)'diff(g(x),x)=diff(g(x),x);
(%o1) 'diff((2*x-sqrt(x^2+1)),x,1)=2-x/sqrt(x^2+1)

=== Ejercicio 2.4 ===
Resolver la ecuación <math>g(x)=0</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)find_root(2*x=sqrt(1+x^2),x,-100,100);
(%o1)0.57735026918963

=== Ejercicio 2.5 ===
Determinar los intervalos de crecimiento de <math>g</math>.

(%i1) define(w(x),diff(g(x),x))$
(%i2) find_root(w(x),x,-1000,1000)

Obtenemos el resultado:
function has same sign at endpoints
[f(-1000.0)=2.999999500000375,f(1000.0)=1.000000499999625]
-- an error. To debug this try debugmode(true);

Que nos indica que la función no tiene ceros en ese intervalo. Si los límites en menos infinito y más infinito coinciden con esos
valores, la derivada segunda no se anula nunca, con lo que su valor es siempre positivo y, por tanto, la función es siempre creciente:

(%i3) limit(w(x), x, inf)
(%o3) 1
(%i4) limit(w(x), x, minf)
(%o4) 3

Efectivamente, la función f(x) es siempre monótona creciente.

=== Ejercicio 2.6 ===
Calcular las ecuaciones reducidas de las asíntotas de <math>g</math>.

Para comprobar si la función tiene asíntotas horizontales:
(%i1) limit(2*x-sqrt(1+x^2), x, inf);
(%o1) inf
De tener asíntota oblicua, vendrá dada por la ecuación y=m*x+n.
Para calcular la pendiente de la asíntota oblicua:
(%i2) limit((2*x-sqrt(1+x^2))/x, x, inf);
(%o2) 1
Para calcular la ordenada de la asíntota oblicua:
(%i3) limit((2*x-sqrt(1+x^2))-x, x, inf);
(%o3) 0
Por lo que la función no tiene asíntotas horizontales (%o1) y la ecuación de su asíntota oblicua es y=x

== Ejercicio 3 ==
=== Ejercicio 3.1 ===
Desarrollar <math>cos(3t)</math> en función de <math>cos(t)</math>.
(%i1)wxplot2d([['parametric, cos(t), cos(3*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o1)[[Archivo: ejercicio_3-1.png]]

=== Ejercicio 3.2 ===
Desarrollar <math>cos(4t)</math> en función de <math>cos(t)</math>
(%i2)wxplot2d([['parametric, cos(t), cos(4*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o2)[[Archivo:Ejercicio_3-2.png]]

=== Ejercicio 3.3 ===
Desarrollar <math>cos(5t)</math> en función de <math>cos(t)</math>.
(%i3)wxplot2d([['parametric, cos(t), cos(5*t), [t, -10, 10], [nticks, 300]]], [x,-1,1], [y,-1.5,1.5])$
(%o3)[[Archivo:ejercicio_3-3.png]]

=== Ejercicio 3.4 ===
Determinar los polinomios <math>T_n</math> de la variable <math>x</math> tales que para todo <math>t \in \mathbb{R}</math>, <math>cos(nt) = T_n(cos\ t)</math> para <math>n \in \{3,4,5\}</math>.

=== Ejercicio 3.5 ===
Representar las funciones <math>T_3</math>, <math>T_4</math> y <math>T_5</math> en la misma gráfica.

2010 Ejercicios 2: Funciones de una variable

2010-05-09T22:41:49Z

Ccarbonellc: /* Ejercicio 2.6 */

'''Funciones a utilizar:''' ''if...then...else'', ''assume'', ''limit'', ''forget'', ''plot2d'', ''diff'', ''define'', ''solve'', ''trigexpand'', ''trigsimp'' y ''subst''.

== Ejercicio 1 ==
Sean <math>a</math> y <math>b</math> dos números reales. Se considera la función <math>f</math> definida sobre los números reales por
:<math>
f(x)=\left\{
\begin{array}{lll}
\dfrac{e^x-1}{x} &\mbox{si} & x>0\\
a\,x+b &\mbox{si} & x\leq 0
\end{array}
\right.
</math>

=== Ejercicio 1.1 ===
Definir la función <math>f</math> usando el condicional ''if ... then ... else''.
(%i1) f(x):= if(x>0) then (%e^x-1)/x else a*x+b$

== Ejercicio 1.2 ==
''limit'' no puede evaluar expresiones del tipo ''if...then''. Por ello, para determinar el límite de <math>f</math> en cero por la derecha se necesita precisar en qué intervalo se encuentra <math>x</math>. Esto puede hacerse con la función ''assume''.

Escribir la expresión ''assume(x>0)'', después calcular el límite de <math>f</math> en cero por la derecha. Se puede eliminar la hipótesis sobre <math>x</math> con ''forget(x>0)''.

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) limit(f(x),x,0,plus);
(%o2) 1
=== Ejercicio 1.3 ===
Deducir el valor de <math>b</math> para el que <math>f</math> es continua en <math>\mathbb{R}</math>.

(%i1) j(x):=a*x+b $
(%i2) limit(j(x),x,0,minus);
(%o2) b
(%i3) b:1 $
(%i4) b;
(%o4) 1

=== Ejercicio 1.4 ===
Calcular la derivada de <math>f</math> en cero por la derecha.

(%i1) g(x):= (exp(x)-1)/x;
(%i2) diff(g(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) ratsimp(%o2);
(%o3) ((x-1)*%e^x+1)/x^2
(%i4) define (h(x), %o3);
(%i5) limit(h(x),x,0,plus);
(%o5) 1/2

OTRA FORMA

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) diff(f(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) limit (%o2,x,0,plus);
(%o3) 1/2

=== Ejercicio 1.5 ===
Calcular el valor de <math>a</math> para el que <math>f</math> es derivable en cero.

(%i6) j(x):=a*x+b;
(%i7) diff(j(x),x);
(%o7) a
(%i8) define (k(x), %o7)$
(%i9) limit (k(x),x,0,minus);
(%o9) a
(%i10)a:%o5;
(%i11) a;
(%o11) 1/2

== Ejercicio 2 ==
Sea <math>g</math> la función real definida por <math>g(x) = 2x-\sqrt{1+x^2}</math>
(%i1)g(x):= 2*x-sqrt(1+x^2)$

=== Ejercicio 2.1 ===
Calcular los límites de <math>g</math> en más y menos infinito.
(%i2)limit(g(x), x, inf);
(%o2)inf
(%i3)limit(g(x), x, minf);
(%o3)-inf

=== Ejercicio 2.2 ===
Dibujar la gráfica de la función <math>g</math>.

(%i1) g(x):= 2*x-sqrt(1+x^2)$
(%i2) wxplot2d(g(x), [x,-5,5], [y,-5,5]);
[[Imagen:ej_2.2.png]]

=== Ejercicio 2.3 ===
Calcular <math>g'(x)</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)'diff(g(x),x)=diff(g(x),x);
(%o1) 'diff((2*x-sqrt(x^2+1)),x,1)=2-x/sqrt(x^2+1)

=== Ejercicio 2.4 ===
Resolver la ecuación <math>g(x)=0</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)find_root(2*x=sqrt(1+x^2),x,-100,100);
(%o1)0.57735026918963

=== Ejercicio 2.5 ===
Determinar los intervalos de crecimiento de <math>g</math>.

(%i1) define(w(x),diff(g(x),x))$
(%i2) find_root(w(x),x,-1000,1000)

Obtenemos el resultado:
function has same sign at endpoints
[f(-1000.0)=2.999999500000375,f(1000.0)=1.000000499999625]
-- an error. To debug this try debugmode(true);

Que nos indica que la función no tiene ceros en ese intervalo. Si los límites en menos infinito y más infinito coinciden con esos
valores, la derivada segunda no se anula nunca, con lo que su valor es siempre positivo y, por tanto, la función es siempre creciente:

(%i3) limit(w(x), x, inf)
(%o3) 1
(%i4) limit(w(x), x, minf)
(%o4) 3

Efectivamente, la función f(x) es siempre monótona creciente.

=== Ejercicio 2.6 ===
Calcular las ecuaciones reducidas de las asíntotas de <math>g</math>.

(%i1) limit(2*x-sqrt(1+x^2), x, inf);
(%o1) inf
(%i2) limit((2*x-sqrt(1+x^2))/x, x, inf);
(%o2) 1
(%i3) limit((2*x-sqrt(1+x^2))-x, x, inf);
(%o3) 0
Por lo que la función no tiene asíntotas horizontales (%o1) y la ecuación de su asíntota oblicua es y=x

== Ejercicio 3 ==
=== Ejercicio 3.1 ===
Desarrollar <math>cos(3t)</math> en función de <math>cos(t)</math>.
(%i1)wxplot2d([['parametric, cos(t), cos(3*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o1)[[Archivo: ejercicio_3-1.png]]

=== Ejercicio 3.2 ===
Desarrollar <math>cos(4t)</math> en función de <math>cos(t)</math>
(%i2)wxplot2d([['parametric, cos(t), cos(4*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o2)[[Archivo:Ejercicio_3-2.png]]

=== Ejercicio 3.3 ===
Desarrollar <math>cos(5t)</math> en función de <math>cos(t)</math>.
(%i3)wxplot2d([['parametric, cos(t), cos(5*t), [t, -10, 10], [nticks, 300]]], [x,-1,1], [y,-1.5,1.5])$
(%o3)[[Archivo:ejercicio_3-3.png]]

=== Ejercicio 3.4 ===
Determinar los polinomios <math>T_n</math> de la variable <math>x</math> tales que para todo <math>t \in \mathbb{R}</math>, <math>cos(nt) = T_n(cos\ t)</math> para <math>n \in \{3,4,5\}</math>.

=== Ejercicio 3.5 ===
Representar las funciones <math>T_3</math>, <math>T_4</math> y <math>T_5</math> en la misma gráfica.

2010 Ejercicios 2: Funciones de una variable

2010-05-09T22:41:33Z

Ccarbonellc: /* Ejercicio 2.6 */

'''Funciones a utilizar:''' ''if...then...else'', ''assume'', ''limit'', ''forget'', ''plot2d'', ''diff'', ''define'', ''solve'', ''trigexpand'', ''trigsimp'' y ''subst''.

== Ejercicio 1 ==
Sean <math>a</math> y <math>b</math> dos números reales. Se considera la función <math>f</math> definida sobre los números reales por
:<math>
f(x)=\left\{
\begin{array}{lll}
\dfrac{e^x-1}{x} &\mbox{si} & x>0\\
a\,x+b &\mbox{si} & x\leq 0
\end{array}
\right.
</math>

=== Ejercicio 1.1 ===
Definir la función <math>f</math> usando el condicional ''if ... then ... else''.
(%i1) f(x):= if(x>0) then (%e^x-1)/x else a*x+b$

== Ejercicio 1.2 ==
''limit'' no puede evaluar expresiones del tipo ''if...then''. Por ello, para determinar el límite de <math>f</math> en cero por la derecha se necesita precisar en qué intervalo se encuentra <math>x</math>. Esto puede hacerse con la función ''assume''.

Escribir la expresión ''assume(x>0)'', después calcular el límite de <math>f</math> en cero por la derecha. Se puede eliminar la hipótesis sobre <math>x</math> con ''forget(x>0)''.

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) limit(f(x),x,0,plus);
(%o2) 1
=== Ejercicio 1.3 ===
Deducir el valor de <math>b</math> para el que <math>f</math> es continua en <math>\mathbb{R}</math>.

(%i1) j(x):=a*x+b $
(%i2) limit(j(x),x,0,minus);
(%o2) b
(%i3) b:1 $
(%i4) b;
(%o4) 1

=== Ejercicio 1.4 ===
Calcular la derivada de <math>f</math> en cero por la derecha.

(%i1) g(x):= (exp(x)-1)/x;
(%i2) diff(g(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) ratsimp(%o2);
(%o3) ((x-1)*%e^x+1)/x^2
(%i4) define (h(x), %o3);
(%i5) limit(h(x),x,0,plus);
(%o5) 1/2

OTRA FORMA

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) diff(f(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) limit (%o2,x,0,plus);
(%o3) 1/2

=== Ejercicio 1.5 ===
Calcular el valor de <math>a</math> para el que <math>f</math> es derivable en cero.

(%i6) j(x):=a*x+b;
(%i7) diff(j(x),x);
(%o7) a
(%i8) define (k(x), %o7)$
(%i9) limit (k(x),x,0,minus);
(%o9) a
(%i10)a:%o5;
(%i11) a;
(%o11) 1/2

== Ejercicio 2 ==
Sea <math>g</math> la función real definida por <math>g(x) = 2x-\sqrt{1+x^2}</math>
(%i1)g(x):= 2*x-sqrt(1+x^2)$

=== Ejercicio 2.1 ===
Calcular los límites de <math>g</math> en más y menos infinito.
(%i2)limit(g(x), x, inf);
(%o2)inf
(%i3)limit(g(x), x, minf);
(%o3)-inf

=== Ejercicio 2.2 ===
Dibujar la gráfica de la función <math>g</math>.

(%i1) g(x):= 2*x-sqrt(1+x^2)$
(%i2) wxplot2d(g(x), [x,-5,5], [y,-5,5]);
[[Imagen:ej_2.2.png]]

=== Ejercicio 2.3 ===
Calcular <math>g'(x)</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)'diff(g(x),x)=diff(g(x),x);
(%o1) 'diff((2*x-sqrt(x^2+1)),x,1)=2-x/sqrt(x^2+1)

=== Ejercicio 2.4 ===
Resolver la ecuación <math>g(x)=0</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)find_root(2*x=sqrt(1+x^2),x,-100,100);
(%o1)0.57735026918963

=== Ejercicio 2.5 ===
Determinar los intervalos de crecimiento de <math>g</math>.

(%i1) define(w(x),diff(g(x),x))$
(%i2) find_root(w(x),x,-1000,1000)

Obtenemos el resultado:
function has same sign at endpoints
[f(-1000.0)=2.999999500000375,f(1000.0)=1.000000499999625]
-- an error. To debug this try debugmode(true);

Que nos indica que la función no tiene ceros en ese intervalo. Si los límites en menos infinito y más infinito coinciden con esos
valores, la derivada segunda no se anula nunca, con lo que su valor es siempre positivo y, por tanto, la función es siempre creciente:

(%i3) limit(w(x), x, inf)
(%o3) 1
(%i4) limit(w(x), x, minf)
(%o4) 3

Efectivamente, la función f(x) es siempre monótona creciente.

=== Ejercicio 2.6 ===
Calcular las ecuaciones reducidas de las asíntotas de <math>g</math>.

(%i1) limit(2*x-sqrt(1+x^2), x, inf);
(%o1) inf

(%i2) limit((2*x-sqrt(1+x^2))/x, x, inf);
(%o2) 1

(%i3) limit((2*x-sqrt(1+x^2))-x, x, inf);
(%o3) 0

Por lo que la función no tiene asíntotas horizontales (%o1) y la ecuación de su asíntota oblicua es y=x

== Ejercicio 3 ==
=== Ejercicio 3.1 ===
Desarrollar <math>cos(3t)</math> en función de <math>cos(t)</math>.
(%i1)wxplot2d([['parametric, cos(t), cos(3*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o1)[[Archivo: ejercicio_3-1.png]]

=== Ejercicio 3.2 ===
Desarrollar <math>cos(4t)</math> en función de <math>cos(t)</math>
(%i2)wxplot2d([['parametric, cos(t), cos(4*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o2)[[Archivo:Ejercicio_3-2.png]]

=== Ejercicio 3.3 ===
Desarrollar <math>cos(5t)</math> en función de <math>cos(t)</math>.
(%i3)wxplot2d([['parametric, cos(t), cos(5*t), [t, -10, 10], [nticks, 300]]], [x,-1,1], [y,-1.5,1.5])$
(%o3)[[Archivo:ejercicio_3-3.png]]

=== Ejercicio 3.4 ===
Determinar los polinomios <math>T_n</math> de la variable <math>x</math> tales que para todo <math>t \in \mathbb{R}</math>, <math>cos(nt) = T_n(cos\ t)</math> para <math>n \in \{3,4,5\}</math>.

=== Ejercicio 3.5 ===
Representar las funciones <math>T_3</math>, <math>T_4</math> y <math>T_5</math> en la misma gráfica.

2010 Ejercicios 2: Funciones de una variable

2010-05-09T22:41:00Z

Ccarbonellc: /* Ejercicio 2.6 */

'''Funciones a utilizar:''' ''if...then...else'', ''assume'', ''limit'', ''forget'', ''plot2d'', ''diff'', ''define'', ''solve'', ''trigexpand'', ''trigsimp'' y ''subst''.

== Ejercicio 1 ==
Sean <math>a</math> y <math>b</math> dos números reales. Se considera la función <math>f</math> definida sobre los números reales por
:<math>
f(x)=\left\{
\begin{array}{lll}
\dfrac{e^x-1}{x} &\mbox{si} & x>0\\
a\,x+b &\mbox{si} & x\leq 0
\end{array}
\right.
</math>

=== Ejercicio 1.1 ===
Definir la función <math>f</math> usando el condicional ''if ... then ... else''.
(%i1) f(x):= if(x>0) then (%e^x-1)/x else a*x+b$

== Ejercicio 1.2 ==
''limit'' no puede evaluar expresiones del tipo ''if...then''. Por ello, para determinar el límite de <math>f</math> en cero por la derecha se necesita precisar en qué intervalo se encuentra <math>x</math>. Esto puede hacerse con la función ''assume''.

Escribir la expresión ''assume(x>0)'', después calcular el límite de <math>f</math> en cero por la derecha. Se puede eliminar la hipótesis sobre <math>x</math> con ''forget(x>0)''.

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) limit(f(x),x,0,plus);
(%o2) 1
=== Ejercicio 1.3 ===
Deducir el valor de <math>b</math> para el que <math>f</math> es continua en <math>\mathbb{R}</math>.

(%i1) j(x):=a*x+b $
(%i2) limit(j(x),x,0,minus);
(%o2) b
(%i3) b:1 $
(%i4) b;
(%o4) 1

=== Ejercicio 1.4 ===
Calcular la derivada de <math>f</math> en cero por la derecha.

(%i1) g(x):= (exp(x)-1)/x;
(%i2) diff(g(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) ratsimp(%o2);
(%o3) ((x-1)*%e^x+1)/x^2
(%i4) define (h(x), %o3);
(%i5) limit(h(x),x,0,plus);
(%o5) 1/2

OTRA FORMA

(%i1) assume(x>0);
(%o1) [x>0]
(%i2) diff(f(x),x);
(%o2) %e^x/x-(%e^x-1)/x^2
(%i3) limit (%o2,x,0,plus);
(%o3) 1/2

=== Ejercicio 1.5 ===
Calcular el valor de <math>a</math> para el que <math>f</math> es derivable en cero.

(%i6) j(x):=a*x+b;
(%i7) diff(j(x),x);
(%o7) a
(%i8) define (k(x), %o7)$
(%i9) limit (k(x),x,0,minus);
(%o9) a
(%i10)a:%o5;
(%i11) a;
(%o11) 1/2

== Ejercicio 2 ==
Sea <math>g</math> la función real definida por <math>g(x) = 2x-\sqrt{1+x^2}</math>
(%i1)g(x):= 2*x-sqrt(1+x^2)$

=== Ejercicio 2.1 ===
Calcular los límites de <math>g</math> en más y menos infinito.
(%i2)limit(g(x), x, inf);
(%o2)inf
(%i3)limit(g(x), x, minf);
(%o3)-inf

=== Ejercicio 2.2 ===
Dibujar la gráfica de la función <math>g</math>.

(%i1) g(x):= 2*x-sqrt(1+x^2)$
(%i2) wxplot2d(g(x), [x,-5,5], [y,-5,5]);
[[Imagen:ej_2.2.png]]

=== Ejercicio 2.3 ===
Calcular <math>g'(x)</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)'diff(g(x),x)=diff(g(x),x);
(%o1) 'diff((2*x-sqrt(x^2+1)),x,1)=2-x/sqrt(x^2+1)

=== Ejercicio 2.4 ===
Resolver la ecuación <math>g(x)=0</math>.

(%i1)g(x):= 2*x-sqrt(1+x^2)$
(%i2)find_root(2*x=sqrt(1+x^2),x,-100,100);
(%o1)0.57735026918963

=== Ejercicio 2.5 ===
Determinar los intervalos de crecimiento de <math>g</math>.

(%i1) define(w(x),diff(g(x),x))$
(%i2) find_root(w(x),x,-1000,1000)

Obtenemos el resultado:
function has same sign at endpoints
[f(-1000.0)=2.999999500000375,f(1000.0)=1.000000499999625]
-- an error. To debug this try debugmode(true);

Que nos indica que la función no tiene ceros en ese intervalo. Si los límites en menos infinito y más infinito coinciden con esos
valores, la derivada segunda no se anula nunca, con lo que su valor es siempre positivo y, por tanto, la función es siempre creciente:

(%i3) limit(w(x), x, inf)
(%o3) 1
(%i4) limit(w(x), x, minf)
(%o4) 3

Efectivamente, la función f(x) es siempre monótona creciente.

=== Ejercicio 2.6 ===
Calcular las ecuaciones reducidas de las asíntotas de <math>g</math>.

(%i1) limit(2*x-sqrt(1+x^2), x, inf);
(%o1) inf

(%i2) limit((2*x-sqrt(1+x^2))/x, x, inf);
(%o2) 1

(%i3) limit((2*x-sqrt(1+x^2))-x, x, inf);
(%o3) 0

Por lo que la función no tiene asíntotas horizontales (%o1) y la ecuación de su asíntota oblicua es y=x

== Ejercicio 3 ==
=== Ejercicio 3.1 ===
Desarrollar <math>cos(3t)</math> en función de <math>cos(t)</math>.
(%i1)wxplot2d([['parametric, cos(t), cos(3*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o1)[[Archivo: ejercicio_3-1.png]]

=== Ejercicio 3.2 ===
Desarrollar <math>cos(4t)</math> en función de <math>cos(t)</math>
(%i2)wxplot2d([['parametric, cos(t), cos(4*t), [t, -10, 10], [nticks, 300]]], [x,-2,2], [y,-2,2])$
(%o2)[[Archivo:Ejercicio_3-2.png]]

=== Ejercicio 3.3 ===
Desarrollar <math>cos(5t)</math> en función de <math>cos(t)</math>.
(%i3)wxplot2d([['parametric, cos(t), cos(5*t), [t, -10, 10], [nticks, 300]]], [x,-1,1], [y,-1.5,1.5])$
(%o3)[[Archivo:ejercicio_3-3.png]]

=== Ejercicio 3.4 ===
Determinar los polinomios <math>T_n</math> de la variable <math>x</math> tales que para todo <math>t \in \mathbb{R}</math>, <math>cos(nt) = T_n(cos\ t)</math> para <math>n \in \{3,4,5\}</math>.

=== Ejercicio 3.5 ===
Representar las funciones <math>T_3</math>, <math>T_4</math> y <math>T_5</math> en la misma gráfica.

2010 Ejercicios de introducción a Maxima

2010-04-20T18:17:06Z

Ccarbonellc: /* Ejercicio 6.1 */

'''Fonciones y variables a utilizar:''' ''float'', ''is'', ''expand'', ''fpprec'', ''bfloat'', ''solve'', ''factor'', ''rectform'', ''abs'', ''carg'', ''plot2D'' y ''find_root''.

== Ejercicio 1 ==
=== Ejercicio 1.1 ===
Definir la constante <math>a = (20+14\sqrt{2})^{1/3} + (20-14\sqrt{2})^{1/3}</math>.
----
'''Solución:'''
(%i1) a : (20+14*sqrt(2))^(1/3) + (20-14*sqrt(2))^(1/3);
(%o1) (7*2^(3/2)+20)^(1/3)+(20-7*2^(3/2))^(1/3)

=== Ejercicio 1.2 ===
Calcular el valor numérico de a. ¿A qué entero se aproxima?

'''Solución:'''
(%i2) float(a);
(%o2) 3.999999999999996

(%i3) round(%);
(%o3) 4

== Ejercicio 2 ==
Ejercicio 2. Escribir el número <math>\left(sin\frac{\pi}{3}+cos\frac{\pi}{3}\right)^9</math> en la forma <math>a + b \ast c^d</math>, donde <math>a, b, c</math> y <math>d</math> son números racionales.

''Nota'': Cambiar el valor de la variable ''%piargs'' a ''true'' y usar ''radcan'' para la simplificación de radicales.

'''Solución:'''

== Ejercicio 3 ==
Calcular la cifra 149 del número <math>\pi</math>.

'''Solución:'''
(%i1) fpprec : 149;bfloat(%pi);
(%o1) 149
(%o2) 3.1415926535897932384626433832[92 digits]0938446095505822317253594081b0

== Ejercicio 4 ==
Se considera el polinomio <math>p = x^4-x^3-7x^2-8x-6</math>.
(%i1) p:x^4-x^3-7*x^2-8*x-6;
(%o1) x^4-x^3-7*x^2-8*x-6

=== Ejercicio 4.1. ===
Calcular las raices reales de <math>p</math>.

'''Solución:'''
(%i2) realroots(p);
(%o2) [x=-55222251/33554432,x=122331115/33554432]

=== Ejercicio 4.2 ===
Factorizar al máximo el polinomio <math>p</math>.

'''Solución:'''
(%i3) factor(p);
(%o3) (x^2-2*x-6)*(x^2+x+1)

== Ejercicio 5 ==
Sea <math>z=\left(\frac{1-i\sqrt 3}{1+i}\right)^{20}</math>.

(%i1) z: ((1-%i*sqrt(3))/(1+%i))^20$

=== Ejercicio 5.1 ===
Calcular la parte real y la parte imaginaria de <math>z</math>.

'''Solución:'''

(%i2) realpart(z);
(%o2) 512

(%i3) imagpart(z)$
(%i4) radcan(%);
(%o4) 512*sqrt(3)

=== Ejercicio 5.2 ===
Calcular el módulo y el argumento de <math>z</math>.

'''Solución:'''
(%i5) ratsimp(abs(z));ratsimp(carg(z));
(%o5) 1024
(%o6) %pi/3

== Ejercicio 6 ==

=== Ejercicio 6.1 ===
Con la ayuda de la representación gráfica, conjeturar el número de soluciones de la ecuación
:<math>\sin x=1-x^4</math>.

'''Solución:'''
(%i1) (%i1) wxplot2d([sin(x),1-x^4], [x,-1.5,1.5], [y,-2,2],
[gnuplot_preamble, "set xrange [-1.5:1.5]; set yrange [-2:2]; set grid;"]);

[[Archivo:plot.jpeg]]

A la vista de la gráfica, la ecuación tendrá 2 soluciones.

=== Ejercicio 6.2 ===
Dar una aproximación de cada solución.

'''Solución:'''

Observando la gráfica podemos estimar que las soluciones serán -1,2 y 0,7.

== Ejercicio 7 ==
Resolver el siguiente sistema lineal en función de los parámetros
<math>a, b</math> y <math>c</math>:
:<math>
\left\{
\begin{array}{l}
x+ay+a^2 z=0 \\
x+by+b^2 z=0 \\
x+cy+c^2z=1
\end{array}
\right.
</math>

'''Solución:'''
(%i1)sist:[x+a*y+a^2*z=0, x+b*y+b^2*z=0, x+c*y+c^2*z=1]$
(%i2)solve(sist, [x,y,z]);
(%o2)[[x=(a*b)/(c^2-b*c+a*(b-c)),
y=-(b+a)/(c^2-b*c+a*(b-c)),
z=1/(c^2-b*c+a*(b-c))]]

2010-04-19T23:00:10Z

Ccarbonellc: Ejercicio 6.1

Ejercicio 6.1

2010 Ejercicios de introducción a Maxima

2010-04-19T21:35:45Z

Ccarbonellc: /* Ejercicio 6.1 */

'''Fonciones y variables a utilizar:''' ''float'', ''is'', ''expand'', ''fpprec'', ''bfloat'', ''solve'', ''factor'', ''rectform'', ''abs'', ''carg'', ''plot2D'' y ''find_root''.

== Ejercicio 1 ==
=== Ejercicio 1.1 ===
Definir la constante <math>a = (20+14\sqrt{2})^{1/3} + (20-14\sqrt{2})^{1/3}</math>.
----
'''Solución:'''
(%i1) a : (20+14*sqrt(2))^(1/3) + (20-14*sqrt(2))^(1/3);
(%o1) (7*2^(3/2)+20)^(1/3)+(20-7*2^(3/2))^(1/3)

=== Ejercicio 1.2 ===
Calcular el valor numérico de a. ¿A qué entero se aproxima?

'''Solución:'''
(%i2) float(a);
(%o2) 3.999999999999996

(%i3) round(%);
(%o3) 4

== Ejercicio 2 ==
Ejercicio 2. Escribir el número <math>\left(sin\frac{\pi}{3}+cos\frac{\pi}{3}\right)^9</math> en la forma <math>a + b \ast c^d</math>, donde <math>a, b, c</math> y <math>d</math> son números racionales.

''Nota'': Cambiar el valor de la variable ''%piargs'' a ''true'' y usar ''radcan'' para la simplificación de radicales.

'''Solución:'''

== Ejercicio 3 ==
Calcular la cifra 149 del número <math>\pi</math>.

'''Solución:'''
(%i1) fpprec : 149;bfloat(%pi);
(%o1) 149
(%o2) 3.1415926535897932384626433832[92 digits]0938446095505822317253594081b0

== Ejercicio 4 ==
Se considera el polinomio <math>p = x^4-x^3-7x^2-8x-6</math>.
(%i1) p:x^4-x^3-7*x^2-8*x-6;
(%o1) x^4-x^3-7*x^2-8*x-6

=== Ejercicio 4.1. ===
Calcular las raices reales de <math>p</math>.

'''Solución:'''
(%i2) realroots(p);
(%o2) [x=-55222251/33554432,x=122331115/33554432]

=== Ejercicio 4.2 ===
Factorizar al máximo el polinomio <math>p</math>.

'''Solución:'''
(%i3) factor(p);
(%o3) (x^2-2*x-6)*(x^2+x+1)

== Ejercicio 5 ==
Sea <math>z=\left(\frac{1-i\sqrt 3}{1+i}\right)^{20}</math>.

(%i1) z: ((1-%i*sqrt(3))/(1+%i))^20$

=== Ejercicio 5.1 ===
Calcular la parte real y la parte imaginaria de <math>z</math>.

'''Solución:'''

(%i2) realpart(z);
(%o2) 512

(%i3) imagpart(z)$
(%i4) radcan(%);
(%o4) 512*sqrt(3)

=== Ejercicio 5.2 ===
Calcular el módulo y el argumento de <math>z</math>.

'''Solución:'''
(%i5) ratsimp(abs(z));ratsimp(carg(z));
(%o5) 1024
(%o6) %pi/3

== Ejercicio 6 ==

=== Ejercicio 6.1 ===
Con la ayuda de la representación gráfica, conjeturar el número de soluciones de la ecuación
:<math>\sin x=1-x^4</math>.

'''Solución:'''
(%i1) wxplot2d([sin(x),1-x^4], [x,-3,3], [y,-2,2]);

A la vista de la gráfica, la ecuación tendrá 2 soluciones.

=== Ejercicio 6.2 ===
Dar una aproximación de cada solución.

'''Solución:'''

== Ejercicio 7 ==
Resolver el siguiente sistema lineal en función de los parámetros
<math>a, b</math> y <math>c</math>:
:<math>
\left\{
\begin{array}{l}
x+ay+a^2 z=0 \\
x+by+b^2 z=0 \\
x+cy+c^2z=1
\end{array}
\right.
</math>

'''Solución:'''
(%i1)sist:[x+a*y+a^2*z=0, x+b*y+b^2*z=0, x+c*y+c^2*z=1]$
(%i2)solve(sist, [x,y,z]);
(%o2)[[x=(a*b)/(c^2-b*c+a*(b-c)),
y=-(b+a)/(c^2-b*c+a*(b-c)),
z=1/(c^2-b*c+a*(b-c))]]

2010 Ejercicios de introducción a Maxima

2010-04-19T21:35:19Z

Ccarbonellc: que

'''Fonciones y variables a utilizar:''' ''float'', ''is'', ''expand'', ''fpprec'', ''bfloat'', ''solve'', ''factor'', ''rectform'', ''abs'', ''carg'', ''plot2D'' y ''find_root''.

== Ejercicio 1 ==
=== Ejercicio 1.1 ===
Definir la constante <math>a = (20+14\sqrt{2})^{1/3} + (20-14\sqrt{2})^{1/3}</math>.
----
'''Solución:'''
(%i1) a : (20+14*sqrt(2))^(1/3) + (20-14*sqrt(2))^(1/3);
(%o1) (7*2^(3/2)+20)^(1/3)+(20-7*2^(3/2))^(1/3)

=== Ejercicio 1.2 ===
Calcular el valor numérico de a. ¿A qué entero se aproxima?

'''Solución:'''
(%i2) float(a);
(%o2) 3.999999999999996

(%i3) round(%);
(%o3) 4

== Ejercicio 2 ==
Ejercicio 2. Escribir el número <math>\left(sin\frac{\pi}{3}+cos\frac{\pi}{3}\right)^9</math> en la forma <math>a + b \ast c^d</math>, donde <math>a, b, c</math> y <math>d</math> son números racionales.

''Nota'': Cambiar el valor de la variable ''%piargs'' a ''true'' y usar ''radcan'' para la simplificación de radicales.

'''Solución:'''

== Ejercicio 3 ==
Calcular la cifra 149 del número <math>\pi</math>.

'''Solución:'''
(%i1) fpprec : 149;bfloat(%pi);
(%o1) 149
(%o2) 3.1415926535897932384626433832[92 digits]0938446095505822317253594081b0

== Ejercicio 4 ==
Se considera el polinomio <math>p = x^4-x^3-7x^2-8x-6</math>.
(%i1) p:x^4-x^3-7*x^2-8*x-6;
(%o1) x^4-x^3-7*x^2-8*x-6

=== Ejercicio 4.1. ===
Calcular las raices reales de <math>p</math>.

'''Solución:'''
(%i2) realroots(p);
(%o2) [x=-55222251/33554432,x=122331115/33554432]

=== Ejercicio 4.2 ===
Factorizar al máximo el polinomio <math>p</math>.

'''Solución:'''
(%i3) factor(p);
(%o3) (x^2-2*x-6)*(x^2+x+1)

== Ejercicio 5 ==
Sea <math>z=\left(\frac{1-i\sqrt 3}{1+i}\right)^{20}</math>.

(%i1) z: ((1-%i*sqrt(3))/(1+%i))^20$

=== Ejercicio 5.1 ===
Calcular la parte real y la parte imaginaria de <math>z</math>.

'''Solución:'''

(%i2) realpart(z);
(%o2) 512

(%i3) imagpart(z)$
(%i4) radcan(%);
(%o4) 512*sqrt(3)

=== Ejercicio 5.2 ===
Calcular el módulo y el argumento de <math>z</math>.

'''Solución:'''
(%i5) ratsimp(abs(z));ratsimp(carg(z));
(%o5) 1024
(%o6) %pi/3

== Ejercicio 6 ==

=== Ejercicio 6.1 ===
Con la ayuda de la representación gráfica, conjeturar el número de soluciones de la ecuación
:<math>\sin x=1-x^4</math>.

'''Solución:'''
(%i1) wxplot2d([sin(x),1-x^4], [x,-3,3], [y,-2,2]);

A la vista de la gráfica, la ecuación tendrá 2 soluciones.

=== Ejercicio 6.2 ===
Dar una aproximación de cada solución.

'''Solución:'''

== Ejercicio 7 ==
Resolver el siguiente sistema lineal en función de los parámetros
<math>a, b</math> y <math>c</math>:
:<math>
\left\{
\begin{array}{l}
x+ay+a^2 z=0 \\
x+by+b^2 z=0 \\
x+cy+c^2z=1
\end{array}
\right.
</math>

'''Solución:'''
(%i1)sist:[x+a*y+a^2*z=0, x+b*y+b^2*z=0, x+c*y+c^2*z=1]$
(%i2)solve(sist, [x,y,z]);
(%o2)[[x=(a*b)/(c^2-b*c+a*(b-c)),
y=-(b+a)/(c^2-b*c+a*(b-c)),
z=1/(c^2-b*c+a*(b-c))]]