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

自用赢富指标公式源码[其他软件公式]

作者：飞狐 来源：cxh99.com 发布时间：2021年03月30日 点击数： 　【收藏到本网的会员中心】

相关标签:

 

 

原理解析：

填充背景
输出INPUT:X(2009,1990,2020),M(0.7,0.3,0.9),N(3.3,3.1,3.6)
VAR1赋值:成交量(手)/((最高价-最低价)*2-收盘价-开盘价的绝对值)
输出成交:成交量(手),POINTDOT,COLORE4C1EE
输出主买:如果收阳线,返回VAR1*(最高价-最低价),否则返回如果收阴线,返回VAR1*((最高价-开盘价)+(收盘价-最低价)),否则返回成交量(手)/2,画红色,POINTDOT
输出主卖:如果收阳线,返回VAR1*((最高价-收盘价)+(开盘价-最低价)),否则返回如果收阴线,返回VAR1*(最高价-最低价),否则返回成交量(手)/2,COLOR00FF00,POINTDOT
当满足条件成交量(手)>0时,在成交量(手)和0位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLORE4C1EE
当满足条件主买>0时,在0和主买位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR1B07E2
当满足条件主卖>0时,在0和主卖位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR00D11F
VOLUME赋值:成交量(手)
VAR2赋值:VOLUME的5日简单移动平均
VAR3赋值:VOLUME的10日简单移动平均
VAR4赋值:VOLUME的20日简单移动平均
VAR5赋值:VOLUME的60日简单移动平均
前量比赋值:成交量(手)/1日前的成交量(手)
五量比赋值:成交量(手)/VAR2
六量比赋值:成交量(手)/VAR5
PARTLINE(成交量(手)的5日简单移动平均>=1日前的成交量(手)的5日简单移动平均,成交量(手)的5日简单移动平均),画红色,线宽为3
PARTLINE(成交量(手)的5日简单移动平均<=1日前的成交量(手)的5日简单移动平均,成交量(手)的5日简单移动平均),COLOR00C700,线宽为3
输出换手率:如果当前流通股本(手)=0,返回大盘的成交量/ESTDATA(12),否则返回成交量(手)/流通股本(股),PRECISION2,线宽为0
输出VARIABLE:WDAY[7]='星期六'
赋值:'星期日'
赋值:'星期一'
赋值:'星期二'
赋值:'星期三'
赋值:'星期四'
赋值:'星期五'
FY赋值:年份
FM赋值:月份
FD赋值:日
WD赋值:星期
P赋值:SYSPARAM(1)
BB赋值:BARPOS
STR1赋值:''+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1]
SJ赋值:OPENMINUTES(CURRENTTIME)>1 AND OPENMINUTES(CURRENTTIME)<239
LJ0赋值:成交量(手)/如果最高价=最低价,返回4,否则返回最高价-最低价
JJ赋值:(最高价+最低价+收盘价)/3
输出特大:如果当前流通股本(手)=0,返回LJ0*(JJ-收盘价和开盘价的较小值),否则返回LJ0*如果最高价=最低价,返回1,否则返回(开盘价和收盘价的较小值-最低价),PRECISION0,COLOR0000FF,线宽为0
输出大户:如果当前流通股本(手)=0,返回LJ0*(开盘价和收盘价的较小值-最低价),否则返回LJ0*如果最高价=最低价,返回1,否则返回(JJ-收盘价和开盘价的较小值),PRECISION0,COLORFF00FF,线宽为0
输出中户:如果当前流通股本(手)=0,返回LJ0*(最高价-开盘价和收盘价的较大值),否则返回LJ0*如果最高价=最低价,返回1,否则返回(最高价-开盘价和收盘价的较大值),PRECISION0,COLOR00FF00,线宽为0
输出散户:如果当前流通股本(手)=0,返回LJ0*(收盘价和开盘价的较大值-JJ),否则返回LJ0*如果最高价=最低价,返回1,否则返回(收盘价和开盘价的较大值-JJ),PRECISION0,COLORFF6600,线宽为0
总1赋值:(特大+大户)-(中户+散户)
总赋值:成交量(手)
WW赋值:SYSPARAM(2)
N1赋值:SYSPARAM(3)
NN赋值:N1-WW+1
HH赋值:NN日内总的最高值
LL赋值:NN日内总的最低值
ZG赋值:HH[N1]
ZD赋值:LL[N1]
中0赋值:ZD+(ZG-ZD)*0.5
中赋值:中0*0.05
CM赋值:总1的25日累和
ZJ赋值:1日前的总1
ZSB赋值:(总1-1日前的总1)/总*100
ZSA赋值:CM/如果STKTYPE=0,返回成交量(手)的25日累和,否则返回如果STKTYPE=13,返回成交量(手)的10日累和,否则返回当前流通股本(手)
CC赋值:上次FM>1日前的FM距今天数日前的收盘价
主力成本赋值:(CC*(特大+大户)*100)/(特大+大户)/100
DF1赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DA1赋值:DF1的9日指数移动平均
LJ6赋值:DF1>DA1 AND DA1<0
LJ7赋值:"KDJ的K">"KDJ的D" AND "KDJ的D"<30
LJ8赋值:DF1<DA1
LJ9赋值:"KDJ的K"<"KDJ的D" AND "KDJ的K">80
W1赋值:大户的5日累和+特大的5日累和
W2赋值:散户的5日累和+中户的5日累和
量振1赋值:特大>大户 AND 大户>散户
量振2赋值:特大<散户 AND 大户<散户
标振1赋值:LJ6 AND LJ7
标振2赋值:LJ8 AND LJ9
A赋值:W1-W2
A0赋值:如果A>0,返回A,否则返回0
B0赋值:如果A<0,返回A,否则返回0
当满足条件BB=WW时,在中*0.2和中*9.2位置之间画柱状线,宽度为(散户[P]/总*200)*1.02,1不为0则画空心柱.,画白色,线宽为2
当满足条件BB=WW时,在中*0.8和中*8.6位置之间画柱状线,宽度为散户[P]/总*200,0不为0则画空心柱.,COLORFF8800
当满足条件BB=WW时,在中*10.2和中*19.2位置之间画柱状线,宽度为(中户[P]/总*200)*1.02,1不为0则画空心柱.,画白色,线宽为2
当满足条件BB=WW时,在中*10.8和中*18.6位置之间画柱状线,宽度为中户[P]/总*200,0不为0则画空心柱.,COLORFF00FF
当满足条件BB=WW时,在中*20.2和中*29.2位置之间画柱状线,宽度为(大户[P]/总*200)*1.02,1不为0则画空心柱.,画白色,线宽为2
当满足条件BB=WW时,在中*20.8和中*28.6位置之间画柱状线,宽度为大户[P]/总*200,0不为0则画空心柱.,COLOR0088FF
当满足条件BB=WW时,在中*30.2和中*39.2位置之间画柱状线,宽度为(特大[P]/总*200)*1.02,1不为0则画空心柱.,画白色,线宽为2
当满足条件BB=WW时,在中*30.8和中*38.6位置之间画柱状线,宽度为特大[P]/总*200,0不为0则画空心柱.,COLOR0000FF
DRAWTEXTEX(收盘价,1,420,0,STR1),COLORFFFF00
DRAWTEXTEX(收盘价,1,200,0,STKLABEL+' '+品种名称+''),COLORFFFF00
当满足条件BB=WW时,在中*36位置书写文字,COLOR00FF00
当满足条件BB=WW时,在中*26位置书写文字,COLOR00FF00
当满足条件BB=WW时,在中*16位置书写文字,COLOR00FF00
当满足条件BB=WW时,在中*6位置书写文字,COLOR00FF00
DIFF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA赋值:DIFF的9日指数移动平均
MACD1赋值:2*(DIFF-DEA)
CS1赋值:100
CS2赋值:CS1日内MACD1的绝对值的最高值
CS3赋值:100/CS2的绝对值
输出平滑异同平均:(MACD1*CS3+100)/2,线宽为5,COLOR00FF00
CS赋值:MACD
日红赋值:CS>=1日前的CS
日转红赋值:日红 AND 1日前的日红=0
PARTLINE(日红,CS),线宽为5,画红色
AA赋值:0
V1赋值:10日内最低价的最低值
V2赋值:25日内最高价的最高值
价位线赋值:(收盘价-V1)/(V2-V1)*4的4日指数移动平均
当满足条件价位线上穿M时,在AA位置书写文字,COLORFFFFFF
当满足条件N上穿价位线时,在AA位置书写文字,COLOR07F6FF
VERTLINE(价位线上穿M),COLOR0000FF,LINEDASHDOT
VERTLINE(N上穿价位线),COLORFF00,LINEDASHDOT
输出DRAWTEXTEX(收盘价,1,200,130,'主力成本:'+NUMTOSTR(主力成本[P],2)),COLOR00FF00
输出DRAWTEXTEX(收盘价,1,420,130,'主力筹码占流通:'+NUMTOSTR(如果ZSA>0,返回ZSA[P]*100,否则返回0,2)+' %'),COLOR00FF00
输出DRAWTEXTEX(收盘价,1,720,130,'较昨日增减:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00
DRAWTEXTEX(收盘价 AND 总1[P]<0,1,720,0,'散户主买主力主卖'),COLORFFEE00
DRAWTEXTEX(收盘价 AND 总1[P]>0,1,720,0,'主力主买散户主卖'),COLOR0000FF
周仓赋值:总1的5日累和
月仓赋值:总1的25日累和
年仓赋值:总1的240日累和
上周赋值:1日前的周仓
上月赋值:1日前的月仓
上年赋值:上次FY=X距今天数日前的年仓
周增赋值:周仓-上周
月增赋值:月仓-上月
年增赋值:年仓-上年
 
 
 
EXPLAIN(1,''''''''''''''''''='),画白色 fy:=YEAR;fm:=MONTH;fd:=DAY;wd:=WEEKDAY;p:=SYSPARAM(1);BB:=BARPOS;
str1:=''+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
SJ:=OPENMINUTES(CURRENTTIME)>1 and OPENMINUTES(CURRENTTIME)<239;
lj0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);jj:=(HIGH+LOW+CLOSE)/3;
特大:IF(CAPITAL=0,lj0*(jj-MIN(CLOSE,OPEN)),lj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))),PRECISION0,COLOR0000FF,LINETHICK;
大户:IF(CAPITAL=0,lj0*(MIN(OPEN,CLOSE)-LOW),lj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN)))),PRECISION0,COLORFF00FF,LINETHICK;
中户:IF(CAPITAL=0,lj0*(HIGH-MAX(OPEN,CLOSE)),lj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))),PRECISION0,COLOR00FF00,LINETHICK;
散户:IF(CAPITAL=0,lj0*(MAX(CLOSE,OPEN)-jj),lj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj))),PRECISION0,COLORFF6600,LINETHICK;
总1:=(特大+大户)-(中户+散户);总:=vol;
ww:=SYSPARAM(2);n1:=SYSPARAM(3);nn:=n1-ww+1;hh:=HHV(总,nn);ll:=LLV(总,nn);
ZG:=hh[n1];ZD:=ll[n1];中0:=ZD+(ZG-ZD)*0.5;中:=中0*0.05;CM:=SUM(总1,25);
ZJ:=REF(总1,1);ZSB:=(总1-REF(总1,1))/总*100;
ZSA:=cm/IF(STKTYPE=0,SUM(VOL,25),IF(STKTYPE=13,SUM(VOL,10),CAPITAL));
cc:=REF(CLOSE,BARSLAST(fm>REF(fm,1)));主力成本:=(cc*(特大+大户)*100)/(特大+大户)/100;
DF1:=EMA(CLOSE,12)-EMA(CLOSE,26);DA1:=EMA(DF1,9);
lj6:=df1>da1 and da1<0;lj7:="kdj.k">"kdj.d" and "kdj.d"<30;
lj8:=df1<da1;lj9:="kdj.k"<"kdj.d" and "kdj.k">80;
w1:=SUM(大户,5)+SUM(特大,5);w2:=SUM(散户,5)+SUM(中户,5);
量振1:=特大>大户 and 大户>散户;量振2:=特大<散户 and 大户<散户;
标振1:=lj6 and lj7;标振2:=lj8 and lj9;
a:=w1-w2;a0:=IF(a>0,a,0);b0:=IF(a<0,a,0);
STICKLINE(BB=ww,中*0.2,中*9.2,(散户[P]/总*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*0.8,中*8.6,散户[P]/总*200,0),COLORFF8800;
STICKLINE(BB=ww,中*10.2,中*19.2,(中户[P]/总*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*10.8,中*18.6,中户[P]/总*200,0),COLORFF00FF;
STICKLINE(BB=ww,中*20.2,中*29.2,(大户[P]/总*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*20.8,中*28.6,大户[P]/总*200,0),COLOR0088FF;
STICKLINE(BB=ww,中*30.2,中*39.2,(特大[P]/总*200)*1.02,1),COLORWHITE,LINETHICK2;
STICKLINE(BB=ww,中*30.8,中*38.6,特大[P]/总*200,0),COLOR0000FF;
DRAWTEXTEX(CLOSE,1,420,0,str1),ColorffFF00;
DRAWTEXTEX(CLOSE,1,200,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXT(BB=ww,中*36,'特大:'+NUMTOSTR(特大[P]/总*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*26,'大户:'+NUMTOSTR(大户[P]/总*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*16,'中户:'+NUMTOSTR(中户[P]/总*100,2)+' %'),COLOR00FF00;
DRAWTEXT(BB=ww,中*6,'散户:'+NUMTOSTR(散户[P]/总*100,2)+' %'),COLOR00FF00;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD1:=2*(DIFF-DEA);
CS1:=100;
CS2:=HHV(ABS(MACD1),CS1);
CS3:=ABS(100/CS2);
MACD:(MACD1*CS3+100)/2,LINETHICK5,color00FF00;
CS:=MACD;
日红:=CS>=REF(CS,1);
日转红:=日红 AND REF(日红,1)=0;
PARTLINE(日红,CS),LINETHICK5,colorred;
AA:=0;
V1:=LLV(LOW,10);
V2:=HHV(HIGH,25);
价位线:=EMA((CLOSE-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(价位线,M),AA,'买'),colorFFFFFF;
DRAWTEXT(CROSS(N,价位线),AA,'卖'),color07F6FF;
VERTLINE(CROSS(价位线,M)),color0000FF,LINEDASHDOT;
VERTLINE(CROSS(N,价位线)),colorFF00,LINEDASHDOT;
DRAWTEXTEX(CLOSE,1,200,130,'主力成本:'+NUMTOSTR(主力成本[p],2)),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,420,130,'主力筹码占流通:'+NUMTOSTR(IF(ZSA>0,ZSA[P]*100,0),2)+' %'),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,720,130,'较昨日增减:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;
DRAWTEXTEX(c and 总1[P]<0,1,720,0,'散户主买主力主卖'),COLORffee00;
DRAWTEXTEX(c and 总1[P]>0,1,720,0,'主力主买散户主卖'),COLOR0000ff;
周仓:=SUM(总1,5);月仓:=SUM(总1,25);年仓:=SUM(总1,240);上周:=REF(周仓,1);上月:=REF(月仓,1);
上年:=REF(年仓,BARSLAST(fy=X));周增:=周仓-上周;月增:=月仓-上月;年增:=年仓-上年;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'昨日增减:'+NUMTOSTR(zj[p]*100/10000,2)+' 万股'),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上周:'+NUMTOSTR(上周[p]*100/10000,2)+' 万股'),COLORred;
EXPLAIN(1,'增减:'+NUMTOSTR(周增[p]*100/10000,2)+' 万股'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上月:'+NUMTOSTR(上月[p]*100/10000,2)+' 万股'),COLORFF00FF;
EXPLAIN(1,'增减:'+NUMTOSTR(月增[p]*100/10000,2)+' 万股'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上年:'+NUMTOSTR(上年[p]*100/10000,2)+' 万股'),COLOR00EE00;
EXPLAIN(1,'增减:'+NUMTOSTR(年增[p]*100/10000,2)+' 万股'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;

 

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

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

（怎么收费，代编流程等详情请点击查阅！）

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

 


【字体：小 大】【打印文章】【查看评论】

相关文章

    没有相关内容

栏目导航

 本月热门排行

 用户常看内容