RVB LinCong
From scripting
Public Function LinCong() Dim OT, ConstB, ConstM ConstB = 4.1 ConstM = 100 OT = ((RValue*ConstB)+1) Mod ConstM RValue = OT LinCong = OT End Function
Public Function LinCong() Dim OT, ConstB, ConstM ConstB = 4.1 ConstM = 100 OT = ((RValue*ConstB)+1) Mod ConstM RValue = OT LinCong = OT End Function