通达信红宝石寻龙诀主图指标 强庄强龙主控 源码开放 附图

DRAWGBK(C>0,RGB(0,10,10),RGB(88,0,0),0,'0',0);

DRAWGBK(C>0,RGB(40,120,20),RGB(00,00,00),0,'0',1);

DRAWGBK(C>0,RGB(80,100,120),RGB(00,00,00),0,'0',1);



{寻龙诀色带}

强弱分界:=EMA(COST(85),10){,PRECISION2,LINEDOT},COLORRED,DOTLINE;

分界:=EMA(COST(99),10){,PRECISION2,LINEDOT},COLORGREEN,DOTLINE;

DRAWBAND(强弱分界,RGB(20,20,20), 分界,RGB(60,60,8));

DRAWKLINE(H,O,L,C);



{涨跌停标识}



涨跌:=REF(C,1);

涨停:=IF((C-涨跌)*100/涨跌>=(10-0.01*100/涨跌),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORRED;

跌停:=IF((涨跌-C)*100/涨跌>=(10-0.01*100/涨跌),1,0);

STICKLINE(跌停,OPEN,CLOSE,2,0),COLOR808000;

明日涨停:ZTPRICE(C,0.1),NODRAW,COLORRED;



{21位画线}

FLAG:=ABS(C-O)/IF((H-L) = 0,100,H-L);

ZHANGF:=ABS(C-O)/O;

WEI21:=IF(CODELIKE('9999'),(H-L)*0.5+L,IF(C>O,(C-O)*0.5+O,(O-C)*0.5+C)),NODRAW;

STICKLINE((ZHANGF>=0.03 && FLAG >= 0.03) OR C>1000,WEI21,WEI21,-1,0),COLORLIRED;

昨二一位:(REF(O,1)+REF(C,1))/2,COLORRED,NODRAW;

今二一位: (O+C)/2,COLORLIRED,NODRAW;

上三一位:(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),NODRAW;

下三一位:(MAX(O,C)-MIN(O,C))/3+MIN(O,C),NODRAW;

高开:=O>REF(C,1) AND MIN(C,O)>REF(C,1);

STICKLINE(高开,MIN(C,O),MIN(C,O)*1.001,-1,0),COLORYELLOW;



{影线}

ZF:=H>=INTPART(REF(C,1)*1.1*100+0.5)/100 AND H>C;

DT:=L<=INTPART(REF(C,1)*0.9*100+0.5)/100 AND L<C;

上影线幅度:=((H-REF(C,1))/REF(C,1)-(MAX(O,C)-REF(C,1))/REF(C,1))*100;

下影线幅度:=((REF(C,1)-L)/REF(C,1)-(REF(C,1)-MIN(O,C))/REF(C,1))*100;

上影线长:=H-MAX(O,C);

下影线长:=MIN(O,C)-L;

长度比较:=上影线长/下影线长;{上下影线长度比}

STICKLINE((MIN(O,C)=L OR 长度比较>1) AND ZF,H-上影线长*1,H,0.01,0),COLORRED; 

STICKLINE((MAX(O,C)=H OR 长度比较<1) AND DT,L+下影线长*1,L,0.01,0),COLORBLUE;



{跳空缺口}

S1:=LOW>(REF(HIGH,1)+0.001);

S2:=BARSLAST(S1);

S3:=COUNT(L>REF(H,S2+1),S2+1)=S2+1;

S4:=CROSS(BACKSET(S3>0 AND ISLASTBAR,S2+1),0.5);

S5:=BARSLAST(S4);

上:=IF(CURRBARSCOUNT<=CONST(S5+1),CONST(LLV(L,S5+1)),DRAWNULL),COLORGRAY;

下:=IF(CURRBARSCOUNT<=CONST(S5+1),REF(H,S5+1),DRAWNULL),COLORGRAY;

STICKLINE( CURRBARSCOUNT<=CONST(S5+1),上,下,5,0),COLORGRAY;





{大阴}

RC1:=REF(C,1);

大阴线:=C<0.96*O OR C<=RC1*0.96 OR C>1000 AND C<=RC1*0.98;

大阴T:=BARSLAST(FILTER(大阴线,3));{调整显示密度}

大阴实顶: REF(O,大阴T),COLORLIGREEN,POINTDOT;{显示大阴K线的开盘价O};

大阴二一: REF((L+H)/2,大阴T),COLORLIGREEN,NODRAW;

原理解析：
填充背景(C>0,RGB(0,10,10),RGB(88,0,0),0,'0',0)
填充背景(C>0,RGB(40,120,20),RGB(00,00,00),0,'0',1)
填充背景(C>0,RGB(80,100,120),RGB(00,00,00),0,'0',1)

{寻龙诀色带}
强弱分界赋值:EMA(获利盘为85%的成本分布,10){,PRECISION2,LINEDOT},画红色,DOTLINE
分界赋值:EMA(获利盘为99%的成本分布,10){,PRECISION2,LINEDOT},画绿色,DOTLINE
DRAWBAND(强弱分界,RGB(20,20,20), 分界,RGB(60,60,8))
DRAWKLINE(H,O,L,C)

{涨跌停标识}

涨跌赋值:1日前的C
涨停赋值:IF((C-涨跌)*100/涨跌>=(10-0.01*100/涨跌),1,0)
当满足条件涨停时,在开盘价和收盘价之间画柱状线
跌停赋值:IF((涨跌-C)*100/涨跌>=(10-0.01*100/涨跌),1,0)
当满足条件跌停时,在开盘价和收盘价之间画柱状线
明日输出涨停:ZTPRICE(C,0.1),NODRAW,画红色

{21位画线}
FLAG赋值:C-O的绝对值/IF((H-L) = 0,100,H-L)
ZHANGF赋值:C-O的绝对值/O
WEI21赋值:IF(CODELIKE('9999'),(H-L)*0.5+L,IF(C>O,(C-O)*0.5+O,(O-C)*0.5+C)),NODRAW
STICKLINE((ZHANGF>=0.03 && FLAG >= 0.03) OR C>1000,WEI21,WEI21,-1,0),COLORLIRED
输出昨二一位:(1日前的O+1日前的C)/2,画红色,NODRAW
输出今二一位: (O+C)/2,COLORLIRED,NODRAW
输出上三一位:(O和C较大值-O和C的较小值)*2/3+O和C的较小值,NODRAW
输出下三一位:(O和C较大值-O和C的较小值)/3+O和C的较小值,NODRAW
高开赋值:O>1日前的C AND C和O的较小值>1日前的C
STICKLINE(高开,C和O的较小值,C和O的较小值*1.001,-1,0),画黄色

{影线}
ZF赋值:H>=INTPART(1日前的C*1.1*100+0.5)/100 AND H>C
DT赋值:L<=INTPART(1日前的C*0.9*100+0.5)/100 AND L 上影线幅度赋值:((H-1日前的C)/1日前的C-(O和C较大值-1日前的C)/1日前的C)*100
下影线幅度赋值:((1日前的C-L)/1日前的C-(1日前的C-O和C的较小值)/1日前的C)*100
上影线长赋值:H-O和C较大值
下影线长赋值:O和C的较小值-L
长度比较赋值:上影线长/下影线长
{上下影线长度比}
STICKLINE((O和C的较小值=L OR 长度比较>1) AND ZF,H-上影线长*1,H,0.01,0),画红色

STICKLINE((O和C较大值=H OR 长度比较<1) AND DT,L+下影线长*1,L,0.01,0), 画蓝色

{跳空缺口}
S1赋值:最低价>(1日前的最高价+0.001)
S2赋值:上次S1距今天数
S3赋值:COUNT(L>S2+1日前的H,S2+1)=S2+1
S4赋值:CROSS(BACKSET(S3>0 AND ISLASTBAR,S2+1),0.5)
S5赋值:上次S4距今天数
上赋值:IF( 到最后交易的周期<=CONST(S5+1),CONST(S5+1日内L最低值),DRAWNULL),COLORGRAY
下赋值:IF( 到最后交易的周期<=CONST(S5+1),S5+1日前的H,DRAWNULL),COLORGRAY
STICKLINE( 到最后交易的周期<=CONST(S5+1),上,下,5,0),COLORGRAY

{大阴}
RC1赋值:1日前的C
大阴线赋值:C<0.96*O OR C<=RC1*0.96 OR C>1000 AND C<=RC1*0.98
大阴T赋值:上次大阴线的3过滤距今天数
输出{调整显示密度}
大阴实顶: 大阴T日前的O,COLORLIGREEN,POINTDOT
{显示大阴K线的开盘价O}
输出大阴二一: REF((L+H)/2,大阴T),COLORLIGREEN,NODRAW