csvToWx/Diff_Functions1.hs at master · CBroemse/csvToWx · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
-- This module contains some NOT fully differentiable functions
-- all the functions are indiffertentiable at x=5 ,at the x-axis
-- due to the 'bedingung' (5-x) -> 5 = x
-- main purpose of this module is to provide functions for plotting

module Diff_Functions1
    where


--ist die grundfunktion in horizontaler richtung hat schönen wendepunkt
-- bei genau der haelfte deswegen 1. bezug zu zwei der Vier
-- und als 2.  ziel der horizontalen richtung
differenzwerte x = let a = x-1
                   in let bedingung = 5-x
                      in a * (1-1/5)/ (x* bedingung)


--zu zwei der Vier
differenzwerte4 :: Double -> Double
differenzwerte4 x = let a = x-1
                    in let bedingung = 5-x
                       in  (3*a * (1-1/5))/ (2*(x* bedingung))


-- zu Eins der Vier
differenzwerte5 x = let a = x-1
                    in let bedingung = 5-x
                       in  (a * (1-1/5))/ (2*(x* bedingung))


differenzwerte3 x = let a = x-1
                    in let bedingung = 5-x
                       in  (3*a * (1-1/5))/ (5*(x* bedingung))


differenzwerte6 x = let a = x-1
                    in let bedingung = 5-x
                       in  (1/(a * (1-1/5)))/ (2*(x* bedingung))

differenzwerte7 x = let a = x-1
                    in let bedingung = 5-x
                       in  (a * (1-1/5))/ (3*(x* bedingung))

differenzwerte8 x = let a = x-1
                    in let bedingung = 5-x
                       in  (a * (1-1/5))/ ((2/3)*(x* bedingung))

differenzwerte9 x = let a = x-1
                    in let bedingung = 5-x
                       in  (a * (1-1/5))/ (5*(x* bedingung))

differenzwerte10 x = let a = x-1
                    in let bedingung = 5-x
                       in  (2*a * (1-1/5))/ (5*(x* bedingung))


-- Zähler immer erste nummer
--testet in intervallen unter null
--
--
ermtodif1 x = if x < 0.13 then [x, x]
              else if x <= 0.133333333333333 then [(differenzwerte9 x), (differenzwerte4 x) ]
                else if x == 0.13 then [(differenzwerte9 x),(differenzwerte4 x)]
                  else if x <= 0.33333333333333333333333 then [ (differenzwerte5 x), (differenzwerte4 x )]
                    else if x == 0.3 then [ (differenzwerte5 x), (differenzwerte4 x )]
                      else if x == 0.4 then [ (differenzwerte9 x), (differenzwerte5 x )]
                        else if x == 0.5 then [ (differenzwerte5 x), (differenzwerte x )]
                          else if x <= 0.666666666666666666666666 then [ (differenzwerte x), (differenzwerte4 x )]
                            else if x <= 0.83333333333333333333333 then [ (differenzwerte5 x), (differenzwerte4 x )]
                              else [ x, x]


ens x = let a = differenzwerte8 x
        in let b = differenzwerte4 x
           in [ a, b]

zwo x = let a = differenzwerte x
        in let b = differenzwerte5 x
           in [ a, b]

drei x = let a = differenzwerte4 x
         in let b = differenzwerte5 x
            in [ a, b]

funf x = let a = differenzwerte x
         in let b = differenzwerte9 x
            in [ a, b]