千鈞聚源資訊主圖指標公式

作者：飛狐指標公式源碼來源：cxh99.com 發布時間：2023年05月17日

該指標運算主要是對股票的價格、成交量等數據進行處理，得出一些技術指標，以此判斷市場的走勢。具體操作建議如下：

上漲家數和下跌家數的比較可以反映市場整體走勢，可作為一個輔助指標，但不能單獨作為決策依據。

成交量的大小和趨勢變化可以反映市場資金的活躍程度和增減情況，可以與價格指標結合使用，確定買賣點。

各條均線的夾角可以反映股票價格的走勢方向和趨勢，可以用來確定買入或賣出時機。

量能指標可以用來判斷市場的供需關系和市場交易頻率的高低，也可以用來輔助判斷買賣時機。

主圖引用公式：
名稱：千鈞引用(飛狐)
源碼：
zz:=(ref(hhv(h,3),1)+ref(llv(l,3),1))/2;
a:=if(c>zz,vol,0);
b:=if(c<zz,vol,0);
a1:=if(c>zz,INDEXA,0);
b1:=if(c<zz,INDEXA,0);
總0:IF(stktype=0,(a1-b1),(a-b));

主圖源碼(飛狐)：
【要求，你手中要有‘千鈞引用’就是BBD用的那個引用，沒有的，把上面的引用源碼首先導入。財務數據是陽光飛狐最新的，<聚源資訊>F10】

OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);
CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;
jj:=(H+L+C)/3;qj0:=vol/IF(H=L,4,H-L);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));
qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);
qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;
DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;
DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;
bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));
主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);
bbd:=EMA(STKINDI('','千鈞引用.總0',0,7),2)/sum(IF(CAPITAL=0,ref(INDEXA,1),ref(vol,1)),5)*100;
XH1:=ref(bbd,1)<-15 and bbd>ref(bbd,1) and bbd>-10;
XH2:=ref(bbd,1)>=15 and bbd<ref(bbd,1) and bbd<10;P:=SYSPARAM(1);
Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;
Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;
Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;
T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);
T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5);
T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5);
T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3);
T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1);
STICKLINE(C>=REF(c,1),H,L,0,0),COLOR0000FF;
STICKLINE(C>=REF(c,1),C,O,8,0),COLOR0000bb;
STICKLINE(C>=REF(c,1),C,O,5,0),COLOR0000dd;
STICKLINE(C>=REF(c,1),C,O,3,0),COLOR0000ee;
STICKLINE(C>=REF(c,1),C,O,1,0),COLOR0000ff;
STICKLINE(C<REF(c,1),H,L,0,0),COLORFFFF00;
STICKLINE(C<REF(c,1),C,O,8,0),COLOR999900;
STICKLINE(C<REF(c,1),C,O,5,0),COLORbbbb00;
STICKLINE(C<REF(c,1),C,O,3,0),COLORdddd00;
STICKLINE(C<REF(c,1),C,O,1,0),COLORFFFF00;
STICKLINE(bbd>0,CC,OO,8,0),COLORFF00FF;
STICKLINE(bbd<0,CC,OO,8,0),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,0,100,'5 日線夾角: '+NUMTOSTR(Q6[P],2)+' 度'),COLOREEEEEE;
DRAWTEXTEX(CLOSE,1,220,100,'13日線夾角: '+NUMTOSTR(Q2[P],2)+' 度'),COLOR00DDEE;
DRAWTEXTEX(CLOSE,1,450,100,'22日線夾角: '+NUMTOSTR(Q1[P],2)+' 度'),COLOREE00EE;
DRAWTEXTEX(CLOSE,1,0,150,'34日線夾角: '+NUMTOSTR(Q[P],2)+' 度'),COLOR00EE00;
DRAWTEXTEX(CLOSE,1,220,150,'68日線夾角: '+NUMTOSTR(Q3[P],2)+' 度'),COLOREEDD00;
DRAWTEXTEX(CLOSE,1,450,150,'250日線夾角: '+NUMTOSTR(Q5[P],2)+' 度'),COLORFF8800;
DRAWICON(XH1,l*0.98,4);DRAWICON(XH2,h*1.02,5);
DRAWTEXT(bb,L*0.98,'弄\n點\n錢\n玩\n玩'),COLOR00FFFF;
DRAWTEXTEX(CLOSE,1,20,0,'上漲家數:'+NUMTOSTR(INDEXADV,0)+' 家'),COLOR0066FF;
DRAWTEXTEX(CLOSE,1,180,0,'下跌家數:'+NUMTOSTR(INDEXDEC,0)+' 家'),COLOR99FF99;
DRAWTEXTEX(CLOSE,1,340,0,'平盤家數:'+NUMTOSTR(PINGPAN,0)+' 家'),COLOREEEEEE;
DRAWTEXTEX(T0,1,500,0,'成交大于昨日,有繼續增大趨勢'),Color00FFFF;
DRAWTEXTEX(T1,1,500,0,'成交小于昨日,但有放大跡象'),Color00DDFF;
DRAWTEXTEX(T2,1,500,0,'成交大于昨日,但有縮小跡象'),ColorFFFF00;
DRAWTEXTEX(T3,1,500,0,'成交小于昨日,且有縮小跡象'),ColorFFbb00;
DRAWTEXTEX(T4,1,760,0,'資金比較活躍,大資金活動明顯'),Color00FFff;
DRAWTEXTEX(T5,1,760,0,'資金開始積極,大資金溫和進場'),Color00DDff;
DRAWTEXTEX(T6,1,760,0,'散亂資金積極,散戶行為明顯'),ColorFFDD00;
DRAWTEXTEX(T7,1,760,0,'交易頻率上升,散戶相當積極'),ColorFFFF00;
DRAWTEXTEX(CLOSE,1,20,50,STKLABEL+' '+STKNAME+' '+STRLEFT(BLKNAME,40)),ColorFFB060;
F10:=IF(F10FIND('萬國測評制作',1)>0,1,IF(F10FIND('Wind資訊',1)>0,2,IF(F10FIND('----<聚源資訊>----',1)>0,3,IF(F10FIND('維賽特',1)>0,4,IF(F10FIND('☆ ◇港澳資訊',1)>0,5,0)))));
IF F10=0 THEN EXIT;
QSW:=IF(F10=2,F10FIND('【1:主力運作】',100),IF(F10=3,F10FIND('控盤情況:',1),IF(F10=4,F10FIND('（三）歷年人均持股情況',1),IF(F10=5,F10FIND('【1.機構持股匯總】 ',1000),F10FIND('◆ 控盤情況 ◆',100)))));
QSW:=IF(F10=5,F10FIND('【2.股東戶數',QSW),QSW);
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;
WZ2:=F10FIND('-',WZ1+IF(F10=1,10,IF(F10=4,60,20)))-4;
WZ3:=IF(F10=2,F10FIND('【2:機構持股】',WZ1),IF(F10=3,F10FIND('公司簡況',WZ1),IF(F10=4,F10FIND('（四）QFII持股',WZ1),IF(F10=5,F10FIND('└--',WZ1),F10FIND('◆ 概念題材',WZ1)))));
T1:=F10TEXT(WZ1,10);
T2:=IF(WZ2<WZ3,F10TEXT(WZ2,10),'');
LS:=IF(F10=1,142,IF(F10=4,29,IF(F10=5,12,14)));//14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));
HS2:=IF(WZ2<WZ3,STRTONUM(F10TEXT(WZ2+LS,10)),0);
END;
DRAWTEXTEX(c,1,660,880,' 報表日期:'+t1+' 賬戶總數:'+NUMTOSTR(hs1,0)+' 戶');
DRAWTEXTEX(c,1,660,980,' 報表日期:'+t2+' 賬戶總數:'+NUMTOSTR(hs2,0)+' 戶');
DRAWTEXTEX(hs1>hs2,1,760,930,'市場籌碼較上期分散'),Color00FF00;
DRAWTEXTEX(hs1<hs2,1,760,930,'市場籌碼較上期集中'),Color0000FF;
?

副圖源碼（飛狐）：

a:=F10FIND('主要指標:',1);c0:=F10FIND('各家評論',a);aa:=F10TEXT(c0,6600);e1:=F10FIND('每股現金凈流量(元)',a);
y1:=F10FIND('指標名稱',a);a2:=F10FIND('每股收益(元)',a);c1:=F10FIND('每股凈資產(元)',a);
d1:=F10FIND('凈資產收益率(％)',a);f1:=F10FIND('每股資本公積金(元)',a);i1:=F10FIND('凈利潤增長率(%)',a);
EXPLAIN(c,''+aa+''),COLOR00DDDD;b1:=F10FIND('主營業務利潤率(%)',a);
DRAWTEXTEX(c,1,70,0,STKLABEL+' '+STKNAME+''),ColorFFEE00;
n1:=F10TEXT(y1+15,2);nn1:=F10TEXT(y1+18,2);nn2:=F10TEXT(y1+21,2);n2:=F10TEXT(y1+35,2);
n3:=F10TEXT(y1+45,2);n4:=F10TEXT(y1+55,2);aa1:=STRTONUM(F10TEXT(a2+20,10));
a01:=STRTONUM(F10TEXT(a2+30,10));aa2:=STRTONUM(F10TEXT(a2+40,10));
aa3:=STRTONUM(F10TEXT(a2+50,10));aa4:=STRTONUM(F10TEXT(a2+60,10));
bb1:=STRTONUM(F10TEXT(b1+20,10));bb2:=STRTONUM(F10TEXT(b1+40,10));
bb3:=STRTONUM(F10TEXT(b1+50,10));bb4:=STRTONUM(F10TEXT(b1+60,10));
cc1:=STRTONUM(F10TEXT(c1+20,10));cc2:=STRTONUM(F10TEXT(c1+40,10));
cc3:=STRTONUM(F10TEXT(c1+50,10));cc4:=STRTONUM(F10TEXT(c1+60,10));

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