通达信龙飞主图源码
{龙飞}
{N=150 10 1000 , M=3 1 50}
高:=CONST(REF(HHV(H,N),M));
低:=CONST(REF(LLV(L,N),M));
色彩峰:=高-低;
STICKLINE(色彩峰>0,低,低+色彩峰*1.05,10,0),COLORFF0000;
STICKLINE(色彩峰>0,低,低+色彩峰*0.9,10,0),COLORFF1111;
STICKLINE(色彩峰>0,低,低+色彩峰*0.85,10,0),COLORFF2222;
STICKLINE(色彩峰>0,低,低+色彩峰*0.8,10,0),COLORFF3333;
STICKLINE(色彩峰>0,低,低+色彩峰*0.75,10,0),COLORFF4444;
STICKLINE(色彩峰>0,低,低+色彩峰*0.7,10,0),COLORFF5555;
STICKLINE(色彩峰>0,低,低+色彩峰*0.65,10,0),COLORFF6666;
STICKLINE(色彩峰>0,低,低+色彩峰*0.6,10,0),COLORFF7777;
STICKLINE(色彩峰>0,低,低+色彩峰*0.55,10,0),COLORFF8888;
STICKLINE(色彩峰>0,低,低+色彩峰*0.5,10,0),COLORFF9999;
STICKLINE(色彩峰>0,低,低+色彩峰*0.45,10,0),COLORFFAAAA;
STICKLINE(色彩峰>0,低,低+色彩峰*0.4,10,0),COLORFFBBBB;
STICKLINE(色彩峰>0,低,低+色彩峰*0.35,10,0),COLORFFCCCC;
STICKLINE(色彩峰>0,低,低+色彩峰*0.3,10,0),COLORFFDDDD;
STICKLINE(色彩峰>0,低,低+色彩峰*0.25,10,0),COLORFFEEEE;
A:=(HHV(HIGH,26)+LLV(LOW,26))/2;
B:=(HHV(HIGH,9)+LLV(LOW,9))/2;
DL:=CLOSE; FN:=26;
先行上限:=REF((A+B)/2,26),POINTDOT,LINETHICK0,COLORCCCCCC;
先行下限:=REF((HHV(HIGH,52)+LLV(LOW,52))/2,26),POINTDOT,LINETHICK0,COLORCCCCCC;
龙A:=EMA(CLOSE,48),COLORFF00FF;
龙B:=MA(CLOSE,8),COLOR00FF00;
龙收盘价:=MA(CLOSE,8),COLORFFFFFF;
STICKLINE((龙A > MA(CLOSE,8)),龙A,MA(CLOSE,8),48,1),COLOR008000;
STICKLINE((龙A < MA(CLOSE,8)),龙A,MA(CLOSE,8),48,1),COLOR0000FF;
STICKLINE(C>0,先行上限,先行下限,1,0),COLOR999999;
STICKLINE(C>=O,C,O,4,0),COLORRED;
STICKLINE(C>=O,C,O,2,0),COLORB0B0FF;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C < =O,C,O,4,0),COLORFF2020;
STICKLINE(C < =O,C,O,1,0),COLORCYAN;
STICKLINE(C < =O,H,L,0,0),COLORCYAN;
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
顶点:REFDATE(高,DATE),COLORWHITE;
一:REFDATE(H1,DATE),COLORYELLOW;
二:REFDATE(H2,DATE),COLORMAGENTA;
三:REFDATE(H3,DATE),COLORBLUE;
四:REFDATE(H4,DATE),COLORRED;
五:REFDATE(H5,DATE),COLORGREEN;
低点:REFDATE(低,DATE),COLORRED;
