blob: 8109e2459555e9d4501044d888e04d87f3cc33ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;;; want to plot roughly (-1,1), (-1,1), alpha = 1.32
(define ((henon-map alpha) x y return failure)
(if (or (> x 1) (< x -1) (> y 1) (< y -1))
failure)
(return (- (* x (cos alpha))
(* (- y (square x)) (sin alpha)))
(+ (* x (sin alpha))
(* (- y (square x)) (cos alpha)))))
(
;gnuplot('set terminal png; set xrange[-4:4]; set yrange[-100:100]; set output "/home/bnewbold/fromsage.png"; plot "/home/bnewbold/output";')
(start-gnuplot "huge-output.data")
(define window (frame -1. 1. -1. 1.))
;(explore-map window (henon-map 1.32) 2000)
|
