LinCongByTime

From scripting
Revision as of 07:14, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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