通达信2016好主图源码主图

量能比:=V/(V+PVR)*100/FROMOPEN*240;

{量能饱和度}
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));

DRAWRECTREL(80,0,240,40,RGB(0,75,200));
DRAWRECTREL(80,0,160,40,RGB(0,250,50));
DRAWRECTREL(80,0,80+CONST(力度比限制*160/100),40,RGB(200,0,50));
DRAWTEXT_FIX(1,0.00,0.00,0,STRCAT(STRCAT('买卖力度比 ',CON2STR(大单买比,2)),'％买')),COLORYELLOW;
{DRAWTEXT_FIX(1,0.33,0.00,0,STRCAT(STRCAT('',CON2STR(大单卖比,2)),'％卖')),COLORGREEN;}
DRAWRECTREL(80,50,240,90,RGB(0,100,0));
DRAWRECTREL(80,50,160,90,RGB(0,250,50));
DRAWRECTREL(80,50,80+CONST(大量强度比*160/100),90,RGB(175,50,250));
DRAWTEXT_FIX(1,0.00,0.05,0,STRCAT(STRCAT('大量强度比 ',CON2STR(大量强度比,2)),'％买')),COLORYELLOW;
DRAWRECTREL(330,0,490,40,RGB(0,75,200));
DRAWRECTREL(330,0,410,40,RGB(0,250,50));
DRAWRECTREL(330,0,330+CONST(主买*160/100),40,RGB(175,50,250));
DRAWTEXT_FIX(1,0.25,0.00,0,STRCAT(STRCAT('主动买卖比 ',CON2STR(主买,2)),' ％')),COLORYELLOW;
{DRAWTEXT_FIX(1,0.33,0.10,0,STRCAT(STRCAT('',CON2STR(主卖,2)),'％卖')),COLORGREEN;}
DRAWRECTREL(330,50,490,90,RGB(0,100,0));
DRAWRECTREL(330,50,410,90,RGB(0,250,50));
DRAWRECTREL(330,50,330+CONST(机构参与度*160/100),90,RGB(200,0,50));
DRAWTEXT_FIX(1,0.25,0.05,0,STRCAT(STRCAT('机构参与度 ',CON2STR(机构参与度,2)),' ％')),COLORYELLOW;

DRAWRECTREL(580,0,740,40,RGB(0,100,0));
DRAWRECTREL(580,0,660,40,RGB(0,250,50));
DRAWRECTREL(580,0,580+CONST(大单流入限制*160/100),40,RGB(200,0,50));
DRAWTEXT_FIX(1,0.500,0.00,0,STRCAT(STRCAT('大单流入比 ',CON2STR(大单流入限制,2)),' ％买')),COLORYELLOW;
{DRAWTEXT_FIX(1,0.83,0.01,0,STRCAT(STRCAT('',CON2STR(大单流出限制,2)),' ％卖')),COLORGREEN;}
DRAWRECTREL(580,50,740,90,RGB(0,200,250));
DRAWRECTREL(580,50,660,90,RGB(0,250,50));
DRAWRECTREL(580,50,580+CONST(大单强度比*160/100),90,RGB(175,50,250));
DRAWTEXT_FIX(1,0.500,0.05,0,STRCAT(STRCAT('大单强度比 ',CON2STR(大单强度比,2)),' ％买')),COLORYELLOW;
DRAWRECTREL(830,0,990,40,RGB(0,100,0));
DRAWRECTREL(830,0,910,40,RGB(0,250,50));
DRAWRECTREL(830,0,830+CONST(总流入比*160/100),40,RGB(175,50,250));
DRAWTEXT_FIX(1,0.75,0.00,0,STRCAT(STRCAT('资金流入比 ',CON2STR(总流入比,2)),' ％')),COLORYELLOW;
{DRAWTEXT_FIX(1,0.83,0.10,0,STRCAT(STRCAT('',CON2STR(总流出比,2)),' ％卖')),COLORGREEN;}
DRAWRECTREL(830,50,990,90,RGB(0,200,250));
DRAWRECTREL(830,50,910,90,RGB(0,250,50));
DRAWRECTREL(830,50,830+CONST(量能比*160/100),90,RGB(200,0,50));
DRAWTEXT_FIX(1,0.75,0.05,0,STRCAT(STRCAT('资金量能比 ',CON2STR(量能比,2)),' ％')),COLORYELLOW;

DRAWRECTREL(365,890,655,930,RGB(0,100,0));
DRAWRECTREL(365,890,510,930,RGB(0,200,50));
DRAWRECTREL(365,890,360+CONST(活跃度比*300/100),930,RGB(150,10,250));
DRAWTEXT_FIX(1,0.318,0.89,0,STRCAT(STRCAT('活跃度 ',CON2STR(活跃度比,2)),' ％')),COLORYELLOW;
DRAWRECTREL(365,940,655,985,RGB(0,50,150));
DRAWRECTREL(365,940,510,985,RGB(0,200,50));
DRAWRECTREL(365,940,360+CONST(【量能饱和】*300/100),985,RGB(150,10,0));
DRAWTEXT_FIX(1,0.318,0.95,0,STRCAT(STRCAT('饱和度 ',CON2STR(【量能饱和】,2)),' ％')),COLORYELLOW;
布林轨:(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,COLORRED,LINETHICK2;
MA3:=MA(CLOSE,20),COLORMAGENTA,LINETHICK2;
DRAWBAND(布林轨,RGB(250,125,50),MA3,RGB(0,150,250));
MA1:MA(CLOSE,5),COLORWHITE;
MA2:MA(CLOSE,10),COLORYELLOW;
IF(布林轨<MA3 OR C<布林轨,布林轨,DRAWNULL),COLORBLUE,LINETHICK2;
涨势线:IF(布林轨>MA3,MA3,DRAWNULL),COLORMAGENTA,LINETHICK3;
跌势线:IF(布林轨<=MA3,MA3,DRAWNULL),COLORLIBLUE,LINETHICK2;
MA4:MA(CLOSE,60),COLORGREEN;
HLCO:=(C+H+L+O)/4;
MAHC:=MA((CLOSE*2+H)/3,5),COLOR0000FF;
MAHO:=MA((O*2+H)/3,5),COLOR00FF00;
MALC:=MA((C+L*2)/3,5),COLORFFFFFF;
MALO:=MA((O+L*2)/3,5),COLOR00FFFF;
CO:=O+(C-O)/2;
DRAWKLINE(H,O,L,C);
STICKLINE(MAHC>=MAHO,C,O,2.9,0),COLOR000099;
STICKLINE(MAHC>=MAHO,C,O,1.5,0),COLOR0000CC;
STICKLINE(MAHC>=MAHO,C,O,0.1,0),COLOR9966FF;
STICKLINE(MAHC<MAHO,C,O,2.9,0),COLOR999900;
STICKLINE(MAHC<MAHO,C,O,1.5,0),COLORCCCC00;
STICKLINE(MAHC<MAHO,C,O,0.1,0),COLORFFFF66;
STICKLINE(MAHC>=MAHO AND C<MAHO,CO,MAX(O,C),2.8,0),COLORMAGENTA;
{STICKLINE(LC>MAHC,CO,MAX(C,O),2.8,0),COLORRED;
STICKLINE(LC<MAHC,CO,MIN(C,O),2.8,0),COLORCYAN;}
STICKLINE(CROSS(MAHC,MAHO),C,O,2.8,0),COLORYELLOW;
STICKLINE(MAHC<MAHO AND (CROSS(C,MALO) OR CROSS(HLCO,MALO)),C,O,2.8,0),COLORWHITE;
STICKLINE(CROSS(MAHO,MAHC),C,O,2.8,0),COLORFF3300;
{STICKLINE(REF(C,1)<LC AND C>=LC AND CROSS(C,MAX(MAHC,MAHO)),CO,MIN(C,O),2.8,0),COLORYELLOW;}
{STICKLINE(REF(C,1)<LC AND C>=LC AND CROSS(C,MAHC) AND MAHC>MAHO,C,O,2.8,0),COLORYELLOW;}

上一页  [1] [2] [3]  下一页