相關標簽:

?

分時疊加大盤[標準]+大盤5分鐘力度和總體力度


1.先建大盤引用指標

?

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

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

?

{大盤引用}
昨收: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.再建指標

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

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

?

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

?