2 file nội suy gửi tặng các bạn, mong các bạn làm việc với nội suy nhanh hơn chút thời gian đỡ mất công ngồi bấm máy tính.:D
Xem bảng in
2 file nội suy gửi tặng các bạn, mong các bạn làm việc với nội suy nhanh hơn chút thời gian đỡ mất công ngồi bấm máy tính.:D
ummm, cái này đúng là nội suy 2 chiều thật, nhưng ko phải là sử dụng macro, k dùng đc với bảng bất kỳ
Cái đó tui chỉ lập để tra bình thường thôi. Chứ lập marco làm chi cho lâu. Nếu như tính toán các bài toán phức tạp ứng dụng trong đường hoặc làm trong dự toán thì mới cần lập macro. Bạn có bản nào lập macro share cho anh em tham khảo nhé.!=D>Trích dẫn:
Gửi bởi aquila_lg85
anh oi cho em xin công thức nội suy 1 chieu co dc ko anh nếu co thi up len cho em voi nhe cam on anh nhieu nhe
viduTrích dẫn:
Gửi bởi uthue2216
a1 =>> b1
a3 =>> b3
a2 => b2 = b1 + (b3-b1)*(a2-a1)/(a3-a1)
Anh em dùng hàm "trend" đi:
a1 - a3 và a2 thuộc (a1:a3)
b1 - b3 và b2 thuộc (b1:b3)
Giả sử đã biết giá trị của a2 cần nội suy tìm giá trị của b2, ta dùng hàm trend, cú pháp như sau:
b2= Trend(b1:b3,a1:a3,a2)
Thực ra thì món này trên diễn đàn cũng đã thảo luận nhiều, mình chỉ nhắc lại tí thôi.
Thân!
Hì hì! Cám ơn bác nhiều. Nhưng em đang tìm hàm nội suy hai chiều sử dụng VBA. Em đã đọc nó trong sách của tác giả Phan Tự Hướng để hôm khác em post lên nha.Trích dẫn:
Gửi bởi MrHienNo1
Cám ơn nhiều, nhưng hơi khó hiểu nên mình nghiên cứu thêm. Nói chung là OK:D
khi mình nội suy 2 chiều mà kq ko ra dc, mình đánh giá trị trung gian nó toàn hiện time ko ah! 12:00:00 PM
12:00:00 PM
ở giá trị trung gian ko hiện ra số thực dc, mình tra như giữa 0,4 và 0,6 là giá trị 5/9 vậy mà kết quả ko như ý ah! chết rồi!:(:(
Nhờ anh chị em trong diễn đàn giúp đỡ giải quyết bài toán nôi suy sau:
Cho trước các giá trị: Bc, m, H0: giả sử: Bc = 175, m = 10, H0 = 10.5;
Hãy lập hàm tự tạo kiểu Function(Bc,m,H0) để xác định Vth khi biết 3 giá trị trên.
Cảm ơn rất rất nhiều!!!
lsxinh@gmail.com
Vui lòng mở file đính kèm để xem chi tiết.
Mình có bảng số liệu gởi kèm nhờ các bác lập giúp mình cách lập hàm nội suy nhé, thank!
Bác cho em hỏi là em đã làm tương tự, cop module vào rồi mà vẫn không chạy được
http://www.giaxaydung.vn/diendan/newattachment.php?values[t]=7138&contenttypeid=1&poststarttime=1393464796&pos thash=f0393b14cf63ea3d619841a9239c58f9
Em đã cop module của bác vào mà sao không chạy được à!
http://www.giaxaydung.vn/diendan/newattachment.php?values[t]=7138&contenttypeid=1&poststarttime=1393464796&pos thash=f0393b14cf63ea3d619841a9239c58f9
ah cho em xin cach tinh noi suy 3 chieu duoc không.ưm bay gio dang lam bai tap lon mon nen mong ma khong biet phai tinh noi suy the nao het
Xin gởi bạn file đồ án nền móng.có mục nội suy ở sheet cuối.
Đọc kỹ từng mục của file và làm nhé,chúc thành công
Mình viết cái này đã lâu, nay trình làng để làm quen với các bạn trên diễn đàn
PHP Code:Option Explicit
Function NoiSuyGPE(VungTra As Range, xX As Double, yY As Double) As Double
'Ham Noi Suy 2 Chieu Tai GPE.COM (Sa_DQ)'
Dim iW As Integer, jI 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
Dim RgNg As Range, RgDoc As Range
Dim Rng As Range, Clls As Range
Set RgNg = VungTra.Cells(1, 1).Resize(1, VungTra.Columns.Count - 1)
Set RgDoc = VungTra.Cells(1, 1).Resize(VungTra.Rows.Count, 1)
1 For Each Rng In RgNg
2 If Rng <= yY And Rng.Offset(, 1) >= yY Then
3 y1 = Rng: y2 = Rng.Offset(, 1)
For Each Clls In RgDoc
5 If Clls <= xX And Clls.Offset(1) >= xX Then
x1 = Clls: x2 = Clls.Offset(1)
'3*'
7 a11 = Cells(Clls.Row, Rng.Column): a12 = Cells(Clls.Row, Rng.Column + 1)
a21 = Cells(Clls.Row + 1, Rng.Column): a22 = Cells(Clls.Row + 1, Rng.Column + 1)
9 t1 = (a12 - a11) * (yY - y1) / (y2 - y1) + a11
t2 = (a22 - a21) * (yY - y1) / (y2 - y1) + a21
11 NoiSuyGPE = (t2 - t1) * (xX - x1) / (x2 - x1) + t1
Exit For
13 End If
Next Clls
15 End If
Next Rng
17 If NoiSuyGPE = 0 Then '!'
msgbox "gia tri can tim ko nam trong bang tra", vbInformation
19 End If
End Function
Mình chia sẻ với mọi người file nội suy 1-2 chiều giúp đẩy nhanh tốc độ làm việc :D
rất bổ ích. xin chân thành cảm ơn............................................... ............
Xin chia sẻ với cả nhà ứng dụng Sổ tay xây dựng để tính nhanh trên điện thoại nhé:
https://goo.gl/bIjMlS