Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Hi Matbao8x,
Tôi không biết nhiều về VBA lắm nhưng cũng đã nghiên cứu sơ qua. Tôi đã viết 1 đoạn code để nội suy 2 chiều trong bản tính toán sàn như sau:
Function noisuy(giatri As Single, M As Range, sodo As Integer, heso As Single)
Dim i As Integer
Dim j As Integer
Dim n As Integer
n = 21

For i = 1 To n
If M(i, 1) >= giatri Then
noisuy = (giatri - M(i - 1, 1)) * (M(i, 5 * (sodo - 1) + heso + 1) - M(i - 1, 5 * (sodo - 1) + heso + 1)) / (M(i, 1) - M(i - 1, 1)) + M(i - 1, 5 * (sodo - 1) + heso + 1)
Exit For
End If
Next
End Function
Đây là hàm nội suy để tra các hệ số alpha va beta.
Trong đó "giatri" chính là tỷ số l1/l2, M là mảng bao gồm 9 bảng tương ứng với 9 sơ đồ, "sodo" chính là số sơ đồ mà bạn muốn nội suy, "heso" = 1,2,3,4 tương ứng với alpha1,2 và beta1,2.
Bạn tìm hiểu thêm nhé.

Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Chào hoangquycong,

Chắc là ý bạn muốn nói đến nội suy Lagrange (nội suy đường cong Lagrange) và các áp dụng của phương pháp tính toán gần đúng. Giả sữ chúng ta có N-1 lời giải chính xác, chúng ta sẽ tính được lời giải thứ N (gần đúng) dựa vào các kết quả chính xác đã tìm được trước đó, cái này các bạn nghiên cứu sinh hay quan tâm đây.

Bạn nào quan tâm thì mời vào xem 2 link sau, rất dể hiểu:

http://en.wikipedia.org/wiki/Lagrange_polynomial
http://www.math.ucla.edu/~baker/java...r/Lagrange.htm

Thảo luận để cùng tiến bộ

Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

nội suy kiểu gì?????bạn muốn nội suy b1,b2.... hay bậc n
nội suy trong mặt phẳng thì tui ok,nhưng nội suy trong không gian thì pó tay,thầy giáo nói có thuật toán nội suy tam giác của gô lô lôi gì gì đấy nhưng mình không biết,ai biết thì post cho buôn làng cùng xem nhé.
my mail:hqchvkt@gmail.com

Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Ở đây Tôi có hàm noi suy cho Acad sử dụng AutoLisp. Bạn xem có giúp được cho Bạn không?
(defun NS (x1 y1 x2 y2 x) (+ y1 (* (- x x1) (/ (float (- y1 y2)) (float (- x1 x2))))));NOI SUY DUONG THANG
(DEFUN C:NS1(/ cd1 cd2 pt1 pt2 pt3 ang dist disti cdi)
(setvar "cmdecho" 0)
(setq CD1 (getreal "\nCao do diem dau ")
PT1 (GETPOINT "\nDiem dau: ")
PT2 (GETPOINT "\nDiem cuoi: " PT1)
CD2 (getreal "\nCao do diem cuoi ")
PT3 (GETPOINT "\nDiem noi suy: ")
ANG (ANGLE PT1 PT2)
DIST (DISTANCE PT1 PT2)
DISTi (DISTANCE PT1 PT3)
CDi (NS 0 CD1 DIST CD2 DISTi)
)
(princ (strcat "\nCao do diem noi suy: " (rtos CDi 2)))
(PRINC)
)

Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trong Excel có hàm để nội suy 1, 2 chièu rồi, viết làm gì cho mêt, dùng kết hợp hàm Index ấy

Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Sao không thử tìm kiếm trước khi Post bài nhỉ?
VBA trong Excel:
Nhấp tìm kiếm , điền từ khoá "Mỗi tuần một hàm trong Excel! "