Ejercicios 5: Programación - Historial de revisiones

Pablogayar: /* Ejercicio 4.2. */

2011-05-09T22:43:14Z

‎Ejercicio 4.2.

2011-05-09T22:41:52Z

‎Ejercicio 4.2.

2011-05-09T22:35:45Z

‎Ejercicio 4.2.

2011-04-30T13:27:43Z

‎Ejercicio 2.2.

2011-04-30T13:27:23Z

‎Ejercicio 2.2.

2011-04-30T13:24:23Z

‎Ejercicio 2.1.

2011-04-23T17:54:33Z

‎Ejercicio 4.3.

2011-04-23T17:52:31Z

‎Ejercicio 4.4.

2011-04-23T17:44:55Z

‎Ejercicio 4.3.

2011-04-20T10:04:47Z

‎Ejercicio 1.2.

@@ Línea 124: / Línea 124: @@
 Descomponer 2010 como suma de dos primos.
-Doy todas las ternas de números primos que son solución del problema
+Doy todas los pares de números primos que son solución del problema
 '''Solución:'''

@@ Línea 123: / Línea 123: @@
 === Ejercicio 4.2. ===
 Descomponer 2010 como suma de dos primos.
 '''Solución:'''

← Revisión anterior		Revisión del 22:35 9 may 2011
Línea 125:		Línea 125:

	'''Solución:'''		'''Solución:'''
		+	for k from 1 thru 1005 do
		+	(if primep(k) and primep(2010-k) then print(k,"y" , 2010-k, "es una de las soluciones"))$

	=== Ejercicio 4.3. ===		=== Ejercicio 4.3. ===

@@ Línea 64: / Línea 64: @@
   signosTrinomio(-6,-3,14/3);
   [[[-inf,-39146837/33554432],"-"],[-39146837/33554432,0],[[-39146837/33554432,22369621/33554432],"+"],
-[22369621/33554432,0],[[22369621/33554432,inf],"-"]]
+ [22369621/33554432,0],[[22369621/33554432,inf],"-"]]
 == Ejercicio 3 ==

← Revisión anterior		Revisión del 13:24 30 abr 2011
Línea 41:		Línea 41:

	'''Solución:'''		'''Solución:'''
		+
		+	signosTrinomio(a,b,c):=block([l],
		+	l:realroots(ax^2+bx+c),
		+	if (length(l)=0) then
		+	(if (is(limit(ax^2+bx+c,x,inf)>0))
		+	then (cons([[-inf,inf],"+"],[]))
		+	else (cons([[-inf,inf],"-"],[])) )
		+	elseif (length(l)=1) then
		+	(if (is(limit(ax^2+bx+c,x,inf)>0))
		+	then (cons([[-inf,rhs(l[1])],"+"],cons([rhs(l[1]),0],cons([[rhs(l[1]),inf],"+"],[]))))
		+	else (cons([[-inf,rhs(l[1])],"-"],cons([rhs(l[1]),0],cons([[rhs(l[1]),inf],"-"],[])))) )
		+	else
		+	(if (is(limit(ax^2+bx+c,x,inf)>0))
		+	then (cons([[-inf,rhs(l[1])],"+"],cons([rhs(l[1]),0],cons([[rhs(l[1]),rhs(l[2])],"-"],cons([rhs(l[2]),0],cons([[rhs(l[2]),inf],"+"],[]))))))
		+	else (cons([[-inf,rhs(l[1])],"-"],cons([rhs(l[1]),0],cons([[rhs(l[1]),rhs(l[2])],"+"],cons([rhs(l[2]),0],cons([[rhs(l[2]),inf],"-"],[])))))) )
		+	)$

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

@@ Línea 118: / Línea 118: @@
 Esta es mi solución, la anterior veo que no funciona
   goldbachTodas(n):=block([lista,k], lista : [], for k from 1 thru n do (if primep(k) then lista : cons(k,lista)),
   reverse(lista), for k from 1 thru length(lista) do
-  if (primep(n-lista[k])) then if (lista[k]>n-lista[k]) then print (n-lista[k],lista[k]));
+  if (primep(n-lista[k])) then if (lista[k]>n-lista[k]) then (print (n-lista[k],lista[k], "descomposicion num:",m),m:m+1));
 === Ejercicio 4.4. ===

← Revisión anterior		Revisión del 17:52 23 abr 2011
Línea 126:		Línea 126:

	'''Solución:'''		'''Solución:'''
		+
		+	goldbachTodas(n):=block([lista,k,m], lista : [],m:0,
		+	for k from 1 thru n do (if primep(k) then lista : cons(k,lista)),
		+	reverse(lista), for k from 1 thru length(lista) do
		+	if (primep(n-lista[k])) then if (lista[k]>n-lista[k]) then (print (n-lista[k],lista[k], "descomposicion num:",m),m:m+1));
		+
		+
		+	goldbachTodas(2010);

@@ Línea 116: / Línea 116: @@
 lista:[],
 (if primep(k) then lista : cons(k,lista)))$
 === Ejercicio 4.4. ===

@@ Línea 19: / Línea 19: @@
 '''Solución:'''
 tangente(ln(tan(abs(x)),-%pi/12);
 == Ejercicio 2 ==