thuyen06x2
Thành viên mới
- Tham gia
- 31/8/09
- Bài viết
- 2
- Được thích
- 0
mong các cao thủ chỉ giáo giúp em cách tra bảng và làm nội suy 2 chiều,
.cảm ơn các bác.
.cảm ơn các bác.
nội suy 2 chiều (2 người xem)
- Thread starter thuyen06x2
- Ngày gửi
Người dùng đang xem chủ đề này
Thành viên mới
Với yêu cầu như vậy thì tôi nghĩ từ các "Cao thủ" đến các "Thấp thủ" cũng khó mà giúp được bạn. Sao bạn không đính kèm file lên.mong các cao thủ chỉ giáo giúp em cách tra bảng và làm nội suy 2 chiều,
thaiduylam
Thành viên mới
- Tham gia
- 8/11/06
- Bài viết
- 30
- Được thích
- 100
- Giới tính
- Nam
Nội suy 2 chiều
Thông thường có 2 phương pháp để nội suy : Dùng pp đường thẳng hay pp tam giác đồng dạng . Cái này các anh trên GPE đã hướng dẫn bạn có thể tìm được = các công thức . Nếu bạn cần mình gửi bạn chương trình tự tính .Thân cho mình email nhémong các cao thủ chỉ giáo giúp em cách tra bảng và làm nội suy 2 chiều,
khoavu87
Vũ Trần Khoa
- Tham gia
- 5/3/09
- Bài viết
- 1,311
- Được thích
- 1,769
- Nghề nghiệp
- Kỹ Sư Xây dựng cầu đường
ban có thể dùng thử bản nội suy hai chiều này xem sao?
Function noisuy2(vungtra As Range, X As Double, Y As Double) As Double
'ham noi suy 2 chieu
Dim ktra As Boolean
Dim i As Integer, j As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
Dim a11 As Double, a12 As Double, a21 As Double, a22 As Double
Dim t1 As Double, t2 As Double
For j = 2 To vungtra.Cells.Count
If vungtra.Cells(1, j) <= Y And vungtra.Cells(1, j + 1) >= Y Then
For i = 2 To vungtra.Cells.Count
ktra = False
If vungtra.Cells(i, 1) <= X And vungtra.Cells(i + 1, 1) >= X Then
x1 = vungtra.Cells(i, 1): x2 = vungtra.Cells(i + 1, 1)
y1 = vungtra.Cells(1, j): y2 = vungtra.Cells(1, j + 1)
a11 = vungtra.Cells(i, j): a12 = vungtra.Cells(i, j + 1)
a21 = vungtra.Cells(i + 1, j): a22 = vungtra.Cells(i + 1, j + 1)
t1 = (a12 - a11) * (Y - y1) / (y2 - y1) + a11
t2 = (a22 - a21) * (Y - y1) / (y2 - y1) + a21
noisuy2 = (t2 - t1) * (X - x1) / (x2 - x1) + t1
End If
Next i
ktra = True
End If
Next j
If ktra = False Then
MsgBox "gia tri can tim ko nam trong bang tra", vbInformation
Exit Function
End If
End Function
''''''''''''''''
sau khi bạn copy cái hàm nội suy kia vào một module thì quay lại màn hình của excel.
bạn chọn một ô bất kỳ trong cell và viết: =noisuy2($A$1:$H$8,0.25,1)
có file đính kèm.
Function noisuy2(vungtra As Range, X As Double, Y As Double) As Double
'ham noi suy 2 chieu
Dim ktra As Boolean
Dim i As Integer, j As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
Dim a11 As Double, a12 As Double, a21 As Double, a22 As Double
Dim t1 As Double, t2 As Double
For j = 2 To vungtra.Cells.Count
If vungtra.Cells(1, j) <= Y And vungtra.Cells(1, j + 1) >= Y Then
For i = 2 To vungtra.Cells.Count
ktra = False
If vungtra.Cells(i, 1) <= X And vungtra.Cells(i + 1, 1) >= X Then
x1 = vungtra.Cells(i, 1): x2 = vungtra.Cells(i + 1, 1)
y1 = vungtra.Cells(1, j): y2 = vungtra.Cells(1, j + 1)
a11 = vungtra.Cells(i, j): a12 = vungtra.Cells(i, j + 1)
a21 = vungtra.Cells(i + 1, j): a22 = vungtra.Cells(i + 1, j + 1)
t1 = (a12 - a11) * (Y - y1) / (y2 - y1) + a11
t2 = (a22 - a21) * (Y - y1) / (y2 - y1) + a21
noisuy2 = (t2 - t1) * (X - x1) / (x2 - x1) + t1
End If
Next i
ktra = True
End If
Next j
If ktra = False Then
MsgBox "gia tri can tim ko nam trong bang tra", vbInformation
Exit Function
End If
End Function
''''''''''''''''
sau khi bạn copy cái hàm nội suy kia vào một module thì quay lại màn hình của excel.
bạn chọn một ô bất kỳ trong cell và viết: =noisuy2($A$1:$H$8,0.25,1)
có file đính kèm.
Bài viết mới nhất
- Question
