Legyen
Ekkor
Legyen
translate :: (Fractional a, Real b) => (a, b) -> (a -> b) -> (a -> b)
translate (x, y) f = (+y) . f . (+(-x))
Ekkor
Feladatok:
Feladatok:
Feladatok:
display :: (Double, Double) -> (Double -> (Double, Double)) -> Diagram
display = displayArc (-16,-10) (16,10)
Legyen
magnify' :: (Fractional a, Real b) => b -> (a -> (b,b)) -> (a -> (b,b))
magnify' n f = (\(x,y)->(n*x,n*y)) . f
Ekkor
Feladatok: