捡金包及选股公式源码

{捡金包}
{P1 最小2 最大20 缺省5
P2 最小2 最大20 缺省4};
VAR1:=LLV(LOW,P1);
VAR2:=HHV(HIGH,P1);
VARC:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1);
VARD:=EMA(IF(C< EMA(C,250),VARC*1000,VARC*10),3);
金包: IF(TROUGHBARS(3,15,1)=0 AND HIGH>LOW+0.01,20,0),COLORYELLOW ,LINETHICK1 ;
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
顶:= IF(VAR5=2,2,0);
顶A:IF(顶>REF(顶,1),50,0),COLORGREEN;
DRAWTEXT(顶A=50,45,'　快逃'),COLOR00FF00;
DRAWTEXT(金包=20,20,'　捡金包'),COLORYELLOW;

{捡金包选股}
VAR1:=LLV(LOW,P1);
VAR2:=HHV(HIGH,P1);
VARC:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1);
VARD:=EMA(IF(C< EMA(C,250),VARC*1000,VARC*10),3);
捡金包: IF(TROUGHBARS(3,15,1)=0 AND HIGH>LOW+0.01,20,0);