通达信个股资金生命副图源码

主力买力度:=LARGEINTRDVOL*100/VOL;
主力卖力度:=LARGEOUTTRDVOL*100/VOL;
AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;
DRAWRECTREL(1,128,CONST(ABS(主力买力度)*500/AAD),300,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));
DRAWRECTREL(1,600,CONST(ABS(主力卖力度)*500/AAD),780,IF(CONST(主力卖力度)>0,RGB(0,150,250),RGB(0,50,0)));
DRAWTEXT_FIX(1,0,0.18,0,STRCAT('主力买力度:',CON2STR(主力买力度,0))),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.60,0,STRCAT('主力卖力度:',CON2STR(主力卖力度,0))),COLORWHITE;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
K角:=ATAN((K/REF(K,3)-1)*100)*90/3.1416,COLORCYAN;
D角:ATAN((D/REF(D,1)-1)*100)*90/3.1416,COLORGREEN;
长期:(C-LLV(L,30))/(HHV(C,30)-LLV(L,30))*100,COLORBLUE;
长期角:ATAN((长期/REF(长期,5)-1)*100)*90/3.1416,COLORYELLOW;
IF(长期>79,长期,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(长期>49,长期,DRAWNULL),COLORLIMAGENTA,LINETHICK2;