{背景顏色}
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);
趨勢(shì):(A1+A2+A3+A4+A5+A6)/6*100,Color00FF00;
趨勢(shì)1:ref(趨勢(shì),2),linethick0;
主升浪:趨勢(shì)>=50,COLOR0000FF,POINTDOT,LINETHICK0;
↓:趨勢(shì)<50,COLORFFFFFF,POINTDOT,LINETHICK0;
周期:IF(主升浪,BARSLAST(CROSS(主升浪,0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0;
臨界:IF(CROSS(98,趨勢(shì)),1,0),COLOR00FF00,POINTDOT,LINETHICK0;
WKQY:=BARSLAST(CROSS(50,趨勢(shì))) 挖坑:BETWEEN(趨勢(shì),-1,50) and WKQY,COLOR00FFFF,POINTDOT,LINETHICK0;
{以下設(shè)置副圖顯示方式}
FILLRGN(50,趨勢(shì),主升浪,RGB(250,0,0)),LAYER7;
FILLRGN(50,趨勢(shì),挖坑,RGB(250,250,0)),LAYER7;
STICKLINE(主升浪,周期*0.8,周期*0.95,6,0),COLOR0000FF;
STICKLINE(主升浪,周期*1.05,周期*1.2,6,0),COLOR0000FF;
STICKLINE(主升浪 AND C 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;
建倉(cāng)區(qū): IF((VARO7<10),80,100) ,COLOR00CCFF,LINETHICK1;
{當(dāng)日及時(shí)行情}
DRAWTEXTREL(5,70,’今 趨勢(shì)線：’+NUMTOSTRN(趨勢(shì),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,’概念股網(wǎng) www.ouce-eed.com’),linethick1,COLOR00EEff;
QS0:=趨勢(shì)>=50 and 趨勢(shì)> REF(趨勢(shì),1);
QS1:=趨勢(shì)>=50 and 趨勢(shì)= REF(趨勢(shì),1);
QS2:=趨勢(shì)>=50 and 趨勢(shì)< REF(趨勢(shì),1);
QS3:=趨勢(shì)< 50 and 趨勢(shì)> REF(趨勢(shì),1);
QS4:=趨勢(shì)< 50 and 趨勢(shì)= REF(趨勢(shì),1);
QS5:=趨勢(shì)< 50 and 趨勢(shì)< REF(趨勢(shì),1);
IF BARSTATUS=2 AND QS0 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 勢(shì)強(qiáng) 佳’),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS1 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 趨勢(shì)強(qiáng) 佳’),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS2 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 趨勢(shì)下 獲利了結(jié)’),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND QS3 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 趨勢(shì)上升 可進(jìn)場(chǎng)’),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND QS4 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 趨勢(shì)平 觀望’),coloryellow,layer0;
END
ELSE
IF BARSTATUS=2 AND QS5 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 趨勢(shì)下跌 不進(jìn)場(chǎng)’),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,’ ● 來(lái)了 第 ‘+NUMTOSTRN(周期,0)+’ 浪’),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND ZSL2 THEN BEGIN
DRAWTEXTREL(25,250,’ ● 來(lái)了 第 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,’ ● 挖坑(黃色塊)低吸 建議不進(jìn)場(chǎng)’),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,’ ● 回漲可能碰到牛 建議不進(jìn)場(chǎng)’),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,’ ● 上升勢(shì)強(qiáng) 可進(jìn)場(chǎng)’),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND SSH1 THEN BEGIN
DRAWTEXTREL(25,790,’ ● 跟著主升浪走’),coloryellow,layer0;
END;