34 lines
1.0 KiB
Haskell
34 lines
1.0 KiB
Haskell
-- Не работает, потому что важно именно в случайном порядке применять трансформации
|
||
|
||
type Point = (Float, Float)
|
||
|
||
transformation1 :: Point -> Point
|
||
transformation1 (_, y) = (0, 0.16 * y)
|
||
|
||
transformation2 :: Point -> Point
|
||
transformation2 (x, y) = (0.85 * x + 0.04 * y, -0.04 * x + 0.85 * y + 1.6)
|
||
|
||
transformation3 :: Point -> Point
|
||
transformation3 (x, y) = (0.2 * x - 0.26 * y, 0.23 * x + 0.22 * y + 1.6)
|
||
|
||
transformation4 :: Point -> Point
|
||
transformation4 (x, y) = (-0.15 * x + 0.28 * y, 0.26 * x + 0.24 * y + 0.44)
|
||
|
||
applyTransformation :: Point -> Int -> Point
|
||
applyTransformation (x, y) n
|
||
| r == 0 = transformation1 (x, y)
|
||
| r <= 85 = transformation2 (x, y)
|
||
| r <= 92 = transformation3 (x, y)
|
||
| otherwise = transformation4 (x, y)
|
||
where
|
||
r = n `mod` 100
|
||
|
||
barnsleyFern :: Point -> Int -> [Point]
|
||
barnsleyFern _ 0 = []
|
||
barnsleyFern point n = point : barnsleyFern (applyTransformation point n) (n - 1)
|
||
|
||
main :: IO ()
|
||
main = do
|
||
let fractal = barnsleyFern (0, 0) 1000
|
||
print fractal
|