打印本文
關閉窗口
相關標簽: 麟龍至尊版四色譜公式 、 通達信麟龍至尊版指標 、 超級拐點加四量圖源碼 、 麟龍四色譜主圖指標 、 麟龍四量圖齊紅選股器 、 改編四量圖副圖源碼 、 四量圖選股 、
?
原理解析：
源碼：
?
{龍在雨中行}
input:n(55);
TR0:= SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI: DMP*100/TR0,colorred;
MDI: DMM*100/TR0;
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);ADXR:(ADX+REF(ADX,6))/2;
STICKLINE(CROSS(PDI,MDI) AND CROSS(PDI,ADX) AND CROSS(PDI,ADXR) ,0,100,4,0),COLOR00FFff;
DRAWTEXT(CROSS(PDI,MDI) AND CROSS(PDI,ADX) AND CROSS(PDI,ADXR),110,'¤上穿¤3線¤'),POINTDOT,COLOR00FFff;
RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
J0:=(HIGH+LOW)/2;QJ:=EMA(J0,3);J1:=IF(CLOSE>QJ,VOL,0);J2:=IF(CLOSE<QJ,VOL,0);
量能:IF(CAPITAL<1,MA(vol,74),MA(SUM(J1-J2,22),3)),color00DDDD,LINETHICK0;{http://www.kzuj.com.cn}
趨勢:IF(CAPITAL<1,WMA(量能,360),WMA(量能,21)),color008800,LINETHICK0;{http://www.kzuj.com.cn}
var3:=(量能-趨勢);var4:=SMA(RV,3,1);var5:=SMA(var4,3,1);
fillrgn(50,100,var3>0),colorB50084;
fillrgn(50,0,var3<0),color008800;
FILLRGN(var5,var4,var4<var5),COLORFF8800;
A1:="KD.K#DAY"(55,8,2);
A2:="KD.D#DAY"(55,8,2);
A3:="KD.K#WEEK"(9,3,3);
A4:="KD.D#WEEK"(9,3,3);A5:="KD.K#MONTH"(55,8,2);
A6:="KD.D#MONTH"(55,8,2);
STICKLINE( A1>A2,70 ,90 ,1 ,0 ),ColorYELLOW,pointdot;
STICKLINE( A3>A4,70 ,30 ,1 ,0 ),ColorRED,pointdot;
STICKLINE( A5>A6,0 ,30 ,1 ,0 ),Color9c0010,pointdot;
STICKLINE( CLOSE>0,70 ,70 ,10 ,0 ),COLORBLACK,pointdot;
STICKLINE( CLOSE>0,30,30,10,0 ),COLORBLACK,pointdot;
RSV1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K1:SMA(RSV1,8,1);
D1:SMA(K1,2,1);
FILLRGN(K1>D1,K1,D1),colorred;FILLRGN(K1<D1,K1,D1),COLORGREEN;{http://www.kzuj.com.cn}
黑馬出現:=ZIG(3,30)>REF(ZIG(3,30),1) AND REF(ZIG(3,30),1)<=REF(ZIG(3,30),2) AND REF(ZIG(3,30),2)<=REF(ZIG(3,30),3);
DRAWTEXT(黑馬出現 AND 1,REF(CLOSE,1),'●建倉'),colorFF00FF;
大黑馬:=ZIG(3,50)>REF(ZIG(3,50),1) AND REF(ZIG(3,50),1)<=REF(ZIG(3,50),2) AND REF(ZIG(3,50),2)<=REF(ZIG(3,50),3);
DRAWTEXT(大黑馬 AND 1,LOW,'▲建倉'),COLORYELLOW;{http://cxh99.com}
黑馬1:=ZIG(3,100)>REF(ZIG(3,100),1) AND REF(ZIG(3,100),1)<=REF(ZIG(3,100),2) AND REF(ZIG(3,100),2)<=REF(ZIG(3,100),3);
DRAWTEXT(黑馬1 AND 1,REF(OPEN,1),'黑馬'),colorFFFFFF;黑馬2:=ZIG(3,150)>REF(ZIG(3,150),1) AND REF(ZIG(3,150),1)<=REF(ZIG(3,150),2) AND REF(ZIG(3,150),2)<=REF(ZIG(3,150),3);
DRAWTEXT(黑馬2 AND 1,REF(LOW,1),'開賺'),colorred;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD :=1000* (2*(DIFF-DEA))/EMA(C,30);
VARA:=EMA(REF(CLOSE,1),4);
色彩峰:=(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100);
DRAWTEXT(CROSS( 0,MACD) AND 色彩峰>75,82,'☆☆☆'),COLORYELLOW;{http://cxh99.com}Varm:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
ddd:=EMA(Varm,3)-10;
DRAWTEXT(CROSS(ddd,0),83,'●'),COLORred,ALIGN0;
DRAWTEXT(CROSS(ddd,0),83,'¤'),COLORred,ALIGN0;
VAR1:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
VAR2:=SMA(VAR1,2,1);
VAR3:=SMA(VAR2,2,1);
VAR4:=SMA(VAR3,2,1);
VAR9:=CROSS(VAR4,VAR3) AND VAR3>91;
DRAWTEXT(FILTER(VAR9,5)=1,82.8,'ω\nω\nω'),COLORYELLOW;{http://cxh99.com}
c1:=(CLOSE+LOW+HIGH)/3;
c2:=EMA(c1,17);
c3:=EMA(c2,81);
c4:=CROSS(c2,c3);
c5:=CROSS(c3,c2);
DRAWTEXT(c5,HIGH*4.203,'底乎？\n○\n○\n○'),COLORGREEN;{http://www.kzuj.com.cn}
VAR1:=MA(CLOSE,5);
VAR2:=MA(CLOSE,10);
VAR3:=MA(CLOSE,20);
VAR4:=MA(CLOSE,30);
VAR5:=(VAR1+VAR2+VAR3+VAR4)/4;
VAR6:=(VAR5-REF(VAR5,5))/REF(VAR5,5)*1500;
VAR8:=EMA(VAR6,8);
DRAWICON(FILTER(VAR6>REF(VAR6,1) AND VAR6>0 AND VAR8<0,30),4,4);
DRAWTEXT(FILTER(VAR6>REF(VAR6,1) AND VAR6>0 AND VAR8<0,30),4,'->時機來臨'),COLORYELLOW;{http://cxh99.com}
Var1:=OPEN>ref(C,1)*1.01;
Var2:=Low>ref(LOW,1);
Var3:=CLOSE>ref(CLOSE,1);
Var4:=ref(CLOSE,1)<ref(OPEN,1) and ref(Close,1)/ref(OPEN,1)<=0.97;
小幅踏空:if(Var1 and Var2 and Var3 and Var4,20,0),colorwhite;
drawtext(小幅踏空,20,'以1/3倉位買入'),colorwhite;
Var5:=Low>ref(CLOSE,1);
Var6:=Close>(ref(OPEN,1)-ref(CLOSE,1))/2 and CLOSE<ref(OPEN,1);
基本踏空:if(Var1 and Var5 and Var6 and Var4,40,0),COLORYELLOW;{http://cxh99.com}
drawtext(基本踏空,38,'以1/3倉位買入'),COLORYELLOW;{http://cxh99.com}
Var7:=LOW>ref(C,1);
Var8:=CLOSE>ref(OPEN,1);
完全踏空:if(Var1 and Var4 and Var7 and Var8,60,0),colorcyan;
drawtext(完全踏空,58,'以1/2倉位買入'),colorcyan;
Var9:=ref(OPEN,1)>ref(CLOSE,1);
Var10:=OPEN>ref(OPEN,1);
Var11:=LOW>ref(OPEN,1);
嚴重踏空:if(Var1 and Var9 and Var10 and Var11,80,0),colorred;
drawtext(嚴重踏空,78,'以2/3倉位買入'),colorred;
Var12:=OPEN>ref(HIGH,1);
Var13:=LOW>ref(HIGH,1);
超級踏空:if(Var1 and Var9 and Var12 and Var13,85,0),colormagenta;
drawtext(超級踏空,83,'滿倉買入'),colormagenta;
選股:小幅踏空 or 基本踏空 or 完全踏空 or 嚴重踏空 or 超級踏空;
{程序化交易 www.kzuj.com.cn }
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
原理解析：
?
源碼：
?