原創高防版千鈞贏富精品公式[其他軟件公式]
相關標簽:買入穩贏指標公式 、 通達信超贏指標公式 、 贏在龍頭指標公式 、 股圣贏富王軟件指標 、 通達信富贏版下載 、 止贏止損線指標公式 、 贏富數據 、 贏富網 、 操盤軟件富贏版 、 操盤手富贏版v7 、 操盤手富贏版v8 、 文華贏順指標公式 、
?
千鈞贏富 山寨版
?
原理解析：
輸出流通:流通股本(股)/10000,線寬為0,PRECISION2,COLOR00BFFF
輸出換手:成交量(手)/流通股本(股),PRECISION2,線寬為0
QJ1賦值:EXTDATA(9)
QJ2賦值:EXTDATA(10)
QJ3賦值:EXTDATA(11)
QJ4賦值:EXTDATA(12)
QJ5賦值:EXTDATA(13)
ZL賦值:QJ1+QJ2+QJ3
SH賦值:QJ4+QJ5
昨日賦值:1日前的QJ1+QJ2+QJ3
總賦值:QJ1的絕對值+QJ2的絕對值+QJ3的絕對值+QJ4的絕對值+QJ5的絕對值
日增賦值:ZL
周倉賦值:日增的5日累和
月倉賦值:日增的22日累和
年倉賦值:日增的240日累和
上周賦值:1日前的周倉
上月賦值:1日前的月倉
上年賦值:1日前的年倉
周增賦值:周倉-上周
月增賦值:月倉-上月
年增賦值:年倉-上年
當滿足條件SH>0時,在0和SH位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORAA00AA
當滿足條件SH>0時,在0和SH位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORCC00CC
當滿足條件SH>0時,在0和SH位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOREE00EE
輸出散戶買:當滿足條件SH>0時,在0和SH位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF00FF
當滿足條件SH<0時,在0和-SH位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLORFF4400
當滿足條件SH<0時,在0和-SH位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF8800
當滿足條件SH<0時,在0和-SH位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFAA00
輸出散戶賣:當滿足條件SH<0時,在0和-SH位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFCC00
當滿足條件ZL>0時,在0和ZL位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000044
當滿足條件ZL>0時,在0和ZL位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR000088
當滿足條件ZL>0時,在0和ZL位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0000AA
輸出主力買:當滿足條件ZL>0時,在0和ZL位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000FF
當滿足條件ZL<0時,在0和-ZL位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR004400
當滿足條件ZL<0時,在0和-ZL位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR008800
當滿足條件ZL<0時,在0和-ZL位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00AA00
輸出主力賣:當滿足條件ZL<0時,在0和-ZL位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00FF00
CM賦值:ZL的5日累和
ZJ賦值:昨日的5日累和
ZSA賦值:CM/如果當前流通股本(手)=0,返回ESTDATA(12),否則返回流通股本(股)
ZSB賦值:(CM-ZJ)/如果當前流通股本(手)=0,返回ESTDATA(12),否則返回流通股本(股)
DIFF賦值:收盤價的5日簡單移動平均-收盤價的55日指數移動平均
DEA賦值:DIFF的14日簡單移動平均
JG賦值:((收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值))*100
YH賦值:DIFF上穿DEA AND JG<20
BH賦值:DEA上穿DIFF AND JG>60
SW賦值:YH=1
SS賦值:BH=1
VERTLINE(SW),COLOR0000FF,LINEDOT
VERTLINE(SS),COLOR00FF00,LINEDOT
A賦值:上次SW距今天數
B賦值:上次SS距今天數
起點賦值:如果A>1ANDA<=B,返回A,否則返回0
終點賦值:如果B>1ANDB<=A,返回B,否則返回0
主力成本賦值:收盤價*ZL*100的5日累和/ZL的5日累和/100
N1賦值:SYSPARAM(3)
NN賦值:N1-SYSPARAM(2)+1
HH賦值:NN日內總的最高值
LL賦值:NN日內總的最低值
最高賦值:HH[N1]
最低賦值:LL[N1]
中賦值:最低+(最高-最低)*0.5
當滿足條件BARPOS=SYSPARAM(3)時,在0和中位置之間畫柱狀線,寬度為200,0不為0則畫空心柱.,SHIFT10,COLOR000000
當滿足條件BARPOS=SYSPARAM(3)時,在0和中*2.1位置之間畫柱狀線,寬度為200,0不為0則畫空心柱.,SHIFT10,COLOR000000
輸出VARIABLE:WDAY[7]='星期六'
賦值:'星期日'
賦值:'星期一'
賦值:'星期二'
賦值:'星期三'
賦值:'星期四'
賦值:'星期五'
FY賦值:年份
FM賦值:月份
FD賦值:日期
WD賦值:星期
P賦值:系統參數(1)
STR1賦值:''+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+數字轉化為字符串(FD[P],0)+'日 '+WDAY[WD[P]+1]
DRAWTEXTEX(收盤價,1,230,0,STR1),COLORFFFF00
當滿足條件BARPOS=SYSPARAM(1)-2ANDQJ1>0時,在中和(中+QJ1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF
當滿足條件BARPOS=SYSPARAM(1)-2ANDQJ1<0時,在中和中+(QJ1*-1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF6600
當滿足條件BARPOS=SYSPARAM(1)-6ANDQJ2>0時,在中和(中+QJ2)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF
當滿足條件BARPOS=SYSPARAM(1)-6ANDQJ2<0時,在中和中+(QJ2*-1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF6600
當滿足條件BARPOS=SYSPARAM(1)-10ANDQJ3>0時,在中和(中+QJ3)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF
當滿足條件BARPOS=SYSPARAM(1)-10ANDQJ3<0時,在中和中+(QJ3*-1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF6600
當滿足條件BARPOS=SYSPARAM(1)-14ANDQJ4>0時,在中和中+(QJ4)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF
當滿足條件BARPOS=SYSPARAM(1)-14ANDQJ4<0時,在中和中+(QJ4*-1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF6600
當滿足條件BARPOS=SYSPARAM(1)-18ANDQJ5>0時,在中和中+(QJ5)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF
當滿足條件BARPOS=SYSPARAM(1)-18ANDQJ5<0時,在中和中+(QJ5*-1)位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF0000
當滿足條件BARPOS=SYSPARAM(1)-1時,在中位置書寫文字,PXDN12,畫白色
當滿足條件BARPOS=SYSPARAM(1)-5時,在中位置書寫文字,PXDN12,畫白色
當滿足條件BARPOS=SYSPARAM(1)-9時,在中位置書寫文字,PXDN12,畫白色
當滿足條件BARPOS=SYSPARAM(1)-13時,在中位置書寫文字,PXDN12,畫白色
當滿足條件BARPOS=SYSPARAM(1)-17時,在中位置書寫文字,PXDN12,畫白色
DRAWTEXTEX(收盤價,1,25,0,STKLABEL+' '+品種名稱+''),COLORFFFF00
輸出DRAWTEXTEX(收盤價,1,500,130,'估算籌碼:'+NUMTOSTR(ZSA[P],2)+'%'),COLOR00FF00
輸出DRAWTEXTEX(收盤價,1,230,130,'籌碼增減:'+NUMTOSTR(ZSB[P],2)+'%'),COLOR00FF00
輸出DRAWTEXTEX(收盤價,1,740,0,'主力開始進入:'+NUMTOSTR(起點[P],0)+'(天) '),COLORFFFF00
輸出DRAWTEXTEX(收盤價,1,500,0,'主力進入回吐:'+NUMTOSTR(終點[P],0)+'(天) '),COLORFFFF00
輸出DRAWTEXTEX(收盤價,1,740,130,'主力成本:'+NUMTOSTR(主力成本[SYSPARAM(1)],2)+'元'),COLOR00FF00
DRAWTEXTEX(SH>ZL AND SH>0,1,40,130,'本日散戶主買'),COLOREEEEEE
DRAWTEXTEX(ZL>SH AND ZL>0,1,40,130,'本日主力主買'),COLOR00FFFF
DRAWTEXTEX(SH<ZL AND SH<0,1,40,260,'本日散戶主賣'),COLORFFEE00
DRAWTEXTEX(ZL<SH AND ZL<0,1,40,260,'本日主力主賣'),COLOR00FF00
輸出//機構線:ZL的5日簡單移動平均
輸出散戶線:機構線的5日指數移動平均
日均賦值:成交額(元)/成交量(手)/100
周均賦值:上次星期>1日前的星期距今天數日前的日均
月均賦值:上次月份>1日前的月份距今天數日前的日均
年均賦值:上次年份>1日前的年份距今天數日前的日均
EXPLAIN(1,''''''''''''''''''='),畫白色
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+數字轉化為字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,230,0,str1),ColorffFF00;
{STICKLINE(BARPOS=SYSPARAM(1),中*2.1,中*2.1,200,0),COLOREE00EE,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中,中,200,0),COLOR660066,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中*0.0001,中*0.0001,200,0),COLOREE00EE,SHIFT10;}
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj1>0,中,(中+qj1),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj1<0,中,中+(qj1*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj2>0,中,(中+qj2),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj2<0,中,中+(qj2*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3>0,中,(中+qj3),30,0),COLOR0000ff;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3<0,中,中+(qj3*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj4>0,中,中+(qj4),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj4<0,中,中+(qj4*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-18 and qj5>0,中,中+(qj5),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-18 and qj5<0,中,中+(qj5*-1),30,0),COLORFF0000;
DRAWTEXT(BARPOS=SYSPARAM(1)-1,中,'機\n構\n'+NUMTOSTR(qj1[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-5,中,'券\n商\n'+NUMTOSTR(qj2[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-9,中,'大\n戶\n'+NUMTOSTR(qj3[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-13,中,'中\n戶\n'+NUMTOSTR(qj4[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-17,中,'散\n戶\n'+NUMTOSTR(qj5[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXTEX(c,1,25,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXTEX(c,1,500,130,'估算籌碼:'+NUMTOSTR(ZSA[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,230,130,'籌碼增減:'+NUMTOSTR(ZSB[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,740,0,'主力開始進入:'+NUMTOSTR(起點[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,500,0,'主力進入回吐:'+NUMTOSTR(終點[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,740,130,'主力成本:'+NUMTOSTR(主力成本[SYSPARAM(1)],2)+'元'),COLOR00FF00;
DRAWTEXTEX(SH>ZL and SH>0,1,40,130,'本日散戶主買'),COLOREEEEEE;
DRAWTEXTEX(ZL>SH and ZL>0,1,40,130,'本日主力主買'),COLOR00FFFF;
DRAWTEXTEX(SH<ZL and SH<0,1,40,260,'本日散戶主賣'),COLORFFEE00;
DRAWTEXTEX(ZL<SH and ZL<0,1,40,260,'本日主力主賣'),COLOR00FF00;
//機構線:ma(ZL,5);散戶線:ema(機構線,5);
{增減倉}
日均:=AMOUNT/vol/100;周均:=ref(日均,BARSLAST(WEEKDAY>ref(WEEKDAY,1)));
月均:=ref(日均,BARSLAST(MONTH>ref(MONTH,1)));
年均:=ref(日均,BARSLAST(YEAR>ref(YEAR,1)));
{解盤}
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'本日主力凈買:'+NUMTOSTR((ZL*100)/10000,2)+' 萬股'),COLOrffff00;
EXPLAIN(1,'昨日主力增減:'+NUMTOSTR(昨日*100*日均/10000,2)+' 萬元'),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上周:'+NUMTOSTR(上周*100/10000,2)+' 萬股'),COLORred;
EXPLAIN(1,'增減:'+NUMTOSTR(周增*100*周均/10000,2)+' 萬元'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上月:'+NUMTOSTR(上月*100/10000,2)+' 萬股'),COLORFF00FF;
EXPLAIN(1,'增減:'+NUMTOSTR(月增*100*月均/10000,2)+' 萬元'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上年:'+NUMTOSTR(上年*100/10000,2)+' 萬股'),COLOR00EE00;
EXPLAIN(1,'增減:'+NUMTOSTR(年增*100*年均/10000,2)+' 萬元'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;
{程序化交易 www.tumamayizhan.com }
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+數字轉化為字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,230,0,str1),ColorffFF00;
{STICKLINE(BARPOS=SYSPARAM(1),中*2.1,中*2.1,200,0),COLOREE00EE,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中,中,200,0),COLOR660066,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中*0.0001,中*0.0001,200,0),COLOREE00EE,SHIFT10;}
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj1>0,中,(中+qj1),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj1<0,中,中+(qj1*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj2>0,中,(中+qj2),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj2<0,中,中+(qj2*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3>0,中,(中+qj3),30,0),COLOR0000ff;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3<0,中,中+(qj3*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj4>0,中,中+(qj4),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj4<0,中,中+(qj4*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-18 and qj5>0,中,中+(qj5),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-18 and qj5<0,中,中+(qj5*-1),30,0),COLORFF0000;
DRAWTEXT(BARPOS=SYSPARAM(1)-1,中,'機\n構\n'+NUMTOSTR(qj1[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-5,中,'券\n商\n'+NUMTOSTR(qj2[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-9,中,'大\n戶\n'+NUMTOSTR(qj3[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-13,中,'中\n戶\n'+NUMTOSTR(qj4[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-17,中,'散\n戶\n'+NUMTOSTR(qj5[SYSPARAM(1)]/v,1)),PXDN12,COLORWHITE;
DRAWTEXTEX(c,1,25,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXTEX(c,1,500,130,'估算籌碼:'+NUMTOSTR(ZSA[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,230,130,'籌碼增減:'+NUMTOSTR(ZSB[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,740,0,'主力開始進入:'+NUMTOSTR(起點[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,500,0,'主力進入回吐:'+NUMTOSTR(終點[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,740,130,'主力成本:'+NUMTOSTR(主力成本[SYSPARAM(1)],2)+'元'),COLOR00FF00;
DRAWTEXTEX(SH>ZL and SH>0,1,40,130,'本日散戶主買'),COLOREEEEEE;
DRAWTEXTEX(ZL>SH and ZL>0,1,40,130,'本日主力主買'),COLOR00FFFF;
DRAWTEXTEX(SH<ZL and SH<0,1,40,260,'本日散戶主賣'),COLORFFEE00;
DRAWTEXTEX(ZL<SH and ZL<0,1,40,260,'本日主力主賣'),COLOR00FF00;
//機構線:ma(ZL,5);散戶線:ema(機構線,5);
{增減倉}
日均:=AMOUNT/vol/100;周均:=ref(日均,BARSLAST(WEEKDAY>ref(WEEKDAY,1)));
月均:=ref(日均,BARSLAST(MONTH>ref(MONTH,1)));
年均:=ref(日均,BARSLAST(YEAR>ref(YEAR,1)));
{解盤}
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'本日主力凈買:'+NUMTOSTR((ZL*100)/10000,2)+' 萬股'),COLOrffff00;
EXPLAIN(1,'昨日主力增減:'+NUMTOSTR(昨日*100*日均/10000,2)+' 萬元'),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上周:'+NUMTOSTR(上周*100/10000,2)+' 萬股'),COLORred;
EXPLAIN(1,'增減:'+NUMTOSTR(周增*100*周均/10000,2)+' 萬元'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上月:'+NUMTOSTR(上月*100/10000,2)+' 萬股'),COLORFF00FF;
EXPLAIN(1,'增減:'+NUMTOSTR(月增*100*月均/10000,2)+' 萬元'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;EXPLAIN(1,'上年:'+NUMTOSTR(上年*100/10000,2)+' 萬股'),COLOR00EE00;
EXPLAIN(1,'增減:'+NUMTOSTR(年增*100*年均/10000,2)+' 萬元'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;
{程序化交易 www.tumamayizhan.com }
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容