看长做短第13版副图指标公式[其他软件公式]

相关标签:

飞狐看长做短第13版副图指标源码

原理解析：
输出流通:流通股本(股)/10000,线宽为0 TS赋值:收盘价的有效数据周期数 J0赋值:(最高价+最低价)/2 QJ赋值:J0的3日指数移动平均 J1赋值:如果收盘价>QJ,返回成交量(手),否则返回0 J2赋值:如果CLOSESE赋值:J1-J2的5日累和,返回?,否则返回? SZ赋值:J1-J2的10日累和 输出长资金:如果当前流通股本(手)<1,返回600*SZ的55日指数移动平均,否则返回50*SZ的5日简单移动平均,COLOR0000FF,线宽为0 输出长趋势:如果当前流通股本(手)<1,返回长资金的360日加权移动平均,否则返回长资金的14日加权移动平均,COLOR00CC00,线宽为0 FILLRGN(长资金>长趋势,长资金,长趋势),COLOR0000CC FILLRGN(长资金<长趋势,长资金,长趋势),COLOR008800 输出资金:如果当前流通股本(手)<1,返回1000,否则返回100*SE的3日[1日权重]移动平均,COLORFFFFFF 输出趋势:资金的3日[1日权重]移动平均,COLOR00FFFF 输出短选股:资金上穿趋势的5日过滤 AND "平滑异同平均的DEA"<0,线宽为0 输出长选股:短选股 AND 长资金>长趋势,线宽为0 BB赋值:趋势上穿资金的5日过滤 AND "KDJ的D">60 当满足条件短选股时,在1日前的趋势位置画4号图标 当满足条件BB时,在1日前的资金位置画5号图标 当满足条件短选股AND长资金>长趋势时,在1日前的趋势位置画10号图标 当满足条件BBAND长资金<长趋势时,在1日前的趋势位置画12号图标 当满足条件长资金上穿长趋势时,在长资金位置画1号图标 当满足条件长趋势上穿长资金AND长资金>0时,在长资金位置画2号图标 输出VARIABLE:WDAY[7]='星期六' 赋值:'星期日' 赋值:'星期一' 赋值:'星期二' 赋值:'星期三' 赋值:'星期四' 赋值:'星期五' FY赋值:年份 FM赋值:月份 FD赋值:日 WD赋值:星期 P赋值:SYSPARAM(1) STR1赋值:''+'今日： '+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1] DRAWTEXTEX(收盘价,1,240,10,STR1),COLOR00DDFF DRAWTEXTEX(收盘价,1,10,10,STKLABEL+' '+品种名称+''),COLOR00DDFF DRAWTEXTEX(长资金>长趋势 AND 长资金>1日前的长资金,1,600,10,'长资金趋势一直向上'),COLOR00DDFF DRAWTEXTEX(长资金>长趋势 AND 长资金<=1日前的长资金,1,600,10,'长资金趋势一直向上、有走平向下的趋势'),COLOR00DDFF DRAWTEXTEX(长资金<长趋势 AND 长资金>=1日前的长资金,1,600,10,'长资金趋势一直向下、有走平向上的趋势'),COLOR00DDFF DRAWTEXTEX(如果TS>18,返回0,否则返回长资金>=1日前的长资金,1,600,10,'长资金趋势一直不明、有走平向上的趋势'),COLOR00DDFF

 来源:程序化99（ WWW.CXH99.COM ）

源码：

流通:FINANCE(7)/10000,LINETHICK;
TS:=BARSCOUNT(CLOSE);J0:=(HIGH+LOW)/2;QJ:=EMA(J0,3);
J1:=IF(CLOSE>QJ,VOL,0);J2:=IF(CLOSE
SE:=SUM(J1-J2,5);
SZ:=SUM(J1-J2,10);
长资金:IF(CAPITAL<1,600*EMA(SZ,55),50*MA(SZ,5)),COLOR0000FF,LINETHICK;
长趋势:IF(CAPITAL<1,WMA(长资金,360),WMA(长资金,14)),COLOR00CC00,LINETHICK;
FILLRGN(长资金>长趋势,长资金,长趋势),Color0000CC;
FILLRGN(长资金<长趋势,长资金,长趋势),COLOR008800;
资金:IF(CAPITAL<1,1000,100)*SMA(SE,3,1),COLORFFFFFF;趋势:SMA(资金,3,1),COLOR00FFFF;
短选股:FILTER(CROSS(资金,趋势),5) and "macd.dea"<0,LINETHICK;
长选股:短选股 and 长资金>长趋势,LINETHICK;
BB:=FILTER(CROSS(趋势,资金),5) and "kdj.d">60;
DRAWICON(短选股,REF(趋势,1),4);DRAWICON(BB,REF(资金,1),5);
DRAWICON(短选股 and 长资金>长趋势,REF(趋势,1),10);
DRAWICON(BB and 长资金<长趋势,REF(趋势,1),12);
DRAWICON(CROSS(长资金,长趋势),长资金,1);
DRAWICON(CROSS(长趋势,长资金) and 长资金>0,长资金,2);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;fm:=MONTH;fd:=DAY;wd:=WEEKDAY;p:=SYSPARAM(1);
str1:=''+'今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(CLOSE,1,240,10,str1),Color00DDFF;
DRAWTEXTEX(CLOSE,1,10,10,STKLABEL+' '+STKNAME+''),Color00DDFF;
DRAWTEXTEX(长资金>长趋势 and 长资金>REF(长资金,1),1,600,10,'长资金趋势一直向上'),Color00DDFF;
DRAWTEXTEX(长资金>长趋势 and 长资金<=REF(长资金,1),1,600,10,'长资金趋势一直向上、有走平向下的趋势'),Color00DDFF;
DRAWTEXTEX(长资金<长趋势 and 长资金>=REF(长资金,1),1,600,10,'长资金趋势一直向下、有走平向上的趋势'),Color00DDFF;
DRAWTEXTEX(IF(TS>18,0,长资金>=REF(长资金,1)),1,600,10,'长资金趋势一直不明、有走平向上的趋势'),Color00DDFF;
{程序化交易 www.cxh99.com }

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】