Video:
http://www.wolfram.com/broadcast/screencasts/presentingnotebooks/
Ha comenzada la cuenta regresiva para el buscador de Wolfram, Se espera que sea liberado a las 7pm CDT del día de hoy, su gran expectativa se puede observar en más de 18 000 000 de entradas o blogs de internet.
El equipo de Wolfram, creadores del Software Mathematica han estado desarrollando durante los últimos siete años una nueva herramienta de nombre WolframAlpha, está herramienta evolucionara la búsqueda de datos en internet como lo hizo en su momento Google.
Este motor de búsqueda será capaz de responder directamente a las preguntas que hace el usuario, en vez de remitirnos a enlaces como hace Google. No porque disponga de un gran listado de respuestas, sino porque es capaz de calcularlas a partir de una serie de bases de datos y de algoritmos heurísticos.
Nova Spivack, un prestigioso experto y el creador de la herramienta Twine de internet, cree que Alpha podría tener el mismo impacto que Google. "WolframAlpha es como enchufarnos a un gigantesco cerebro electrónico", asegura Spivack, "no sólo busca respuestas dentro de una gran base de datos [como Google], sino que calcula las respuestas".
Stephen Wolfram, es un prestigioso científico británico conocido por ser el autor del software 'Mathematica', una herramienta de referencia en el campo de la programación.
Nacido en Londres en 1959, Stephen Wolfram publicó su primer artículo científico, sobre física de partículas a los 16 años, entró en Oxford a los 17 y obtuvo su Doctorado en Física en el Instituto de Tecnología de California (Caltech) a los 20.
"Nuestro objetivo es poner el conocimiento experto al alcance de todo el mundo, en cualquier lugar y en cualquier momento", explicó el profesor Wolfram en la presentación del buscador la semana pasada en la Universidad de Harvard.
Una vez formulada la pregunta, la herramienta calcula diferentes respuestas eligiendo de forma selectiva la información de la Red para acabar dando una respuesta precisa. La gran innovación de este programa, según Wolfram, es la capacidad de resolver preguntas concretas de inmediato. Así, puede calcular la altura exacta del Everest, o comparar la altura de esta cumbre con la extensión del puente del Golden Gate si así se lo pedimos, o calcular el PIB de cualquier país, además de resolver ecuaciones matemáticas complejas y resolver cuestiones científicas (ver blog).
"Como si estuviéramos interactuando con un experto, el buscador puede entender de lo que estamos hablando, realizar el cálculo y dar la respuesta precisa", aseguró Wolfram. El creador del programa explicó que trillones de ficheros de datos fueron seleccionados por su equipo de expertos para asegurarse de que la información podría ser procesada por el sistema.
Aquí el código:
http://demonstrations.wolfram.com/AnimalSounds/
Mayor información y código:
http://demonstrations.wolfram.com/CountryFlagsAndDescriptions/
Este notebook trabaja con la última versión del software
El código se puede encontrar en: http://demonstrations.wolfram.com/images/DownloadSourceCode.gif
Diego V.
El código lo encuentras en:
http://demonstrations.wolfram.com/WimshurstMachine/WimshurstMachine-source.nb
Cabe aclarar que este notebook está diseñado para Mathematica 7. Disfrútenlo!!
Diego V.
Es así como podemos crear nuestro propio osciloscopio virtual, de aperiencia similar y mismas funciones que las de nuestro laboratorio. Fácil de manejar y con características sumamente útiles, solo debes cambiar las características de la onda y Mathematica hará el resto.
El código lu puedes encontrar en:
http://demonstrations.wolfram.com/VirtualOscilloscope/VirtualOscilloscope-source.nb
Diego V.
Pues si eres nuevo en este campo, o en algún momento necesitas saber el valor de una resistencia y no sabes que significan las banditas de color en ella, aquí te presento un notebook de Mathematica que te ayudará de forma interactiva. Simplemente ingresa el siguiente código en tu software.
CÓDIGO:
Manipulate[
With[{c1 =
Switch[color1, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow,
5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9,
White], c2 =
Switch[color2, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow,
5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9,
White], c3 =
Switch[color3, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow,
5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9,
White],
c4 = Switch[color4, 1, Brown, 2, Red, 3, ColorData["HTML", "Gold"],
4, ColorData["HTML", "Silver"], 5, None]},
Column[{Graphics3D[{Cylinder[{{0, 0, 0}, {4, 0, 0}}],
Cylinder[{{-3, 0, 0}, {7, 0, 0}}, .1], c1,
Cylinder[{{.3, 0, 0}, {.7, 0, 0}}, 1.05], c2,
Cylinder[{{1.3, 0, 0}, {1.7, 0, 0}}, 1.05], c3,
Cylinder[{{2.3, 0, 0}, {2.7, 0, 0}}, 1.05],
If[c4 === None, {}, {c4,
Cylinder[{{3.3, 0, 0}, {3.7, 0, 0}}, 1.05]}]}, Boxed -> False,
ImageSize -> 400],
Text@Row[{"resistance", " = ",
Row[{FromDigits[{color1, color2}, 10], "\[Times]",
HoldForm[10]^color3, " ohms, ",
color4 /. {Brown -> 1, Red -> 2,
ColorData["HTML", "Gold"] -> 5,
ColorData["HTML", "Silver"] -> 10, None -> 20},
"% tolerance"}]}]}, Alignment -> Center]], {{color1, 5,
"band 1"}, {0 -> "Black", 1 -> "Brown", 2 -> "Red", 3 -> "Orange",
4 -> "Yellow", 5 -> "Green", 6 -> "Blue", 7 -> "Violet",
8 -> "Gray", 9 -> "White"}}, {{color2, 8, "band 2"}, {0 -> "Black",
1 -> "Brown", 2 -> "Red", 3 -> "Orange", 4 -> "Yellow",
5 -> "Green", 6 -> "Blue", 7 -> "Violet", 8 -> "Gray",
9 -> "White"}}, {{color3, 3, "band 3"}, {0 -> "Black",
1 -> "Brown", 2 -> "Red", 3 -> "Orange", 4 -> "Yellow",
5 -> "Green", 6 -> "Blue", 7 -> "Violet", 8 -> "Gray",
9 -> "White"}}, {{color4, 4, "tolerance"}, {1 -> "Brown",
2 -> "Red", 3 -> "Gold", 4 -> "Silver", 5 -> "none"}}]
Ejecútalo y simplemente deberas seleccionar el color de cada banda para que Mathematica te diga el valor exacto de tu resistor. Espero sea de utilidad para nuestros lectores.
Diego V.
Si quieres más información de este tipo de robots y lo que puedes hacer con ellos, visita:
Si eres de las personas que disfrutan de la buena música, o mejor aún eres de aquellas que dan el siguiente paso y crean la suya propia, seguramente te topaste con el inconveniente de afinar tu instrumento.
Mathematica nos presenta una alternativa más conveniente. En lugar de comprar un afinador o buscar un software "Tuner" para tu instrumento en la red, puedes crear tu propio afinador para guitarra acústica, eléctrica y muchos otros instrumentos.
Simplemente descarga el código en el link : http://demonstrations.wolfram.com/GuitarTuner/
Córrelo en el software y listo!! Mathematica también para los músicos...
Diego V.
El error se encuentra en la línea 5: el paso de la línea 4 a la 5 implica una división por a-b, que es cero ya que a equivale a b (por la suposición). Como la división por cero no está definida, la demostración no es válida.
Para más información visita: http://es.wikipedia.org/wiki/Demostraci%C3%B3n_inv%C3%A1lida
Varias visualizaciones de nuestro planeta y selectivamente de cada uno de sus países son posibles gracias a este magnífico aporte, el cual sencillamente "desdobla" la superficie aproximadamente esférica de nuestro planeta de acuerdo a modelos estándar centrados en un punto manipulable por el usuario.
Código
Manipulate[
Show[CountryData[
cy, {"Shape", {p,
If[p === "LambertConic", {(5 (90 + c[[1]]))/6 - 90, c[[2]]},
c]}}], ImageSize -> {500, 350}], {{p, "Robinson",
"projection"}, {"Albers",
"Bonne", {"CylindricalEqualArea", 0}, {"CylindricalEquidistant",
0}, "EckertIV", "EckertVI", "Equirectangular", "LambertAzimuthal",
"LambertConic", "LambertCylindrical", "Mercator",
"MillerCylindrical", "Mollweide", "Orthographic", "Polyconic",
"Robinson", "Sinusoidal", "VanDerGrinten", "WinkelTripel"}},
{{c, {0, 0}, "center"}, {-90, -90}, {90, 90},
ImageSize -> Small}, {{cy, "World", "country"},
Join[{"World", Delimiter}, CountryData[]]},
Initialization :> CountryData[All, "Preload"],
SynchronousInitialization -> False]
El código emplea contenido preestablecido que Mathematica obtendrá automáticamente de la red.
Espero resulte de utilidad para nuestros lectores.
Diego V.
En esta oportunidad, crearemos la simulación de un juego muy popular, un cubo Rubik, mismo que podremos armar y desarmar a voluntad gracias a nuestro software de Wolfram® y sus maravillosas características.
Código en: http://demonstrations.wolfram.com/ColorCube3x3x3Puzzle/
Esto es todo lo que necesitas para empezar a disfrutar de tu propio cubo Rubik virtual.
¿Quién dijo que Mathematica no es divertido?
Diego V.
¡Demostremos nuestro amor!
Mathematica es hoy en día un software que nos permite realizar cálculos y lo novedoso es que ahora podemos hacer simulaciones. Para ejemplo realizaremos un corazón con una característica curiosa, primeramente utlizemos un polinomio en dos variables para poder generar nuestra región de corazón f(x,y)= (x^2+y^2-1)3 -x^2y^3
Código
{izq,der}=Map[Function[{side},RegionPlot[(x^2+y^2-1)^3-x^2 y^3<0&&side*x<side
(Abs[Abs[Abs[Abs[Abs[.5 y]-1]-.5]-.25]-.125]-.125),{x,-1.5,1.5},{y,-1.5,1.5},ColorFunction->"CherryTones"]],{1,-1}];
Manipulate[Show[izq,der/.GraphicsComplex[points_List,other__]:>GraphicsComplex[RotationTransform[-rotation
°,{0,-1}][points],other],AspectRatio->Automatic,Frame->False,PlotRangePadding->{{.5,1.25},{1,.5}}],{{rotation,10,"corazón
roto"},0,90},SaveDefinitions->True]
Ciencias Básicas les desea un feliz 14 de Febrero en compañía de sus familiares y parejas
Steve Bush juega un rol muy importante en la elaboración de artículos de consumo doméstico en The Procter & Gamble Company, ya que ha participado en la física detrás de los productos, así como su viabilidad económica.
En Mathematica ha encontrado una herramienta muy eficaz para resolver complejos cálculos numéricos,
"Numéricamente, es lo suficientemente potente como para crear no sólo la geometría, sino también para mostrar cómo el producto va a funcionar en la vida real donde las cosas no son necesariamente perfectas. Ser capaz de convertir la teoría en matemáticas en prototipos de trabajo es realmente un gran valor para nosotros”
Ciencias Básicas. Powered by Ciencias - Básicas diseñado por MAHT.