Cho mình hỏi sử dụng hàm nào để viết 1 hàm hội tụ trong excel

[emnhiepphong]

Mình có 1 bài toán, như thế này, ng` ta yêu cầu mình tính dãy hội tụ từ x=[0;vô cực] của 1 biểu thức sao cho biểu thức đó nhỏ hơn 1 giá trị đề bài cho thì ra kết quả, vd: A= f(1)=1/1, không thỏa thì A'=f(1)+f(2)=1/1+1/2, nếu không thỏa nữa thì cứ tiếp tục cho đến khi nó < hơn giá trị yêu cầu , nếu viết hàm if thế từng giá trị 0,1,2,3,4,5,... vào thì có nước dài râu luôn quá

, bạn nào biết chỉ mình với, mong được sự giúp đỡ của các bạn

 

[VetMini]

Mình có 1 bài toán, như thế này, ng` ta yêu cầu mình tính dãy hội tụ từ x=[0;vô cực] của 1 biểu thức sao cho biểu thức đó nhỏ hơn 1 giá trị đề bài cho thì ra kết quả, vd: A= f(1)=1/1, không thỏa thì A'=f(1)+f(2)=1/1+1/2, nếu không thỏa nữa thì cứ tiếp tục cho đến khi nó < hơn giá trị yêu cầu , nếu viết hàm if thế từng giá trị 0,1,2,3,4,5,... vào thì có nước dài râu luôn quá, bạn nào biết chỉ mình với, mong được sự giúp đỡ của các bạn

Có lẽ trình độ toán của tôi suy kém đi.
A' = 1/1 + 1/2 +1/... Thì càng lúc nó càng lớn chứ làm sao nhỏ đi được.
Tôi cứ ngỡ hội tụ có nghĩa là tiến tới một bậc n nào đó mà sự khác biệt giữa f(n) và f(n+1) nhỏ hơn ép si lon.
trong bài trên, 1/n <= epsilon

 

[SA_DQ]

Chắc tác giả muốn là vầy:

Function DenHan(Min_ As Double, HS As Double)
 Dim J As Long, GTri As Double
 
 Do
    J = J + 1:              GTri = HS / J
 Loop Until GTri < Min_
 MsgBox J
 DenHan = GTri
End Function

=DenHan(0.001, 2)

Thêm 1 hàm nữa để tham khảo:

Function DeQui(MinNum As Double, Optional J As Integer = 1, Optional HS As Double = 1)
 If 1 / J < MinNum Then
    DeQui = HS / J
 Else
    DeQui = DeQui(MinNum, J + 1, HS)
 End If
End Function

=DeQui(0.001, , 1.5)

 

[emnhiepphong]

Có lẽ trình độ toán của tôi suy kém đi.
A' = 1/1 + 1/2 +1/... Thì càng lúc nó càng lớn chứ làm sao nhỏ đi được.
Tôi cứ ngỡ hội tụ có nghĩa là tiến tới một bậc n nào đó mà sự khác biệt giữa f(n) và f(n+1) nhỏ hơn ép si lon.
trong bài trên, 1/n <= epsilon

à mình chỉ ví dụ đại khái là như vậy thôi, tại ý mình là làm sao để viết 1 hàm tính tổng lập sao cho hội tụ lại gần với cái điều kiện ấy mà

 

[VetMini]

Function DenHan(Min_ As Double, HS As Double)
 Dim J As Long, GTri As Double
 
 Do
    J = J + 1:              GTri = HS / J
 Loop Until GTri < Min_
 MsgBox J
 DenHan = GTri
End Function

=DenHan(0.001, 2)

Thêm 1 hàm nữa để tham khảo:

Function DeQui(MinNum As Double, Optional J As Integer = 1, Optional HS As Double = 1)
 If 1 / J < MinNum Then
    DeQui = HS / J
 Else
    DeQui = DeQui(MinNum, J + 1, HS)
 End If
End Function

=DeQui(0.001, , 1.5)

So sánh trực tiếp với MinNum không phải là lý thuyết của hội tụ. (Tuy trong trường hợp này bạn có thể đúng)

Theo lý thuyết toán, điểm hội tụ có nghĩa là điểm f(n) mà f(n+1) không khác với f(n). Định nghĩa "không khác" là hiệu số của 2 trị nhỏ hơn ép si lon.

Cũng theo lý thuyết toán, con toán vòng lặp dừng lại khi trị số nhỏ hơn trị giới hạn MinNum là con toán tìm n chứ không phải tìm f(n) - ta đã được chừng lại khi trị số nhỏ hơn MinNum là con toán tìm n chứ không phải tìm f(n) - ta đã được cho biết f(n) ở MinNum rồi còn tìm gì nữa!