|
VAR1:=EMA(C,6) - EMA(C,12);
VAR2:=EMA(VAR1,5);
VAR3:=VAR1-VAR2;
VAR4:=DMA((H + L + C * 2) / 4,0.9);
VAR5:=vol / ((H - L) * 2 - Abs(C - O));
VAR6:=IF(C > O,VAR5 * (H - L),IF(C < O,VAR5 * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - VAR5 * (H - C + (O - L)),IF(C < O,0 - VAR5 * (H - L),0 - VOL / 2));
VAR7:=VAR6 / 20 / 1.15;
量能:=VAR7 * 0.55 + REF(VAR7,1) * 0.33 + REF(VAR7,2) * 0.22;
VAR8:=EMA(量能,3);
資金:=VAR8;
STICKLINE(資金 > 0 AND VAR3>0 ,VAR3/30,0,1,0),COLORRED;
STICKLINE(資金 > 0 AND VAR3< 0,0,VAR3/30,1,0),COLORGREEN;
GSCHW1:=EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5);
GSCHW2:=(HHV(HIGH,25)-LLV(LOW,25))/EMA((CLOSE-LLV(LOW,25)),5);
GSCHW3:=crOSS(GSCHW2,GSCHW1);
GSCHW4:=REF(GSCHW2,2)< REF(GSCHW2,1) AND GSCHW2< REF(GSCHW2,1);
GSCHW5:=COUNT(GSCHW3,7)>0 AND GSCHW4;
GSCHW6:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
GSCHW7:=SMA(ABS(LOW-GSCHW6),13,1)/SMA(MAX(LOW-GSCHW6,0),10,1);
GSCHW8:=EMA(GSCHW7,10);
GSCHW9:=EMA(C,5);
GSCHW10:=LLV(LOW,33);
GSCHW11:=EMA(IF(LOW<=GSCHW10,GSCHW9,0),3)*40;
STICKLINE(GSCHW5 AND COUNT(GSCHW5,5)=1 AND H>MA(C,5),0,0.05,4,0),COLORRED;
DRAWTEXT(GSCHW5 AND COUNT(GSCHW5,5)=1 AND H>MA(C,5),0.045,' ←資金階段底'),COLORRED;
GSCHW12:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
GSCHW13:=SMA(GSCHW12,13,8);
VARG:=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);
CZS0:=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);
CZS1:=VARG< REF(CZS0,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(CZS1 AND COUNT(CZS1,30)=1,0.045,' ←大資金入場'),COLOR80FFFF;
STICKLINE(CZS1 AND COUNT(CZS1,30)=1,0,0.05,2,0),COLORFF00FF;
VARH:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
CZS2:=(HIGH+LOW+CLOSE)/3;
CZS3:=(CZS2-MA(CZS2,14))/(0.015*AVEDEV(CZS2,14));
CZS4:=(CZS2-MA(CZS2,70))/(0.015*AVEDEV(CZS2,70));
CZS5:=IF(CZS3>=150 AND CZS3< 200 AND CZS4>=150 AND CZS4< 200,10,0);
CZS6:=IF(CZS3<=-150 AND CZS3>-200 AND CZS4<=-150 AND CZS4>-200,-10,CZS5);
CZS7:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
CZS8:=100-ABS(CZS7);
CZS9:=IF(CZS8< 90,CZS8,100);
CZS10:=IF(VARH>0,VARH,0);
CZS11:=IF(CZS4>=200 AND CZS3>=150,15,IF(CZS4<=-200 AND CZS3<=-150,-15,CZS6))+60;
CZS12:=CZS10>48 AND CZS11>60 AND CZS9< 100;
DRAWTEXT(CZS12 AND COUNT(CZS12,30)=1,0.045,' ←大資金出貨'),LINETHICK1,COLORFF00FF;
STICKLINE(CZS12 AND COUNT(CZS12,30)=1,0,0.05,2,0),COLORFFCC66; 
|
