個股疊加對應指數指標源碼[通達信公式]

{自填參數:--【參數P】大于零時采用P的周期作為大盤個股疊加周期，P等于零時采用個股全部上市日期作為疊加周期

M(50,9999,100),P1(0,300,5),P2(0,300,10),P3(0,300,60),N(0,3,0),P(0,99999,0);}

使用方法:請在A股下使用，指數和其它品種不顯示數據。中小、創業、滬、深大盤分顯，采取飛狐的源碼取3組可調均線可調顯示根數（N），默認N為0不顯示可調均線}

源碼如下:

創業板:=INBLOCK('創業板'),NODRAW;
中小企業:=INBLOCK('中小企業'),NODRAW;
上證Ａ股:=INBLOCK('上證Ａ股'),NODRAW;
深證Ａ股:=INBLOCK('深證Ａ股'),NODRAW;
交易所基金:=INBLOCK('交易所基金'),NODRAW;
開A:=IF(中小企業=1,"399101$O",IF(創業板=1,"399102$O",IF(上證Ａ股=1,"999999$O",IF(深證Ａ股=1,"399001$O",IF(交易所基金=1,"399305$O",0))))),NODRAW;
高A:=IF(中小企業=1,"399101$H",IF(創業板=1,"399102$H",IF(上證Ａ股=1,"999999$H",IF(深證Ａ股=1,"399001$H",IF(交易所基金=1,"399305$H",0))))),NODRAW;
低A:=IF(中小企業=1,"399101$L",IF(創業板=1,"399102$L",IF(上證Ａ股=1,"999999$L",IF(深證Ａ股=1,"399001$L",IF(交易所基金=1,"399305$L",0))))),NODRAW;
收A:=IF(中小企業=1,"399101$C",IF(創業板=1,"399102$C",IF(上證Ａ股=1,"999999$C",IF(深證Ａ股=1,"399001$C",IF(交易所基金=1,"399305$C",0))))),NODRAW;
DPJX:=(開A+高A+低A+收A)/4;{大盤均價} JX:=(O+H+L+C)/4;{個股均價}
YXZQ1:=IF(中小企業=1 AND REF(DATE,BARSCOUNT(C))<=1050608,BARSLAST(DATE=1050608),IF(創業板=1 AND REF(DATE,BARSCOUNT(C))<=1100820,BARSLAST(DATE=1100820),IF(深證Ａ股=1 AND REF(DATE,BARSCOUNT(C))<=910403,BARSLAST(DATE=910403),BARSCOUNT(C)))),NODRAW;
YXZQ:=IF(P>0 AND P<CONST(BARSCOUNT(C)),IF(P-CURRBARSCOUNT>=0,P-CURRBARSCOUNT,0),YXZQ1),NODRAW;
{大盤個股比例}
BLO:=開A/REF(DPJX,YXZQ)/(O/REF(JX,YXZQ));{大盤開盤比例}
BLH:=高A/REF(DPJX,YXZQ)/(H/REF(JX,YXZQ));{大盤最高比例}
BLL:=低A/REF(DPJX,YXZQ)/(L/REF(JX,YXZQ));{大盤最低比例}
BLC:=收A/REF(DPJX,YXZQ)/(C/REF(JX,YXZQ));{大盤收盤比例}
{模擬大盤數據}
開:BLO*O,NODRAW;
高:BLH*H,NODRAW;
低:BLL*L,NODRAW;
收:BLC*C,NODRAW;
{畫背景圖}{調節參數N確定背景高度}
DRAWBAND(CONST(HHV(MAX(高,H),M)),RGB(100,100,100),CONST(LLV(MIN(低,L),M)),RGB(50,50,50));
STICKLINE(P=CURRBARSCOUNT,CONST(HHV(MAX(高,H),M)),CONST(LLV(MIN(低,L),M)),0.01,-1),COLORBLUE;{統計周期界限}
DRAWTEXT(CURRBARSCOUNT=100,CONST(LLV(MIN(低,L),M))*1.03,'大盤個股K線'),COLORFFFFCC;
{畫大盤K線}
STICKLINE(收>=開,高,低,0,0),COLORYELLOW;
STICKLINE(收<開,高,低,0,0),COLORFF55BB;
STICKLINE(收>=開,收,開,4,0),COLOR00AAFF;
STICKLINE(收>=開,收,開,3.3,0),COLOR00BBFF;
STICKLINE(收>=開,收,開,2.2,0),COLOR00CCFF;
STICKLINE(收>=開,收,開,1.65,0),COLOR00DDFF;
STICKLINE(收>=開,收,開,1.1,0),COLOR00EEFF;
STICKLINE(收>=開,收,開,0.55,0),COLOR00FFFF;
STICKLINE(收<開,收,開,4,0),COLORAA00BB;
STICKLINE(收<開,收,開,3.3,0),COLORBB11BB;
STICKLINE(收<開,收,開,2.2,0),COLORCC22BB;
STICKLINE(收<開,收,開,1.65,0),COLORDD33BB;
STICKLINE(收<開,收,開,1.1,0),COLOREE44BB;
STICKLINE(收<開,收,開,0.55,0),COLORFF55BB;
{畫個股K線}
STICKLINE(C>=O,L,H,0,0),COLORRED;
STICKLINE(C<O,L,H,0,0),COLORFFFF00;
STICKLINE(1,C,O,3,0),COLOR353500;
STICKLINE(1,C,O,2.8,0),COLOR454500;
STICKLINE(1,C,O,2,0),COLOR555500;
STICKLINE(1,C,O,1.5,0),COLOR656500;
STICKLINE(1,C,O,1,0),COLOR757500;
STICKLINE(1,C,O,0.5,0),COLOR858500;
STICKLINE(C>=O,C,O,3,0),COLOR000045;
STICKLINE(C>=O,C,O,2.8,0),COLOR000065;
STICKLINE(C>=O,C,O,2,0),COLOR000085;
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5;
STICKLINE(C>=O,C,O,1,0),COLOR0000C5;
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5;

個股命:MA(C,21),COLORRED,LINETHICK2;
大盤命:MA(收,21),COLOR00FF80,LINETHICK2;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;