 | |
 | |
 | | |
| | |
|  |  | |
|  | | Information auf einem Server im Internet?
Sie sitzt zwar fest, während sie auch um die Welt reist, aber das muß ja nicht "in der Ecke" sein.
Jemand, der träumt?
|
| | |
| | |
| | | 2 a) [ohne Text] 05.12.2002 (04:48 Uhr) amo |
| | | |
| | | | |
| | | | quadratListe l = map (\x -> x*x) l |
| | | 2 b) [ohne Text] 05.12.2002 (04:48 Uhr) amo |
| | | |
| | | | |
| | | | exponentenListe l = map (\x -> x^x) l |
| | |
| | |
| | | |
| | | binToDec l = foldl (\x y -> x*2+y) 0 l |
| | |
| | |
| | | |
| | | ausfGeschw nc vm = let xDy = zipWith (/) nc vm
mw = sum xDy / fromInt (length xDy)
in sum (map (\x -> mw - x) xDy)
|
| |  | |
| | | Hallo!
Diese Aufgabe wurde nun nachträglich auf dem Übungsblatt geändert und eine andere Formel vorgegeben. Damit wurde die vorherige Formel berichtigt. Leider habe ich das Blatt schon abgegeben. Aber für euch schreibe ich hier eine Lösung mit der neuen geänderten Formel. Diese habe ich noch nicht getestet, aber wenn möglich, mache ich dies noch. Zuletzt geändert von amo am 10.12.2002 um 09:38 Uhr. |
| | | | |
| | | | ausfGeschw nc vm = let xDy = zipWith (/) nc vm
n = fromInt (length xDy)
mw = sum xDy / n
in (sum (map (\x -> abs (mw - x)) xDy)) / n
|
| | | | | |
| | | | | positiv |
| | |
| | |
| | | |
| | | dist :: ((Double,Double),(Double,Double)) -> Double
dist ((x1,y1),(x2,y2)) = sqrt (((abs (x1 - x2))^2) + ((abs (y1 - y2))^2))
|
| | | |
| | | maxDist :: [(Double,Double)] -> Double
maxDist ps | length ps >= 2 =
let dists [] = []
dists (p:ps) = map (\x -> dist (p,x)) ps ++ dists ps
in foldl max 0 (dists ps)
|
|  | |
| | Zur Bequemlichkeit hier die Links, wo man das Übungsblatt beim Lehrstuhl Ungerer runterladen kann:
Übungsblatt 7 in "Windows-Postscript" Format [Link entfernt, weil Linkziel leider nicht mehr verfügbar]
Übungsblatt 7 in "Adobe Portable Dokument Format" (pdf) [Link entfernt, weil Linkziel leider nicht mehr verfügbar]
|
| | |
| | module Uebungsblatt_07 where
quadratListe l = map (\x -> x*x) l
exponentenListe l = map (\x -> x^x) l
binToDec l = foldl (\x y -> x*2+y) 0 l
ausfGeschw nc vm = let xDy = zipWith (/) nc vm
n = fromInt (length xDy)
mw = sum xDy / n
in (sum (map (\x -> abs (mw - x)) xDy)) / n
dist :: ((Double,Double),(Double,Double)) -> Double
dist ((x1,y1),(x2,y2)) = sqrt (((abs (x1 - x2))^2) + ((abs (y1 - y2))^2))
maxDist :: [(Double,Double)] -> Double
maxDist ps | length ps >= 2 =
let dists [] = []
dists (p:ps) = map (\x -> dist (p,x)) ps ++ dists ps
in foldl max 0 (dists ps)
|
 |
