【原】《異動大莊家吸籌建倉》副圖指標，大資金進場提前發現！源碼分享！

《異動大莊家吸籌建倉》副圖指標，大資金進場提前發現！源碼分享！

M:=55;

N:=21;

LC:=REF(CLOSE,1);

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

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

VAR1:=IF(YEAR>=2038 AND MONTH>=1,0,1);

VAR2:=REF(LOW,1)*VAR1;

VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100*VAR1;

VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3)*VAR1;

VAR5:=LLV(LOW,30)*VAR1;

VAR6:=HHV(VAR4,30)*VAR1;

VAR7:=IF(MA(CLOSE,58),1,0)*VAR1;

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7*VAR1;

散戶線: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),NODRAW,;

吸籌:IF(VAR8>100,100,VAR8)*VAR1,colorblue;

莊家吸籌:STICKLINE(吸籌>-100,0,吸籌,9,0),,colorblue;

J:=21;K:=21;N1:=3;

B1:=(HHV(H,J)-C)/(HHV(H,J)-LLV(LOW,J))*40- K;

B2:=SMA(B1,J,1)+100;

B3:=(C-LLV(L,J))/(HHV(H,J)- LLV(L,J))*40;

B4:=SMA(B3,3,1);

B5:=SMA(B4,3,1)+100;

B6:=B5-B2;

資金線:(IF(B6>N1,B6-N1+2,0))*2.5,coloryellow;

突破警戒線:30,colorred;

STICKLINE( 資金線,0,資金線 ,1.7,0 ),colorB0C4DE;

STICKLINE( 資金線 AND 資金線>30,30,資金線 ,1.7,0 ),colorred;

VARC3:=MA(CLOSE,13);

VARC4:=100-ABS((CLOSE-VARC3)/VARC3*100);

VARC5:=LLV(LOW,75);

VARC6:=HHV(HIGH,75);

VARC7:=(VARC6-VARC5)/100;

VARC8:=SMA((CLOSE-VARC5)/VARC7,20,1);

VARC9:=SMA((OPEN-VARC5)/VARC7,20,1);

VARCA:=3*VARC8-2*SMA(VARC8,15,1);

VARCB:=3*VARC9-2*SMA(VARC9,15,1);

VARCC:=100-VARCB;

莊家線: (100-VARCA),COLORFF3300,LINETHICK2;

X:=資金線;

Y:=莊家線;

XG1:=CROSS(X,Y),NODRAW;

DRAWTEXT(XG1=1,23,'金叉'),coloryellow;

VAR2:=1/WINNER(CLOSE);

VAR3:=MA(CLOSE,13);

VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100);

VAR5:=LLV(LOW,120);

VAR6:=HHV(HIGH,120);

VAR7:=(VAR6-VAR5)/100;

VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1);

VAR9:=SMA((OPEN-VAR5)/VAR7,20,1);

VARA:=3*VAR8-2*SMA(VAR8,10,1);

VARB:=3*VAR9-2*SMA(VAR9,10,1);

VARC:=100-VARB;

VARE:=REF(LOW,1)*0.9;

VARF:=LOW*0.9;

VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL;

VAR11:=EMA(VAR10,30);

VAR12:=CLOSE-REF(CLOSE,1);

VAR13:=MAX(VAR12,0);

VAR14:=ABS(VAR12);

VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100;

VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100;

VAR17:=BARSCOUNT(CLOSE);

VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100;

VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;

VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1);{www.goodgongshi.com}

VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;

VAR1D:=SMA(VAR1C,4,1);

VAR1E:=SMA(VAR1D,3,1);

VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;

VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50;

VAR21:=(HIGH+LOW+CLOSE)/3;

VAR22:=(VAR21-MA(VAR21,14))/(0.015*AVEDEV(VAR21,14));

VAR23:=(VAR21-MA(VAR21,70))/(0.015*AVEDEV(VAR21,70));

VAR24:=IF(VAR22>=150 AND VAR22<200 AND VAR23>=150 AND VAR23<200,10,0);

VAR25:=IF(VAR22<=-150 AND VAR22>-200 AND VAR23<=-150 AND VAR23>-200,-10,VAR24);

STICKLINE(VAR20,0,88,20,0),LINETHICK4, COLORFF00FF;

DRAWTEXT(CROSS(VAR20,0.5) AND COUNT(VAR20=1,10)=1,100,'異動大莊家建倉') , COLORFF00FF;

VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA

((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA

((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,110,'大資金進場'),LINETHICK1,colorred;

STICKLINE(VAR11 AND COUNT(VAR11,30)=1,1,98,11,0),COLORFF00FF,LINETHICK4;

{本文技術支持：好公式網 www.goodgongshi.com}