<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="es">
	<id>https://www.glc.us.es/~jalonso/SLEAM2010/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Caragubla</id>
	<title>Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) - Contribuciones del usuario [es]</title>
	<link rel="self" type="application/atom+xml" href="https://www.glc.us.es/~jalonso/SLEAM2010/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Caragubla"/>
	<link rel="alternate" type="text/html" href="https://www.glc.us.es/~jalonso/SLEAM2010/index.php/Especial:Contribuciones/Caragubla"/>
	<updated>2026-07-17T15:19:15Z</updated>
	<subtitle>Contribuciones del usuario</subtitle>
	<generator>MediaWiki 1.31.0</generator>
	<entry>
		<id>https://www.glc.us.es/~jalonso/SLEAM2010/index.php?title=2010_Ejercicios_de_introducci%C3%B3n_a_Maxima&amp;diff=107</id>
		<title>2010 Ejercicios de introducción a Maxima</title>
		<link rel="alternate" type="text/html" href="https://www.glc.us.es/~jalonso/SLEAM2010/index.php?title=2010_Ejercicios_de_introducci%C3%B3n_a_Maxima&amp;diff=107"/>
		<updated>2010-04-14T20:32:37Z</updated>

		<summary type="html">&lt;p&gt;Caragubla: /* Ejercicio 5.2 */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&amp;#039;&amp;#039;&amp;#039;Fonciones y variables a utilizar:&amp;#039;&amp;#039;&amp;#039; &amp;#039;&amp;#039;float&amp;#039;&amp;#039;, &amp;#039;&amp;#039;is&amp;#039;&amp;#039;, &amp;#039;&amp;#039;expand&amp;#039;&amp;#039;, &amp;#039;&amp;#039;fpprec&amp;#039;&amp;#039;, &amp;#039;&amp;#039;bfloat&amp;#039;&amp;#039;, &amp;#039;&amp;#039;solve&amp;#039;&amp;#039;, &amp;#039;&amp;#039;factor&amp;#039;&amp;#039;, &amp;#039;&amp;#039;rectform&amp;#039;&amp;#039;, &amp;#039;&amp;#039;abs&amp;#039;&amp;#039;, &amp;#039;&amp;#039;carg&amp;#039;&amp;#039;, &amp;#039;&amp;#039;plot2D&amp;#039;&amp;#039; y &amp;#039;&amp;#039;find_root&amp;#039;&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 1 ==&lt;br /&gt;
=== Ejercicio 1.1 ===&lt;br /&gt;
Definir la constante &amp;lt;math&amp;gt;a = (20+14\sqrt{2})^{1/3} + (20-14\sqrt{2})^{1/3}&amp;lt;/math&amp;gt;.&lt;br /&gt;
----&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i1) a : (20+14*sqrt(2))^(1/3) + (20-14*sqrt(2))^(1/3);&lt;br /&gt;
 (%o1) (7*2^(3/2)+20)^(1/3)+(20-7*2^(3/2))^(1/3)&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 1.2 ===&lt;br /&gt;
Calcular el valor numérico de a. ¿A qué entero se aproxima?&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i2) float(a);&lt;br /&gt;
 (%o2) 3.999999999999996&lt;br /&gt;
 &lt;br /&gt;
 (%i3) round(%);&lt;br /&gt;
 (%o3) 4&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 2 ==&lt;br /&gt;
Ejercicio 2. Escribir el número &amp;lt;math&amp;gt;\left(sin\frac{\pi}{3}+cos\frac{\pi}{3}\right)^9&amp;lt;/math&amp;gt; en la forma &amp;lt;math&amp;gt;a + b \ast c^d&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;a, b, c&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;d&amp;lt;/math&amp;gt; son números racionales.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;Nota&amp;#039;&amp;#039;: Cambiar el valor de la variable &amp;#039;&amp;#039;%piargs&amp;#039;&amp;#039; a &amp;#039;&amp;#039;true&amp;#039;&amp;#039; y usar &amp;#039;&amp;#039;radcan&amp;#039;&amp;#039; para la simplificación de radicales.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 3 ==&lt;br /&gt;
Calcular la cifra 149 del número &amp;lt;math&amp;gt;\pi&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 4 ==&lt;br /&gt;
Se considera el polinomio &amp;lt;math&amp;gt;p = x^4-x^3-7x^2-8x-6&amp;lt;/math&amp;gt;.&lt;br /&gt;
 (%i1) p:x^4-x^3-7*x^2-8*x-6;&lt;br /&gt;
 (%o1) x^4-x^3-7*x^2-8*x-6&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 4.1. ===&lt;br /&gt;
Calcular las raices reales de &amp;lt;math&amp;gt;p&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i2) realroots(p);&lt;br /&gt;
 (%o2) [x=-55222251/33554432,x=122331115/33554432]&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 4.2 ===&lt;br /&gt;
Factorizar al máximo el polinomio &amp;lt;math&amp;gt;p&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i3) factor(p);&lt;br /&gt;
 (%o3) (x^2-2*x-6)*(x^2+x+1)&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 5 ==&lt;br /&gt;
Sea &amp;lt;math&amp;gt;z=\left(\frac{1-i\sqrt 3}{1+i}\right)^{20}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
 (%i1) z: ((1-%i*sqrt(3))/(1+%i))^20$&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 5.1 === &lt;br /&gt;
Calcular la parte real y la parte imaginaria de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
 (%i2) realpart(z);&lt;br /&gt;
 (%o2) 512&lt;br /&gt;
&lt;br /&gt;
 (%i3) imagpart(z)$&lt;br /&gt;
 (%i4) radcan(%);&lt;br /&gt;
 (%o4) 512*sqrt(3)&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 5.2 === &lt;br /&gt;
Calcular el módulo y el argumento de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i5) ratsimp(abs(z));ratsimp(carg(z));&lt;br /&gt;
 (%o5) 1024&lt;br /&gt;
 (%o6) %pi/3&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 6 ==&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 6.1 === &lt;br /&gt;
Con la ayuda de la representación gráfica, conjeturar el número de soluciones de la ecuación&lt;br /&gt;
:&amp;lt;math&amp;gt;\sin x=1-x^4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 6.2 === &lt;br /&gt;
Dar una aproximación de cada solución.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 7 ==&lt;br /&gt;
Resolver el siguiente sistema lineal en función de los parámetros &lt;br /&gt;
&amp;lt;math&amp;gt;a, b&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;c&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{array}{l}&lt;br /&gt;
x+ay+a^2 z=0 \\&lt;br /&gt;
x+by+b^2 z=0 \\&lt;br /&gt;
x+cy+c^2z=1&lt;br /&gt;
\end{array}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i1)sist:[x+a*y+a^2*z=0, x+b*y+b^2*z=0, x+c*y+c^2*z=1]$&lt;br /&gt;
 (%i2)solve(sist, [x,y,z]);&lt;br /&gt;
 (%o2)[[x=(a*b)/(c^2-b*c+a*(b-c)),&lt;br /&gt;
        y=-(b+a)/(c^2-b*c+a*(b-c)),&lt;br /&gt;
        z=1/(c^2-b*c+a*(b-c))]]&lt;/div&gt;</summary>
		<author><name>Caragubla</name></author>
		
	</entry>
	<entry>
		<id>https://www.glc.us.es/~jalonso/SLEAM2010/index.php?title=2010_Ejercicios_de_introducci%C3%B3n_a_Maxima&amp;diff=106</id>
		<title>2010 Ejercicios de introducción a Maxima</title>
		<link rel="alternate" type="text/html" href="https://www.glc.us.es/~jalonso/SLEAM2010/index.php?title=2010_Ejercicios_de_introducci%C3%B3n_a_Maxima&amp;diff=106"/>
		<updated>2010-04-14T20:09:04Z</updated>

		<summary type="html">&lt;p&gt;Caragubla: /* Ejercicio 5 */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&amp;#039;&amp;#039;&amp;#039;Fonciones y variables a utilizar:&amp;#039;&amp;#039;&amp;#039; &amp;#039;&amp;#039;float&amp;#039;&amp;#039;, &amp;#039;&amp;#039;is&amp;#039;&amp;#039;, &amp;#039;&amp;#039;expand&amp;#039;&amp;#039;, &amp;#039;&amp;#039;fpprec&amp;#039;&amp;#039;, &amp;#039;&amp;#039;bfloat&amp;#039;&amp;#039;, &amp;#039;&amp;#039;solve&amp;#039;&amp;#039;, &amp;#039;&amp;#039;factor&amp;#039;&amp;#039;, &amp;#039;&amp;#039;rectform&amp;#039;&amp;#039;, &amp;#039;&amp;#039;abs&amp;#039;&amp;#039;, &amp;#039;&amp;#039;carg&amp;#039;&amp;#039;, &amp;#039;&amp;#039;plot2D&amp;#039;&amp;#039; y &amp;#039;&amp;#039;find_root&amp;#039;&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 1 ==&lt;br /&gt;
=== Ejercicio 1.1 ===&lt;br /&gt;
Definir la constante &amp;lt;math&amp;gt;a = (20+14\sqrt{2})^{1/3} + (20-14\sqrt{2})^{1/3}&amp;lt;/math&amp;gt;.&lt;br /&gt;
----&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i1) a : (20+14*sqrt(2))^(1/3) + (20-14*sqrt(2))^(1/3);&lt;br /&gt;
 (%o1) (7*2^(3/2)+20)^(1/3)+(20-7*2^(3/2))^(1/3)&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 1.2 ===&lt;br /&gt;
Calcular el valor numérico de a. ¿A qué entero se aproxima?&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i2) float(a);&lt;br /&gt;
 (%o2) 3.999999999999996&lt;br /&gt;
 &lt;br /&gt;
 (%i3) round(%);&lt;br /&gt;
 (%o3) 4&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 2 ==&lt;br /&gt;
Ejercicio 2. Escribir el número &amp;lt;math&amp;gt;\left(sin\frac{\pi}{3}+cos\frac{\pi}{3}\right)^9&amp;lt;/math&amp;gt; en la forma &amp;lt;math&amp;gt;a + b \ast c^d&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;a, b, c&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;d&amp;lt;/math&amp;gt; son números racionales.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;Nota&amp;#039;&amp;#039;: Cambiar el valor de la variable &amp;#039;&amp;#039;%piargs&amp;#039;&amp;#039; a &amp;#039;&amp;#039;true&amp;#039;&amp;#039; y usar &amp;#039;&amp;#039;radcan&amp;#039;&amp;#039; para la simplificación de radicales.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 3 ==&lt;br /&gt;
Calcular la cifra 149 del número &amp;lt;math&amp;gt;\pi&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 4 ==&lt;br /&gt;
Se considera el polinomio &amp;lt;math&amp;gt;p = x^4-x^3-7x^2-8x-6&amp;lt;/math&amp;gt;.&lt;br /&gt;
 (%i1) p:x^4-x^3-7*x^2-8*x-6;&lt;br /&gt;
 (%o1) x^4-x^3-7*x^2-8*x-6&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 4.1. ===&lt;br /&gt;
Calcular las raices reales de &amp;lt;math&amp;gt;p&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i2) realroots(p);&lt;br /&gt;
 (%o2) [x=-55222251/33554432,x=122331115/33554432]&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 4.2 ===&lt;br /&gt;
Factorizar al máximo el polinomio &amp;lt;math&amp;gt;p&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i3) factor(p);&lt;br /&gt;
 (%o3) (x^2-2*x-6)*(x^2+x+1)&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 5 ==&lt;br /&gt;
Sea &amp;lt;math&amp;gt;z=\left(\frac{1-i\sqrt 3}{1+i}\right)^{20}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
 (%i1) z: ((1-%i*sqrt(3))/(1+%i))^20$&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 5.1 === &lt;br /&gt;
Calcular la parte real y la parte imaginaria de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
 (%i2) realpart(z);&lt;br /&gt;
 (%o2) 512&lt;br /&gt;
&lt;br /&gt;
 (%i3) imagpart(z)$&lt;br /&gt;
 (%i4) radcan(%);&lt;br /&gt;
 (%o4) 512*sqrt(3)&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 5.2 === &lt;br /&gt;
Calcular el módulo y el argumento de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i5) ratsimp(abs(z));ratsimp(carg(z));&lt;br /&gt;
 (%i5) 1024&lt;br /&gt;
 (%i6) %pi/3&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 6 ==&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 6.1 === &lt;br /&gt;
Con la ayuda de la representación gráfica, conjeturar el número de soluciones de la ecuación&lt;br /&gt;
:&amp;lt;math&amp;gt;\sin x=1-x^4&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
=== Ejercicio 6.2 === &lt;br /&gt;
Dar una aproximación de cada solución.&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 7 ==&lt;br /&gt;
Resolver el siguiente sistema lineal en función de los parámetros &lt;br /&gt;
&amp;lt;math&amp;gt;a, b&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;c&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{array}{l}&lt;br /&gt;
x+ay+a^2 z=0 \\&lt;br /&gt;
x+by+b^2 z=0 \\&lt;br /&gt;
x+cy+c^2z=1&lt;br /&gt;
\end{array}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;#039;&amp;#039;&amp;#039;Solución:&amp;#039;&amp;#039;&amp;#039;&lt;br /&gt;
 (%i1)sist:[x+a*y+a^2*z=0, x+b*y+b^2*z=0, x+c*y+c^2*z=1]$&lt;br /&gt;
 (%i2)solve(sist, [x,y,z]);&lt;br /&gt;
 (%o2)[[x=(a*b)/(c^2-b*c+a*(b-c)),&lt;br /&gt;
        y=-(b+a)/(c^2-b*c+a*(b-c)),&lt;br /&gt;
        z=1/(c^2-b*c+a*(b-c))]]&lt;/div&gt;</summary>
		<author><name>Caragubla</name></author>
		
	</entry>
</feed>