以下是通达信龙飞主图源码
{龙飞}{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;
评论(0)