通达信操作箱体，箱顶和箱底线指标公式源码 红色持股绿色持币

源代码：

拉升:IF(CURRBARSCOUNT=1 AND REF(C,1)<REF(C,2) AND C>REF(C,1) AND MA(C,1)>REF(MA(C,1),1),CONST(REF(C,1)*1.01),DRAWNULL),COLORFF00FF;

A001:STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),拉升,拉升*0.9992,15,0),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=1 AND 拉升=CONST(REF(C,1)*1.01),L*0.99996,'      拉升线'),COLORMAGENTA;

DRAWKLINE(H,拉升,L,C);

止损:REF(HHV(H,13),1)*0.95,COLORGREEN,DOTLINE;

A002:STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),止损,止损*0.9996,15,0),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=1,止损*0.996,'止损线'),COLORGREEN;

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/ 

(HHV(HIGH,30)-LLV(LOW,30))*100,8); 

BA:=EMA(AB,5); 

A1{高}:=REFDATE(REF(HHV(H,96),5),DATE); 

B1{低}:=REFDATE(REF(LLV(L,96),5),DATE); 

D{中}:=((A1)+(B1))/2; 

五:MA(C,5)LINETHICK2,COLOR00FFFF; 

二O:EMA(C,20),COLORMAGENTA; 

空仓:IF(AB-BA<0,五,DRAWNULL),LINETHICK2,COLOR00FFFF; 

持仓:IF(AB-BA>0,五,DRAWNULL),,LINETHICK2,COLORRED; 

箱顶:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK3,COLOR00FF00; 

箱腰:IF(AB>0 AND AB-BA<=0,D,D),LINETHICK3,COLOR00FF00; 

箱低:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK3,COLOR00FF00; 

_五:IF(CURRBARSCOUNT=6,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORWHITE,LINETHICK3;{五日转点} 

十:IF(CURRBARSCOUNT=11,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORYELLOW,LINETHICK3;{十日转点} 

二十:IF(CURRBARSCOUNT=21,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORRED,LINETHICK3;{二十日转点}; 

三十:IF(CURRBARSCOUNT=31,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORCYAN,LINETHICK3;{三十日转点}; 

六十:IF(CURRBARSCOUNT=61,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORYELLOW,LINETHICK3;{六十日转点}; 

九十:IF(CURRBARSCOUNT=91,L*0.992-0.02,DRAWNULL), 

CROSSDOT,COLORYELLOW,LINETHICK3;{九十日转点}; 

高1:IF(AB>0 AND AB-BA>0,A1,DRAWNULL),LINETHICK3,COLORRED; 

中1:IF(AB>0 AND AB-BA>0,D,DRAWNULL),LINETHICK3,COLORRED; 

低1:IF(AB>0 AND AB-BA>0,B1,DRAWNULL),LINETHICK3,COLORRED;

C2:=REF(C,1);

涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(涨停,H,L,0,0),COLORRED;

跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);

STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;

STICKLINE(跌停,H,L,0,1),COLORGREEN;

{选股}

HHH:=CROSS(C,MA(L+(H-L)/2,25)*0.95);LLL:=CROSS(MA(L+(H-L)/2,25)*0.95,C);

CCC:=CROSS(H,MA(L+(H-L)/2,25)*1.15);DDD:=CROSS(H,MA(L+(H-L)/2,25)*1.25);

DRAWTEXT(HHH AND MA(L+(H-L)/2,75)>=REF(MA(L+(H-L)/2,75),1),L*0.98,'买吧'),COLOR6699FF;

DRAWTEXT(CCC AND MA(L+(H-L)/2,75)>=REF(MA(L+(H-L)/2,75),1),H*1.02,'卖了'),COLOR6699FF;

DRAWTEXT(DDD AND MA(L+(H-L)/2,75)>=REF(MA(L+(H-L)/2,75),1),H*1.02,'小心顶'),COLOR6699FF;

VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));

DIR1:=ABS(CLOSE-REF(CLOSE,5));

VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);

ER1:=DIR1/VIR1;

CS1:=ER1*(0.8-2/8)+2/8;

CQ1:=CS1*CS1;

DIR2:=ABS(CLOSE-REF(CLOSE,10));

VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);

ER2:=DIR2/VIR2;

CS2:=ER2*(0.8-2/24)+2/24;

CQ2:=CS2*CS2;

STICKLINE(VAR2 < MA(VAR3,6),LOW,HIGH,0,1),COLORLIBLUE;

STICKLINE(VAR2 > MA(VAR3,6),LOW,HIGH,0,1),COLORRED;

STICKLINE(((OPEN>CLOSE)AND(VAR2<MA(VAR3,6))),(CLOSE-0.03),OPEN,3.05,0),COLORLIBLUE;

STICKLINE(((OPEN<CLOSE)AND(VAR2<MA(VAR3,6))),CLOSE,OPEN,3.05,1),COLORLIBLUE;

STICKLINE(((OPEN>CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,(CLOSE-0.03),3.05,0),COLORRED;

STICKLINE(((OPEN<CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,CLOSE,3.05,1),COLORRED;

DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.02)),7);

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.02)),8);

PT:=REF(H,1)-REF(L,1);

CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;

AH:=CDP+PT;

AL:=CDP-PT;

NH:=CDP*2-REF(L,1);

NL:=CDP*2-REF(H,1);

强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;

阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORBLUE;

M:=IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL);

撑:IF(NL<M,CDP-(CDP-M)*0.618,NL)NODRAW;

底:IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL)NODRAW;

{量能饱和度}

SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));

【量能饱和】:=IF(SAT>1,1,SAT)*100,COLORYELLOW,NODRAW;

{活跃度}

LC:=REF(CLOSE,1);

RSI5:=(SMA(MAX(CLOSE-LC,0),3,1))/(SMA(ABS(CLOSE-LC),3,1))*100;

WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;

活跃度:=(RSI5-WR10),COLORFFFF00,LINETHICK1,NODRAW;

活跃度比:=IF(活跃度>=0,(活跃度+100)/2,100-ABS((活跃度-100)/2));

DRAWTEXT_FIX(C>0,0.0,0.0,0,STRCAT('所属行业：',HYBLOCK)),COLORYELLOW;

DRAWTEXT_FIX(C>0,0.10,0.0,0,STRCAT('所属地区：',DYBLOCK)),COLORYELLOW;

DRAWTEXT_FIX(C>0,0.20,0.0,0,STRCAT('主题投资：',GNBLOCK)),COLORYELLOW;

DRAWTEXT_FIX(1,0.00,0.04,0,'业绩预报：')COLORYELLOW;

DRAWTEXT_FIX(1,0.06,0.04,0,EXTERNSTR(0,11))COLORYELLOW;

{DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT('业绩预报：',EXTERNSTR(0,11))),COLORYELLOW;}

{DRAWTEXT_FIX(C>0,0.0,0.15,0,STRCAT('解禁日期：',EXTERNSTR(0,8))),COLORYELLOW;}

{DRAWTEXT_FIX(C>0,0.00,0.20,0,STRCAT('千股千评：',EXTERNSTR(0,1))),COLOR00FFFF;}

{DRAWTEXT_FIX(C>0,0.00,0.25,0,STRCAT('智能诊股：',EXTERNSTR(0,2))),COLOR00FFFF;};

DRAWRECTREL(0,500,147,999.4,IF(120,RGB(10,0,0),0)); 

超B:=L2_AMO(0,2)/10000.0;

大B:=L2_AMO(1,2)/10000.0;

中B:=L2_AMO(2,2)/10000.0;

小B:=L2_AMO(3,2)/10000.0;

超S:=L2_AMO(0,3)/10000.0;

大S:=L2_AMO(1,3)/10000.0;

中S:=L2_AMO(2,3)/10000.0;

小S:=L2_AMO(3,3)/10000.0;

TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);

大宗进:=(超B)+(大B),NODRAW;

大宗出:=(超S)+(大S),NODRAW;

非大宗进:=(中B)+(小B),NODRAW;

非大宗出:=(中S)+(小S),NODRAW;

大宗进限制:=IF((超B+大B)=0,0,大宗进);

大宗出限制:=IF((超S+大S)=0,0,大宗出);

非大宗进限制:=IF(中B+小B=0,0,非大宗进);

非大宗出限制:=IF(中S+小S=0,0,非大宗出);

主力净流入:=(超B+大B)-(超S+大S),COLORRED,NODRAW;

散户净流入:=(中B+小B)-(中S+小S),COLORRED,NODRAW;

净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),COLORRED,NODRAW;

大单流入:=(超B+大B)/(超B+大B+超S+大S)*100,NODRAW;

大单流入限制:=IF((超B+大B+超S+大S)=0,0,大单流入);

大单流出比:=(超S+大S)/(超B+大B+超S+大S)*100,NODRAW;

大单流出限制:=IF((超B+大B+超S+大S)=0,0,大单流出比);

总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;

总流出比:=(超S+大S+中S+小S)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW;

成交总量:=(超B+大B+中B+小B+超S+大S+中S+小S),NODRAW;

机构参与度:=(超B+超S+大B+大S)/成交总量*100,COLORYELLOW,NODRAW;

大单强度:=(超B+大B-超S-大S)/成交总量*100,COLORYELLOW,NODRAW;

大单强度限制:=IF(大单强度=0,-100,大单强度);

大单强度比:=IF(大单强度>=0,(大单强度限制+100)/2,100-ABS((大单强度限制-100)/2)),NODRAW;

超单强度:=(超B-超S)/(超B+超S)*100,COLORYELLOW,NODRAW;

超单强度限制:=IF(超单强度=0,-100,超单强度);

超单强度比:=IF(超单强度>0,(超单强度限制+100)/2,IF(超单强度<0,100-ABS((超单强度限制-100)/2),0)),NODRAW;

DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;

DRAWRECTREL(0,CONST(930-(ABS(大宗进)*250/DAZHIV)),35,950,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(37,CONST(930-(ABS(大宗出)*250/DAZHIV)),72,950,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWRECTREL(75,CONST(930-(ABS(非大宗进)*250/DAZHIV)),110,950,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255)));

DRAWRECTREL(112,CONST(930-(ABS(非大宗出)*250/DAZHIV)),147,950,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0)));

DRAWRECTREL(150,CONST(940-(ABS(净流入)*250/DAZHIV))-20,190,950,IF(CONST(净流入>0),RGB(200,0,0),RGB(0,125,50)));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0001,0.9,0,STRCAT('',CON2STR(大宗进/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.036,0.9,0,STRCAT('',CON2STR(大宗出/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.074,0.9,0,STRCAT('',CON2STR(非大宗进/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.111,0.9,0,STRCAT('',CON2STR(非大宗出/1,0))),COLORYELLOW;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.150,0.9,0,STRCAT('',CON2STR(净流入/1,0))),COLORYELLOW;

DRAWTEXT_FIX(1,0.000,0.99,0,STRCAT(STRCAT('主力 ',CON2STR(主力净流入,0)),'万')),COLORMAGENTA;

DRAWTEXT_FIX(1,0.078,0.99,0,STRCAT(STRCAT('散户 ',CON2STR(散户净流入,0)),'万')),COLORCYAN;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,0.99,0,'净流入:(万)'),COLORYELLOW;

主力买力度:=LARGEINTRDVOL*1000/VOL;

主力卖力度:=LARGEOUTTRDVOL*1000/VOL;

AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;

DRAWRECTREL(0,515,CONST(ABS(主力买力度)*560/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));

DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*560/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));

DRAWTEXT_FIX(1,0,0.524,0,STRCAT('主买力度:',CON2STR(主力买力度,0))),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.576,0,STRCAT('主卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW;