資金主圖指標 公式 源碼[大智慧公式]
指標公式源碼分析及使用說明:
?
源碼：
DRAWGBKLAST(v>1,STRIP(RGB(0,150,130),RGB(0,0,0),1));
帳戶總數:extradata('小股民線'),linethick0,PRECIS0;
戶均持股:=(FINANCE2(37)/帳戶總數)*10000;
ZH3:=ref(帳戶總數,3);
HJ3:=ref(戶均持股,3);
DRAWTEXTREL(5,13,'帳戶總數(戶)：'+NUMTOSTRN(帳戶總數,0)),Color0000FF;
DRAWTEXTREL(170,13,'戶均持股(股)：'+NUMTOSTRN(戶均持股,0)),Color0000FF;
{我贏}
我:=MA(C,1);
贏:=SMA(SMA(SMA(我,2,1),2,1),2,1);
龍:=MA(贏,3);
FILLRGN(贏,龍,贏>=龍),Color0000FF;
FILLRGN(贏,龍,贏<龍),Color008000;
我贏龍頭:=(L+H+C*4)/6;
{立樁}
BDGD:=C=HHV(C,13);
GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),2))+1;
高點:REF(C,GDSJ),COLOR00FF00,POINTDOT,LINETHICK1;
突破:CROSS(C,REF(高點,1)),COLOR00FFFF,POINTDOT,LINETHICK0;
STICKLINE(GDSJ<=6,高點,高點,8,0),COLORFF00FF;
BDDD:=C=LLV(C,13);
DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),2))+1;
低點:REF(C,DDSJ),COLOR00FFFF,POINTDOT,LINETHICK1;
STICKLINE(DDSJ<=6,低點,低點,8,0),COLOR00FF00;
{填充}
N:=20;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00aa00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00cc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00ee00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000aa;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR0000cc;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLOR0000ee;
aa:=(ref(close,1)+ref(close,2)+open)/3;
{資金}
TODAY:=DYNAINFO(7)=CLOSE and (ORDER(1)=0 and ORDER(2)=0);{判斷是否有數據}
{TODAY:="ddx.ddx"=0;}{判斷是否有正版數據}
Ddmr:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100;
Ddmrs:=sum(Ddmr,0);
Chb:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT;
Dhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT;
Zhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT;
Xhb:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT;
Chs:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT;
Dhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT;
Zhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT;
Xhs:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT;
散資:=(xhb-xhs)/10000;
中資:=(zhb-zhs)/10000;
大資:=(dhb-dhs)/10000;
超資:=(chb-chs)/10000;
超資增倉:=超資;
大資增倉:=大資;
中資增倉:=中資;
散資增倉:=散資;
BBD凈額:=(超資+大資);
DRAWTEXTREL(5,85,'BBD (萬)：'+NUMTOSTRN(BBD凈額,0)),LINETHICK1,Color0080FF;
DRAWTEXTREL(5,155,'超資(萬)：'+NUMTOSTRN(超資增倉,0)),LINETHICK1,COLORYELLOW;
DRAWTEXTREL(5,225,'大資(萬)：'+NUMTOSTRN(大資增倉,0)),LINETHICK1,Color62FFFF;
DRAWTEXTREL(5,295,'中資(萬)：'+NUMTOSTRN(中資增倉,0)),LINETHICK1,ColorACFFFF;
DRAWTEXTREL(5,365,'散資(萬)：'+NUMTOSTRN(散資增倉,0)),LINETHICK1,ColorFFFFFF;
DRAWRECTABS(0,118,270,0,1),COLOR00FF00;
zln:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,2),SELFDATA('特大買入')+SELFDATA('大單買入')),bigorder(1,2)),0);
zlm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,2),SELFDATA('特大賣出')+SELFDATA('大單賣出')),bigorder(2,2)),0);
tdn:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,3),SELFDATA('特大買入')),bigorder(1,3)),0);
tdm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,3),SELFDATA('特大賣出')),bigorder(2,3)),0);
ddn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),SELFDATA('大單買入')),(bigorder(1,2)-bigorder(1,3))),0);
ddm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),SELFDATA('大單賣出')),(bigorder(2,2)-bigorder(2,3))),0);
zdn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),SELFDATA('中單買入')),(bigorder(1,1)-bigorder(1,2))),0);
zdm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),SELFDATA('中單賣出')),(bigorder(2,1)-bigorder(2,2))),0);
sdn:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(1,1)),1-(SELFDATA('特大買入')+SELFDATA('大單買入')+SELFDATA('中單買入'))),1-(bigorder(1,1))),0);
sdm:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(2,1)),1-(SELFDATA('特大賣出')+SELFDATA('大單賣出')+SELFDATA('中單賣出'))),1-(bigorder(2,1))),0);
tdj:=tdn-tdm;
ddj:=ddn-ddm;
zdj:=zdn-zdm;
sdj:=sdn-sdm;
zlj:=zln-zlm;
DRAWTEXTREL(140,85,'占'+numtostrn(((zlj))*100,1)+'%'),Color0080FF;
DRAWTEXTREL(140,155,'占'+numtostrn((tdj)*100,1)+'%'),COLORYELLOW;
DRAWTEXTREL(140,225,'占'+numtostrn((ddj)*100,1)+'%'),Color62FFFF;
DRAWTEXTREL(140,295,'占'+numtostrn((zdj)*100,1)+'%'),ColorACFFFF;
DRAWTEXTREL(140,365,'占'+numtostrn((sdj)*100,1)+'%'),ColorFFFFFF;
DRAWTEXTREL(200,85,numtostrn(((zlj))*V,0)+'手'),Color0080FF;
DRAWTEXTREL(200,155,numtostrn((tdj)*V,0)+'手'),COLORYELLOW;
DRAWTEXTREL(200,225,numtostrn((ddj)*V,0)+'手'),Color62FFFF;
DRAWTEXTREL(200,295,numtostrn((zdj)*V,0)+'手'),ColorACFFFF;
DRAWTEXTREL(200,365,numtostrn((sdj)*V,0)+'手'),ColorFFFFFF;
DRAWTEXTREL(280,85,'倉 '+NUMTOSTRN(50+Sum((VOL/CAPITAL)*100*((zlj)),0),1)+'%'),Color0080FF;
DRAWTEXTREL(280,155,'倉 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(tdj),0),1)+'%'),COLORYELLOW;
DRAWTEXTREL(280,225,'倉 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(ddj),0),1)+'%'),Color62FFFF;
DRAWTEXTREL(280,295,'倉 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(zdj),0),1)+'%'),ColorACFFFF;
DRAWTEXTREL(280,365,'倉 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(sdj),0),1)+'%'),ColorFFFFFF;{程序化交易 m.kzuj.com.cn }
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容