- UID
- 2
- 积分
- 2874604
- 威望
- 1387331 布
- 龙e币
- 1487273 刀
- 在线时间
- 13155 小时
- 注册时间
- 2009-12-3
- 最后登录
- 2024-11-24
|
MRO函数程式码:- inputs:
- Test( truefalseseries ),
- Len( numericsimple ),
- Instance( numericsimple ) ;
- MRO = RecentOcc( Test, Len, Instance, 1 ) ;
复制代码 里面还套了另外一个函数:RecentOcc
RecentOcc函数程式码:- inputs:
- Test( truefalseseries ),
- Len( numericsimple ),
- Instance( numericsimple ),
- MLFlag( numericsimple ) ;
- variables:
- var0( 0 ),
- var1( 0 ) ;
- if MLFlag = 1 then
- var0 = 0
- else if MLFlag = -1 then
- var0 = Len - 1 ;
- var1 = 0 ;
- while var0 >= 0 and var0 < Len and var1 < Instance
- begin
- if Test[var0] then
- var1 = var1 + 1 ;
- var0 = var0 + MLFlag ;
- end ;
- condition1 = var1 = Instance and Instance > 0 ;
- if condition1 then
- RecentOcc = var0 - MLFlag + ExecOffset
- else
- RecentOcc = -1 ;
复制代码 |
|