股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[大智慧] 新年上拼盘,日周叠加+五日资金动态(主图,源码)


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-3-19 09:45:55
新年上拼盘,日周叠加+五日资金动态(主图,源码)介绍

新年上拼盘,日周叠加+五日资金动态(主图,源码)

在新的一年里祝各位发财,感谢论坛老师们的源码自己略加整合。周K线与日K线相比有以下优点:
1、准确性更高。2、看得更长远。3、信号更明确,波段更分明。4、周K线还兼容了部分日K
线的优点,加入五日资金动态可看清主力动向。
 

{建立两个公式}
{001}
C1:CLOSE;
O1:OPEN;
H1:HIGH;
L1:LOW;
VVLA:VOL;
{日周叠加}
ccc1:="001.c1#week";
ooo1:="001.o1#week";
hhh1:="001.h1#week";
lll1:="001.l1#week";
vvar1:=if(WEEKDAY=3,hhh1,ccc1);
vvar2:=if(WEEKDAY=3,lll1,ooo1);
STICKLINE(ccc1>=ooo1,ooo1,ccc1,10,0),Color613076;
STICKLINE(ccc1>=ooo1,vvar1,vvar2,4,0),Color613076;
STICKLINE(ooo1>ccc1,ccc1,ooo1,10,0),ColorFA7D32;
STICKLINE(ooo1>ccc1,vvar1,vvar2,4,0),ColorFA7D32;
STICKLINE(C>=O,C,O,8,0),COLOR0000BB;
STICKLINE(C>=O,H,L,0,0),COLOR0000BB;
STICKLINE(C<=O,C,O,8,0),COLORFFFF00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;

TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
Ddmr:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100;
Ddmrs:=sum(Ddmr,0);
小单买:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)));
小单卖:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)));
中单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)));
中单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)));
大单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
大单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));
特单买:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
特单卖:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
主单买:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2));
主单卖:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2));
主净:(主单买-主单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
主增:=(VOL/CAPITAL)*100*(主单买-主单卖);
超净:(特单买-特单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
超增:=(VOL/CAPITAL)*100*(特单买-特单卖);
大净:(大单买-大单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
大增:=(VOL/CAPITAL)*100*(大单买-大单卖);
中净:(中单买-中单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
中增:=(VOL/CAPITAL)*100*(中单买-中单卖);
散净:(小单买-小单卖)*AMOUNT/10000,COLOR00FFFF,LINETHICK0,PRECIS2;
散增:=(VOL/CAPITAL)*100*(小单买-小单卖);
DRAWTEXTABS(0,5,'超赢今日各单动态'),COLOR1199FF;
DRAWTEXTABS(0,20,'主净:'+ NUMTOSTRN(主净,2)+'('+NUMTOSTRN(主增,2)+'%)'),COLOR00FFFF;
DRAWTEXTABS(0,35,'超净:'+ NUMTOSTRN(超净,2)+'('+NUMTOSTRN(超增,2)+'%)'),COLORFF00FF;
DRAWTEXTABS(0,50,'大净:'+ NUMTOSTRN(大净,2)+'('+NUMTOSTRN(大增,2)+'%)'),COLOR00FF00;
DRAWTEXTABS(0,65,'中净:'+ NUMTOSTRN(中净,2)+'('+NUMTOSTRN(中增,2)+'%)'),COLORB5B5B5;
DRAWTEXTABS(0,80,'散净:'+ NUMTOSTRN(散净,2)+'('+NUMTOSTRN(散增,2)+'%)'),COLORFF9911;
最大值:=50/(MAX(散净,中净,大净,超净,主净));
散户净买:=140+ABS(散净*最大值);
中户净买:=140+ABS(中净*最大值);
大户净买:=140+ABS(大净*最大值);
超大净买:=140+ABS(超净*最大值);
主力净买:=140+ABS(主净*最大值);
DRAWRECTABS(140,20,ABS(主力净买),35,(IF((主净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,35,ABS(超大净买),50,(IF((超净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
{看各单动态需在论坛下载长风老师的DDE数据}
DRAWRECTABS(140,50,ABS(大户净买),65,(IF((大净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,65,ABS(中户净买),80,(IF((中净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;
DRAWRECTABS(140,80,ABS(散户净买),95,(IF((散净 >= 0),RGB(255,0,0),RGB(0,200,0)))),COLOR000000,LAYER0;






 



gd24819

回复

举报

QQ|

GMT+8, 2024-9-30 14:27

快速回复 返回顶部 返回列表