Cálculo de pi mediante la fórmula de Euler

5 Comentarios

1. Haskell

   import Graphics.Gnuplot.Simple aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6 * sum (take n sumandos)) where sumandos = zipWith (/) (repeat 1) (map (^2) [1..]) grafica :: [Int] -> IO () grafica ns = plotList [Key Nothing] [aproximacionPi n | n <- ns]

   1 2 3 4 5 6 7 8

   import Graphics.Gnuplot.Simple   aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6 * sum (take n sumandos))   where sumandos = zipWith (/) (repeat 1) (map (^2) [1..])   grafica :: [Int] -> IO () grafica ns = plotList [Key Nothing] [aproximacionPi n | n <- ns]

   Responder

2. Haskell

   import Graphics.Gnuplot.Simple aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6* sum (take n [1/x|x<-map (^2) [1..]])) grafica :: [Int] -> IO () grafica xs = plotList [Title "APROXIMACION DE PI MEDIANTE LA FORMULA DE EULER", Key Nothing] (zip xs (map aproximacionPi xs))

   1 2 3 4 5 6 7

   import Graphics.Gnuplot.Simple   aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6* sum (take n [1/x|x<-map (^2) [1..]]))   grafica :: [Int] -> IO () grafica xs = plotList [Title "APROXIMACION DE PI MEDIANTE LA FORMULA DE EULER", Key Nothing] (zip xs (map aproximacionPi xs))

   Responder

3. Haskell

   import Data.List import Graphics.Gnuplot.Simple aproximacionPi :: Int -> Double aproximacionPi n = sqrt $6*(sum $take n $[1/(x^2) | x<-[1..]]) grafica :: [Int] -> IO () grafica xs = plotList [Title "APROXIMACION PI EULER", Key Nothing] $map (aproximacionPi) xs

   1 2 3 4 5 6 7 8

   import Data.List import Graphics.Gnuplot.Simple   aproximacionPi :: Int -> Double aproximacionPi n = sqrt $6*(sum $take n $[1/(x^2) | x<-[1..]])              grafica :: [Int] -> IO () grafica xs = plotList [Title "APROXIMACION PI EULER", Key Nothing] $map (aproximacionPi) xs

   Responder

4. Haskell

   import Graphics.Gnuplot.Simple aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6*(last (listaPi n))) listaPi :: Int -> [Double] listaPi n = take n (scanl1 (+) [1/x^2 | x <- [1..]]) grafica :: [Int] -> IO () grafica xs = plotList [Key Nothing] (map aproximacionPi xs)

   1 2 3 4 5 6 7 8 9 10

   import Graphics.Gnuplot.Simple   aproximacionPi :: Int -> Double aproximacionPi n = sqrt (6*(last (listaPi n)))   listaPi :: Int -> [Double] listaPi n = take n (scanl1 (+) [1/x^2 | x <- [1..]])   grafica :: [Int] -> IO () grafica xs = plotList [Key Nothing] (map aproximacionPi xs)

   Responder

5. Haskell

   import Graphics.Gnuplot.Simple aproximacionPi :: Int -> Double aproximacionPi n = sqrt (sum (lista (fromIntegral n))) where lista n = [6 * (1/n^2) | n <- [1..n]] grafica :: [Int] -> IO () grafica n = plotList [Title "Aproximaciones de Pi mediante la Formula de Euler"] (map aproximacionPi n)

   1 2 3 4 5 6 7 8 9

   import Graphics.Gnuplot.Simple   aproximacionPi :: Int -> Double aproximacionPi n = sqrt (sum (lista (fromIntegral n))) where lista n = [6 * (1/n^2) | n <- [1..n]]   grafica        :: [Int] -> IO () grafica n =   plotList [Title "Aproximaciones de Pi mediante la Formula de Euler"] (map aproximacionPi n)

   Responder