通达信红宝石寻龙主图指标 源码 贴图

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;
{影线}{股票下载网WWW.GPXIAZAI.COM}
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;