COMM
_PAR
_VAR
_ZB CYQK_CLOSE, TAO
_LOCAL
_RES ZGZJ, SHZJ, NZQK
_DEF 0.000
_CODE
ZGZJ=CYQK_CLOSE;
SHZJ=TAO;
IF CROSSUP(ZGZJ,SHZJ)
THEN NZQK=1;
ELSE NZQK=0;
ENDIF;
CURVELINE(ZGZJ,CLRRED,2);
CURVELINE(SHZJ,CLRSKY,2);
COLUMN(CLTSUSPEND,70,50,CLRYELLOW,NZQK=0);
TITLE("[机构资金活跃度:",ZGZJ,"]",CLRRED,
"[散户资金活跃度:",SHZJ,"]",CLRSKY,
"[牛转乾坤:",NZQK,"]",CLRYELLOW);
__END |