您现在的位置:程序化交易>> 股票公式>> 其他>> 其他软件公式>>正文内容

飞狐趋势为先公式公式、代码源码[其他软件公式]

相关标签:

原理解析:

填充背景
N赋值:5
QJ0赋值:(最高价+最低价+收盘价)/3
QJ1赋值:如果最高价=最低价,返回1,否则返回最高价-开盘价和收盘价的较大值
QJ2赋值:如果最高价=最低价,返回1,否则返回收盘价和开盘价的较大值-QJ0
QJ3赋值:如果最高价=最低价,返回1,否则返回开盘价和收盘价的较小值-最低价
QJ4赋值:如果最高价=最低价,返回1,否则返回QJ0-收盘价和开盘价的较小值
QJ5赋值:成交量(手)/(如果最高价=最低价,返回4,否则返回最高价-最低价)
QJ6赋值:"平滑异同平均的DIFF">"平滑异同平均的DEA" AND "平滑异同平均的DEA"<0
QJ7赋值:"KDJ的K">"KDJ的D" AND "KDJ的D"<30
QJ8赋值:"平滑异同平均的DIFF"<"平滑异同平均的DEA"
QJ9赋值:"KDJ的K"<"KDJ的D" AND "KDJ的K">80
输出特大:QJ4*QJ5,线宽为0,PRECISION0
输出大单:QJ3*QJ5,线宽为0,PRECISION0
输出中单:QJ1*QJ5,线宽为0,PRECISION0
输出小单:QJ2*QJ5,线宽为0,PRECISION0
W1赋值:大单的N日累和+特大的N日累和
W2赋值:小单的N日累和+中单的N日累和
量振1赋值:特大>大单 AND 大单>小单
量振2赋值:特大<小单 AND 大单<小单
标振1赋值:QJ6 AND QJ7
标振2赋值:QJ8 AND QJ9
A赋值:W1-W2
A0赋值:如果A>0,返回A,否则返回0
B0赋值:如果A<0,返回A,否则返回0
当满足条件A0时,在0和A0位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR000044
当满足条件A0时,在0和A0位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR000088
当满足条件A0时,在0和A0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR0000AA
当满足条件A0时,在0和A0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000CC
当满足条件B0时,在0和-B0位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR004400
当满足条件B0时,在0和-B0位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR008800
当满足条件B0时,在0和-B0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00AA00
当满足条件B0时,在0和-B0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00CC00
输出周趋势:A的5日简单移动平均,COLORFFFFFF,PRECISION0
输出平滑值:周趋势的5日加权移动平均,COLOR00FFFF,PRECISION0
VERTLINE(量振1 AND 标振1 AND 周趋势>平滑值),COLORFF00FF
VERTLINE(量振2 AND 标振2 AND 周趋势<平滑值),COLOR00FF00
DRAWTEXTEX(收盘价,1,0,22,STKLABEL+' '+品种名称+''),COLORDDFF
BB赋值:BARPOS=SYSPARAM(1)
输出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,460,22,STR1),COLORDDFF
DIFF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA赋值:DIFF的9日指数移动平均
MACD1赋值:2*(DIFF-DEA)
日转红赋值:MACD1>=0 AND 1日前的MACD1<0
CS1赋值:100
CS2赋值:CS1日内MACD1的绝对值的最高值
CS3赋值:100/CS2的绝对值
输出平滑异同平均:(MACD1*CS3+100)/2,线宽为3,COLOR00FF00
CS赋值:MACD
日红赋值:CS>=1日前的CS
日转红赋值:日红 AND 1日前的日红=0
PARTLINE(日红,CS),线宽为3,画红色
AA赋值:0
V1赋值:10日内最低价的最低值
V2赋值:25日内最高价的最高值
价位线赋值:(收盘价-V1)/(V2-V1)*4的4日指数移动平均
当满足条件价位线上穿0.3时,在AA位置书写文字,COLOR0000FF
当满足条件3.7上穿价位线时,在AA位置书写文字,COLORFF00
VERTLINE(价位线上穿0.3),COLOR0000FF,LINEDASHDOT
VERTLINE(3.7上穿价位线),COLORFF00,LINEDASHDOT
 

源码:

 

DRAWGBK(1,COLORRGB(0,0,20),COLORRGB(0,60,50),1);
N:=5;qj0:=(HIGH+LOW+CLOSE)/3;
qj1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
qj2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-qj0);
qj3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
qj4:=IF(HIGH=LOW,1,qj0-MIN(CLOSE,OPEN));
qj5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));
qj6:="macd.diff">"macd.dea" and "macd.dea"<0;
qj7:="kdj.k">"kdj.d" and "kdj.d"<30;
qj8:="macd.diff"<"macd.dea";
qj9:="kdj.k"<"kdj.d" and "kdj.k">80;
特大:qj4*qj5,LINETHICK,PRECISION0;大单:qj3*qj5,LINETHICK,PRECISION0;
中单:qj1*qj5,LINETHICK,PRECISION0;小单:qj2*qj5,LINETHICK,PRECISION0;
w1:=SUM(大单,N)+SUM(特大,N);w2:=SUM(小单,n)+SUM(中单,n);
量振1:=特大>大单 and 大单>小单;
量振2:=特大<小单 and 大单<小单;
标振1:=qj6 and qj7;
标振2:=qj8 and qj9;
a:=w1-w2;a0:=IF(a>0,a,0);b0:=IF(a<0,a,0);
STICKLINE(a0,0,a0,8,0),Color000044;
STICKLINE(a0,0,a0,5,0),Color000088;
STICKLINE(a0,0,a0,3,0),Color0000aa;
STICKLINE(a0,0,a0,1,0),Color0000cc;
STICKLINE(b0,0,-b0,8,0),Color004400;
STICKLINE(b0,0,-b0,5,0),Color008800;
STICKLINE(b0,0,-b0,3,0),Color00aa00;
STICKLINE(b0,0,-b0,1,0),Color00cc00;
周趋势:ma(a,5),ColorFFFFFF,PRECISION0;
平滑值:wma(周趋势,5),Color00FFFF,PRECISION0;
VERTLINE(量振1 and 标振1 and 周趋势>平滑值),COLORff00ff;
VERTLINE(量振2 and 标振2 and 周趋势<平滑值),COLOR00ff00;
DRAWTEXTEX(CLOSE,1,0,22,STKLABEL+' '+STKNAME+''),colorDDFF;
BB:=BARPOS=SYSPARAM(1);
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,460,22,STR1),colorDDFF;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD1:=2*(DIFF-DEA);
日转红:=MACD1>=0 AND REF(MACD1,1)<0;
CS1:=100;
CS2:=HHV(ABS(MACD1),CS1);
CS3:=ABS(100/CS2);
MACD:(MACD1*CS3+100)/2,LINETHICK3,color00FF00;
CS:=MACD;
日红:=CS>=REF(CS,1);
日转红:=日红 AND REF(日红,1)=0;
PARTLINE(日红,CS),LINETHICK3,colorred;
AA:=0;
V1:=LLV(LOW,10);
V2:=HHV(HIGH,25);
价位线:=EMA((CLOSE-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(价位线,0.3),AA,'买'),color0000FF;
DRAWTEXT(CROSS(3.7,价位线),AA,'卖'),colorFF00;
VERTLINE(CROSS(价位线,0.3)),color0000FF,LINEDASHDOT;
VERTLINE(CROSS(3.7,价位线)),colorFF00,LINEDASHDOT;{来源:www.cxh99.com 程序化交易}

 

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

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容