viernes, 25 de abril de 2008

Alumnos nuestros logran publicar en el sitio de Demostraciones de Wolfram Research

¡¡¡ÉXITO ÉXITO ÉXITO ÉXITO!!!!

Felicidades a los MaTECmáticos Roberto Castilla y Roxana Ramírez

Su demostración sobre tiro parabólico fue aceptada y ya está publicada en el sitio de Demostraciones de Wolfram Research, los creadores de Mathematica.

El sitio de Demostraciones es arbitrado, y los referees aceptaron sin cambios esta demostración. Para poder usar la demostración, No es necesario tener Mathematica, basta con tener la versión gratis de MathPlayer, que también se puede descargar gratis al descargar la demostración.

Aquí está la demostración de Roberto y Roxana:

http://demonstrations.wolfram.com/ParabolicProjectileMotionShootingAHarmlessTranquilizerDartAt/

¡Felicidades mis MaTECmáticos!

José Luis

jueves, 24 de abril de 2008

flecha 3d con opciones

(* Estimados integrantes de MaTECmática http://matecmatica.blogspot.com/ *)

(* En la reunión de este jueves 24 de abril, les mostré a los que asistieron como ponerle “opciones” a programas hechos en Mathematica *)
(* como ejemplo modificamos el programa de la flecha3d para que, opcionalmente, el usuario pueda especificar que tan grande debe ser
la cabeza de la flecha y que tan gorda debe ser la flecha *)
(* A continuación el nuevo código que permite esas dos opciones: *)

(* Primero: Estas definiciones sólo son para que flecha3d tenga la misma sintaxis que el comando Arrow de Mathematica.
Observen el uso de los tres guiones bajos después de opciones, esos tres guiones indican que ese argumento es opcional *)

flecha3d[{x1_, y1_, z1_}, {dx_, dy_, dz_},opciones___] :=
flecha3d[{{x1, y1, z1}, {x1 + dx, y1 + dy, z1 + dz}},opciones];

flecha3d[{x1_, y1_, z1_}, d_,opciones___] :=
flecha3d[{{x1, y1, z1}, {x1 + d, y1 + d, z1 + d}},opciones];

(* Segundo: Proteger los nombres “cabeza” y “grosor” para que el usuario final No pueda modificarlos por accidente *)

Protect[cabeza, grosor];

(*Tercero: Especificar los valores “default” de cabeza y grosor *)

Options[flecha3d] = {cabeza -> 0.2, grosor -> 0.01};

(*Cuarto: El programa, modificado para usar las opciones que de el usuario, y si el usuario No especifica alguna de las opciones,
entonces se utiliza su valor “default”, que está guardado en Options[flecha3d]*)

flecha3d[{{x1_, y1_, z1_}, {x2_, y2_, z2_}}, opciones___] :=
Module[{vector, magnitud, normal, vectornormal, cruz, vectorbinormal, micabeza, migrosor},
micabeza = cabeza /. {opciones} /. Options[flecha3d];
migrosor = grosor /. {opciones} /. Options[flecha3d];
vector = {x2 - x1, y2 - y1, z2 - z1};
magnitud = Norm[vector];
normal = {0, z1 - z2, y2 - y1};
vectornormal = magnitud*normal/Norm[normal];
cruz = Cross[vector, vectornormal];
vectorbinormal = magnitud*cruz/Norm[cruz];
{Cylinder[{{x1, y1, z1}, {x1, y1, z1} + (1 - micabeza)*vector}, migrosor* magnitud],
Polygon[{{x1, y1, z1} + (1 - micabeza)* vector +
0.1 vectornormal, {x1, y1, z1} +
(1 - micabeza)* vector - 0.1 vectornormal, {x2, y2, z2}}],
Polygon[{{x1, y1, z1} + (1 - micabeza)*vector +
0.1 vectorbinormal, {x1, y1, z1} +
(1 - micabeza)* vector - 0.1 vectorbinormal, {x2, y2, z2}}]}];

(* Quinto: Ejemplos*)
(* Primero una flecha donde el usuario No especifica grosor Ni tamaño de cabeza.
Recuerden No ponerle punto y coma al siguiente comando para poder ver la gráfica*)

Graphics3D[
flecha3d[{{1.5, 0, 1}, {-2, -2, 2}}]
]

(*Ahora un ejemplo donde el usuario especifica el tamaño de la cabeza*)

Graphics3D[
flecha3d[{{1.5, 0, 1}, {-2, -2, 2}}, cabeza -> 0.5]
]

(*Ahora un ejemplo donde el usuario especifica el tamaño de la cabeza y el grosor*)

Graphics3D[
flecha3d[{{1.5, 0, 1}, {-2, -2, 2}}, grosor -> 0.05, cabeza -> 0.5]
]

(*Nos podemos divertir con un Manipulate: *)

Manipulate[
Graphics3D[
flecha3d[{{1.5, 0, 1}, {-2, -2, 2}}, grosor -> g, cabeza -> c]
],
{g,0.01,0.05},{c,0.1,0.5}]

(*¡Saludos!*)

Flecha 3D

(* Integrantes de MaTECmática http://matecmatica.blogspot.com/ *)

(* No me gusto la flecha 3D de mi correo anterior *)

(* Así que hice mi propio comando para hacer flechas en 3D. Quedan más bonitas. Más abajo está el código y ejemplos *)

(* flecha3d tiene la misma sintaxis que el comando Arrow,
donde el significado de los dos puntos es diferente si están o No
están agrupado entre llaves: flecha3d[{{x1,y1,z1},{x2,y2,z2}}] es una
flecha desde un punto {x1,y1,z1} al punto {x2,y2,z2}, pero si los
puntos No están agrupados con llaves, es decir de esta otra forma:
flecha3d[{x1,y1,z1},{x2,y2,z2}] entonces es una flecha que va del
punto {x1,y1,z1} al punto {x1+x2,y1+y2,z1+z2}, como en suma de
vectores
*)
(* Esta es la creación del nuevo comando flecha3d *)
flecha3d[{x1_, y1_, z1_}, {dx_, dy_, dz_}] :=
flecha3d[{{x1, y1, z1}, {x1 + dx, y1 + dy, z1 + dz}}];
flecha3d[{x1_, y1_, z1_}, d_] :=
flecha3d[{{x1, y1, z1}, {x1 + d, y1 + d, z1 + d}}];
flecha3d[{{x1_, y1_, z1_}, {x2_, y2_, z2_}}] :=
Module[{vector, magnitud, normal, vectornormal, cruz,
vectorbinormal},
vector = {x2 - x1, y2 - y1, z2 - z1};
magnitud = Norm[vector];
normal = {0, z1 - z2, y2 - y1};
vectornormal = magnitud*normal/Norm[normal];
cruz = Cross[vector, vectornormal];
vectorbinormal = magnitud*cruz/Norm[cruz];
{Cylinder[{{x1, y1, z1}, {x1, y1, z1} + 0.8 vector},
0.01 magnitud],
Polygon[{{x1, y1, z1} + 0.8 vector +
0.1 vectornormal, {x1, y1, z1} + 0.8 vector -
0.1 vectornormal, {x2, y2, z2}}],
Polygon[{{x1, y1, z1} + 0.8 vector +
0.1 vectorbinormal, {x1, y1, z1} + 0.8 vector -
0.1 vectorbinormal, {x2, y2, z2}}]}
];

(* Después de haber evaluado (Shift-Enter) los comandos anteriores,
flecha3d ya puede usarse. Aquí está un ejemplo sencillo. Observa el
uso de PlotRange->All para asegurar que se dibuja toda la flecha
completa *)
Graphics3D[{flecha3d[{{1, 2, 3}, {4, 5, 6}}]}, PlotRange -> All]

(* otro ejemplo, combinando la flecha con una esfera *)
Graphics3D[{Sphere[{1, 1, 1}, 0.2],
flecha3d[{{1.5, 1, 1}, {2, 2, 2}}]}, PlotRange -> All]

(* otro ejemplo *)
Graphics3D[{Sphere[{1, 1, 1}, 0.2],
flecha3d[{{1.5, 1, 1}, {2, 2, 2}}],
flecha3d[{{1.5, 0, 1}, {-2, -2, 2}}]}, PlotRange -> All]

(* Saludos *)

domingo, 13 de abril de 2008

Sobre escuela de verano de Mathematica en Wolfram Research

MaTECmatica sobre escuela de verano de Mathematica en Wolfram Research:

(Quizás convenga que lean los siguientes tres correos de abajo para arriba, para que entiendan como está la historia)

Dear Jose,

We consider the $2500 tuition to be a nominal fee for two weeks of one-on-one time with Wolfram Research's top Mathematica developers. The first week of the summer school we plan to offer workshops and trainings that would normally cost approximately $1000 per day. For the time and content alone the tuition that we are asking is well below the actual cost of what attendees will take with them. Also, as mentioned on the website, we have a limited number of scholarships available. I would also like to mention that there are several Wolfram Education Group courses that you or your students can take that might benefit the project.
http://www.wolfram.com/services/education/courses/index.html

I hope that you will reconsider and apply for what we believe is an phenomenal opportunity.

Best wishes,

Onkar Singh
Advanced Mathematica Summer School Program Committee www.wolfram.com/summerschool

Jose Luis Gomez wrote:
> I do agree with Savvas (message included below).
>
> I am Mexican, I am the adviser of a new student-group of Mexican
> Mathematica fans ( http://www.matecmatica.blogspot.com/ ) and I would
> love to send at least one of my brilliant students to this school.
> They do have great projects.
>
> However our student-group is totally new, we are just finishing the
> administrative procedure in our university (http://www.cem.itesm.mx )
> for registering as an official group, therefore we do not have any
> money yet, and we cannot send a student this summer.
>
> Jose
> Mexico
>
>
> -----Mensaje original-----
> De: psycho_dad [mailto:s.nesseris@gmail.com] Enviado el: Jueves, 10 de
> Abril de 2008 01:10 a.m.
> Para: mathgroup@smc.vnet.net
> Asunto: [mg87409] Re: REMINDER--Advanced Mathematica Summer School
>
> Hi,
> this idea about a summer school seems great! However, I have a couple
> of questions:
>
> 1) Why does the school cost $2500?
> 2) There seem to be some scholarships available, but sending an email
> to Wolfram Research I was told that they are offering a student rate
> of (only) $1000, thus barely covering the expenses and that does not
> cover the plane tickets I guess.
>
> This amount is prohibitive for international participants, even for EU
> citizens (due to the "strong" euro), therefore I don't think I will
> even consider applying, despite the fact I would really love to
> participate ... :-(
>
> Any comments on this (especially from Wolfram Research) are welcome.
>
> Cheers,
> Savvas
>
>
> On 8 =C1=F0=F1, 12:40, Wolfram Research <newsd...@wolfram.com> wrote:
>
>> This is a reminder that you can still apply for our first Advanced
>> Mathematica Summer School.
>>
>> Taking place July 6-18, 2008, in Champaign, Illinois, the Summer
>> School is intended for students and professionals with significant
>> Mathematica projects. Attendees will work directly with senior
>> developers and managers at Wolfram Research to advance those
>> projects.
>>
>> Applications are being accepted now; a limited number of slots are
>> available.
>>
>> For more details and to apply,
>> see:http://www.wolfram.com/summerschool
>>
>
>
>

miércoles, 2 de abril de 2008

El libro que pude haber publicado cuando yo tenia 18 de edad

Así como Silvia Pinal tenía (¿tiene?) su programa “Mujer, Casos de la Vida Real”, yo tengo una historia que podría entrar en un programa que se llamaría “Ingeniero, Descalabros de la Vida Real”.
Yo, José Luis Gómez Muñoz, pude haber publicado un libro sobre como curar virus computacionales cuando yo tenía 18 años (no se rían, es en serio, si me pasó).
Y como yo No lo hice, alguien más sí lo hizo, y durante muchos años ese libro, con otro autor, se vendió en todas las tiendas Sanborns de México.
En aquellos tiempos, cuando las PCs tenían 512 Kilobytes de memoria RAM, algunas PCs No tenían disco duro (sí, las computadoras podían funcionar sin disco duro, aunque usted, no lo crea), no existía nada parecido al internet (al menos para el ser humano común y corriente) y los dinosaurios aún reinaban en esta Tierra (me refiero a los del PRI), en aquellos lejanos tiempos el disco duro de mi computadora personal se infectó con un virus.
Yo tenía 18 años. Sabía que el virus estaba en el disco duro y que se transmitía a través de los discos, así que era imposible “enfermar” a una computadora que No tuviera disco duro. En cuanto apagaras una computadora de las que No tenían disco duro, y la volvieras a prender con un disco “flexible” (extraíble) sano, el virus desaparecía. Las computadoras de mi escuela, el Tec Campus Estado de México, No tenían disco duro. Por eso yo tenía la seguridad de que, si apaga completamente las computadoras después de trabajar con ellas, entonces yo No iba a propagar el virus y por lo tanto yo No perjudicaría a nadie. Con esa seguridad, utilice como “laboratorio” las computadoras del Tec, específicamente las del CCI. Compré muchos discos, y trayendo un disco infectado por la computadora de mi casa, me dediqué a infectarlos a propósito. Utilicé todas las herramientas a mi alcance para detectar donde se alojaba el virus, que cambios producía en el disco, que le pasaba la RAM mientras la computadora estaba prendida y propagando el virus, etcétera. Varios días de trabajo (yo creo que por eso reprobé Dibujo Técnico, por estar jugando al “Luis Pasteur Computacional” en lugar de hacer mis tareas) y logré todo un procedimiento para averiguar si un disco estaba infectado, si la memoria Ram estaba infectada y propagando el virus, así como un procedimiento para curar la infección, todo “a mano”, sin tener que usar las vacunas antivirus, que apenas comenzaban a aparecer en el mercado.
Algunos días después, un maestro (o quizás alumno de maestría, realmente no lo sé) cuyo nombre nunca le pregunté, estaba trabajando en el CCI junto a mí, y quería saber si la computadora en la que estaba trabajando tenía virus, si su trabajo estaba en peligro (las “vacunas computacionales” todavía eran muy raras, acuérdense, mis alumnitos, que estoy hablando de la época de las cavernas). En ese momento sufrí de un ataque de la enfermedad que siempre me ha aquejado, la “explicativitis compulsiva”, la cual consiste en la necesidad obsesiva de explicarle lo que he aprendido a todo el que se deje. Así que inmediatamente me le fui encima, y antes de que supiera que le estaba pasando, este profesor (¿alumno de maestría?) ya estaba recibiendo una clase completa sobre cómo evitar, detectar y curar virus computacionales en las PCs. Mi método, ya perfeccionado en ese momento, hacía uso de un paquete computacional muy común en aquellos días, llamado “PCTools” (¿O era el “PCTools Deluxe”?)
Pasó el tiempo, y algunos años después, ojeando los libros y revistas de Sanborns, me encontré con un pequeño libro de unas 80 páginas, a la venta entre la entonces creciente sección de libros y revistas de cómputo. En ese libro estaba descrito un procedimiento muy similar al mío para evitar, detectar y curar virus de “Boot Sector” (como esos virus computacionales prehistóricos “de la pelotita” y el de Brian, “Welcome to the Dungeon…”) y utilizaba como herramienta principal el “PCTools” (¿O era el “PCTools Deluxe”?).
El autor del libro agradecía en las primeras páginas el curso sobre seguridad computacional que a su vez le impartió un profesor de la UNAM, del cual había tomado muchos elementos para realizar el libro.
Honestamente nunca supe si ese “profesor de la UNAM” descubrió en forma independiente este procedimiento (lo cual es posible y muy probable, porque “PCTools Deluxe” era un software muy conocido y muy usado entre los geeks de las computadoras, bueno, de los ábacos de aquellos días), o si por el contrario, fue ese “profesor de la UNAM” el mismo quien recibió, en contra de su voluntad, toda una explicación sobre virus dictada por un alocado, despeinado y desfajado estudiante de ingeniería; o quizás mi explicación fue de boca en boca hasta que alguien tuvo la buena idea de convertirla en un libro. Realmente No sé cómo fue, pero ese no es el punto, ni tampoco es la moraleja.
El punto es que YO PUDE HABER ESCRITO ESE LIBRO CUANDO YO TENÍA 18 AÑOS, UN LIBRO QUE SE VENDÍA EN LOS SANBORNS (lo vi al menos en varios Sanborns del DF y de Monterrey en diferentes ocasiones. Ya no está, las computadoras y los virus de la actualidad ya No tienen nada que ver con los de aquellos primitivos días).
Pasó el tiempo, mi enfermedad “explicativitis” triunfo sobre mí, y el alocado, despeinado y desfajado estudiante de ingeniería se convirtió en un alocado, despeinado y desfajado maestro de Matemáticas. Algo he aprendido, ya que soy coautor de algunos libros, tengo certificaciones internacionales y me pagan, tanto en el Tec como en Global Computing, por hacer lo que más amo en la vida “explicar explicar explicar explicar explicar…”, permítanme contar hasta diez en lo que se me baja el ataque.
Ya recuperado, déjenme decirles que ahora me encuentro rodeado de brillantes estudiantes de ingeniería de 18 a 25 años (no todos son alocados, y varios se peinan y se visten muy bien), veo sus proyectos, sus ideas, y me doy cuenta del gran valor que tienen muchos de esas ideas y realizaciones. Valor en varios sentidos de la palabra: valor económico, valor académico, valor moral, etc.
Y me doy cuenta de que podría ser muy interesante que esos brillantes alumnos sí lograran escribir un libro (cosa que no hice porque a los 18 años ni siquiera se me ocurrió que mis conocimientos fueran suficientes para hacer un libro, mucho menos que alguien estuviera dispuesto a pagar por ellos), que sí escriban un libro a los 18 años, o que sí pongan una empresa basada en el conocimiento a los 18 años, o que sí logren irse a CalTech o al MIT o a Cornell o la NASA. O a donde quieran.
Y por eso es que intento salir de mi hermetismo, abandonar mis ropas de monje ermitaño, e interactuar con las personas en otro lugar además del salón de clase. Es por eso que apoyo la formación del grupo MaTECmática, a pesar de tengo pánico de ser un líder. Yo sigo siendo el mismo chico tímido que siempre fui, sólo que ya me puse panzón y canoso.
Y por eso les pido, mis alumnitos de 18 a 25 años, que inviertan una parte importante de su tiempo en MaTECmática, incluidas las labores que se que a muchos de ustedes No les gustan. No es sorprendente que en una asociación de interesados en la computadoras y la ciencia, lo último que les interese sea la “política” y la “administración”, algunos de ustedes (como yo) incluso le tienen fobia. Créanme, el esfuerzo vale la pena, tenemos contactos increíbles: el Dr. Ulises Cervantes en Wolfram Research, el Ing. Amadeo Betancourt en Bett Construcciones, el Ing. Hector Vadillo en Global Research. Hay eventos importantísimos en puerta, como el evento “CienciaJoven” que esta vez se celebrará en nuestro Campus. Y con mis canas y mi panza, yo veo claramente que muchos de sus trabajos se pueden llegar a convertir en becas para doctorado en el extranjero, en microempresas creadas por ustedes, en libros, etc.
¡Así que no vayan a faltar este viernes a las tres de la tarde en Ciencias Básicas a las elecciones de MaTECmática!
José Luis

viernes, 7 de marzo de 2008

Pattern Language en Mathematica

Hola MaTECmáticos ( http://www.matecmatica.blogspot.com/ )

El jueves 6 de marzo estudiamos la introducción al Pattern Language de Mathematica, que es una poderosa técnica de programación en Mathematica. En esta liga pueden descargar un documento de Mathematica con los ejemplos que usamos en esa sesión:
http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/20080306MaTECmatica.nb

¡Saludos!

José Luis

Podriamos comernos nuestras graficas tridimensionales si hacemos una Impresora tridimensional de AZUCAR

Podríamos comernos nuestras graficas tridimensionales si hacemos una Impresora tridimensional de AZUCAR

Y el maTECmático Gianfranco dice que es barata

Aquí están las instrucciones para construirla:
http://www.candyfab.org/

¿Quién será el super MaTECmático que haga la primera impresora tridimensional de AZUCAR del Tecnológico de Monterrey?

¡Me muero de ganas de comerme un
ParametricPlot3D[{(2 + Cos[u]) Cos[v], (2 + Cos[u]) Sin[v], Sin[u]}, {u, 0, 2 Pi}, {v, 0, 2 Pi}]
hecho de azúcar!


miércoles, 5 de marzo de 2008

Ligas a documentos para aprender Mathematica

MaTECmáticos (http://www.matecmatica.blogspot.com/ )

Les envío ligas a documentos para aprender Mathematica:

Para aprender lo más básico de Mathematica, pueden entrar a la siguiente liga:
http://homepage.cem.itesm.mx/lgomez/curso_basico.htm

Para explorar las nuevas capacidades dinámicas (Manipulate y Demonstrations) de la nueva versión 6 de Mathematica entren a la siguiente liga:
http://homepage.cem.itesm.mx/lgomez/manualmanipulate/ManualManipulate.html

Para aprender a hacer cálculos eficientes (rápidos) en Mathematica entrar a la siguiente liga:
http://homepage.cem.itesm.mx/lgomez/matecmatica/fp/fp.html

Para aprender a crear paquetes (add-ons) de Mathematica entren a la siguiente liga
http://homepage.cem.itesm.mx/lgomez/createMathematica6AddOn/createMathematica6AddOn.html

Además hay otros documentos en mi página personal:
http://homepage.cem.itesm.mx/lgomez/

¡Saludos!

José Luis

Estereogramas graficas en 3D que parecen flotar frente a la pantalla

Estimado MaTECmáticos, el profesor Sergio nos ofrece su apoyo y asesoría por si alguien quisiera implementar estereogramas en Mathematica.

Los estereogramas son graficas en 3D que parecen flotar frente a la pantalla.

Vean las ligas incluidas en el correo del profesor Sergio, el cual copié más abajo

¿Algún interesado?

CORREO ORIGINAL DEL PROFESOR SERGIO:

Si hay algun(os) MaTECmatico(s) interesados en producir estereogramas (http://en.wikipedia.org/wiki/Image:3D_stereographic_projection_tesseract.PNG ) o
Autoestereogramas, (http://en.wikipedia.org/wiki/Image:Stereogram_Tut_Random_Dot_Shark.png ) con Mathematica yo podria asesorarlos.

Saludos…
Dr. Sergio E. Martinez Casas

Falla el Teorema Fundamental del Calculo?

Integrar NO es lo contrario de derivar.

La integral, al menos para los propósitos de un ingeniero, puede definirse con la suma de Riemann, es decir, el límite de una sumatoria de f(x) por delta x, etcétera.

El gran descubrimiento de Newton y de Leibniz (que es la razón por la cual se les considera los padres del cálculo) es que No es necesario hacer ese tipo de sumatorias (aunque en sus tiempos ni siquiera existía todavía la notación de límite), si no que puedes tomar una antiderivada y evaluarla en el punto inicial y final, restar, y te da lo mismo que te daría todo el relajo de la sumatoria.

Así, cuando queremos integrar x^2 de 0 a 1, pues No es necesario hacer el límite de la sumatoria de bla bla bla, basta con encontrar una antiderivada (también conocida como primitiva) de x^2 y evaluarla en 1 y en 0 y restar, En este ejemplo la antiderivada (primitiva) es (x^3)/3, evaluada y restada es (1^3)/3-(0^3)/3=1/3, que es lo mismo que me daría la suma de Riemann, pero mucho más rápido.

Pero en el blog de Mathematica muestran un caso donde este esquema falla: Toman una antiderivada (primitiva) de cierta expresión, la evalúan en el punto final y en el punto inicial, restan, y falla, No da el resultado correcto:
http://homepage.cem.itesm.mx/lgomez/activity_fundamental_theorem/index.htm

¿Falló el Teorema Fundamental del Cálculo?

Nooooo,

Lo que pasa es que el TFC exige que usemos antiderivadas que sean continuas en todo el intervalo de integración, y la antiderivada que tramposamente se usa en ese ejemplo, como ellos mismos lo muestran después, No es continua en todo el intervalo de integración, así que No se puede usar para el TFC:
http://blog.wolfram.com/2008/01/mathematica_and_the_fundamental_theorem_of_calculus.html

¿Y por qué el TFC sólo sirve para antiderivadas continuas?

Eso lo pueden comprender bien en la siguiente explicación geométrica del TFC:
http://homepage.cem.itesm.mx/lgomez/activity_fundamental_theorem/index.htm

Las cancelaciones que se hacen en ese explicación geométrica, sólo se cancelan si la antiderivada es contínua.

¡Espero les parezca interesante!

José Luis

jueves, 21 de febrero de 2008

Drawing Tool de Mathematica mostrada por Roxana

Hola integrantes de MaTECmática ( http://www.matecmatica.blogspot.com/ ).

El día de hoy jueves a la una y media la MaTECmática Roxana nos enseñó cómo utilizar la Drawing Tool de Mathematica. Básicamente, en un documento de Mathematica tu puedes oprimir [Control]-[D], y aparece un menú que permite dibujar al estilo de “Paint”, pero directamente en Mathematica. La gran ventaja es que estos dibujos estilo “Paint” están totalmente embebidos en Mathematica, y pueden ser editados, combinados y procesados de la misma manera que cualquier otra gráfica de Mathematica, por ejemplo alguna que haya sido producida con un Plot[] o con un ParametricPlot[]. Como Roxana nos mostró, es realmente fácil de usar. Sólo opriman [Control]-[D] cuando tengan abierto un documento de Mathematica, y ya pueden empezar a dibujar, ya sea directamente sobre una gráfica que fue producida por un Plot[] para añadirle cosas como flechas o etiquetas, ya sea con un dibujo totalmente en blanco.

Esto puede ser útil para modificar las gráficas que nos dé Mathematica y prepararlas para papers, tareas, ilustraciones, etcétera.

Para ver un ejemplo de lo que se puede hacer con esta herramientita, vean el Manipulate sobre el efecto Doppler que crearon Roxana y Rafael para Principia el semestre pasado, con el cual obtuvieron el tercer lugar:
http://homepage.cem.itesm.mx/lgomez/ingenia/menu.html

¡Un abrazo MaTECmáticos!
José Luis

Escuela avanzada de Mathematica en el verano en Wolfram Research

Hola integrantes de MaTECmática ( http://www.matecmatica.blogspot.com/ ).

La compañía creadora de Mathematica, Wolfram Research, acaba de abrir la convocatoria para su “Escuela Avanzada de Verano” de Mathematica, dos semanas con los supergurús de Mathematica, con un costo de 2500 Dólares (Ese es el puro costo de la escuela, además está el viaje, el hospedaje y los alimentos).

Aunque el costo parece dejarlo fuera de nuestras posibilidades, aún así les pido que lean con detalle la convocatoria, quizás haya la posibilidad de apoyos económicos (becas) por parte de Wolfram, búsquenle, lean bien por favor todas las ligas de esta página:
http://www.wolfram.com/news/events/summerschool2008/index.html
y también de esta liga
http://www.wolfram.com/news/events/summerschool2008/program.html
si alguno de ustedes pertenece a alguna cátedra, o puede conseguir financiamiento, esta escuela de verano parece una excelente opción para avanzar en sus proyectos personales y de investigación en Mathematica, ya que ese es el objetivo de esta escuela avanzada, que cada participante avance en su propio proyecto, asesorado por los grandes gurús de Mathematica.

¡Un abrazo MaTECmáticos!
José Luis

viernes, 15 de febrero de 2008

maquina ENIGMA simulada en Mathematica

El estudiante Gianfranco, uno de los MaTECmáticos, está intentando simular la maquina ENIGMA en Mathematica

ENIGMA fue una máquina desarrollada por los Nazis en la Segunda Guerra Mundial para mandar mensajes codificados a sus tropas, de tal manera que aunque el enemigo (los Británicos) interceptara los mensajes, No pudiera entender nada de la información.

Pero los Británicos pudieron obtener una máquina ENIGMA, y según tengo entendido, descifrar los códigos de los Alemanes.

Ese proceso de descifrar fue, tengo entendido (por favor corrígeme Sergio si me equivoco) uno de los principales impulsores del desarrollo de las Ciencias de la Computación.

Pues Gianfranco encontró las instrucciones para realizar una maquina ENIGMA de papel, y basado en esas instrucciones, quiere montar una maquina ENIGMA virtual en Mathematica.

Ya están involucrados también Danton, Homero y Hector, en este momento se están peleando con el “pizarrón” y la computadora.

Si alguno de ustedes está interesado, pónganse en contacto fon Gianfranco, Danton, Hector y Homero, cuyos correos aparecen en la lista de receptores de este correo.

¡Saludos!

José Luis

Impresora tridimensional usada desde Mathematica

Hola MaTECmáticos

Quizás hayan oído de las impresoras tridimensionales. Son “impresoras” que, en lugar de imprimir en papel, “imprimen” (hacen) objetos tridimensionales, hechos de resina, o de algún otro material aglutinable.

Es tradicional mandar a “imprimir” objetos 3D a ese tipo de programas desde paquetes computacionales de CAD, CATIA, etc.

Pues también se puede fácilmente mandar a “imprimir” a las impresoras tridimensionales desde Mathematica.

Y resulta que nosotros tenemos en el Campus una impresora tridimensional.

Pues ya le encomendé a Ángel, uno de los miembros de MaTECmática, que nos averigüe la posibilidad de utilizar nuestra impresora 3D desde Mathematica

En el Wolfram blog se explica brevemente como se puede hacer. Aparentemente es muy sencillo, en cuanto tengas una gráfica 3D de Mathematica, puedes usar el comando Export[] para guardar en el formato que entiende la impresora tridimensional, le mandas ese archivo a la impresora, y listo, tienes el objeto.

Pueden leer sobre este tema en la siguiente entrada del Wolfram Blog:
http://blog.wolfram.com/2007/07/3d_printing_with_mathematica.html

Si hay más interesados en este tema, quizás sea una buena idea que se coordinen con Ángel para averiguar que necesitamos para poder usar la impresora, cuanto cuesta, etcétera.

¡Saludos!
José Luis

jueves, 14 de febrero de 2008

Programación Funcional en Mathematica

Hola chicos, he creado un tutorial básico para comenzar a entender la programación funcional en Mathematica. De la siguiente liga pueden descargar el documento como archivo de Mathematica:

http://homepage.cem.itesm.mx/lgomez/matecmatica/funcionalprog.nb

Si no tienen Mathematica en este momento, lo pueden ver en versión HTML (no se ve tan bonito como el archivo de Mathematica, pero es suficiente)

http://homepage.cem.itesm.mx/lgomez/matecmatica/fp/fp.html

¡Ojalá les sea útil!

José Luis

miércoles, 13 de febrero de 2008

Mathematica romántico

Hola integrantes de MaTECmática

¿Quién dijo que los ingenieros, los físicos y los matemáticos no somos románticos?

Y además podemos ser románticos en Mathematica

Vean la siguiente entrada del Wolfram Blog:

http://blog.wolfram.com/2008/02/demonstrating_valentines_day.html

¡Un abrazo!

José Luis

Programa de Hector para polinomios de Taylor

Hola MaTECmáticos,
Les comparto un trabajo de Hector, sobre polinomios de Taylor. Además de revisar el gran trabajo de Hector, por favor también revisen los comentarios que incluyo más abajo, seguramente encontrarán varias cosas interesantes (GRACIAS HECTOR):
http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/taylorMod.nb
> Estos son mis comentarios:
>
> 1. Quizás ya conozcas en Mathematica la función Series[], que entre
> otras cosas también puede usarse para calcular polinomios de Taylor.
>
> 2. Los polinomios de Taylor son aproximaciones, por eso la función de
> Mathematica Series[] no da un polinomio directamente, sino otro tipo
> de objeto que usa el comando O[] (es la letra O mayúscula), que
> permite que todas las operaciones que se hacen con el polinomio tengan
> incluido el nivel de aproximación adecuado. Si se desea, el polinomio
> aproximado con O[] puede ser convertido en un polinomio "normal" de
> Mathematica mediante el comando Normal[], pero se pierde el uso
> adecuado del nivel de aproximación.
>
> 3. Tu función Taylor imprime el polinomio con Print, eso permite al
> usuario final ver el polinomio pero No le permite usarlo. Esto es lo
> que quiero
> decir: Si tu ejecutas sol=Integrate[x^2,x], no solo se integra, sino
> que el resultado se guarda en la variable sol, e inmediatamente
> después puedes usarla en otro comando, por ejemplo
> ReplaceAll[sol,x->10]. Por otro lado, en tu programa, si ejecutas
> pol=taylor[Cos[x], -5, 10], no se guarda absolutamente nada en la
> variable pol, con lo cual el resultado se puede ver, pero no se puede
> usar en forma "automática" por otro comando que venga después.
>
> 4. Un reto interesante es intentar la forma eficiente de programar en
> Mathematica: prohibido usar For, Do, While, etc. Trata de hacer lo
> mismo usando solamente Map, Apply, MapIndexed, MapThread, Table, Nest,
> etc. Es decir, trata de usar programación funcional y simbólica.
>
> ¡Saludos!
>
> José Luis
>

Jonathan y Rubén ganadores

Mis queridos MaTECmáticos, ayer jueves hicimos un concurso de Matemática, formando parejas (cada pareja formada por un estudiante de semestre avanzado y otro estudiante de primeros semestres), les ponía un reto, anotaba quienes habían logrado resolver el reto, y después se formaban nuevas parejas para responder el siguiente reto, y así continuamos, respondiendo retos y rehaciendo parejas. Los estudiantes avanzados no podían tocar el teclado, sólo podían darle indicaciones a su compañero. De esa manera, a cada estudiante de primer o segundo semestre le tocó trabajar un ratito con cada estudiante avanzado. Cada reto contestado correctamente por la pareja de estudiantes contó como un punto bueno a cada miembro de la pareja. Cada estudiante llevaba acumulados los puntos buenos que obtuvo en las diferentes parejas en las que trabajó. Al final di dos premios simbólicos (una plumas con el logo del Tec) al más chipocludo de los avanzados (Jonathan Pérez Hurtado) y al más chipocludo de los de primeros semestres (Rubén Medellin)

¡Felicidades!

José Luis

Rompecabezas y acertijos en Mathematica

Hola queridos integrantes de MaTECmática.

Se supone que hoy es el International Puzzle Day, lo que quiera que eso signifique.

En el blog de Wolfram Research, los creadores de Mathematica, muestran varios “puzzles” hechos en Mathematica:

Read the entire entry at:
http://blog.wolfram.com/2008/01/international_puzzle_day.html

De hecho, estos “puzzles” forman parte del Wolfram Demonstrations Project (nótese que “Demonstration” no debe traducirse como Demostración, es más adecuado traducirlo como exhibición), lo cual quiere decir que:

1. Pueden ver el código fuente en Mathematica que es usado para crear estos puzles
2. Aunque No tengan Mathematica, si pueden interactuar con estos puzles, pues sólo necesitan descargar gratis el Mathematica Player, que es gratis: http://www.wolfram.com/products/player/download.cgi

Como ya les había dicho a algunos de ustedes, yo tengo ganas de implementar un ajedrez en Mathematica.
¿Alguno de ustedes se anima?
JL

Ya se porque no me llegan correos de algunos de ustedes (Angel, Heidi, etc)

Ya sé porque no me llegan correos de algunos de ustedes (Angel, Heidi, etc),

Nuestro compañero Gianfranco me explicó que en INFINITUM hicieron un cambio para bloquear SPAM, que de hecho está afectando a las cuentas del Tec, de tal manera que pueden recibir correos pero no enviarlos (No se puede enviar por INFINITUM desde una cuenta .itesm.mx).

Les incluyo el correo:


Medidas de Telmex contra el spam para usuarios de Infinitum

La Vicerrectoría de Tecnologías de Información informa que el 22 de diciembre pasado la empresa Telmex amplió sus medidas de seguridad para ayudar a combatir el llamado "correo basura" o spam. La medida consistió en bloquear el puerto 25 (SMTP), que es utilizado comúnmente para el envío de correo electrónico. Esta medida afecta a aquellos usuarios del servicio Infinitum con IP Dinámica, con una modalidad menor a 4 Mb.
De acuerdo con lo anterior, el envío de correos electrónicos desde fuera de las instalaciones del Tecnológico de Monterrey utilizando las cuentas de @itesm.mx a través de los diversos sistemas de correo (Outlook, Outlook Express, Eudora, Netscape Mail, Thunderbird, Pegasus Mail, Pine, IncrediMail, etc.) no ha podido realizarse desde esa fecha: cuando los usuarios afectados tratan de hacerlo, el cliente de correo no puede localizar el servidor del Tecnológico de Monterrey, marca un error de conexión y deja el mensaje en espera. La medida tomada por Telmex, sin embargo, no afecta la recepción de correos.
Para resolver este problema, los usuarios afectados deberán solicitar a Telmex la desactivación de la protección del puerto 25, para lo cual deben llenar el formato que para ese efecto ha puesto la empresa a su disposición en: https://www.beneficios.telmex.com/puerto25Prod/iniciaPuerto25Internet.do

Análisis de Economía de países en Mathematica

En el “Wolfram Blog”, la gente de Wolfram Research, creadores de Mathematica, habla de cómo usar Mathematica para hacer un análisis rápido de una frase como la siguiente: “Las pérdidas del Banco Francés fueron de 7 Billones (cuidado, los billones gringos son miles de millones, mientras que los billones mexicanos son millones de millones), esa cantidad, 7 Billones, es más grande que la economía de varios países”, ¿Cuántos y cuáles son esos países cuya economía es menor que ese fraude? Eso se puede responder rápidamente con Mathematica versión 6 (No se necesita comprar Ningún paquete extra Ni nada por el estilo, directamente Mathematica 6 me puede dar la respuesta con unos cuantos comandos).
Aquí pueden leer ese documento del “Wolfram Blog”:

http://blog.wolfram.com/2008/01/losing_a_countrys_gdp_in_the_f.html

¡Saludos!

José Luis


Read the entire entry at:
http://blog.wolfram.com/2008/01/losing_a_countrys_gdp_in_the_f.html

To see other posts, visit the Wolfram Blog at:
http://blog.wolfram.com

Propuestas de logos

Propuestas de logos para MaTECmática:

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/01aproplogo.doc

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/02aproplogoENBLANCO.jpg

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/02aproplogoENNEGRO.jpg

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/03aproplogo.jpg

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/04aproplogo.jpg

http://homepage.cem.itesm.mx/jose.luis.gomez/MaTECmatica/05aproplogo.jpg

¿Cuál les gusta más?

¿Que esperan de MaTECmática?

Hola queridos integrantes de MaTECmática,

Como resultado de nuestra reunión del 24 de enero, tenemos las siguientes tareas (háganlas rápido, No le dediquen más de media hora en total a los tres puntos siguientes, para que me lo envíen hoy o mañana o a más tardar el sábado):

1. Que cada uno me envíe por correo, si quieren con copia a todos los demás, QUE ESPERAN DEL GRUPO DURANTE ESTE SEMESTRE, QUE ESPERAN OBTENER, QUE ESPERAN APORTAR.
2. Basándose en su respuesta a la pregunta anterior, proponer una Visión (idea romántica y a largo plazo) y una Misión (más concreta, explicando someramente “cómo” se va a lograr la visión) para el grupo. Pueden tomar como modelo las diferentes propuestas que ya nos hicieron dos de sus compañeros, y que les hago llegar anexas a este correo.
3. Proponer una organización interna del grupo MaTECmática que sirva para cumplir con su respuesta a la pregunta anterior: Encargado de tal cosa, encargado de tal otra, etc.

Insisto: Cuando mucho dedíquenle media hora a los tres puntos anteriores.
Además, por favor también:

1. Aquellos que ya tengan trabajo hecho en Mathematica (Instrucciones para dibujar en Mathematica, Computación Cuántica, Paquete de Control, Brazo robótico, Teoría de perturbaciones en Ecuaciones Diferenciales, etc. etc.) por favor indíquenme que jueves del semestre les gustaría exponer, el título de su plática y la duración estimada (mínimo quince minutos, máximo 50 minutos).

¡Un abrazo!
José Luis