【原】通達信【跟莊進退】副圖指標源碼

X_1:=(3*CLOSE+LOW+OPEN+HIGH)/6;

X_2:=(20*X_1+19*REF(X_1,1)+18*REF(X_1,2)+17*REF(X_1,3)+16*REF(X_1,4)+15*REF(X_1,5)+14*REF(X_1,6)+13*REF(X_1,7)+12*REF(X_1,8)+11*REF(X_1,9)+10*REF(X_1,10)+9*REF(X_1,11)+8*REF(X_1,12)+7*REF(X_1,13)+6*REF(X_1,14)+5*REF(X_1,15)+4*REF(X_1,16)+3*REF(X_1,17)+2*REF(X_1,18)+REF(X_1,20))/210;

X_3:=MA(X_2,6);

STICKLINE(CLOSE>X_2,(-1.9),(-0.4),4,0),COLOR000099,LINETHICK2;

STICKLINE(CLOSE<X_3,(-1.9),(-0.4),4,0),COLOR017700,LINETHICK2;

STICKLINE(X_2>=CLOSE AND CLOSE>=X_3,(-1.9),(-0.4),8,0),COLOR017700,LINETHICK2;

DRAWTEXT(ISLASTBAR=1,IF(VOL>=0,(-1),(-0.4)),'機構'),COLORWHITE;

X_4:=(3*CLOSE+LOW+OPEN+HIGH)/6;

X_5:=(20*X_4+19*REF(X_4,1)+18*REF(X_4,2)+17*REF(X_4,3)+16*REF(X_4,4)+15*REF(X_4,5)+14*REF(X_4,6)+13*REF(X_4,7)+12*REF(X_4,8)+11*REF(X_4,9)+10*REF(X_4,10)+9*REF(X_4,11)+8*REF(X_4,12)+7*REF(X_4,13)+6*REF(X_4,14)+5*REF(X_4,15)+4*REF(X_4,16)+3*REF(X_4,17)+2*REF(X_4,18)+REF(X_4,20))/210;

X_6:=MA(X_5,3);

X_7:=CLOSE-X_5;

X_8:=VOL*100/CAPITAL;

X_9:=MA(X_8,5);

X_10:=MA(X_8,12);

X_11:=MA(X_8,34);

X_12:=MA(X_8,55);

X_13:=(X_9+X_10+X_11+X_12)/4;

X_14:=X_9-X_12;

X_15:=X_7+X_14;

STICKLINE(X_15>=0,2.5,4,4,0),COLOR000099,LINETHICK2;

STICKLINE(X_15<0,2.5,4,4,0),COLOR017700,LINETHICK2;

DRAWTEXT(ISLASTBAR=1,IF(VOL>=0,3.2,0),'散戶'),COLORWHITE;

X_16:=MAX(MA(CLOSE,60),MA(CLOSE,120));

X_17:=MIN(MA(CLOSE,60),MA(CLOSE,120));

X_18:=VOL;

X_19:=EMA(VOL,5);

X_20:=EMA(VOL,50);

X_21:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);

X_22:=EMA(X_21,5);

X_23:=EMA(X_21,50);

X_24:=(X_19-X_20)*0.00001;

X_25:=(X_22-X_23)*0.000001;

X_26:=X_24+X_25;

STICKLINE(X_26>=0,0.3,1.8,4,0),COLOR000099,LINETHICK2;

STICKLINE(X_26<0,0.3,1.8,4,0),COLOR017700,LINETHICK2;

DRAWTEXT(ISLASTBAR=1,IF(VOL>=0,1,0),'游資'),COLORWHITE;

X_27:=MAX(MA(CLOSE,13),MA(CLOSE,31));

X_28:=MIN(MA(CLOSE,13),MA(CLOSE,31));

X_29:=(3*CLOSE+LOW+OPEN+HIGH)/6;

X_30:=(20*X_29+19*REF(X_29,1)+18*REF(X_29,2)+17*REF(X_29,3)+16*REF(X_29,4)+15*REF(X_29,5)+14*REF(X_29,6)+13*REF(X_29,7)+12*REF(X_29,8)+11*REF(X_29,9)+10*REF(X_29,10)+9*REF(X_29,11)+8*REF(X_29,12)+7*REF(X_29,13)+6*REF(X_29,14)+5*REF(X_29,15)+4*REF(X_29,16)+3*REF(X_29,17)+2*REF(X_29,18)+REF(X_29,20))/210;

X_31:=MA(X_30,6);

X_32:=(X_30-X_31)*1.2;

X_33:=(CLOSE*2+HIGH+LOW)/4*13;

X_34:=EMA(X_33,3)-EMA(X_33,33);

X_35:=EMA(X_34,3);

X_36:=2*(X_34-X_35)*5.7;

X_37:=(X_34-X_35)*0.2;

X_38:=X_32+X_37;

STICKLINE(X_38>=0,(-4.1),(-2.6),4,0),COLOR000099,LINETHICK2;

STICKLINE(X_38<0,(-4.1),(-2.6),4,0),COLOR017700,LINETHICK2;

DRAWTEXT(ISLASTBAR=1,IF(VOL>=0,(-3.4),0),'主力'),COLORWHITE;

散戶:X_15,NODRAW,COLORWHITE;

游資:X_26,NODRAW,COLORYELLOW;

機構:CLOSE-X_2,NODRAW,COLORYELLOW;

主力:X_38,NODRAW,COLORGREEN;