分時(shí)疊加大盤(pán)[標(biāo)準(zhǔn)]+大盤(pán)5分鐘力度和總體力度[大智慧公式]

相關(guān)標(biāo)簽:

?

分時(shí)疊加大盤(pán)[標(biāo)準(zhǔn)]+大盤(pán)5分鐘力度和總體力度


1.先建大盤(pán)引用指標(biāo)

?

原理解析：
輸出昨收:1日前的收盤(pán)價(jià),線(xiàn)寬為0 BS賦值:統(tǒng)計(jì)0日中滿(mǎn)足成交量(手)>0的天數(shù) KB1賦值:BS=1 AND 前收盤(pán)價(jià)<開(kāi)盤(pán)價(jià) KS1賦值:BS=1 AND 前收盤(pán)價(jià)>開(kāi)盤(pán)價(jià) KB2賦值:上次(收盤(pán)價(jià)>1日前的收盤(pán)價(jià)ORBS=1)距今天數(shù)+KS1 KS2賦值:上次(收盤(pán)價(jià)<1日前的收盤(pán)價(jià)ORBS=1)距今天數(shù)+KB1 BV賦值:如果KB2<KS2,返回成交額(元)/100000000,否則返回0 SV賦值:如果KB2>KS2,返回成交額(元)/100000000,否則返回0 輸出資金差:BV的歷史累和-SV的歷史累和 N賦值:BARPOS和5的較小值 輸出資金差2:BV的N日累和-SV的N日累和 2.再建指標(biāo)A)POLYLINE(收盤(pán)價(jià),收盤(pán)價(jià)),線(xiàn)寬為2,畫(huà)黑色 TC賦值:字符串比較 DPSH賦值:"SH000001$收盤(pán)價(jià)"/0日內(nèi)STKINDI('SH000001','大盤(pán)引用.昨收[取日線(xiàn)數(shù)據(jù)]')的最高值 DPSZ賦值:"399001$收盤(pán)價(jià)"/0日內(nèi)STKINDI('399001','大盤(pán)引用.昨收[取日線(xiàn)數(shù)據(jù)]')的最高值 DPC賦值:如果屬于某板塊,返回前收盤(pán)價(jià)*如果TC=0,返回DPSZ,否則返回DPSH,否則返回收盤(pán)價(jià) POLYLINE(收盤(pán)價(jià)>0,DPC),畫(huà)洋紅色,LAYER0 收盤(pán)價(jià),畫(huà)白色,LAYER0 輸出B)總:STKINDI('SH000001','大盤(pán)引用.資金差#TICK') 輸出五分:STKINDI('SH000001','大盤(pán)引用.資金差2[取1分鐘數(shù)據(jù)]'),線(xiàn)寬為0 當(dāng)滿(mǎn)足條件五分>0時(shí),在五分和0位置之間畫(huà)柱狀線(xiàn),寬度為1,0不為0則畫(huà)空心柱.,COLOR5050FF 當(dāng)滿(mǎn)足條件五分<=0時(shí),在五分和0位置之間畫(huà)柱狀線(xiàn),寬度為1,0不為0則畫(huà)空心柱.,COLORFFFF00

?

?來(lái)源:程序化99（ www.tumamayizhan.com ）

源碼：

?

?

?

{大盤(pán)引用}
昨收:REF(C,1),LINETHICK0;
BS:=COUNT(V>0,0);
KB1:=BS=1 AND DYNAINFO(3)<DYNAINFO(4);
KS1:=BS=1 AND DYNAINFO(3)>DYNAINFO(4);
KB2:=BARSLAST((C>REF(C,1) OR BS=1))+KS1;
KS2:=BARSLAST((C<REF(C,1) OR BS=1))+KB1;
BV:=IF(KB2<KS2,AMOUNT/100000000,0);
SV:=IF(KB2>KS2,AMOUNT/100000000,0);
資金差:SUM(BV,0)-SUM(SV,0);
N:=MIN(BARPOS,5);
資金差2:SUM(BV,N)-SUM(SV,N);

2.再建指標(biāo)

A)
{疊加大盤(pán)}
POLYLINE(C,C),LINETHICK2,COLORBLACK;{要股價(jià)粗線(xiàn)刪除這句}
TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','大盤(pán)引用.昨收#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','大盤(pán)引用.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板塊'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLORMAGENTA,LAYER0;
C,COLORWHITE,LAYER0;

B)
{大盤(pán)力度}
總:STKINDI('SH000001','大盤(pán)引用.資金差#TICK');
五分:STKINDI('SH000001','大盤(pán)引用.資金差2#MIN1'),LINETHICK0;
STICKLINE(五分>0,五分,0,1,0),Color5050FF;
STICKLINE(五分<=0,五分,0,1,0),ColorFFFF00;

?

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

?