2010 Ejercicios 5: Programación - Historial de revisiones

Jalonso: Ejercicios 5: Programación trasladada a 2010 Ejercicios 5: Programación

2011-03-08T09:34:05Z

Ejercicios 5: Programación trasladada a 2010 Ejercicios 5: Programación

Rosa F R: /* Ejercicio 2.2. */

2010-05-08T15:36:00Z

‎Ejercicio 2.2.

Rosa F R: /* Solución */

2010-05-08T15:33:59Z

‎Solución

Rosa F R: /* Solución */

2010-05-08T15:25:34Z

‎Solución

Rosa F R: /* Ejercicio 2.1. */

2010-05-08T15:25:03Z

‎Ejercicio 2.1.

Rosa F R: /* Solución */

2010-05-08T15:21:45Z

‎Solución

Rosa F R: /* Ejercicio 2.1. */

2010-05-08T15:20:40Z

‎Ejercicio 2.1.

Rosa F R: /* Ejercicio 1.2. */

2010-05-08T12:21:00Z

‎Ejercicio 1.2.

Rosa F R: /* Solución */

2010-05-08T12:20:19Z

‎Solución

Rosa F R: /* Ejercicio 1.2. */

2010-05-08T12:19:24Z

‎Ejercicio 1.2.

@@ Línea 63: / Línea 63: @@
 === Ejercicio 2.2. ===
 Calcular la tabla de la variación de los signos del trinomio -6x^2-3x+14/3
 == Ejercicio 3 ==

@@ Línea 44: / Línea 44: @@
 == Solución ==
-      (%i1) signosTrinomio(a,b,c):=block([S,td,td2],
+   (%i1)signosTrinomio(a,b,c):=block([S,td,td2],
-      S:realroots(a*x^2+b*x+c),
+    S:realroots(a*x^2+b*x+c),
-         if length(S)=0 then
+    if length(S)=0 then
-           if a>0 then print("[[-inf,+inf],+]")
+        if a>0 then "[[-inf,+inf],+]"
-           else print("[[-inf,+inf],-]")
+        else "[[-inf,+inf],-]"
-         elseif length(S)=1 then
+    elseif length(S)=1 then
-           (td:rhs(first(S)),
+        (td:rhs(first(S)),
-           if a>0 then
+        if a>0 then
-               print([[["-inf",td],"+"],[td,0],[[td,"+inf"],"+"]])
+           [[["-inf",td],"+"],[td,0],[[td,"+inf"],"+"]]
-           else
+        else
-            print([[["-inf",td],"-"],[td,0],[[td,"+inf"],"-"]]))
+            [[["-inf",td],"-"],[td,0],[[td,"+inf"],"-"]])
-         else
+    else
-          (td:rhs(first(S)),
+        (td:rhs(first(S)),
-           td2:rhs(second(S)),
+        td2:rhs(second(S)),
-           if a>0 then print([[["-inf",td],"+"],[td,0],[[td,td2],"-"],[td2,0],[[td2,"+inf"],"+"]])
+        if a>0 then [[["-inf",td],"+"],[td,0],[[td,td2],"-"],[td2,0],[[td2,"+inf"],"+"]]
-           else print([[["-inf",td],"-"],[td,0],[[td,td2],"+"],[td2,0],[[td2,"+inf"],"-"]])))$
+        else [[["-inf",td],"-"],[td,0],[[td,td2],"+"],[td2,0],[[td2,"+inf"],"-"]]))$
 === Ejercicio 2.2. ===

@@ Línea 44: / Línea 44: @@
 == Solución ==
-(%i1) signosTrinomio(a,b,c):=block([S,td,td2],
+      (%i1) signosTrinomio(a,b,c):=block([S,td,td2],
        S:realroots(a*x^2+b*x+c),
           if length(S)=0 then

← Revisión anterior		Revisión del 15:25 8 may 2010
Línea 42:		Línea 42:
	Se supone que a es distinto de cero.		Se supone que a es distinto de cero.

		+	== Solución ==
		+
		+	(%i1) signosTrinomio(a,b,c):=block([S,td,td2],
		+	S:realroots(ax^2+bx+c),
		+	if length(S)=0 then
		+	if a>0 then print("[[-inf,+inf],+]")
		+	else print("[[-inf,+inf],-]")
		+	elseif length(S)=1 then
		+	(td:rhs(first(S)),
		+	if a>0 then
		+	print([[["-inf",td],"+"],[td,0],[[td,"+inf"],"+"]])
		+	else
		+	print([[["-inf",td],"-"],[td,0],[[td,"+inf"],"-"]]))
		+	else
		+	(td:rhs(first(S)),
		+	td2:rhs(second(S)),
		+	if a>0 then print([[["-inf",td],"+"],[td,0],[[td,td2],"-"],[td2,0],[[td2,"+inf"],"+"]])
		+	else print([[["-inf",td],"-"],[td,0],[[td,td2],"+"],[td2,0],[[td2,"+inf"],"-"]])))$

	=== Ejercicio 2.2. ===		=== Ejercicio 2.2. ===

← Revisión anterior		Revisión del 15:21 8 may 2010
Línea 42:		Línea 42:
	Se supone que a es distinto de cero.		Se supone que a es distinto de cero.

−	~~== Solución ==~~

	=== Ejercicio 2.2. ===		=== Ejercicio 2.2. ===

← Revisión anterior	Revisión del 09:34 8 mar 2011
(Sin diferencias)

@@ Línea 41: / Línea 41: @@
     (%o6) [[[-inf,inf],-]]
 Se supone que a es distinto de cero.
 === Ejercicio 2.2. ===

@@ Línea 17: / Línea 17: @@
 === Ejercicio 1.2. ===
 Calcular la tangente a f(x)=ln(tan(|x|) en el punto de abscisa -pi/12.
     (%i1) f(x):=log(tan(abs(x)))$

@@ Línea 8: / Línea 8: @@
 == Solución ==
-(%i1)tangente(f,a):=
+     (%i1)tangente(f,a):=
-(define(D(x),diff(f(x),x)),
+          (define(D(x),diff(f(x),x)),
-y=ratsimp(f(a)+D(a)*(x-a)))$
+           y=ratsimp(f(a)+D(a)*(x-a)))$
+     (%i2) f(x):=x^3$
-(%i2) f(x):=x^3$
+     (%i3) tangente(f,2);
+     (%o3) y=12*x-16
 === Ejercicio 1.2. ===

@@ Línea 21: / Línea 21: @@
 Calcular la tangente a f(x)=ln(tan(|x|) en el punto de abscisa -pi/12.
-(%i1) f(x):=log(tan(abs(x)))$
+   (%i1) f(x):=log(tan(abs(x)))$
-(%i2) tangente(f,-%pi/12);
+   (%i2) tangente(f,-%pi/12);
-(%o2) y=(18*%pi^2*x+%pi^3)/864
+   (%o2) y=(18*%pi^2*x+%pi^3)/864
 == Ejercicio 2 ==