Difference between revisions of "LinCongByTime"
From scripting
(Created page with " Public RValue rvalue = 0.422 Public Function LinCongByTime() Dim OT, ConstB, ConstM ConstB = CDbl(Time)*1000 ConstM = 1000 OT = ((RValue*ConstB)+1) Mod ConstM RValue...") |
(No difference)
|
Latest revision as of 07:14, 22 April 2017
Public RValue rvalue = 0.422 Public Function LinCongByTime() Dim OT, ConstB, ConstM ConstB = CDbl(Time)*1000 ConstM = 1000 OT = ((RValue*ConstB)+1) Mod ConstM RValue = OT LinCong = OT End Function
