飛狐賭鬼決策系統主圖公式公式、代碼源碼

作者：飛狐交易師來源：cxh99.com 發布時間：2021年11月03日

相關標簽:

原理解析：

當滿足條件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.tumamayizhan.com　程序化交易}

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】