'INVERSA PARA COMPROBAR
'PONER DESPUS DEL ALG DE LOS 4 BUCLES
'    For u = 0 To n - 1
'        For v = 0 To n - 1
'            For X = 0 To n - 1
'                For Y = 0 To n - 1
'                    If (X = 0) And (Y = 0) Then
'                        alfas = alfa1 * alfa1
'                    ElseIf (X <> 0) And (Y <> 0) Then
'                        alfas = alfa2 * alfa2
'                    Else
'                        alfas = alfa1 * alfa2
'                    End If
'                    cos1 = Cos(((2 * u + 1) * (X * PI)) / (2 * n))
'                    cos2 = Cos(((2 * v + 1) * (Y * PI)) / (2 * n))
'                    suma = suma + (alfas * C(X, Y) * cos1 * cos2)
'                Next
'            Next
'            D(u, v) = suma
''            g.Row = u + 1
''            g.Col = v + 1
''            g.Text = C(u, v)
'            suma = 0
'        Next
'    Next
'    MsgBox D(0, 0) & "#" & D(0, 1) & "#" & D(0, 2) & "#" & D(0, 3) & Chr(10) & D(1, 0) & "#" & D(1, 1) & "#" & D(1, 2) & "#" & D(1, 3) & Chr(10) & D(2, 0) & "#" & D(2, 1) & "#" & D(2, 2) & "#" & D(2, 3) & Chr(10) & D(3, 0) & "#" & D(3, 1) & "#" & D(3, 2) & "#" & D(3, 3)
