Hola a todos.
Me piden construir funciones que devuelvan listas infinitas con los términos de las siguientes series:
Esa sé hacerla:
Código:exp' :: Double -> [Double] exp' x = [(1/fact(n))*(x**n)|n<-[0,1..]]
El problema lo tengo con esta:
=1-\displaystyle\frac{1}{3!}x^3+\displaystyle\frac{1} {5!}x^5-\displaystyle\frac{1}{7!}x^7...)
He escrito esto:
Pero no compila.Código:senn :: Double -> [Double] senn x = [((-1)**( [1, 3..]!!n))*(1/fact(n))*(x**(n))|n<-[1, 3..]]
Bueno, como alternativa podría crear dos listas, una con los términos positivos y otra con los términos negativos. Luego se unen convenientemente y problema zanjado, pero quisiera saber si alguien puede ayudarme con ese lío que tengo de exponentes.
Creo que el problema va a ser que (-1) es negativo.
El operador (^) parece que podría arreglarme el problema, sin embargo no me compila si lo pongo.
Saludos, y felices fiestas.
Hola Chana,
esto lo estas haciendo en Haskell?
Es que lo digo porque esas dos aproximaciones yo las tengo hechas pero en C++.
No se si te podria servir de algo.
Respecto al signo menos que va alternandose con el signo positivo, almenos en C++, cuando construyo el bucle for (porque de hecho esas aproximaciones no son mas que bucles for puesto que conoces el numero de iteraciones, que no son mas que el numero de sumandos que quieres en el desarrollo en serie, y que porsupuesto es finito), lo que hago es que delante de la fraccion (que construyo como cociente de las variables numerador(num) y denominador(den), es decir: num/den ) la multiplico por la variable signo, y justo antes de acabar el bucle pongo:
signo=(-1)*signo de tal forma que cada vez que vuelve a iterar cambia el signo, y asi va alternandose. Alomejor una idea similar podrias usar en Haskell,no?
Saludos y suerte
Lo que interesa de un anillo no es la naturaleza conjuntista d sus elementos sino cómo los relacionan las leyes internas
El núcleo de la teoría de extensiones algebraicas consiste en obtener informacion de una extension normal K/k a partir del conjunto G(K/k), el grupo de Galois
Ivorra
Prueba a hacer esta sustitución
donde %2 es el resto de dividir por 2.
Stephen Hawking:No sólo Dios juega definitivamente a los dados sino que además a veces los lanza a donde no podemos verlos.
http://ciencia.astroseti.org/hawking/dios.php
Hola.
Gracias a ambos por responder.
Luis, puede que esté yo equivocado (estoy aún aprendiendo Haskell), pero para usar los típicos bucles for, do, while, que usamos en c++ habría que definirlos de alguna forma (vamos, que no vienen predefinidos). Es más, en la programación docente de la asignatura no he visto nada de bucles :\. Principalmente usamos la recursividad. Es algo que a mi me chocaba un poco al principio, pero esto de la programación funcional es bastante diferente a c++.
La idea tuya es buena, además es la que pretendía usar, pero haciendo uso de las listas por comprensión. Se genera una lista infinita con los sumandos de la serie, y luego sumas cuantos términos quieras de la lista. Lo bueno de Haskell es que como usa la evaluación perezosa, no necesita calcular la lista infinita (lo cual no acabaría nunca) para sumar los "r" términos que le pidamos.
algo del estilo:
[(1/fact(n))*(x^n)*(-1)^n] con n tomando los valores impares. En realidad esto me recuerda a un for
La idea de Fortuna también es buena, no se me había ocurrido. Pero me da un error al compilar :
Código:senn :: Double -> [Double] senn x = [((mod (2(n+1)) 2)-1)*(1/fact(n))*(x**(n))|n->[1, 3..]]
el error es: Instances of (Num (Double -> Double), Integral Double) required for definition of senn.
Bueno, el problema en sí lo tengo solucionado como dije en el primer post, pero tengo curiosidad en saber porque esas soluciones que aportais dan error al compilar.
Saludos.
No seríaIniciado por Chana
senn :: Double -> [Double]
senn x = [((mod (2*(n+1)) 2)-1)*(1/fact(n))*(x**(n))|n->[1, 3..]]
Stephen Hawking:No sólo Dios juega definitivamente a los dados sino que además a veces los lanza a donde no podemos verlos.
http://ciencia.astroseti.org/hawking/dios.php
Hola.
Ups, si es cierto. Pero ahora me sale este error:
Instance of Integral Double required for definition of senn
Llevo con un gripazo y fiebre desde el viernes asi que no tengo mucho tiempo para meterme al foro??:
Lo que has escrito ahi, desde luego no es el desarrollo en Taylor de la funcion seno (independientemente de que compile o no). Lo puedes ver comprobando que solo incluye terminos negativos.
Recuerdo cual es su desarrollo en serie (o al menos una de las formas posibles de escribirlo):
Asi que podemos escribir el conjunto de sus n primeros terminos como:
Asi escrito lo tenemos a huevo para pasarlo a Haskell...
NOTA: haskell puede inferir los tipos de lo que escribes!! Puedes ayudar al compilador a optimizar ciertas expresiones o documentar tu propio codigo escribiendolas tu, en este caso tu mismo has usado:Código:sinn x = [ (-1)^n * x^(2*n+1)/fact (2*n+1) | n <- [0,1..]]
Es una buena practica de programacion ponerle los tipos, pero si estas aprendiendo puedes usar la inferencia de Haskell para aprender que tipos deberias haber puesto.Código:sinn :: Double -> [Double]
Por supuesto todavia queda dar una definicion de fact y aqui esta la clave para resolver los errores de compilacion que tenias:
Y que hace fromIntegral? pues lo que dice su nombre coge un numerito que estaba restringido a ser un entero y lo interpreta como cualquier numero dentro de la clase Num (enteros, double, float)Código:fact :: (Integral a, Num b) => a -> b fact n = fromIntegral (product [1..n])
Las clases en Haskell y los tipos que pertenecen a dichas clases:
http://www.haskell.org/onlinereport/classes.gif
Y por que lo tienes que hacer asi? Pues porque:
**O puedes usar cualquier de estas otras: http://www.willamette.edu/~fruehr/ha...evolution.htmlCódigo:(/) :: Fractional a => a -> a -> a
"Get out of my way, or I'll pee right through ya!" Richard Feynman
Hola,
Vaya, que despiste. El tema de los tipos en Haskell me está costando. Muchas gracias por todo.
Que te mejores.
Saludos.
Preparado para que me acuchilleis! :(
Que lenguaje mas feo
¿Para que sirve?, ¿que le veis?. Sólo he ledido como ventaja, que cuando consigues que compile no comete bugs.
Stephen Hawking:No sólo Dios juega definitivamente a los dados sino que además a veces los lanza a donde no podemos verlos.
http://ciencia.astroseti.org/hawking/dios.php
Permisos de publicación
Citar
