通达信龙飞主图源码

[复制链接]
查看94 | 回复0 | 2021-8-20 04:43:02 | 显示全部楼层 |阅读模式

以下是通达信龙飞主图源码(无源码的请下载附件导入)

{龙飞}
{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;

722222189.jpg

722222189.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则