打印本文
關閉窗口
相關標簽:
?
大智慧正版超贏指標源碼全解密
發現有幾個是以前沒有見過的
大智慧超贏模型是在Topview數據基礎上，加入Level2大單分析而建立的，
大部分指標用了未公開的Topview函數，注意普通機構版以下用戶是無法在自己編寫的公式中使用這些函數的。
下面是大智慧超贏指標源碼：
?
?
原理解析：
?
?來源:程序化99（ www.weiqiv.net.cn ）
源碼：
?
?
{SVSH- 散戶線模型}
input:p1(7);
variable:散戶帳號數=0;
參數:=min(1-(h-c)/c,1-(c-l)/c,1-(h-l)/c);
TOP散戶:=TOPVIEW(1360)+TOPVIEW(1361);
T1:=topview(1430);
T2:=topview(1431);
T3:=topview(1432);
T4:=topview(1433);
s1:=(t1-ref(t1,1));
s7:=(t1-ref(t1,p1));
bb:=if(order(1)-order(2)>=0,pow(abs((order(1)-order(2))*參數),0.8),0-pow(abs((order(1)-order(2))*參數),0.8));;
aa:=INTPART(max(min(散戶帳號數+bb,capital/8),capital/2000));
散戶帳號數:if(TOPVIEW(1400,0,1)<>0,TOP散戶,aa),PRECIS0,linethick2;
drawmovetext(s7>0,numtostr(p1)+'日內散戶增倉占'+numtostr(s7)+'%'),colorgreen;
drawmovetext(s7<0,numtostr(p1)+'日內散戶減倉占'+numtostr(abs(s7))+'%'),colorred;
drawflagtext(s1>1,散戶帳號數,'散戶當日增倉占流通盤的'+NUMTOSTR(s1)+'%'),colorgreen;
drawflagtext(s1<-1,散戶帳號數,'散戶當日減倉占流通盤的'+NUMTOSTR(abs(s1))+'%'),colorred;
DRAWGBK((topview(1400,0,10)-ref(topview(1400,0,10),1))<>0 and STRCMP(STKLABEL,'000001')<>0 and capital<>0),COLOR484848;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))>0,'流通A股增加了'+NUMTOSTR((topview(1400,0,10)-ref(topview(1400,0,10),1))/10000)+'萬股'),coloryellow;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))<0,'流通A股減少了'+NUMTOSTR((ref(topview(1400,0,10),1)-topview(1400,0,10))/10000)+'萬股'),coloryellow;
{SVZL - 主力持倉分析}
input:p1(7);
主力持倉:topview(1436,0,200),LINETHICK2;
bb1:=主力持倉-ref(主力持倉,1);
STICKLINE(bb1<0.2 and bb1>=0,bb1+主力持倉,主力持倉,0.1,0),colorred;
STICKLINE(bb1>=0.2 and bb1<1,bb1+主力持倉,主力持倉,1,0),colorred;
STICKLINE(bb1>=1 and bb1<2,bb1+主力持倉,主力持倉,2,0),colorred;
STICKLINE(bb1>=2,bb1+主力持倉,主力持倉,3,0),colorred;
STICKLINE(bb1>-0.2 and bb1<0,主力持倉+bb1,主力持倉,0.1,0),COLORCYAN;
STICKLINE(bb1<=-0.2 and bb1>-1,主力持倉+bb1,主力持倉,1,0),COLORCYAN;
STICKLINE(bb1<=-1 and bb1>-2,主力持倉+bb1,主力持倉,2,0),COLORCYAN;
STICKLINE(bb1<=-2,主力持倉+bb1,主力持倉,3,0),COLORCYAN;
多日凈值:=主力持倉-ref(主力持倉,p1);
drawmovetext(多日凈值>0,NUMTOSTR(p1)+'日內買賣凈占比'+NUMTOSTR(多日凈值)+'%'),colorred;
drawmovetext(多日凈值<=0,NUMTOSTR(p1)+'日內買賣凈占比'+NUMTOSTR(-多日凈值)+'%'),colorgreen;
drawflagtext(bb1>0.2,主力持倉+bb1,'當日主力凈買入占流通盤的'+NUMTOSTR(intpart(bb1*100)/100)+'%'),colorred;
drawflagtext(bb1<=-0.2,主力持倉+bb1,'當日主力凈賣出占流通盤的'+NUMTOSTR(intpart(-bb1*100)/100)+'%'),colorgreen;
DRAWGBK((topview(1400,0,10)-ref(topview(1400,0,10),1))<>0 and STRCMP(STKLABEL,'000001')<>0 and capital<>0),COLOR484848;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))>0,'流通A股增加了'+NUMTOSTR((topview(1400,0,10)-ref(topview(1400,0,10),1))/10000)+'萬股'),coloryellow;
drawmovetext((topview(1400,0,10)-ref(topview(1400,0,10),1))<0,'流通A股減少了'+NUMTOSTR((ref(topview(1400,0,10),1)-topview(1400,0,10))/10000)+'萬股'),coloryellow;
drawtextabs(0,0,'超贏主力持倉'),coloryellow;
{SVZJ - 資金流向決策分析}
T1:=topview(1430);
T2:=topview(1431);
T3:=topview(1432);
T4:=topview(1433);
散戶:=(T1-REF(T1,1))*capital/10000*(c/if(TYPE=0,255.5,1));
中戶:=(T2-REF(T2,1))*capital/10000*(c/if(TYPE=0,255.5,1));
大戶:=(T3-REF(T3,1))*capital/10000*(c/if(TYPE=0,255.5,1));
超大:=(T4-REF(T4,1))*capital/10000*(c/if(TYPE=0,255.5,1));
凈額:=if(TYPE=0 and date<1090101,0,大戶+超大);
stickline(凈額>0,0,凈額,3,0),colorred;
stickline(凈額<0,0,凈額,3,0),colorgreen;
stickline(凈額=0,0,凈額,3,0),colorwhite;
drawmovetext(1,'活躍資金進出'+numtostr(凈額)+'萬元');
drawtextabs(0,0,'超贏資金流'),coloryellow;
{SVSS - 超贏實時監控}
T1:=topview(1430);
T2:=topview(1431);
T3:=topview(1432);
T4:=topview(1433);
散戶:(T1-REF(T1,1))*capital/10000*c,PRECIS1,colorstick;
中戶:(T2-REF(T2,1))*capital/10000*c,PRECIS1,colorstick;
大戶:(T3-REF(T3,1))*capital/10000*c,PRECIS1,colorstick;
超大:(T4-REF(T4,1))*capital/10000*c,PRECIS1,colorstick;
drawtextrel(0,997,'凈額(萬元)');
drawtextrel(0,998.5,'分類');
drawtextrel(10,998,'#RULER10'),COLORYELLOW;
drawtextrel(20,998,'#RULER10'),COLORYELLOW;
drawtextrel(30,998,'#RULER10'),COLORYELLOW;
drawtextrel(40,998,'#RULER10'),COLORYELLOW;
{SVYY - 引用指標 }
原散戶:TOPVIEW(1430,0,100);
原中戶:TOPVIEW(1431,0,100);
原大戶:TOPVIEW(1432,0,100);
原超大:TOPVIEW(1433,0,100);
昨日原散戶:REF(原散戶,1);
昨日原中戶:REF(原中戶,1);
昨日原大戶:REF(原大戶,1);
昨日原超大:REF(原超大,1);
{SVQS - 超贏盤中趨勢}
昨天的超大:="SVYY.昨日原超大#day";
昨天的大戶:="SVYY.昨日原大戶#day";
昨天的中戶:="SVYY.昨日原中戶#day";
昨天的散戶:="SVYY.昨日原散戶#day";
當日超大1:=(ordervol(1,3)-ordervol(2,3))/capital*100;
當日大戶1:=((ordervol(1,2)-ordervol(2,2))-(ordervol(1,3)-ordervol(2,3)))/capital*100;
當日中戶1:=((ordervol(1,1)-ordervol(2,1))-(ordervol(1,2)-ordervol(2,2)))/capital*100;
當日散戶1:=0-當日中戶1-當日大戶1-當日超大1;
當日散戶:=sum(當日散戶1,0);
當日中戶:=sum(當日中戶1,0);
當日大戶:=sum(當日大戶1,0);
當日超大:=sum(當日超大1,0);
最新超大:=昨天的超大+當日超大;
最新大戶:=昨天的大戶+當日大戶;
最新中戶:=昨天的中戶+當日中戶;
最新散戶:=昨天的散戶+當日散戶;
回歸后散戶倉位:=1/(exp(50)/100*exp(-(50+(最新散戶-50)/20))+0.01);
回歸后中戶倉位:=1/(exp(50)/100*exp(-(50+(最新中戶-50)/20))+0.01);
回歸后大戶倉位:=1/(exp(50)/100*exp(-(50+(最新大戶-50)/20))+0.01);
回歸后超大倉位:=1/(exp(50)/100*exp(-(50+(最新超大-50)/20))+0.01);
歸百:=100/(回歸后散戶倉位+回歸后中戶倉位+回歸后大戶倉位+回歸后超大倉位);
超大:=回歸后超大倉位*歸百;
大戶:=回歸后大戶倉位*歸百;
中戶:=回歸后中戶倉位*歸百;
散戶:=回歸后散戶倉位*歸百;
盤中變化:大戶+超大-ref(大戶,1)-ref(超大,1),colorstICK,LINETHICK2;
超贏趨勢:sum(盤中變化,0);
{SVFL - 超贏分類統計}
refline:0,25,50,75;
T1:=topview(1430);
T2:=topview(1431);
T3:=topview(1432);
T4:=topview(1433);
散戶:percentbar(T1,REF(T1,1)),COLORGREEN;
中戶:percentbar(T2,REF(T2,1)),COLORBLUE;
大戶:percentbar(T3,REF(T3,1)),COLORCYAN;
超大:percentbar(T4,REF(T4,1)),COLORRED;
drawtextrel(0,997,'比例%');
drawtextrel(0,998.5,'分類');
drawtextrel(10,997,numtostrn(T1,1)),COLORGREEN;
drawtextrel(20,997,numtostrn(T2,1)),COLORBLUE;
drawtextrel(30,997,numtostrn(T3,1)),COLORCYAN;
drawtextrel(40,997,numtostrn(T4,1)),COLORRED;
drawtextrel(10,998,'#RULER10'),COLORYELLOW;
drawtextrel(20,998,'#RULER10'),COLORYELLOW;
drawtextrel(30,998,'#RULER10'),COLORYELLOW;
drawtextrel(40,998,'#RULER10'),COLORYELLOW;
{SVPH - 分類排行}
散戶:=topview(1430);
中戶:=topview(1431);
大戶:=topview(1432);
超大:=topview(1433);
P1日前散戶:=REF(散戶,P1);
散戶持倉:percentbar(散戶,P1日前散戶);
P2日前中戶:=REF(中戶,P2);
中戶持倉:percentbar(中戶,P2日前中戶);
P3日前大戶:=REF(大戶,P3);
大戶持倉:percentbar(大戶,P3日前大戶);
P4日前超大:=REF(超大,P4);
超大持倉:percentbar(超大,P4日前超大);
散戶增減:散戶-P1日前散戶;
中戶增減:中戶-P2日前中戶;
大戶增減:大戶-P3日前大戶;
超大增減:超大-P4日前超大;
活躍資金增減:大戶+超大-ref(大戶,1)-ref(超大,1);
{TRT - 順勢交易}
variable:p1=0;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and c<o,c,o,8,1),color5454ff,layer0;
STICKLINE(p1=1 and c<o,c,o,6,0),colorffff54;
STICKLINE(p1=1 and c<o,c,l,0.5,0),color5454ff;
STICKLINE(p1=1 and c<o,h,o,0.5,0),color5454ff;
STICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c>0.1,c,'持幣');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盤價超過'+str(p2)+';或收盤價超過'+str(intpart(p2*0.98*100)/100)+'且成交量大于'+str(vv)+'買入');
DRAWFLAGTEXT(p1=0 and (p2*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盤價超過'+str(p2)+'買入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盤價跌破'+str(min(c1,p40))+'賣出');;
{SUPL - 主力資金線}
variable:eye=0;
eye:=(BIGORDER(1)-BIGORDER(2))*vol/capital*100;
eyes:=sum(eye,0);
gold:=eyes+50;
主力資金:gold,color0093f5;
STICKLINE(eye>0 and eye<0.5,gold,gold+eye,0.5,0),colorred;
STICKLINE(eye>=0.5 and eye<1,gold,gold+eye,2,0),colorred;
STICKLINE(eye>=1 and eye<2,gold,gold+eye,3,0),colorred;
STICKLINE(eye>=2,gold,gold+eye,4,0),colorred;
STICKLINE(eye>-0.5 and eye<=0,gold+eye,gold,0.5,0),COLORCYAN;
STICKLINE(eye<=-0.5 and eye>-1,gold+eye,gold,2,0),COLORCYAN;
STICKLINE(eye<=-1 and eye>-2,gold+eye,gold,3,0),COLORCYAN;
STICKLINE(eye<=-2,gold+eye,gold,4,0),COLORCYAN;
drawflagtext(eye>=0.3,gold+eye,'當日主力凈買入力度'+NUMTOSTR(intpart(eye*100)/100)+'%'),colorred;
drawflagtext(eye<=-0.3,gold+eye,'當日主力凈賣出力度'+NUMTOSTR(intpart(eye*100)/100)+'%'),colorgreen;
{每日大單}
每日大單:(bigorder(1)-bigorder(2))*vol/capital*100,color3d;
{超贏買入 - 選股公式}
DDX:=(BIGORDER(1)-BIGORDER(2))*vol/capital*100;
DDX>0.1 and DYNAINFO(14)<=0.05;
{超贏潛力 - 選股公式}
DDX:=(BIGORDER(1)-BIGORDER(2))*vol/capital*100;
count(DDX>0,10)=1 AND DYNAINFO(14)<=0.05 and ddx>0.06;
{超贏強勢 - 選股公式}
DDX:=(BIGORDER(1)-BIGORDER(2))*vol/capital*100;
REF(DDX,1)>0.1 AND COUNT(DDX>0,10)>=3 and ddx>0.15;
函數說明：
TOPVIEW(N,M,P),取得M期之前的第N號TOPVIEW數據，N取值請參考上表,M可以省略表示0,
P的個位表示數據處理方式，0表示當日沒有TOP數據就使用前一天的數據，1表示截止日之后數據
為0,2表示非數據當日數值為0；
對于板塊指數，P的十位表示統計方法，0表示平均，10表示總和，20表示流通盤加權平均，
30表示總股本加權平均，40表示最大值，50表示最小值。P可以省略表示為0.
例如：TOPVIEW(100)表示第100號TOPVIEW數據,TOPVIEW(102,1)表示上一期第102號TOPVIEW數據。
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?