nội suy hai chiều. (1 người xem)

[mr.ts91]

xin mọi người giúp e nội suy hai chiều cho bảng tính e cái. e đang làm đồ án ạ.

 

[PhanTuHuong]

Chắc lại đồ án cơ đất nền móng. Bạn tìm kiếm đi nhé, có hết rồi.

 

[mr.ts91]

Vâng, e đang làm đồ án Nền móng. e cũng đã tham khảo nhiều tài liệu rồi, nhưng vì e không có dạy học cách lập trình VB nên e không hiểu mấy về cú pháp ạ. e có xem phần nội suy của các a trên diễn đàn, và e có copy chương trình do a PMXD viết:

Function TraBang2Chieu(ByVal GiaTriCot, ByVal GiaTriHang, VungChon As Range)
Dim i As Long, j As Long
Dim TangAnPha
Dim NoiSuy1 As Double, NoiSuy2 As Double


For i = 1 To UBound(VungChon.Value, 2) ' Theo phuong ngang
If GiaTriCot = VungChon(1, i) Then
For j = 1 To UBound(VungChon.Value, 1) - 1
If (GiaTriHang - VungChon(j, 1)) * (GiaTriHang - VungChon(j + 1, 1)) <= 0 Then
TangAnPha = (VungChon(j + 1, i) - VungChon(j, i)) / (VungChon(j + 1, 1) - VungChon(j, 1))
TraBang2Chieu = VungChon(j, i) + (GiaTriHang - VungChon(j, 1)) * TangAnPha
GoTo Thoat:
End If
Next j
ElseIf (GiaTriCot - VungChon(1, i)) * (GiaTriCot - VungChon(1, i + 1)) < 0 Then
For j = 1 To UBound(VungChon.Value, 1) - 1
If (GiaTriHang - VungChon(j, 1)) * (GiaTriHang - VungChon(j + 1, 1)) < 0 Then
TangAnPha = (VungChon(j, i + 1) - VungChon(j, i)) / (VungChon(1, i + 1) - VungChon(1, i))
NoiSuy1 = VungChon(j, i) + (GiaTriCot - VungChon(1, i)) * TangAnPha


TangAnPha = (VungChon(j + 1, i + 1) - VungChon(j + 1, i)) / (VungChon(1, i + 1) - VungChon(1, i))
NoiSuy2 = VungChon(j + 1, i) + (GiaTriCot - VungChon(1, i)) * TangAnPha


TangAnPha = (NoiSuy2 - NoiSuy1) / (VungChon(j + 1, 1) - VungChon(j, 1))
TraBang2Chieu = NoiSuy1 + (GiaTriHang - VungChon(j, 1)) * TangAnPha
GoTo Thoat:
End If
Next j
End If
Next i


Thoat:
'TraBang = UBound(VungChon.Value, 2)
End Function

nhưng xem cũng không hiểu mấy, làm sao để chạy được đoạn mã đó.mọi người giúp e với, ta cần nhập cú pháp như thế nào để chạy được. mong mọi người hướng dẫn giúp.