|
通达信小鱼主图K线微积分律 MACDMJ指标公式
见凌见原创大指标 部分修改过 与北沙部分 有交易记录 佛说这是舍得 有舍才有得
{小鱼主图}
{参数：开关(0~~1)}
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
MA34:MA(C,34),LINETHICK2;
MA89:MA(C,89);
MA144:MA(C,144);
MA233:MA(C,233);
KK:=MA(C,25600);
IF(开关 AND MA5<=EMA(C,4),MA5,KK),COLOR113399;
IF(开关 AND MA10<=EMA(C,7),MA10,KK),COLOR113399;
IF(开关 AND MA20<=EMA(C,11),MA20,KK),COLOR113399;
IF(开关 AND MA34<=EMA(C,18),MA34,KK),COLORRED,LINETHICK2;
IF(开关 AND MA89<=EMA(C,29),MA89,KK),COLOR113399;
IF(开关 AND MA144<=EMA(C,47),MA144,KK),COLOR113399;
IF(开关 AND MA233<=EMA(C,76),MA233,KK),COLOR113399;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
===============================
{K线微积分律 副图}
DRAWGBK(C>0,RGB(0,20,100),RGB(80,80,80),0,'12',0);
MACD:="MACD.MACD"*3,NODRAW;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,0.0001,0),COLORRED;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,0.0001,0),COLORLIRED;
STICKLINE(MACD<REF(MACD,1),0,MACD,0.0001,0),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORBLUE;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C)));
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(MACD<CONST(LLV(MACD,BD+1)),BARSCOUNT(C));
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(终点=1 OR 终点=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORWHITE;
横线:=CONST(REF(MACD,BARSLAST(ZZ)));
WW:=MACD>横线;
起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天数:BARSLAST(起始点),COLORYELLOW,NODRAW;
{多空与微积分}
SHORT:=12;LONG:=26;MID:=9;
M1:=3;M2:=3;KG:=1;
DFC:=C-REF(C,1);
WJXS:=(LONG-SHORT)/2;
JGL_JF:WJXS*EMA(DFC,SHORT)COLORYELLOW;
DIF_JIP:=EMA(JGL_JF,LONG),COLOR1188FF;
DEA_GEM:=EMA(DIF_JIP,MID),COLORGREEN;
MACD_LING:=2*(DIF_JIP-DEA_GEM),COLOR1133FF,COLORSTICK;
K_DF_J:=SMA(JGL_JF,M1,1),DOTLINE,COLORFEDCBA;
D_DF_G:=SMA(K_DF_J,M2,1),DOTLINE,COLOR13F8F9;
J_DF_L:=2.5*K_DF_J-1.5*D_DF_G,COLORF813F9;
RF:=REF(J_DF_L,1);
DJ:=ABS(J_DF_L-RF);
MM:=(HHV(DJ,120)+LLV(DJ,120))/2;
STICKLINE(J_DF_L>RF,J_DF_L,RF,2.3,0),COLOR1388D3;
STICKLINE(J_DF_L>RF,J_DF_L,RF,1.0,0),COLOR13AAD3;
STICKLINE(J_DF_L<RF,J_DF_L,RF,2.3,0),COLOR338833;
STICKLINE(J_DF_L<RF,J_DF_L,RF,1.0,0),COLOR33AA33;
N:=SQRT(SHORT*LONG);
NN:=IF(N<9,9,N);
BZC:=STD(DFC,NN);
U:IF(KG=1,K_DF_J+2*BZC,MA(C,25600)),COLORFE9813,CROSSDOT,LINETHICK2;
D:IF(KG=1,K_DF_J-2*BZC,MA(C,25600)),COLORFE9813,CROSSDOT,LINETHICK2;
IF( U >= REF(U,1), U, DRAWNULL ), COLORRED,CROSSDOT,LINETHICK2;
IF( D >= REF(D,1), D, DRAWNULL ), COLORRED,CROSSDOT,LINETHICK2;
DRAWTEXT(TIME=70000,-0.4,'亚盘')COLORCYAN;
DRAWTEXT(TIME=160000,-0.4,'欧盘');
DRAWTEXT(TIME=210000,-0.4,'美盘')COLORYELLOW;
U1:(U+D)/2;
G:=CONST(IF(CURRBARSCOUNT<=81,HHV(H,BARSLAST(CURRBARSCOUNT=81)),0));
DA:=CONST(IF(CURRBARSCOUNT<=81,LLV(L,BARSLAST(CURRBARSCOUNT=81)),0));
STICKLINE(DATE!=REF(DATE,1) AND PERIOD<5,0.4,-0.4,0,-1)COLORWHITE;
上横线:DRAWLINE(起始点,横线,ZZ,横线,0),COLORGREEN,DOTLINE;
下横线:DRAWLINE(BDZH,CONST(LLV(MACD,BD+1)),BDTJ=1,MACD,0),COLOR8080FF,DOTLINE;
DRAWNUMBER(BDTJ,CONST(LLV(MACD,BD+1))*0.9,BDTS);
DRAWNUMBER(ZZ,上横线*1.1,天数);
TJ:=IF(起始点,BARSNEXT(ZZ),DRAWNULL);
红柱数量:=IF(天数>0 AND 天数<=REF(TJ,天数),SUM(MACD>0,天数),DRAWNULL),COLORWHITE,NODRAW;
横线起始价:=REF(C,天数),NODRAW;
空间评估:=(横线起始价-C)/C*100,NODRAW;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND
MACD>(前高+本高)/2,MACD,前高,1,0),COLORYELLOW;
前高本高二分位:IF(MACD>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)
,DRAWNULL),COLORC0C000,DOTLINE;
AA:=STRCAT(STRCAT(STRCAT('〖','上升空间'),'〗'),CON2STR(IF(空间评估,空间评估,
DRAWNULL),2));
DRAWTEXT_FIX(C>0,0,1,0,STRCAT(AA,'﹪')),COLORWHITE;
DRAWTEXT(WQG,MACD*1.1,'本高成立'),COLORWHITE;
DRAWTEXT(BDCL,MACD*1.1,'本低成立'),COLORWHITE;
STICKLINE(WQG,MACD,0,1,0),COLORGREEN;
B1:=IF(CROSS(MACD<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,1,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,1,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
MACD,前高,1,0),COLORRED;
DRAWTEXT(VA2 AND VA2!=UU,U,'空');
DRAWTEXT(ZZ,(MACD/10)*9,'本'),COLORWHITE;
DRAWTEXT(ZZ,MACD/10,'高'),COLORWHITE;
DRAWTEXT(BDTJ,(MACD/10)*9,'低'),COLORRED;
DRAWTEXT(BDTJ,MACD/10,'本'),COLORRED;
IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE;
STICKLINE(MACD>前高,MACD,前高,0.0001,0),COLORYELLOW;
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2,0),COLORBLUE;
倍量:=U>=2*REF(U,1) AND REF(U,1)<=REF(U,2) AND C>REF(C,1);
DRAWTEXT(倍量>=1 AND U >= REF(U,1),0.25,'∠多'),COLORYELLOW;
STICKLINE(倍量>=1 AND U >= REF(U,1),0.2,-0.2,0.00001,0),COLORRED;
EMA(JGL_JF,LONG)COLORGREEN,LINETHICK2;
IF(DIF_JIP>REF(DIF_JIP,1),DIF_JIP,DRAWNULL),COLORRED,LINETHICK3;
反均差:=EMA(CLOSE,26)*10-EMA(CLOSE,12)*10;
正均差:=EMA(CLOSE,12)*10-EMA(CLOSE,26)*10;
均差:=(正均差-反均差),COLORRED,LINETHICK1;
量比:VOL/REF(MA(VOL,5),1),,COLORYELLOW,NODRAW;
STICKLINE(量比>1.5 AND C>O AND 均差>0,U,0,0.5,0),COLORLIMAGENTA;
===========================
{MACDMJ副图}
DRAWGBK(C>0,RGB(0,20,100),RGB(80,80,80),0,'12',0);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
J:="KDJ.J";
JC:=DEA-DIF;
绿柱面积:IF(MACD<0,SUM(0-MACD,BARSLAST(JC<0)),0),NODRAW,COLOR00FF00;
红柱面积:IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0),NODRAW,COLOR00FFFF;
A1:=IF(MACD<0,HHV(绿柱面积,BARSLAST(JC<0)),0);
A2:=IF(MACD>0,HHV(红柱面积,BARSLAST(JC>0)),0);
DRAWNUMBER(CROSS(DIF,DEA),0,REF(A1,1)),COLOR00FF00;
DRAWNUMBER(CROSS(DEA,DIF),0,REF(A2,1)),COLOR00FFFF;
LM:=REF(绿柱面积,BARSLAST(CROSS(DIF,DEA))+1);
HM:=REF(红柱面积,BARSLAST(CROSS(DEA,DIF))+1);
转强:=CROSS(红柱面积,LM),,COLORFFFF00;
转弱:=CROSS(绿柱面积,HM),,COLOR00FF00;
W1:STICKLINE(MACD>0,MACD,0,0,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,0,1),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORMAGENTA;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C)));
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(MACD<CONST(LLV(MACD,BD+1)),BARSCOUNT(C));
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(终点=1 OR 终点=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORWHITE;
横线:=CONST(REF(MACD,BARSLAST(ZZ)));
WW:=MACD>横线;
起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天数:BARSLAST(起始点),COLORYELLOW,NODRAW;
上横线:DRAWLINE(起始点,横线,ZZ,横线,0),COLORGREEN,DOTLINE;
下横线:DRAWLINE(BDZH,CONST(LLV(MACD,BD+1)),BDTJ=1,MACD,0),COLOR8080FF,DOTLINE;
DRAWNUMBER(BDTJ,CONST(LLV(MACD,BD+1))*0.9,BDTS);
DRAWNUMBER(ZZ,上横线*1.1,天数);
TJ:=IF(起始点,BARSNEXT(ZZ),DRAWNULL);
红柱数量:IF(天数>0 AND 天数<=REF(TJ,天数),SUM(MACD>0,天数),DRAWNULL),COLORWHITE,NODRAW;
横线起始价:REF(C,天数),NODRAW;
空间评估:(横线起始价-C)/C*100,NODRAW;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND
MACD>(前高+本高)/2,MACD,前高,1,0),COLORYELLOW;
前高本高二分位:IF(MACD>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)
,DRAWNULL),COLORC0C000,DOTLINE;
AA:=STRCAT(STRCAT(STRCAT('〖','上升空间'),'〗'),CON2STR(IF(空间评估,空间评估,
DRAWNULL),2));
DRAWTEXT_FIX(C>0,0,1,0,STRCAT(AA,'﹪')),COLORWHITE;
STICKLINE(MACD>前高,MACD,前高,1,0),COLORYELLOW;
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,1,0),COLORBLUE;
B1:=IF(CROSS(MACD<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,1,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,1,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
MACD,前高,1,0),COLORRED;
DRAWTEXT(VA2 AND VA2!=UU,(MACD/10)*9,'前');
DRAWTEXT(VA2 AND VA2!=UU,MACD/10,'高');
DRAWTEXT(ZZ,(MACD/10)*9,'本'),COLORWHITE;
DRAWTEXT(ZZ,MACD/10,'高'),COLORWHITE;
DRAWTEXT(BDTJ,(MACD/10)*9,'低'),COLORRED;
DRAWTEXT(BDTJ,MACD/10,'本'),COLORRED;
IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE;
JCB:=CROSS(DIF,DEA);
JTS:=BARSLAST(DIF<DEA);
SC:=CROSS(DEA,DIF);
STS:=BARSLAST(DIF>DEA);
中线:=EMA(C,10),COLOR0F00FF,LINETHICK0;
升线: STD(中线,7),COLOR0000FF,DOTLINE,COLORCYAN;
降线: -STD(中线,7),COLORGREEN,DOTLINE,LINETHICK1;
IF(升线>REF(升线,1)AND NOT(C<中线),升线,DRAWNULL),COLORRED ,LINETHICK2;
IF(降线>REF(降线,1)AND NOT(C>中线),降线,DRAWNULL),COLORRED ,LINETHICK2;
IF(降线<REF(降线,1),降线,DRAWNULL),COLOR00FF00 ,LINETHICK2;
IF(升线>REF(升线,1)AND NOT(C<中线),升线,DRAWNULL),COLORYELLOW ,CIRCLEDOT,LINETHICK2;
IF(升线>REF(升线,1)AND NOT(C<中线),降线,DRAWNULL),COLORYELLOW ,CIRCLEDOT,LINETHICK2;
IF(降线>REF(降线,1)AND NOT(C>中线),降线,DRAWNULL),COLORFFFF00 ,CIRCLEDOT,LINETHICK2;
STICKLINE(转强>0,降线,升线,0.01,0),COLORGREEN;
STICKLINE(转弱>0,降线,升线,0.11,0),COLOR0077FF;
DRAWTEXT(转强,降线-0.01,'↖平前绿柱面积'),COLORGREEN;
DRAWTEXT(转弱,降线-0.01,'↖平前红柱面积'),COLOR0077FF;
W3:=STICKLINE(MACD>0 AND MACD>前高 AND 前高>0,MACD,前高,2,0),COLORYELLOW;
W4:=STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2,0),COLORGREEN;
W5:DRAWTEXT(REFX(VA2,1),降线,'界'),COLORWHITE;
W6:DRAWTEXT(REFX(VA2,1),升线,'高'),COLORWHITE;
W7:DRAWTEXT(REFX(VA2,1),0,'临'),COLORWHITE;
W10:DRAWTEXT(REFX(VA4,1),升线,'低'),COLORYELLOW;
W8:DRAWTEXT(REFX(VA4,1),降线,'界'),COLORYELLOW;
W9:DRAWTEXT(REFX(VA4,1),0,'临'),COLORYELLOW;
NJ:=0.99;
DIFJ:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEAJ:=EMA(DIFJ,9);
MACDJ:=(DIFJ-DEAJ)*2;
G:=CONST(IF(CURRBARSCOUNT<=81,HHV(H,BARSLAST(CURRBARSCOUNT=81)),0));
D:=CONST(IF(CURRBARSCOUNT<=81,LLV(L,BARSLAST(CURRBARSCOUNT=81)),0));
金叉:=REFX(CROSS(DIFJ,DEAJ),1);
DRAWICON(金叉>0,0,降线);
DRAWICON(金叉>0,0,23);
STICKLINE(金叉,0,DEA,0,-1);
215522089.jpg
} |
