|
{背景颜色}
DRAWGBKLAST(CLOSE>0,STRIP(RGB(55,75,55),RGB(10,10,20),0));
DRAWRECTREL(0,10,200,1000,rgb(0,0,255)),layer0;
{公式程式}
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
A1:=IF(C>=MA5,1,-1);
A2:=IF(C>=MA10,1,-1);
A3:=IF(C>=MA20,1,-1);
A4:=IF(MA5>=REF(MA5,1),1,-1);
A5:=IF(MA10>=REF(MA10,1),1,-1);
A6:=IF(MA20>=REF(MA20,1),1,-1);
趋势:(A1+A2+A3+A4+A5+A6)/6*100,Color00FF00;
趋势1:ref(趋势,2),linethick0;
主升浪:趋势>=50,COLOR0000FF,POINTDOT,LINETHICK0;
↓:趋势<50,COLORFFFFFF,POINTDOT,LINETHICK0;
周期:IF(主升浪,BARSLAST(CROSS(主升浪,0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0;
临界:IF(CROSS(98,趋势),1,0),COLOR00FF00,POINTDOT,LINETHICK0;
WKQY:=BARSLAST(CROSS(50,趋势))<MIN(BARSLAST(CROSS(趋势,1)),BARSLAST(CROSS(趋势,-1)));
挖坑:BETWEEN(趋势,-1,50) and WKQY,COLOR00FFFF,POINTDOT,LINETHICK0;
{以下设置副图显示方式}
FILLRGN(50,趋势,主升浪,RGB(250,0,0)),LAYER7;
FILLRGN(50,趋势,挖坑,RGB(250,250,0)),LAYER7;
STICKLINE(主升浪,周期*0.8,周期*0.95,6,0),COLOR0000FF;
STICKLINE(主升浪,周期*1.05,周期*1.2,6,0),COLOR0000FF;
STICKLINE(主升浪 AND C<REF(C,1),周期*0.9,周期*1.1,6,1),COLORFFFFFF;
VERTLINE(CROSS(主升浪,0.1),2),COLOR0000FF;
DRAWTEXT(临界,100,'☆'),COLOR00FF00,ALIGN1;
0,COLORFFFFFF;50,COLOR00FFFF,DOTLINE;
{庄家克星 专吸庄血}
N:=5;
VAR1:4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),COLORYELLOW,LINETHICK0;
VAR2:8,COLORGREEN,LINETHICK0;
上升: IF(CROSS(VAR1,VAR2),100,0),STICK,COLORred,LINETHICK2;
低吸: IF(VAR1<=8,25,0),STICK,COLORffffff,LINETHICK2;
DRAWTEXT(CROSS(VAR1,VAR2),80,'上升'),COLORffffff;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建仓区: IF((VARO7<10),80,100) ,COLOR00CCFF,LINETHICK1;
{当日及时行情}
DRAWTEXTREL(5,70,'今 趋势线：'+NUMTOSTRN(趋势,0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,250,'日 主升浪：'+NUMTOSTRN(主升浪,0)),COLORYELLOW,linethick1,layer0;
DRAWTEXTREL(5,430,'行 挖 坑：'+NUMTOSTRN(挖坑,0)),COLORFFFFFF,linethick1,layer0;
DRAWTEXTREL(5,610,'情 临 界：'+NUMTOSTRN(临界,0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,790,'表 上 升：'+NUMTOSTRN(上升,0)),COLORyellow,linethick1,layer0;
DRAWTEXTABS(5,5,'股旁网 www.gupang.com'),linethick1,COLOR00EEff;
QS0:=趋势>=50 and 趋势> REF(趋势,1);
QS1:=趋势>=50 and 趋势= REF(趋势,1);
QS2:=趋势>=50 and 趋势< REF(趋势,1);
QS3:=趋势< 50 and 趋势> REF(趋势,1);
QS4:=趋势< 50 and 趋势= REF(趋势,1);
QS5:=趋势< 50 and 趋势< REF(趋势,1);
IF BARSTATUS=2 AND QS0 THEN BEGIN
DRAWTEXTREL(25,70,' ● 势强 佳'),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS1 THEN BEGIN
DRAWTEXTREL(25,70,' ● 趋势强 佳'),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS2 THEN BEGIN
DRAWTEXTREL(25,70,' ● 趋势下 获利了结'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND QS3 THEN BEGIN
DRAWTEXTREL(25,70,' ● 趋势上升 可进场'),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS4 THEN BEGIN
DRAWTEXTREL(25,70,' ● 趋势平 观望'),coloryellow,layer0;
END
ELSE
IF BARSTATUS=2 AND QS5 THEN BEGIN
DRAWTEXTREL(25,70,' ● 趋势下跌 不进场'),colorgreen,layer0;
END
ZSL1:=主升浪>=1 and REF(主升浪,1)>=1;
ZSL2:=主升浪>=1 and REF(主升浪,1)=0;
ZSL3:=主升浪=0 ;
IF BARSTATUS=2 AND ZSL1 THEN BEGIN
DRAWTEXTREL(25,250,' ● 来了 第 '+NUMTOSTRN(周期,0)+' 浪'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND ZSL2 THEN BEGIN
DRAWTEXTREL(25,250,' ● 来了 第 1 浪'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND ZSL3 THEN BEGIN
DRAWTEXTREL(25,250,' ● 走了 再等下一浪！'),colorgreen,layer0;
END
WK1:=挖坑 >=1 ;
WK2:=挖坑 <1 ;
IF BARSTATUS=2 AND WK1 THEN BEGIN
DRAWTEXTREL(25,430,' ● 挖坑(黄色块)低吸 建议不进场'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND WK2 THEN BEGIN
DRAWTEXTREL(25,430,' ● 跟着主升浪走'),coloryellow,layer0;
END
临界1:=临界 >=1;
临界2:=临界 <1;
IF BARSTATUS=2 AND 临界1 THEN BEGIN
DRAWTEXTREL(25,610,' ● 回涨可能碰到牛 建议不进场'),coloryellow,layer0;
END
ELSE
IF BARSTATUS=2 AND 临界2 THEN BEGIN
DRAWTEXTREL(25,610,' ● 跟着主升浪走'),coloryellow,layer0;;
END;
SSH0:=上升=100;
SSH1:=上升=0;
IF BARSTATUS=2 AND SSH0 THEN BEGIN
DRAWTEXTREL(25,790,' ● 上升势强 可进场'),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND SSH1 THEN BEGIN
DRAWTEXTREL(25,790,' ● 跟着主升浪走'),coloryellow,layer0;
END;
202108211251.jpg
|
