變色均線主圖指標公式公式、源碼

相關標簽:

 

MA3:MA(CLOSE,3);
MA7:MA(CLOSE,7);
MA13:MA(CLOSE,13);
MA21:MA(CLOSE,21);
MA60:MA(CLOSE,60);
partline(MA3,MA3>=ref(MA3,1),rgb(255,0,0),MA3<ref(MA3,1),rgb(0,250,0)),linethick2;
partline(MA7,MA7>=ref(MA7,1),rgb(255,0,0),MA7<ref(MA7,1),rgb(0,250,0)),linethick1;
partline(MA13,MA13>=ref(MA13,1),rgb(255,0,0),MA13<ref(MA13,1),rgb(0,250,0)),linethick1;
partline(MA21,MA21>=ref(MA21,1),rgb(255,0,0),MA21<ref(MA21,1),rgb(0,250,0)),linethick1;
partline(MA60,MA60>=ref(MA60,1),rgb(255,0,0),MA60<ref(MA60,1),rgb(0,250,0)),linethick2;{單陽不破}
陽漲幅:=4.6;
陽倍量:=1.88;
單陽:=C>O*(1+陽漲幅/100) AND VOL>REF(VOL,1)*陽倍量;
DRAWTEXT(單陽,L*0.98,'陽'),COLORyellow;
高不破價:=REF(C,BARSLAST(單陽));
中不破價:=REF((C+L)/2,BARSLAST(單陽));
低不破價:=REF(L,BARSLAST(單陽));
單陽不破:=BARSLAST(單陽)<11 AND (LLV(L,BARSLAST(單陽))>低不破價 OR LLV(L,BARSLAST(單陽))=低不破價);
STICKLINE(單陽不破,低不破價-低不破價*0.003,低不破價,11,0),COLORyellow;
DRAWTEXT(BARSLAST(單陽)=1 AND 單陽不破,低不破價*0.98,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=2 AND 單陽不破,低不破價*0.98,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=3 AND 單陽不破,低不破價*0.98,'3'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=4 AND 單陽不破,低不破價*0.98,'4'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=5 AND 單陽不破,低不破價*0.98,'5'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=6 AND 單陽不破,低不破價*0.98,'6'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=7 AND 單陽不破,低不破價*0.98,'7'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=8 AND 單陽不破,低不破價*0.98,'8'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=9 AND 單陽不破,低不破價*0.98,'9'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=10 AND 單陽不破,低不破價*0.98,'10'),COLORGREEN;
{兩天:=LLV(L,BARSLAST(單陽))>低不破價 OR LLV(L,BARSLAST(單陽))=低不破價;
一般:=LLV(L,BARSLAST(單陽)-2)>低不破價 OR LLV(L,BARSLAST(單陽)-2)=低不破價;
一般選股:STICKLINE(BARSLAST(單陽)<9 AND 兩天 AND 一般,低不破價,低不破價,4,0),COLOR88FF00;
較強:=LLV(L,BARSLAST(單陽)-2)>中不破價 OR LLV(L,BARSLAST(單陽)-2)=中不破價;
較強選股:STICKLINE(BARSLAST(單陽)<9 AND 兩天 AND 較強,中不破價,中不破價,4,0),COLOR0088FF;
最強:=LLV(L,BARSLAST(單陽)-3)>高不破價 OR LLV(L,BARSLAST(單陽)-2)=高不破價;
最強選股:STICKLINE(BARSLAST(單陽)<9 AND 兩天 AND 最強,高不破價,高不破價,4,0),COLOR00FFFF;}{向下跳空缺口}
I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Colorgreen,ALIGN1,LAYER7;
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORWHITE;
{向上跳空缺口}
I:=0;
flag:=0;
while I<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)
THEN BEGIN FLAG:=1;
S:=I;
I:=BARSLAST(DISPSTATUS=1);
END
ELSE I:=I+1;
STICKLINE(FLAG,REF(h,S+1),LLV(LOW,S+1),20*(s+1),500),COLORblue,ALIGN1,LAYER7;
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+'-'+NUMTOSTRN(LLV(LOW,S+1),2)),ALIGN2,COLORWHITE;漲停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(漲停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(漲停,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(漲停,H,L,0,0),COLORYELLOW;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');