Sử dụng hàm Rand()

[truonggiang73]

Trong một bài tập tôi sử dụng hàm Rand() nhưng chạy không như ý muốn. Chắc là sai do cách sử dụng. Tôi trích lược lên nhờ mọi người chỉ giúp.

 

[hophoang]

Trong một bài tập tôi sử dụng hàm Rand() nhưng chạy không như ý muốn. Chắc là sai do cách sử dụng. Tôi trích lược lên nhờ mọi người chỉ giúp.

Để tạo một số ngẫu nhiên trong khỏang giá trị a đến b dùng công thức sau:=RAND()*(b-a)+a

 

[ptm0412]

Thử lại như sau:

Sub ThuRand()
Range("a1").Value = 0
Range("a2").Value = 0
Range("a3").Value = 0
For i = 1 To 5
Range("a1") = i
Range("a2") = Round(Rnd() * 100, 0)
Range("a3") = Range("a2").Value + Range("a3").Value
MsgBox ("Lan lap thu " & i & vbNewLine & "So ngau nhien lan " & i & _
" la : " & Range("a2").Value & vbNewLine & "Tong so sau lan " & i & _
" la : " & Range("a3").Value)
Next i
End Sub

 

[NguyenNgocSon]

Giả sử em có hàm mục tiêu sau:
F=3x1+4x2 với các ràng buộc sau: 1<x1<2; 0.5<x1<1
Tìm x1, x2 thỏa mãn điều kiện trên để F nhỏ nhất
Em không hiểu thuật toán dùng hàm Rand() để giải quyết bài toán trên.
Mong các bác giúp đỡ
THân !

 

[ndu96081631]

Giả sử em có hàm mục tiêu sau:
F=3x1+4x2 với các ràng buộc sau: 1<x1<2; 0.5<x1<1
Tìm x1, x2 thỏa mãn điều kiện trên để F nhỏ nhất
Em không hiểu thuật toán dùng hàm Rand() để giải quyết bài toán trên.
Mong các bác giúp đỡ
THân !

Bài này bạn dùng SOLVER là xong chứ gì! Sao lại RAND ở đây?

 

[NguyenNgocSon]

Bài này bạn dùng SOLVER là xong chứ gì! Sao lại RAND ở đây?

Dạ em cám ơn bác nhiều ạ.
Em biết dùng Solver nhưng yêu cầu bái toán đặt ra là dùng hàm Rand() để tạo bộ số ngẫu nhiên để tìm cực trị ạ.
Em có code như sau:

Sub Tim()
Dim i, a0, a1, b0, b1, F, F0, a, b As Double
n = InputBox("Nhap vao so lan", "Tim cuc tri")
a0 = 1: a1 = 2: b0 = 0.5: b1 = 1
F0 = 3 * a0 + b0
For i = 1 To n
a = Rnd() * (a1 - a0) + a0
b = Rnd() * (b1 - b0) + b0
F = 3 * a + 4 * b
With Sheet1
   .Range("A" & i).Value = F
End With
Next i
End Sub

Nhưng chưa biết cách dùng vòng lặp để lấy ra giá trị min ứng với trị số của a và b tương ứng
Mọi người xem qua giúp
Thân !

 

[NguyenNgocSon]

Mọi người có thể chỉ ra cho em điều kiện dừng vòng lặp khi hàm F thoả mãn điều kiện F<F0 => min = F
Em cám ơn !