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

飞狐赌鬼决策系统主图公式公式、代码源码[其他软件公式]

相关标签:

原理解析:

当满足条件SYSPARAM(2)=BARPOS时,在收盘价位置书写文字,ALIGN3,COLORCCFFCC
VAR0赋值:如果日期<=1901120,返回1,否则返回0
输出上市日期年:收盘价的有效数据周期数-1日前的年份,线宽为0,COLORFF
输出月:收盘价的有效数据周期数-1日前的月份,线宽为0,COLORFF00FF
输出日:收盘价的有效数据周期数-1日前的日,线宽为0,COLORFFFF
当满足条件SYSPARAM(2)=BARPOS时,在收盘价位置书写文字,ALIGN4,COLORFF
当满足条件BARPOS=SYSPARAM(2)时,在最高价位置书写文字,ALIGN4,COLOR222222
板幅度赋值:如果STRFIND(品种名称,'S',1)>0,返回0.0489,否则返回0.0965
板赋值:(收盘价-1日前的收盘价)/1日前的收盘价>板幅度 AND 最高价=收盘价
VARVA赋值:板
当满足条件板时,在最高价位置书写文字,ALIGN0,PXUP25,COLORFF00
VARS赋值:SYSPARAM(1)
VARSS赋值:SYSPARAM(3)
VARDATE赋值:日期
光标年赋值:STRRIGHT(NUMTOSTR(VARDATE[VARS]/10000,0),2)+'年'
光标月赋值:STRLEFT(STRRIGHT(NUMTOSTR(VARDATE[VARS],0),4),2)+'月'
光标日赋值:STRRIGHT(NUMTOSTR(VARDATE[VARS],0),2)+'日'
A赋值:VARSS-VARS
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN4,PXDN4,COLORFFFFFF
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN5,PXDN15,COLORFF
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN4,PXDN95,COLORFF99CC
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN4,PXDN35,COLORFFFF
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN4,PXDN65,COLORFF99CC
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN4,PXDN125,COLORFF99CC
当满足条件ISLASTBARANDA不等于0时,在(如果收盘价<100,返回成交额(元),否则返回收盘价的A+1日累和)/(如果收盘价<100,返回成交量(手)*100,否则返回1的A+1日累和)和(如果收盘价<100,返回成交额(元),否则返回收盘价的A+1日累和)/(如果收盘价<100,返回成交量(手)*100,否则返回1的A+1日累和)位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLORFFFF
当满足条件若是否最后一个周期则将最近35和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN5,PXDN15,COLORFFCC33
当满足条件若是否最后一个周期则将最近3和A的较大值周期置为1上穿1时,在最低价位置书写文字,ALIGN3,COLORFFCC33
当满足条件SYSPARAM(2)=BARPOS时,在最高价位置书写文字,ALIGN5,COLORFFFFFF
输出EXPLAINEX(收盘价,'本中:',(最低价+最高价)/2,2,1),COLORFFFF
输出EXPLAINEX(收盘价,'+1%:',(最高价+最低价)/2*1.01,2,1)
输出EXPLAINEX(收盘价,'+2%:',(最高价+最低价)/2*1.02,2,1)
输出EXPLAINEX(收盘价,'+3%:',(最高价+最低价)/2*1.03,2,1)
输出EXPLAINEX(收盘价,'+5%:',(最高价+最低价)/2*1.05,2,1)
输出EXPLAINEX(收盘价,'+10%:',(最高价+最低价)/2*1.1,2,1),COLORFF
输出EXPLAINEX(收盘价,'-1%:',(最高价+最低价)/2*0.99,2,1)
输出EXPLAINEX(收盘价,'-2%:',(最高价+最低价)/2*0.98,2,1)
输出EXPLAINEX(收盘价,'-3%:',(最高价+最低价)/2*0.97,2,1)
输出EXPLAINEX(收盘价,'-5%:',(最高价+最低价)/2*0.95,2,1)
输出EXPLAINEX(收盘价,'-10%:',(最高价+最低价)/2*0.9,2,1),COLORFF0000
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2位置书写数字,SHIFT1,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*1.05位置书写文字,SHIFT2,COLORFF00FF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*0.95位置书写文字,SHIFT2,PXUP10,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2和(最高价+最低价)/2位置之间画柱状线,宽度为10,0不为0则画空心柱.,线宽为2,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*1.01和(最高价+最低价)/2*1.01位置之间画柱状线,宽度为2,0不为0则画空心柱.,SHIFT1,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*1.02和(最高价+最低价)/2*1.02位置之间画柱状线,宽度为2,0不为0则画空心柱.,SHIFT1,线宽为1,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*1.03和(最高价+最低价)/2*1.03位置之间画柱状线,宽度为5,0不为0则画空心柱.,SHIFT1,COLORFFFF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*1.05和(最高价+最低价)/2*1.05位置之间画柱状线,宽度为17,0不为0则画空心柱.,SHIFT1,COLORFF00FF
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*0.99和(最高价+最低价)/2*0.99位置之间画柱状线,宽度为2,0不为0则画空心柱.,SHIFT1,COLORAFB49C
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*0.98和(最高价+最低价)/2*0.98位置之间画柱状线,宽度为2,0不为0则画空心柱.,SHIFT1,线宽为1,COLORAFB49C
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*0.97和(最高价+最低价)/2*0.97位置之间画柱状线,宽度为5,0不为0则画空心柱.,SHIFT1,COLORAFB49C
当满足条件收盘价的有效数据周期数=SYSPARAM(1)时,在(最高价+最低价)/2*0.95和(最高价+最低价)/2*0.95位置之间画柱状线,宽度为17,0不为0则画空心柱.,SHIFT1,COLORFFFF
DRAWBKBMP(收盘价>=开盘价 OR 收阴线,'999')
VAR1赋值:(开盘价+最低价+最高价+收盘价)/4
当满足条件收盘价的3日指数移动平均上穿收盘价的10日简单移动平均时,在最低价位置画4号图标
DP赋值:如果收盘价=大盘的收盘价,返回0,否则返回1
GJ赋值:成交额(元)/成交量(手)/100
 

源码:

 

DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'收益:'+NUMTOSTR(FINANCE(33),2)+'\n'+'净资:'+NUMTOSTR(FINANCE(34),2)+'\n'+'流通:'+NUMTOSTR(FINANCE(7)/10000,2)+'亿'+'\n'+'流通:'+NUMTOSTR(FINANCE(7)/FINANCE(1)*100,0)+' %'+'\n'+'权益:'+NUMTOSTR(FINANCE(36),0)+' %'+'\n'+'主营:'+NUMTOSTR(FINANCE(53),0)+' %'+'\n'+'利润:'+NUMTOSTR(FINANCE(54),0)+' %'+'\n'+'主营:'+NUMTOSTR(FINANCE(20)/10000,1)+'亿'+'\n'),ALIGN3,colorCCFFCC;
VAR0:=IF(DATE<=1901120,1,0);
上市日期年:REF(YEAR,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFF;
月:REF(MONTH,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFF00FF;
日:REF(DAY,BARSCOUNT(CLOSE)-1),LINETHICK0,colorFFFF;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'证券代码:'+STKLABEL),ALIGN4,colorFF;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,' 所属板块:'+BLKNAME+' 发行价'+NUMTOSTR(FINANCE(51),2)+'元'+' 发行量'+NUMTOSTR(FINANCE(52),2)+'万股'+'\n'+'总股本'+NUMTOSTR(FINANCE(1),0)+'万股'+' 流通A股'+NUMTOSTR(FINANCE(7),0)+'万股'+' 净资产'+NUMTOSTR(FINANCE(35),2)+'亿元'+' 每股收益'+NUMTOSTR(FINANCE(33),2)+'元'+' 每股未分配'+NUMTOSTR(FINANCE(32),2)+'元'+' 市盈率'+NUMTOSTR(DYNAINFO(39),2)+'%'+' 投资收益'+NUMTOSTR(FINANCE(24),2)+'元'+' 股东总数'+NUMTOSTR(FINANCE(50),0)+'户'),ALIGN4,color222222;
板幅度:=IF(STRFIND(STKNAME,'S',1)>0,0.0489,0.0965);
板:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>板幅度 AND HIGH=CLOSE;
VARVA:=板;
DRAWTEXT(板,HIGH,'板'),ALIGN0,PXUP25,colorFF00;
VARS:=SYSPARAM(1);
VARSS:=SYSPARAM(3);
VARDATE:=DATE;
光标年:=STRRIGHT(NUMTOSTR(VARDATE[VARS]/10000,0),2)+'年';
光标月:=STRLEFT(STRRIGHT(NUMTOSTR(VARDATE[VARS],0),4),2)+'月';
光标日:=STRRIGHT(NUMTOSTR(VARDATE[VARS],0),2)+'日';
A:=VARSS-VARS;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,光标年+光标月+光标日+'至今'),ALIGN4,PXDN4,colorFFFFFF;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,'────────'),ALIGN5,PXDN15,colorFF;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,' 换手:'+NUMTOSTR(SUM(VOL,A+1)/(FINANCE(7)),2)+' %'),ALIGN4,PXDN95,colorFF99CC;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,' 成本:'+NUMTOSTR((SUM(IF(CLOSE<100,AMOUNT,CLOSE),A+1))/(SUM(IF(CLOSE<100,VOL*100,1),A+1)),2)+' 元'),ALIGN4,PXDN35,colorFFFF;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,' 涨幅:'+NUMTOSTR((CLOSE-REF(CLOSE,A+1))*100/REF(CLOSE,A+1),2)+' %'),ALIGN4,PXDN65,colorFF99CC;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,' 涨停:'+NUMTOSTR(COUNT(VARVA,A+1),0)+' 次'),ALIGN4,PXDN125,colorFF99CC;
STICKLINE(ISLASTBAR AND A<>0,(SUM(IF(CLOSE<100,AMOUNT,CLOSE),A+1))/(SUM(IF(CLOSE<100,VOL*100,1),A+1)),(SUM(IF(CLOSE<100,AMOUNT,CLOSE),A+1))/(SUM(IF(CLOSE<100,VOL*100,1),A+1)),8,0),colorFFFF;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(35,A)),1),LOW,'http://yzcdj.51.com'),ALIGN5,PXDN15,colorFFCC33;
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,MAX(3,A)),1),LOW,'因为专业 所以成功QQ:87041989'),ALIGN3,colorFFCC33;
DRAWTEXT(SYSPARAM(2)=BARPOS,HIGH,'操作:以今日中价作为介入点(熊市不追高),涨跌5%作为止盈止损点,在次日K线位画线作为提示,可以调整。 '),ALIGN5,colorFFFFFF;
EXPLAINEX(CLOSE,'本中:',(LOW+HIGH)/2,2,1),colorFFFF;
EXPLAINEX(CLOSE,'+1%:',(HIGH+LOW)/2*1.01,2,1);
EXPLAINEX(CLOSE,'+2%:',(HIGH+LOW)/2*1.02,2,1);
EXPLAINEX(CLOSE,'+3%:',(HIGH+LOW)/2*1.03,2,1);
EXPLAINEX(CLOSE,'+5%:',(HIGH+LOW)/2*1.05,2,1);
EXPLAINEX(CLOSE,'+10%:',(HIGH+LOW)/2*1.1,2,1),colorFF;
EXPLAINEX(CLOSE,'-1%:',(HIGH+LOW)/2*0.99,2,1);
EXPLAINEX(CLOSE,'-2%:',(HIGH+LOW)/2*0.98,2,1);
EXPLAINEX(CLOSE,'-3%:',(HIGH+LOW)/2*0.97,2,1);
EXPLAINEX(CLOSE,'-5%:',(HIGH+LOW)/2*0.95,2,1);
EXPLAINEX(CLOSE,'-10%:',(HIGH+LOW)/2*0.9,2,1),colorFF0000;
DRAWNUMBER(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2,(HIGH+LOW)/2,2),SHIFT1,colorFFFF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.05,'少贪为妙5%'),SHIFT2,colorFF00FF;
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.95,'愿赌服输5%'),SHIFT2,PXUP10,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2,(HIGH+LOW)/2,10,0),LINETHICK2,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.01,(HIGH+LOW)/2*1.01,2,0),SHIFT1,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.02,(HIGH+LOW)/2*1.02,2,0),SHIFT1,LINETHICK1,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.03,(HIGH+LOW)/2*1.03,5,0),SHIFT1,colorFFFF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*1.05,(HIGH+LOW)/2*1.05,17,0),SHIFT1,colorFF00FF;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.99,(HIGH+LOW)/2*0.99,2,0),SHIFT1,colorAFB49C;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.98,(HIGH+LOW)/2*0.98,2,0),SHIFT1,LINETHICK1,colorAFB49C;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.97,(HIGH+LOW)/2*0.97,5,0),SHIFT1,colorAFB49C;
STICKLINE(BARSCOUNT(CLOSE)=SYSPARAM(1),(HIGH+LOW)/2*0.95,(HIGH+LOW)/2*0.95,17,0),SHIFT1,colorFFFF;
DRAWBKBMP(CLOSE>=OPEN OR CLOSE<OPEN,'999');
VAR1:=(OPEN+LOW+HIGH+CLOSE)/4;
DRAWICON(CROSS(EMA(CLOSE,3),MA(CLOSE,10)),LOW,4);
DP:=IF(CLOSE=INDEXC,0,1);
GJ:=AMOUNT/VOL/100;{来源:www.cxh99.com 程序化交易}

 

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

 

 

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

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

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

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

 


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

相关文章

    没有相关内容