Lines Matching refs:wert

67 let normalisier rand corand wert =
72   (wert -. c1) /. c2
74 let misch3 rand corand links rechts wert =
78   let wert = normalisier rand corand wert  in
79   if wert <= -1.0
81   else if wert >= 1.0
86       (wert*.wert-.3.0)*.a*.wert+.d
88 let misch4 rand corand default sonst wert =
92   let wert = normalisier rand corand wert  in
93   if wert <= -1.0 || wert >= 1.0
96     (wert*.wert-.2.0)*.(sonst-.default)*.wert*.wert+.sonst
98 let huegel rand corand wert =
99   let wert = normalisier rand corand wert  in
100   if wert <= -1.0 || wert >= 1.0
102   else sqrt (1.0 -. wert*.wert)