以下是通达信红宝石寻龙主图指标公式源码（无源码的请下载附件导入）

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;