máy bơm nước hỏa tiễn công ty in ấn https://duan-knparadise.com/ Bơm nước hỏa tiễn bóp da nam Túi nilon PP cong ty in bieu mau
Nội Suy Trong Ecxel, Và Autocad Bằng Vba - Diễn đàn của các kỹ sư kết cấu Việt Nam










































































Features
Go Back   Diễn đàn của các kỹ sư kết cấu Việt Nam > ỨNG DỤNG TIN HỌC TRONG THIẾT KẾ XÂY DỰNG > Lập trình tính toán, phân tích kết cấu
Tên thành viên
Mật mã
Tin HOT Thông tin BQT diễn đàn

Result  Reload Thống Kê - Diễn đàn của các kỹ sư kết cấu Việt Nam
All Forums | Thông báo | Văn Bản Pháp Luật | Văn Hóa Văn Nghệ Giao Lưu
Please wait...
Please wait...
Trả lời
Ðiều Chỉnh Xếp Bài
Unread 06-09-2006   #1
matbao8x
Thành viên mới
 
Tham gia ngày: Apr 2006
Bài gởi: 9
Thanks: 6
Thanked 2 Times in 2 Posts
Default Nội Suy Trong Ecxel, Và Autocad Bằng Vba

CHÀO CÁC BÁC!
Em gặp rất nhiều khó khăn trong tính toán nội suy, muôn tìm cách khắc phục, nhờ các cao thủ gíup 1 tay.
Em muốn biết 1 đoạn code VBA dùng trong excel để nội suy 2 chiều, và 1 đoạn code VBA dùng trong autocad có thể mội suy được cao độ 1 điểm(đả biết vị trí) khi đã biệt đc cao độ và vị trí 2 điểm kia. Có ai biết thì giúp đở dùm!
cảm ơn lắm lắm!!!
matbao8x vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 07-09-2006   #2
tdhtkcd
Thành viên
 
tdhtkcd's Avatar
 
Tham gia ngày: Dec 2004
Nơi Cư Ngụ: Hà Nội
Bài gởi: 55
Thanks: 5
Thanked 5 Times in 5 Posts
Send a message via Yahoo to tdhtkcd
Default Ðề: 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! "
tdhtkcd vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 08-09-2006   #3
hung_hec1
Thành viên mới
 
Tham gia ngày: Sep 2006
Bài gởi: 9
Thanks: 0
Thanked 1 Time in 1 Post
Default Ðề: 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
__________________
DINH HUNG- HEC
hung_hec1 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to hung_hec1 For This Useful Post:
levanduy (17-03-2010)
Unread 08-09-2006   #4
tien2005
Thành viên
 
Tham gia ngày: Jun 2006
Bài gởi: 53
Thanks: 0
Thanked 197 Times in 6 Posts
Default Ðề: 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)
)
tien2005 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to tien2005 For This Useful Post:
matbao8x (22-01-2010)
Unread 08-09-2006   #5
matbao8x
Thành viên mới
 
Tham gia ngày: Apr 2006
Bài gởi: 9
Thanks: 6
Thanked 2 Times in 2 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

owh!
Vay xin loi may bac nhieu nhieu vi co mat ma nhu...
Va cung cam on bac Tien2005 lam lam, de em ve thu xem sao!
Vang! Cam on! va xin cam on!
matbao8x vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 06-12-2009   #6
hoangquycong
Thành viên mới
 
Tham gia ngày: Nov 2009
Bài gởi: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default Ðề: 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
hoangquycong vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 07-12-2009   #7
PTslab
Moderator
 
Tham gia ngày: Feb 2009
Nơi Cư Ngụ: Singapore
Bài gởi: 247
Thanks: 97
Thanked 1,039 Times in 163 Posts
Arrow Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi hoangquycong View Post
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
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ộ
PTslab vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to PTslab For This Useful Post:
matbao8x (22-01-2010)
Unread 15-01-2010   #8
cantona2908
Thành viên mới
 
Tham gia ngày: Mar 2009
Bài gởi: 4
Thanks: 0
Thanked 2 Times in 1 Post
Default Ðề: 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é.
cantona2908 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 2 Users Say Thank You to cantona2908 For This Useful Post:
levanduy (17-03-2010), matbao8x (22-01-2010)
Unread 07-02-2010   #9
tuntnguyen
Thành viên tích cực
 
tuntnguyen's Avatar
 
Tham gia ngày: Mar 2009
Nơi Cư Ngụ: Hà Nội
Bài gởi: 167
Thanks: 60
Thanked 266 Times in 89 Posts
Send a message via Yahoo to tuntnguyen
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Vấn đề nội suy hay đấy, đây là các tính tôi hay sử dụng.
Tôi hay nội suy theo hình học, sử dụng vào phần % tương ứng của từng số.
Ví dụ:
A1= 2.5 và A2 = 3.2, tương ứng với A1, A2 là B1 và B2: B1 = 0.123, B2 = 0.565. Một điểm C = 0.345. Tìm C1 tương ứng trong khoảng A1 và A2.
(B2 - C)/(B2-B1) là % tương ứng của điểm C trong khoảng A1 và A2.
~ 50%. Vậy 50% x (A2-A1) = 0.35. Vậy C1 tương ứng sẽ là: C1 = A2 - 0.35 = 2.85.

Vậy công thức:

C1 = A2 - ((B2 - C)/(B2-B1))x(A2-A1)

Kiểm tra lại với A2 = 2.5, A1 = 3.2. C1 vẫn là 2.85.

VBA:
function Noisuy(A1 as single, A2 as single, B1 as single, B2 as single, C as single) as single
if B2 = B1 then Noisuy = A2 goto: out
end if ' Kiểm tra xem B2 và B1 có bằng nhau không
Noisuy = A2 - ((B2 - C)/(B2-B1))x(A2-A1)
out: exit
end function


Ghi chú: Có thể hàm Goto sai cú pháp, lâu rồi tôi không dùng VBA. Bạn xem lại cách sử dụng hàm này nhé. Mục đích hàm là chuyển đến vị trí khác khi phép toán không mong muốn sảy ra.
__________________
Life is either a great adventure or nothing
tuntnguyen vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 2 Users Say Thank You to tuntnguyen For This Useful Post:
levanduy (25-07-2010), mr_abin113 (09-03-2011)
Unread 12-05-2011   #10
huki184259
Thành viên
 
Tham gia ngày: Sep 2010
Bài gởi: 62
Thanks: 49
Thanked 14 Times in 9 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

nội suy thì có gì đâu nhỉ, dùng mấy hàm excel là được mà
huki184259 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 13-05-2011   #11
mr.traanf
Thành viên rất tích cực
 
mr.traanf's Avatar
 
Tham gia ngày: Jul 2010
Bài gởi: 369
Thanks: 64
Thanked 243 Times in 127 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

"Nội suy" là từ thường hay dùng khi tra bảng tìm số liệu tính toán.
Thực chất là tìm giá trị y khi có giá trị x theo quan hệ hàm y=f(x)
Vậy khi xác định được hàm y=f(x) thì không còn nội suy nữa mà suy ra luôn.
Khi dx đủ nhỏ thì có thể dùng nội suy tuyến tính để tìm ra y.
Đây là cách thường dùng trong tra bảng theo phương trình đường thẳng (đơn giản nhất) (y-y1)/(y2-y1)=(x-x1)/(x2-x1)
mr.traanf vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 13-05-2011   #12
cmengenie
Super Moderator
 
Tham gia ngày: Mar 2009
Bài gởi: 3,696
Thanks: 2,023
Thanked 3,816 Times in 1,825 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Tặng anh em bản nội suy hệ số động lực theo epsilon. Bảng 2 mục 6.13.2 của TCXD 2737:1995. Dùng để giảm bớt công tác tính tay khi số hoá bằng soft.

Không biết ai đã làm việc này chưa, nhưng tôi vẫn hì hục làm lại.
File Kèm Theo
File Type: rar Noi suy he so xi theo epxilon 2737 6.13.2.rar (4.1 KB, 795 lần tải)
cmengenie vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 6 Users Say Thank You to cmengenie For This Useful Post:
chuongmv (15-09-2011), ksdong (28-07-2011), luan311 (02-08-2013), nguyenquocai (13-05-2011), tuynhtue (01-05-2013), xaydungdandung (15-09-2011)
Unread 14-10-2011   #13
lamstu2007
Thành viên mới
 
Tham gia ngày: Mar 2011
Bài gởi: 2
Thanks: 1
Thanked 0 Times in 0 Posts
Question Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi cmengenie View Post
Tặng anh em bản nội suy hệ số động lực theo epsilon. Bảng 2 mục 6.13.2 của TCXD 2737:1995. Dùng để giảm bớt công tác tính tay khi số hoá bằng soft.
hàm số

y = -9352.x^5 + 5043.x^4 - 1009.x^3 + 65,67x^2 + 6,703.x + 1,192
ở đâu vậy anh
R² = 0.999 là gì
sao em dùng lại không giống trong bảng nhỉ
xin chỉ giáo!!!!!!!!!!!
lamstu2007 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 14-10-2011   #14
baongage
Thành viên tích cực
 
Tham gia ngày: Mar 2010
Bài gởi: 178
Thanks: 108
Thanked 96 Times in 40 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi huki184259 View Post
nội suy thì có gì đâu nhỉ, dùng mấy hàm excel là được mà
ý người ta bảo là nội suy auto kìa chứ ko phải lập bảng nội suy rùi điền thủ công vào để có kết quả
baongage vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 14-10-2011   #15
cmengenie
Super Moderator
 
Tham gia ngày: Mar 2009
Bài gởi: 3,696
Thanks: 2,023
Thanked 3,816 Times in 1,825 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi lamstu2007 View Post
hàm số

y = -9352.x^5 + 5043.x^4 - 1009.x^3 + 65,67x^2 + 6,703.x + 1,192
ở đâu vậy anh
R² = 0.999 là gì
sao em dùng lại không giống trong bảng nhỉ
xin chỉ giáo!!!!!!!!!!!
Câu hỏi ở đâu tôi viết trên kia rồi: tôi tự làm, đọc kỹ vào nhé.

R2 là hệ số tương quan Pearson. Học xác suất thống kê để biết và đọc thêm ở đây: http://vi.wikipedia.org/wiki/H%E1%BB...0%C6%A1ng_quan
cmengenie vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to cmengenie For This Useful Post:
lamstu2007 (15-10-2011)
Unread 14-10-2011   #16
lamstu2007
Thành viên mới
 
Tham gia ngày: Mar 2011
Bài gởi: 2
Thanks: 1
Thanked 0 Times in 0 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi cmengenie View Post
Câu hỏi ở đâu tôi viết trên kia rồi: tôi tự làm, đọc kỹ vào nhé.
dù sao thì cũng cám ơn cậu đã có lòng giúp đỡ anh em
tại vì trường tôi bỏ môn xác suất thống kê nên chả biết nó là cái gì
nên cái hàm:
y = -9352.x^5 + 5043x^4 - 1009.x^3 + 65,67x^2 + 6,703.x + 1,192
tôi không biết đâu ra
theo hàm trên vd như: x =0 ta duoc y=1.192
mà trong bảng cậu lại ghi là 1.1886
không phải nghi ngại gì cả nhưng thà mình hiểu mà sử dụng
chứ khi người khác hỏi không biết trả lời thì làm sao đây???
thank!!!
lamstu2007 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 14-10-2011   #17
geotek
Thành viên rất tích cực
 
Tham gia ngày: Jul 2010
Bài gởi: 392
Thanks: 21
Thanked 439 Times in 191 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Hơi liên quan tới phần nội suy là phần "Optimisation" (tính toán tối ưu?) rất có ích cho kĩ sư, đặc biệt là bạn nào thích lập trình sẽ thấy rất có ích.

Giả sử trong MATLAB thì có optimisation toolbox" khá hay
http://www.mathworks.com.au/products...ion/demos.html
geotek vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 18-07-2014   #18
Jindo10
 
Jindo10's Avatar
 
Tham gia ngày: May 2014
Bài gởi: 8
Thanks: 16
Thanked 1 Time in 1 Post
Default Re: Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Hi bạn cmengenie,

Cho mình hỏi về bảng nội suy hệ số động lực, các số liệu trong bảng excel để vẽ 2 đồ thị là bạn dò hay ở đâu ra ?? Vì trong TCVN 2737 và TCVN 229 đều chỉ có đồ thị tra từ epxilon, không có bảng số liệu cụ thể !

Cảm ơn rất nhiều.
Jindo10 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 22-09-2014   #19
HungPECC1
Thành viên
 
Tham gia ngày: Nov 2010
Bài gởi: 90
Thanks: 88
Thanked 48 Times in 28 Posts
Default Ðề: Nội Suy Trong Ecxel, Và Autocad Bằng Vba

Trích:
Nguyên văn bởi matbao8x View Post
CHÀO CÁC BÁC!
Em gặp rất nhiều khó khăn trong tính toán nội suy, muôn tìm cách khắc phục, nhờ các cao thủ gíup 1 tay.
Em muốn biết 1 đoạn code VBA dùng trong excel để nội suy 2 chiều, và 1 đoạn code VBA dùng trong autocad có thể mội suy được cao độ 1 điểm(đả biết vị trí) khi đã biệt đc cao độ và vị trí 2 điểm kia. Có ai biết thì giúp đở dùm!
cảm ơn lắm lắm!!!
về vấn đề nội suy trong excel, thì cả giải thuật lẫn code đã có rất nhiều trên giaiphapexcel.com, bạn có thể search là thấy ngay.
Còn vấn đề nội suy trong autocad mình hiểu như sau :
Có tọa độ điểm A, B bạn muốn tìm tọa độ điểm C sao cho AC = kAB. nếu đúng như vậy thì việc viết code cũng đơn giản, chỉ cần dùng phuơng thức getpoint() trong vba + phuơng pháp giải tích đơn giản là có code ngay!

p/s : nếu bạn không biết nhiều về VBA thì mình có thể giúp
HungPECC1 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền sử dụng ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Mở

Chuyển đến



Múi giờ GMT. Hiện tại là 08:32 AM.


DIỄN ĐÀN http://ketcau.com/forum NƠI HỘI TỤ CỦA CÁC KỸ SƯ KẾT CÂU VIỆT NAM
WWW.KETCAU.COM - CẦU NỐI CỦA CÁC KỸ SƯ KẾT CẤU CÔNG TRÌNH, ĐỊA KỸ THUẬT VIỆT NAM. DIỄN ĐÀN ĐƯỢC MUA BẢN QUYỀN CỦA JELSOFT ENTERPRISES Ltd.