BB10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416;

三拾日乖離率:=(C-MA30)/MA30*100,NODRAW;
VAR1:=(MA20-MA30)>REF((MA20-MA30),1) AND MA20>REF(MA20,1) AND MA30>REF(MA30,1);
VAR2:=(MA30-MA20)<REF((MA30-MA20),1) AND MA20<REF(MA20,1) AND MA30<REF(MA30,1);
BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416;
強勢狙擊:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB5,60),10);
加倉:=FILTER(COUNT(CROSS(BB5,30),5)>=1 AND MA5>REF(MA5,1) AND 三拾日乖離率>REF(三拾日乖離率,1) AND MA10>REF(MA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1),10);
清倉:=FILTER(COUNT(CROSS(30,BB5),5)>=1 AND (C>MA30 OR O>MA30) AND MA5<REF(MA5,1) AND 三拾日乖離率<REF(三拾日乖離率,1) AND MA10<REF(MA10,1),10);
DRAWTEXT(加倉 ,LOW*0.98,'←加倉'),COLORLIMAGENTA;
JC:=CROSS(0,五日乖離率) AND 三拾日乖離率<REF(三拾日乖離率,1) AND MA10>REF(MA10,1) ;
減倉:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖離率,0),3)>=1 AND 三拾日乖離率>REF(三拾日乖離率,1) AND MA5>REF(MA5,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<MA30;
買入:=FILTER(MR,10);
DRAWTEXT(減倉,HIGH*1.02,'←風險'),COLORBLUE;
DRAWTEXT(買入,LOW*0.98,'←買入'),COLORRED;
DRAWTEXT(清倉 ,HIGH*1.02,'←清倉'),COLORGREEN;
DRAWTEXT(強勢狙擊,LOW*0.95,'←狙擊'),COLORLIRED;
VAR21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50;
壓力:MA(REF(HHV(C,30),1),2),COLORBLUE;
支撐:MA(REF(LLV(C,30),1),2),COLORMAGENTA;

?

?來源:程序化99