hàm marco này có ý nghĩa gì ạ (1 người xem)

[thanhnhance]

Private Function Nthep(ra As Double, ea As Double, L As Double, b As Double, a As Double, phi As Double, kc As Double, x As Double)
với ra = 3650kg/cm2
ea = 2000000 kg/cm2
L = 2.2m
b = 0.3m
a = 0.03m
phi = 22mm
kc = 200mm
x = 0.3m
sau khi sử dụng hàm đó thì kết quả là: Nthep = -258.74 (T)
mình đang làm DATN mà không biết hàm này khi phân tích ra thành công thức ntn.ai biết chỉ giúp mình với.thanks

 

[SA_DQ]

Bạn lượm được hàm này ở đâu vậy?

Chắc chắn là không, nhưng như có vẻ để tra thép hay sao í.

Còn cụm từ 'DATN' là gì vậy bạn?

Nếu bạn không đưa nội dung hàm người dùng lên, là bạn đưa bài lên sai BOX rồi đó.

Vài dòng xin nhắc bạn.

 

[aviaiva]

Bạn lượm được hàm này ở đâu vậy?

Chắc chắn là không, nhưng như có vẻ để tra thép hay sao í.

Còn cụm từ 'DATN' là gì vậy bạn?

Nếu bạn không đưa nội dung hàm người dùng lên, là bạn đưa bài lên sai BOX rồi đó.

Vài dòng xin nhắc bạn.

DATN chắc là dự án tốt nghiệp, khiếp hỏi đáp mà kiệm lời quá ẹc

 

[thanhnhance]

Nguyên bản của nó là như thế này đây:
Private Function Nthep(ra As Double, ea As Double, L As Double, b As Double, a As Double, phi As Double, kc As Double, x As Double) As Double
sthep = ra / ea
no = Round((L - 2 * a) * 1000 / kc + 1, 0)
Nthep = 0
Dim i As Integer
For i = 0 To no
'khoang cach tu diem tinh ung suat thep toi mep be tong co bien dang lon nhat'
y1 = a + i * kc / 1000
sthep1 = 0.003 * (x - y1) / x
If Abs(sthep1) >= sthep Then
ust1 = sthep1 / Abs(sthep1) * ra
Else
ust1 = sthep1 / sthep * ra
End If
'luc doc quy doi ve tim vach don vi t'
n1 = ust1 * 2 * 3.14 * (phi / 10) * (phi / 10) / 4000
m1 = n1 * (L / 2 - y1)
Nthep = Nthep + n1


Next i
End Function

đây là hàm: quy đổi toàn bộ ứng suất trong cốt thép về trong tâm tiết diện. Còn từ ''DATN'' là đồ án tốt nghiệp, nó không quan trọng nên em mới viết tắt.mong mấy anh thông cảm.em đang tìm hiểu để lập biểu đồ tương tác cho vách cứng nhà cao tầng.Anh nào biết thì giúp em với, gấp lắm rồi.

 

[SA_DQ]

Mình tạo dáng lại hàm bạn sưu tầm như dưới đây cho dễ nhìn:

Option Explicit
Private Function Nthep(Ra As Double, Ea As Double, L As Double, bB As Double, _
    A As Double, Phi As Double, Kc As Double, X As Double) As Double
 Dim I As Integer, No As Double
 Dim SThep As Double, SThep1 As Double, Y1 As Double, Ust1 As Double, N1 As Double, M1 As Double
 
 SThep = Ra / Ea
 No = Round((L - 2 * A) * 1000 / Kc + 1, 0)
 Nthep = 0              '?'
 For I = 0 To No
'Khoang Cách Tù Diem Tính Úng Suát Thép Tói Mép Be Tong Có Bien Dang Lón Nhát'
    Y1 = A + I * Kc / 1000
    SThep1 = 0.003 * (X - Y1) / X
    If Abs(SThep1) >= SThep Then
        Ust1 = SThep1 / Abs(SThep1) * Ra
    Else
        Ust1 = SThep1 / SThep * Ra
    End If
'Luc Doc Quy Doi Vè Tim Vach Don Vi T'
    N1 = Ust1 * 2 * 3.14 * (Phi / 10) * (Phi / 10) / 4000
    M1 = N1 * (L / 2 - Y1)
    Nthep = Nthep + N1
Next I
End Function

Qua đó fát hiện ra rằng, tham biến mà mình sửa lại là bB giao cho hàm chưa dùng vô việc gì cả (?)

Bạn trong nghề thì 'đọc' tiếp đi, giờ dễ ngó hơn trước rồi đó.
Nhưng câu lệnh:

SThep1 = 0.003 * (X - Y1) / X

có thể viết gọn hơn & điều quan trọng là nguy cơ tiếm ẩn, 1 khi X=0

Biểu thức này:

 N1 = Ust1 * 2 * 3.14 * (Phi / 10) * (Phi / 10) / 4000

chắc cũng cô gọn lại được; Bạn tự ên thử xem.

 

[thanhnhance]

Cảm ơn bạn nhiều. Mình đã hiểu.