龙听期货论坛's Archiver

龙听 发表于 2018-12-24 13:20

大智慧ZJ分笔流指标公式源码[大智慧公式]

相关标签: 一片云 分笔指标 、 大智慧分笔数据下载 、 通达信分笔分段公式 、 大智慧分笔大单公式 、 大智慧分笔数据提取 、 入木三分笔 、 大智慧分笔数据 、 分笔数据 、 分笔数据读取 、

大智慧ZJ分笔流指标公式源码

[code]
a1:=BARSCOUNT(CLOSE);
DRAWTEXTREL(50,10,'资金净流'),LINETHICK2,colorYelLOW;
DRAWTEXTREL(200,10,' 代码: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),LINETHICK2,ColorFFFF80;
a2:=DATE;
a3:=(WEEKDAY);
if (((BARSTATUS = 2) AND (a3 = 5)) ) Then DRAWTEXTREL(800,10,'星期五'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 4)) ) Then DRAWTEXTREL(800,10,'星期四'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 3)) ) Then DRAWTEXTREL(800,10,'星期三'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 2)) ) Then DRAWTEXTREL(800,10,'星期二'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 1)) ) Then DRAWTEXTREL(800,10,'星期一'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 6)) ) Then DRAWTEXTREL(800,10,'星期六'),LINETHICK2,ColorFFEF40;
if (((BARSTATUS = 2) AND (a3 = 0)) ) Then DRAWTEXTREL(800,10,'星期日'),LINETHICK2,ColorFFEF40;
a4:=(BUYVOL * CLOSE) / 100;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.cxh99.com',CURRENTTIME>180000 and (CXH=2 OR CXH=7));
DRAWTEXTREL(10 ,10 ,'');
a5:=SUM(a4,0);
a6:=(CLOSE * SELLVOL) / 100;
a7:=SUM(a6,0);
a8:=a5 + a7;
a9:=a5 - a7;
a10:=IF(((a4 < 20) AND (a4 >= 5)),a4,0);
a11:=SUM(a10,0);
a12:=IF(((a6 < 20) AND (a6 >= 5)),a6,0);
a13:=SUM(a12,0);
a14:=IF(((a4 < 100) AND (a4 >= 20)),a4,0);
a15:=SUM(a14,0);
a16:=IF(((a6 < 100) AND (a6 >= 20)),a6,0);
a17:=SUM(a16,0);
a18:=IF((a4 >= 100),a4,0);
a19:=SUM(a18,0);
a20:=IF((a6 >= 100),a6,0);
a21:=SUM(a20,0);
a22:=IF((a4 >= 20),a4,0);
a23:=SUM(a22,0);
a24:=IF((a6 >= 20),a6,0);
a25:=SUM(a24,0);
a26:=a11 - a13;
a27:=a15 - a17;
a28:=a19 - a21;
a29:=a23 - a25;
a30:=(100 * ((SUM((IF((a4 >= 10),VOL,0)),0)) - (SUM((IF((a6 >= 10),VOL,0)),0)))) / CAPITAL;
a31:=(100 * ((SUM((IF((a4 >= 20),VOL,0)),0)) - (SUM((IF((a6 >= 20),VOL,0)),0)))) / CAPITAL;
a32:=(a26);
a33:=(a27);
a34:=(a28);
a35:=(a29);
a36:=350 / (MAX(ABS(a32),ABS(a33),ABS(a34),ABS(a35)));
a37:=500 - (a32 * a36);
a38:=500 - (a33 * a36);
a39:=500 - (a34 * a36);
a40:=500 - (a35 * a36);
DRAWRECTREL(0,505,320,510,3289855),colorRed;
DRAWRECTREL(50,a37,80,500,(IF((a32 >= 0),3289855,3342080))),colorYelLOW;
DRAWRECTREL(130,a38,160,500,(IF((a33 >= 0),3289855,3342080))),colorYelLOW;
DRAWRECTREL(210,a39,240,500,(IF((a34 >= 0),3289855,3342080))),colorYelLOW;
DRAWRECTREL(290,a40,320,500,(IF((a35 >= 0),3289855,3342080))),colorYelLOW;
DRAWTEXTREL(18,440,'中户'),ColorDDFFFF;
DRAWTEXTREL(95,440,'大户'),ColorDDFFFF;
DRAWTEXTREL(175,440,'机构'),ColorDDFFFF;
DRAWTEXTREL(255,440,'主力'),ColorDDFFFF;
a41:=(a11);
a42:=(a13);
a43:=(a15);
a44:=(a17);
a45:=(a19);
a46:=(a21);
a47:=(a23);
a48:=(a25);
a49:=700 / (MAX(a41,a42,a43,a44,a45,a46,a47,a48));
a50:=940 - (a41 * a49);
a51:=940 - (a42 * a49);
a52:=940 - (a43 * a49);
a53:=940 - (a44 * a49);
a54:=940 - (a45 * a49);
a55:=940 - (a46 * a49);
a56:=940 - (a47 * a49);
a57:=940 - (a48 * a49);
DRAWRECTREL(700,a50,720,940,250),colorYelLOW;
DRAWRECTREL(720,a51,740,940,6617600),colorYelLOW;
DRAWRECTREL(780,a52,800,940,250),colorYelLOW;
DRAWRECTREL(800,a53,820,940,6617600),colorYelLOW;
DRAWRECTREL(860,a54,880,940,250),colorYelLOW;
DRAWRECTREL(880,a55,900,940,6617600),colorYelLOW;
DRAWRECTREL(940,a56,960,940,250),colorYelLOW;
DRAWRECTREL(960,a57,980,940,6617600),colorYelLOW;
DRAWTEXTREL(2,930,'主力净流:'+NUMTOSTR(a29)+'万'+' 机构净流:'+NUMTOSTR(a28)+'万'+' 大户净流:'+NUMTOSTR(a27)+'万'+' 中户净流:'+NUMTOSTR(a26)+'万'),colorWhite;
DRAWTEXTREL(2,820,'控盘系数:'+NUMTOSTR(a30)+'%'+' 主力增仓:'+NUMTOSTR(a31)+'%'),LINETHICK2,colorYelLOW;
DRAWTEXTREL(940,965,'主力'),ColorDDFFFF;
DRAWTEXTREL(865,965,'机构'),ColorDDFFFF;
DRAWTEXTREL(785,965,'大户'),ColorDDFFFF;
DRAWTEXTREL(705,965,'中户'),ColorDDFFFF;
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
[/code]

龙听 发表于 2018-12-24 13:21

分时指标：[code]MA25:EMA(CLOSE,25);
买卖分水岭:EMA(CLOSE,905);
STICKLINE((MA25 > 买卖分水岭),MA25,买卖分水岭,1,0),Color0000FF;
STICKLINE((MA25 < 买卖分水岭),MA25,买卖分水岭,1,0),Color00FF00;
DRAWICON(CROSS(MA25,买卖分水岭),(买卖分水岭 * 0.98),6);
[/code]

龙听 发表于 2018-12-24 13:21

副图指标源码-----趋势顶低
[code]
Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100;
Q3:=SMA(Q2, 9, 1);
Q4:=SMA(Q3, 3, 1);
长趋势:3*Q3-2*Q4,COLORWHITE,LINETHICK1;
PARTLINE(长趋势,长趋势>ref(长趋势,1),RGB(255,0,0),长趋势<ref(长趋势,1),RGB(0,255,255)),LINETHICK2;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('',CURRENTTIME>180000 and (CXH=2 OR CXH=7));
DRAWTEXTREL(10 ,10 ,'');
趋势线:EMA(Q3, 3),COLORyelLOW,LINETHICK2;
DRAWTEXT(CROSS(趋势线, 长趋势) AND ref(长趋势,1)>80, ref(长趋势,3), '*顶'),COLOrgreen,LINETHICK3;
★逢低买入: DRAWTEXT(ref(CROSS(趋势线,长趋势),82) AND 趋势线>1.3*长趋势,长趋势,'★买入'),LINETHICK2,Color9500FF;
★低买: DRAWTEXT(ref(CROSS(长趋势,趋势线),1) AND 长趋势>1.3*趋势线,趋势线,'★低买'),COLORRED,LINETHICK1; {本文来至CXH99.COM}
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
顶:= IF(VAR5=2,2,0);
顶A:IF(顶>ref(顶,1),50,0),COLORGREEN;
DRAWTEXT(顶A=50,45,'快走'),COLOR00FF00;
[/code]

龙听 发表于 2018-12-24 13:22

[attach]6017[/attach]

页: [1]