1
 

ReDim f_DataSet(1, n_NumberOfErrors) ' Μήπως θέλεις να πεις n_NumberOfErrors - 1 ?

1
2
3
4
 

f_Permuted(i) = f_DataSet ' Εδώ δεν παίρνεις κόπια του f_Dataset αλλά την διεύθυνση του.
            ' Δηλαδή κάθε φορά που αλλάζεις μία τιμη στο f_Permuted(i) θα αλλάζει και η τιμή του αντίστοιχου στοιχείου στο f_Dataset και το αντίθετο.
            ' Στην συγκεκριμένη περίπτωση κάθε row του f_Permuted (f_Permuted(0), f_Permuted(1), f_Permuted(2), f_Permuted(3) κλπ) θα σου δείχνουν στις ίδιες τιμές.
            ' Τα Arrays είναι reference types.

1
2
3
4
 

                    ' Εδώ που κάνεις το swap δεν αλλάζει μόνο το f_Permuted αλλά και το f_DataSet.
                    ' Με αποτέλεσμα όταν ξαναπαίρνεις τις τιμές του f_DataSet να παίρνεις τις τιμές του τελευταίου permutation στην ουσία και όχι τις αρχικές.
                    f_Permuted(i)(0, j) = f_Permuted(i)(1, j)
                    f_Permuted(i)(1, j) = tempDec

1
2
3
4
5
6
 

            ' Μπορείς έτσι
            f_Permuted(i) = New Decimal(1, n_NumberOfErrors - 1) {}
            Array.Copy(f_DataSet, f_Permuted(i), f_DataSet.Length)

            ' Ή έτσι
            f_Permuted(i) = DirectCast(f_DataSet.Clone, Decimal(,))

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
 

    Private Sub mitsos() ' Το Ελληνικό foo
        Dim AR(0) As A
        Dim BR(0) As A
        Dim pA As New A With {.i = 100}

        AR(0) = pA

        Array.Copy(AR, BR, 1) ' Swallow Copy

        AR(0).i = 300 ' Εφόσον τα elements του AR και του BR Δείχνουν στο ίδιο Object οι τιμές του i θα αλλάζουν και στα δύο arrays.

        MessageBox.Show(BR(0).i.ToString)

        ' TODO δοκίμασέ το και με Structure
    End Sub

    ' A class is a Reference Type
    Private Class A
        Public i As Integer
    End Class

    '' A Struct is a Value Type
    'Private Structure A
    '    Public i As Integer ' Value Type
    'End Structure

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
100
101
 

Imports STATCONNECTORSRVLib

Module modFunctions
    Const SIZE_OF_DOUBLE = 8

    Public Rdo As New StatConnector
    Dim txtf_Permuted As New TextBox

    Dim RandomClass As New Random()
    Dim RandomNumber As Integer
    Public Sub TwoPairedSamplesPermutation(ByVal f_DataSet()() As Double, ByVal T_Repetition As Integer, ByVal n_NumberOfErrors As Integer, ByRef G_PermutationIndices(,) _
    As Boolean, ByRef f_Permuted_o()()() As Double, ByRef MaximumVerticalDeviation() As Double, ByRef pValues() As Boolean, ByRef pValueRecNumerator As Double, ByVal MaxVerticalDevMainSample As Double)
        'Initialization
        ReDim G_PermutationIndices(n_NumberOfErrors - 1, T_Repetition - 1)
        ReDim MaximumVerticalDeviation(T_Repetition - 1)
        ReDim pValues(T_Repetition - 1)

        pValueRecNumerator = 0
        Dim f_Permuted(T_Repetition - 1)()() As Double
        Dim txtIndices As New TextBox
        '/Initialization

        Dim strMaxVerticalDev As String = ""
        For i As Integer = 0 To T_Repetition - 1                                                                                'For every repetition

            Dim Strf_Permuted(n_NumberOfErrors) As String
            Strf_Permuted(0) = "	" & "V1" & "	" & "V2"

            f_Permuted(i) = DirectCast(f_DataSet.Clone, Double()())

            For j = 0 To n_NumberOfErrors - 1                                                                                   'For Rows.Length
                RandomNumber = RandomClass.Next(2)

                If RandomNumber = 0 Then
                    G_PermutationIndices(j, i) = False
                    'Do not permute!

                    My.Computer.Clipboard.SetText("0" & "	" & f_Permuted(i)(0)(j) & "	" & f_Permuted(i)(1)(j))
                    MsgBox("0" & vbCrLf & f_Permuted(i)(0)(j) & " | " & f_Permuted(i)(1)(j))

                Else
                    G_PermutationIndices(j, i) = True
                    Dim tempDec As Double = f_Permuted(i)(0)(j)                                                                 'Permutation..
                    f_Permuted(i)(0)(j) = f_Permuted(i)(1)(j)
                    f_Permuted(i)(1)(j) = tempDec

                    My.Computer.Clipboard.SetText("1" & "	" & f_Permuted(i)(0)(j) & "	" & f_Permuted(i)(1)(j))
                    MsgBox("1" & vbCrLf & f_Permuted(i)(0)(j) & " | " & f_Permuted(i)(1)(j))
                End If

                Strf_Permuted(j + 1) = j + 1 & ")" & "	" & f_Permuted(i)(0)(j) & "	" & f_Permuted(i)(1)(j)
            Next j                                                                                                              'End of Permutation

            Dim V1(n_NumberOfErrors - 1), V2(n_NumberOfErrors - 1) As Double
            Buffer.BlockCopy(f_Permuted(i)(0), 0, V1, 0, n_NumberOfErrors * SIZE_OF_DOUBLE)
            Buffer.BlockCopy(f_Permuted(i)(1), 0, V2, 0, n_NumberOfErrors * SIZE_OF_DOUBLE)

            Rdo.SetSymbol("permutationset1", V1)
            Rdo.SetSymbol("permutationset2", V2)

            MaximumVerticalDeviation(i) = CType(Rdo.Evaluate("ks.test(permutationset1, permutationset2)$statistic"), Double)
            strMaxVerticalDev &= "  " & String.Format("{0:n1}", MaximumVerticalDeviation(i))

            If MaximumVerticalDeviation(i) >= MaxVerticalDevMainSample Then
                pValues(i) = True
                pValueRecNumerator += 1
            Else
                pValues(i) = False
            End If

            Dim tmpTxt As New TextBox With {.Lines = Strf_Permuted}
            txtf_Permuted.Text = txtf_Permuted.Text & vbCrLf & vbCrLf & "Permutation No: " & i + 1 & vbCrLf & tmpTxt.Text

        Next i                                                                                                                      '/End of Main Loop

        f_Permuted_o = f_Permuted

        strMaxVerticalDev = "Maximum Vertical Deviation:" & vbCrLf & strMaxVerticalDev.Substring(2)
        frmMain.txtResults.Text &= vbCrLf & vbCrLf & strMaxVerticalDev
        WriteText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Maximum Vertical Deviation.txt", strMaxVerticalDev)
        txtf_Permuted.Text = txtf_Permuted.Text.Substring(4)                                                                        'Saving Permutation to Text
        frmMain.txtResults.Text &= vbCrLf & vbCrLf & "Permutation Samples:" & vbCrLf & vbCrLf & txtf_Permuted.Text
        WriteText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Permuted Samples.txt", txtf_Permuted.Text)

        For i As Integer = 0 To T_Repetition - 1                                                                                    'Saving the Indices to Text
            txtIndices.Text = txtIndices.Text & "	" & "T" & i + 1
        Next i
        For i As Integer = 0 To n_NumberOfErrors - 1
            txtIndices.Text = txtIndices.Text & vbCrLf & i + 1 & ")"
            For j = 0 To T_Repetition - 1
                txtIndices.Text = txtIndices.Text & "	" & CType(G_PermutationIndices(i, j), Integer) * -1
            Next
        Next

        frmMain.txtResults.Text &= vbCrLf & vbCrLf & txtIndices.Text
        WriteText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Permutation Indices.txt", txtIndices.Text)                  '/End of Indices Save


    End Sub

End Module

1
2
3
4
5
6
7
8
9
 

        Dim f_Dataset()() As Double = New Double(0)() {New Double() {1.0#, 2.0#, 3.0#}} ' ή Dim f_Dataset()() As Double = New Double(0)() {({1.0#, 2.0#, 3.0#})}
        Dim f_Permuted(1)()() As Double

        f_Permuted(0) = DirectCast(f_Dataset.Clone, Double()())
        f_Permuted(1) = DirectCast(f_Dataset.Clone, Double()())

        f_Permuted(0)(0)(0) = 1000D

        MessageBox.Show(f_Permuted(1)(0)(0).ToString) ' Δεν έχουμε copy εσωτερικά αλλά το ίδιο Array.

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
 

    Private Sub AButtonClick(sender As System.Object, e As System.EventArgs) Handles AButton.Click
        Dim f_Dataset()() As Double = New Double()() _
                                        {
                                            New Double() {1.0#, 2.0#, 3.0#}
                                        }
        Dim f_Permuted()()() As Double = New Double()()() _
                                        {
                                            New Double()() _
                                                {
                                                    DirectCast(f_Dataset(0).Clone, Double())
                                                },
                                            New Double()() _
                                                {
                                                    DirectCast(f_Dataset(0).Clone, Double())
                                                }
                                        }

        f_Permuted(0)(0)(0) = 1000.0#

        MessageBox.Show(f_Permuted(1)(0)(0).ToString)

        Me.Way1()
    End Sub

    Sub Way1()
        Dim f_Dataset()() As Double = {({1.0#, 2.0#, 3.0#})}
        Dim f_Permuted()()() As Double = {
                                            ({DirectCast(f_Dataset(0).Clone, Double())}),
                                            ({DirectCast(f_Dataset(0).Clone, Double())})
                                         }

        f_Permuted(0)(0)(0) = 1000.0#

        MessageBox.Show(f_Permuted(1)(0)(0).ToString)

        Me.Way2()
    End Sub

    Sub Way2()
        Dim f_Dataset()() As Double = {({1.0#, 2.0#, 3.0#})}
        Dim f_Permuted()()() As Double = {
                                            New Double(0)() {},
                                            New Double(0)() {}
                                         }

        f_Permuted(0)(0) = DirectCast(f_Dataset(0).Clone, Double())
        f_Permuted(1)(0) = DirectCast(f_Dataset(0).Clone, Double())

        f_Permuted(0)(0)(0) = 1000.0#

        MessageBox.Show(f_Permuted(1)(0)(0).ToString)

        Me.Way3()
    End Sub

    Sub Way3()
        Dim f_Dataset()() As Double = {({1.0#, 2.0#, 3.0#})}
        Dim f_Permuted(1)()() As Double

        f_Permuted(0) = New Double(0)() {}
        f_Permuted(1) = New Double(0)() {}

        f_Permuted(0)(0) = DirectCast(f_Dataset(0).Clone, Double())
        f_Permuted(1)(0) = DirectCast(f_Dataset(0).Clone, Double())

        f_Permuted(0)(0)(0) = 1000.0#

        MessageBox.Show(f_Permuted(1)(0)(0).ToString)
    End Sub

    Sub mitsos()
        ' http://msdn.microsoft.com/en-us/library/s9cz43ek(v=VS.100).aspx

        'Dim d As Decimal = 9999999999999999999 ' Overflow
        Dim d1 As Decimal = 9999999999999999999D ' OK
        Dim d2 As Decimal = 9999999999999999999UL ' OK
        Dim f As Single = 1.0E+19!
    End Sub

1
2
3
 

        For i = 0 To T_Repetition - 1
            f_Permuted(i) = New Double(1)() {}
        Next

1
2
 

            f_Permuted(i)(0) = DirectCast(f_DataSet(0).Clone, Double())
            f_Permuted(i)(1) = DirectCast(f_DataSet(1).Clone, Double())

1
2
3
4
 

        Dim f_Permuted()()() As Double = {
                                            New Double(1)() {},
                                            New Double(1)() {}
                                         }