Ðề: Đoạn mã tính lún

E cám ơn bác. Về đoạn code tính Ktt như vậy là ổn rồi. Còn về đoạn code chính trong phần tính lún bác có cao kiến gì, Em chờ tin bác
Chúc bác thành công

To: thanhcd12moi

Công thức thì em biết đấy, chỉ có công thức xác định K khi tính lún ổn định theo biểu thức chuyển vị của lý thuyết đàn hồi thôi.
mà lại khai triển cái công thức arctg(x) theo chuỗi Macloranh chỉ có trong đoạn từ (-1,1) còn ngoài thì chịu.

Ðề: Đoạn mã tính lún

Tôi biết có công thức tính hệ số lún Ktt. Bạn không thử dùng công thức cho tiện? Tôi đã từng lập trình bằng Mathlab về nội suy (lúc làm đồ án tốt nghiệp) nhưng tôi thấy không cần thiết .

Ðề: Đoạn mã tính lún

Với dạng CSDL như của bạn, tôi khuyên bạn đọc từ file ra sẽ đỡ tốn công... gỏ hơn rất nhiều
Đây là đoạn code đọc dl từ file text( cùng với file text đi kèm)

[CODE]Dim line As String
Dim file As Integer
file = FreeFile
Dim i As Integer
i = 0
Dim j As Integer
Dim hsKo(28, 11) As Double
Dim hsm(28) As Double
Dim lb(11) As Double
Open App.Path & "\test2.txt" For Input As file
Line Input #file, line 'bo qua dong comment
Line Input #file, line
Dim v1 As Variant
v1 = Split(line, " ")
For j = 1 To 28
hsm(j) = v1(j - 1)
Next
Line Input #file, line 'bo qua dong comment
Line Input #file, line 'bo qua dong comment
Line Input #file, line
v1 = Split(line, " ")
For j = 1 To 11
lb(j) = v1(j - 1)
Next
Line Input #file, line 'bo qua dong comment
Line Input #file, line 'bo qua dong comment
For i = 1 To 28
Line Input #file, line
v1 = Split(line, " ")
For j = 1 To 11
hsKo(i, j) = v1(j - 1)
Next j
Next i[/CODE]

Còn về phần đoạn code tính ktt tui cũng đã có vài góp ý( để ngay trong file "ham ktt.txt" đi kèm đây, bạn xem ý kiến của tôi thế nào?)

Ðề: Đoạn mã tính lún

Hơ, cũng may là cái mảng hsKo() của bạn chỉ là 28x11 , nếu không thì.....
Để về tôi xem lại cái vòng lặp của bạn xem nó như thế nào!
Hẹn gặp lại

Ðề: Đoạn mã tính lún

Rất cám ơn anh về những ý kiến này. Tuy nhiên em kô "chuyên nghiệp" nên rất mong sự giúp đỡ của anh và các đồng nghiệp.
Em post lên đây hàm tính Ktt=f(Z/b,L/B)
Nếu có thể anh có thể sửa đoạn 2 đoạn mã này giùm em.
email: haihac2@hotmail.com

Ðề: Đoạn mã tính lún

Tui có mấy chú ý trong code của bạn như sau:
thứ nhất:
Riêng đoạn này đã báo lổi inh ỏi rùi: ( "ko có do nhưng lại tìm thấy Loop")
Thứ 2:
Đây là một hàm tính Ktt ( K tính toán hả?), nhưng Ktt tui chưa thấy ở đâu cả, nên có lổi gì thì tui củng ko biết, nhưng theo như đoạn code ở trên khì sẽ bị báo lỗi là:
"Ktt() chưa được khai báo"
Thứ 3:
Nếu là một người lập trình chuyên nghiệp, họ ít khi sữ dụng câu lệnh goto.
Có thể loại bỏ lệnh goto ở trên chỉ bằng một câu lệnh đơn giản, trường hợp của bạn là exit for
Bạn nên post cả đoạn code của hàm ktt() lên để mọi người xem thế nào