|
以下是通达信控盘解说主图指标公式源码（无源码的请下载附件导入）
通达信控盘解说主图指标 源码 贴图
A:=(3*C+H+L+O)/6;
VAR1:=WMA(A,8);N:=WEEKDAY;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
红线:VAR1,COLORRED;
黄线:VAR2,COLORYELLOW;
持股:IFF(VAR1>VAR2,VAR2,DRAWNULL),COLORRED;
持币:IFF(VAR1=VAR2,VAR2,DRAWNULL),COLORGREEN;
DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19)),COLORWHITE;
DEA:=EMA(DIFF,9),COLORF00FF0 ;
MACD:=0.90*(DIFF-DEA), COLORSTICK;
TJ:=(DIFF>=DEA);
TJ1:=(DIFF>=0);
STICKLINE(TJ,H,L,0.0.2,0),COLORYELLOW;
STICKLINE(TJ,O,C,2.5,0),COLORYELLOW;
STICKLINE(TJ1 AND TJ,H,L,0.0.2,0),COLORRED;
STICKLINE(TJ1 AND TJ,O,C,2.5,1),COLORRED;
STICKLINE(DIFF<DEA,H,L,0.0.2,0),COLORCYAN;
STICKLINE(DIFF<DEA,O,C,2.5,0),COLORCYAN;
AA:=REF(H,N)=HHV(H,2*N+1);
AA1:=REF(L,N)=LLV(L,2*N+1);
QY:=BACKSET(AA,N+1);
QY1:=BACKSET(AA1,N+1);
CC:=FILTER(QY,N) AND H=HHV(H,N+1);
CC1:=FILTER(QY1,N) AND L=LLV(L,N+1);
DDD:=BARSLAST(CC);
DD1:=BARSLAST(CC1);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
GDCS1:=CONST(DINGBUTS);
DDCS1:=CONST(DDTS1);
GDCS13:=CONST(REF(HIGH,GDCS1-1));
DDCS13:=CONST(REF(L,DDCS1-1));
DINGBUTS1:=REF(DINGBUTS,DDD+1);
DDTS2:=REF(DDTS1,DD1+1);
GDCS2:=CONST(DINGBUTS1);
DDCS2:=CONST(DDTS2);
GDCS23:=CONST(REF(HIGH,DINGBUTS1-1));
DDCS23:=CONST(REF(L,DDTS2-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);
XD1:=BACKSET(ISLASTBAR,DDCS1);
XG2:=BACKSET(ISLASTBAR,DINGBUTS1);
XD2:=BACKSET(ISLASTBAR,DDTS2);
STICKLINE(XG2,GDCS23,GDCS23,2,0),COLORFF8000;
STICKLINE(XG1,GDCS13,GDCS13,2,0),COLORYELLOW;
STICKLINE(XD2,DDCS23,DDCS23,2,0),COLORGRAY;
STICKLINE(XD1,DDCS13,DDCS13,2,0),COLORCYAN;
CXHZB1:= (L <= MA(C,20) AND MA(C,20) <= C AND L <= MA(C,10) AND MA(C,10) <= C AND L <= MA(C,5) AND MA(C,5) <= C AND C >= O AND C/REF(C,1) >=1.03);
DRAWTEXT(CXHZB1, H, '穿三线'),COLORRED;
CXHZB2:= REF(C,5) > REF(O,5) AND REF(C,4) < REF(O,4) AND REF(C,3) < REF(O,3) AND REF(C,2) > REF(O,2) AND REF(C,1) < REF(O,1) AND C > O;
DRAWTEXT(CXHZB2, L, '加速信号'),COLORRED;
CXHZB3:= REF(C,5) < REF(O,5) AND REF(C,4) < REF(O,4) AND REF(C,3) < REF(O,3) AND REF(C,2) > REF(O,2) AND REF(C,1) < REF(O,1) AND C > O;
DRAWTEXT(CXHZB3, L, '推动信号'),COLORGREEN;
CXHZB4:= REF(C,5) < REF(O,5) AND REF(C,4) > REF(O,4) AND REF(C,3) < REF(O,3) AND REF(C,2) < REF(O,2) AND REF(C,1) < REF(O,1) AND C > O;
DRAWTEXT(CXHZB4, L, '底部信号'),COLORGREEN;
CXHZB5:= REF(C,5) < REF(O,5) AND REF(C,4) < REF(O,4) AND REF(C,3) < REF(O,3) AND REF(C,2) < REF(O,2) AND REF(C,1) > REF(O,1) AND C < O;
DRAWTEXT(CXHZB5, L, '底转加速'),COLORGREEN;CXHZB6:= O/REF(C,1) >= 1.015;
DRAWTEXT(CXHZB6, O, '高开');CXHZB7:=O=L;DRAWTEXT(CXHZB7, O, '控价');
DRAWTEXT(O <= MA(C,20) AND MA(C,20) <= C , L, '↖站上20线'),COLORGRAY;
DRAWTEXT(O <= MA(C,60) AND MA(C,60) <= C , L, '↖站上60线'),COLORGRAY;
1019422909.jpg
1019533365.png
|
