Julian
18-11-2012, 10:19
На рабочем листе есть строка С(5,1,1,7,1,21,1). Надо написать функцию создающую квадратную матрицу G(i,j) по правилу:
G(i,j )= |c(i)-5c(j)| если i<=j+1
G(i,j) = c(i-j)+4sin(c(i))-7c(j) если i>j+1
Код функции, приведенной ниже, всем элементам G(i,j) присваивает значение 4. Помогите найти ошибку, пожалуйста.
Function g(c As Variant) As Double
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim R() As Double
n = c.Columns.Count
ReDim R(n, n)
For i = 1 To n
For j = 1 To n
If i <= (j + 1) Then
R(i, j) = Abs(c(i) - 5 * c(j))
Else
R(i, j) = c(i - j) + 4 * Sin(c(i)) - 7 * c(j)
End If
Next j
Next i
g = R(n, n)
End Function
G(i,j )= |c(i)-5c(j)| если i<=j+1
G(i,j) = c(i-j)+4sin(c(i))-7c(j) если i>j+1
Код функции, приведенной ниже, всем элементам G(i,j) присваивает значение 4. Помогите найти ошибку, пожалуйста.
Function g(c As Variant) As Double
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim R() As Double
n = c.Columns.Count
ReDim R(n, n)
For i = 1 To n
For j = 1 To n
If i <= (j + 1) Then
R(i, j) = Abs(c(i) - 5 * c(j))
Else
R(i, j) = c(i - j) + 4 * Sin(c(i)) - 7 * c(j)
End If
Next j
Next i
g = R(n, n)
End Function