QUẢNG CÁO ĐẦU TRANG

Collapse

Thông báo

Collapse
No announcement yet.

Đoạn mã tính lún

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • Đoạn mã tính lún

    Em viết đoạn mã VBA đê tính toán lún, với giả thiết nền 5 lớp đất. Tính chiều sâu hiệu quả Ha khi tính lún ứng với ứng suất tăng thêm/ưs bản thất cốt đât=0.2 thì vòng lặp bị trục trặc. Em post lên đoạn mã nhờ các bác xem và góp ý giùm. Bác nào đã viết đoạn mã tính lún rồi có thể cho em xin được không. Em rất cám ơn
    Attached Files

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

    Nguyên văn bởi Luis
    Em viết đoạn mã VBA đê tính toán lún, với giả thiết nền 5 lớp đất. Tính chiều sâu hiệu quả Ha khi tính lún ứng với ứng suất tăng thêm/ưs bản thất cốt đât=0.2 thì vòng lặp bị trục trặc. Em post lên đoạn mã nhờ các bác xem và góp ý giùm. Bác nào đã viết đoạn mã tính lún rồi có thể cho em xin được không. Em rất cám ơn
    Tui có mấy chú ý trong code của bạn như sau:
    thứ nhất:
    Loop Until Ks <= 0.2
    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:
    K = Ktt(m, lb)
    Đâ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:
    goto thoat
    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

    Ghi chú


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

      Nguyên văn bởi thangna

      Đâ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
      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
      Attached Files

      Ghi chú


      • #4
        Ðề: Đ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

        Ghi chú


        • #5
          Ðề: Đ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?)
          Attached Files

          Ghi chú


          • #6
            Ðề: Đ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 .

            Ghi chú


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

              Nguyên văn bởi thangna

              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?)
              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.

              Ghi chú

              Working...
              X