飞狐赌鬼决策系统主图公式代码源码

作者：飞狐交易师来源：cxh99.com 发布时间：2021年11月04日

相关标签:

原理解析：

当满足条件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　程序化交易}

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