Newer
Older
-- Aufgabe 3
-- =========
module Aufgabe3 where
import Data.List
import Hui
-- Real world-Andwendung: List Applicative als numerisches Tool
-- ------------------------------------------------------------
-- Sie sollen Maxima einer komplizierten Funktion finden. Die Funktion erlaubt keine analytische Berechnung
-- der Maxima. Daher sollen Sie im Intervall [-10,10] für alle Parameter x y z w approximativ Maxima suchen.
-- komplizierteFunktion :: Double -> Double -> Double -> Double -> Double
-- Definieren Sie hierfür eine Funktion, die zusätzlich zum berechneten Wert die übergebenen Parameter zurückgibt.
berechnungMitEingabe :: Double -> Double -> Double -> Double -> (Double,(Double,Double,Double,Double))
berechnungMitEingabe x y z w = undefined
-- Definieren mithilfe von `berechnungMitEingabe` eine Funktion `nBesteEingaben`, welche die n günstigsten
-- Eingabeparameter-Tupel zusammen mit dem möglichst maximalen Ergebnis zurückgibt.
nBesteEingaben :: Int -> Double -> [(Double,(Double,Double,Double,Double))]
nBesteEingaben n d = undefined -- Beginne mit: take n $ sortOn (undefined) $ undefined
where range = [(-10),(-(10-d))..10]
result = show $ nBesteEingaben 10 1