RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
VAR4:=SMA(RV,3,1);
VAR5:=SMA(VAR4,3,1);
KK:=EMA(SMA(RG,3,1),2);
DD:=SMA(KK,3,1);
DRAWTEXT(CROSS(VAR4,VAR5) AND CROSS(KK,DD),9,' 共振點'),COLORYELLOW;
DRAWICON(CROSS(VAR4,VAR5) AND CROSS(KK,DD),9,23);
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); {選股設JC=10即可}
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A:=IF(CROSS(0,DEA),1,0);
A1:=IF(DIFF<0 AND CROSS(DIFF,DEA),1,0);
SS:=IF(A,SUM(A1,0),0);
SSB:=HHV(SS,0);
SSS:=SUM(A1,0);
W底選股:IF(SSS-SSB=2 AND SSS>REF(SSS,1),-22,0),LINETHICK2,COLORFFFF00;
IF(SSS-SSB=2 AND SSS>REF(SSS,1),-12,0),LINETHICK2,COLORFFFF00;
DRAWTEXT(A1,-8,'↖W底'),COLORYELLOW;
DRAWTEXT_FIX(1,0.50,5,0,'~☆~云在云端優化版~☆~'),COLORRED;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建倉區: IF((VARO7<10),-6,0) ,COLORYELLOW,LINETHICK3;
IF((VARO7<10),-3,0) ,COLORBLACK,LINETHICK3;
MA2:=EMA(C,2);MA5:=EMA(C,5);MA13:=EMA(C,13);MA30:=EMA(C,30);
MA55:=EMA(C,55);YCX:=MA5>=REF(MA5,1);
H1:=MAX(MAX(MA5,MA13),MA30);L1:=MIN(MIN(MA5,MA13),MA30);
一陽穿三線:= H1<C AND O<L1 AND YCX AND MA2>REF(MA2,1);
滿倉選股:IF(一陽穿三線,38,0),COLORMAGENTA,LINETHICK3;
IF(一陽穿三線,30,0),COLORBLACK,LINETHICK3;
DRAWTEXT(一陽穿三線,42,'↙滿'),COLORYELLOW;
VAR2:=0.0001*AMOUNT;
MA1:=0.0001*MA(AMOUNT,5);
M2:=0.0001*MA(AMOUNT,10);
百日地量:LLV(VAR2,100)=VAR2,STICK,COLORCC66FF;
DRAWTEXT(百日地量,-8,'↖地'),COLORCC66FF;
AA05:=MA(C,5);
五日乖離率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3);
AA10:=MA(C,10);AA20:=MA(C,20);
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
AA30:=MA(C,30);
三拾日乖離率:=(C-AA30)/AA30*100;
(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
強勢選股:FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
加倉:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) ;
MR:=COUNT(CROSS(五日乖離率,0),3)>=1 AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;
青云直上選股:IF(FILTER(MR,10),30,0),COLORRED,LINETHICK3;
IF(FILTER(MR,10),20,0),COLORBLACK,LINETHICK3;
DRAWTEXT(FILTER(MR,10),35,'↙青'),COLORRED;
LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
逃頂:CROSS(80,RSI)*50,LINETHICK3 ,COLORGREEN;
CROSS(80,RSI)*40,LINETHICK3 ,COLORBLACK;
DRAWTEXT(CROSS(80,RSI),52,' ↙頂 '),COLORGREEN;
VAR11:=(2*CLOSE+HIGH+LOW)/4;
VAR22:=LLV(LOW,34);
VAR33:=HHV(HIGH,34);
Y:EMA((VAR11-VAR22)/(VAR33-VAR22)*100,13),COLORRED;
D:EMA(0.667*REF(Y,1)+0.333*Y,2),COLORYELLOW;
STICKLINE(D<Y,Y,D,2,0),COLORRED;
DRAWICON(CROSS(Y,D),Y,23);
BIAS1W :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS2W :=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS3W :=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
MM:=(BIAS1W+2*BIAS2W+3*BIAS3W)/6;
MN:=MA(MM,3);
VAR24:=LLV(LOW,36);
VAR25:=HHV(HIGH,30);
VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25;
底背離:IF(MN<-4 ,-11,0),COLORA67D3D,LINETHICK3;
頂背離: IF((VAR26>90),110,100), COLORGREEN,LINETHICK3;
IF(MN<-4 ,-8,0),COLORBLACK,LINETHICK2;
IF((VAR26>90),106,100), COLORBLACK,LINETHICK3;
100,COLORFFFF00, LINETHICK1;
