jsoffer · August 22, 2009 09:07
diff --git a/gistfile1.hs b/gistfile1.hs
 -- número de pasos para aproximar -phi por punto fijo de x = 1/(x-1)

 Prelude Graphics.Gnuplot.Simple> plotList [] $ 
       map (\x -> let 
           nums = iterate  (\k -> 1/(k-1)) x in 
           (\(a,b,c) -> c) $ 
           head $ 
           dropWhile (\(a,b,c) -> a /= b) $
           zip3 (tail nums) nums [1..]) (map (/3000) [0..12000])
	-- número de pasos para aproximar -phi por punto fijo de x = 1/(x-1)

	Prelude Graphics.Gnuplot.Simple> plotList [] $
	map (\x -> let
	nums = iterate (\k -> 1/(k-1)) x in
	(\(a,b,c) -> c) $
	head $
	dropWhile (\(a,b,c) -> a /= b) $
	zip3 (tail nums) nums [1..]) (map (/3000) [0..12000])