老師幫忙改成WH6用的指標　[文華財經]

• MA5:MA(CLOSE,5);   
• MA10:MA(CLOSE,10);   
• MA30:MA(CLOSE,30);   
• MA60:MA(CLOSE,60);   
• 紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;   
• 綠軌道:=MA(MA(CLOSE,3),3);   
• 上升:IF(紅軌道>=綠軌道,綠軌道,DRAWNULL),COLORRED,LINETHICK2;   
• AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);   
• 加倉:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0);   
• 波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) -   
• (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));   
• DRAWICON(加倉,L*0.97,7);   
• DRAWICON(CROSS(波段底,3),L*0.97,1);   
• A:=(3*C+L+O+H)/6;   
• X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+   
• 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
     
• +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
     
• REF(A,20))/210;   
• MTM:=C-REF(C,1);   
• DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);   
• CB:=EMA(X,13);   
• 賣:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
     
• DRAWTEXT(FILTER(賣=1,1),HIGH*1.02,'賣'),COLORWHITE;   
• 買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
     
• DRAWTEXT(FILTER(買=1,5),LOW-0.03,'買'),COLORRED;   
• RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;   
• K:=SMA(RSV,3,1);   
• D:=SMA(K,3,1);   
• J:=3*K-2*D;   
• BDGD:=HHV(J,2)=HHV(J,8) AND J>80;   
• 注意:=IF(CROSS(REF(J-
  0.01,1),J) AND REF(BDGD,1),1,0);   
• DRAWTEXT(注意 AND 賣!=1,HIGH*1.02,'
  減'),COLORFFFF50;   
• 加倉A:=SMA(EMA((C-
  REF(C,1))/REF(C,1),5)*100,3,1)*10;   
• DRAWTEXT(FILTER((CROSS(加倉
  A,0) OR CROSS(CLOSE,CB)) AND 買!=1,3),LOW-0.03,'加'),COLOR0080FF;   
• MA18:=MA(C,18);   
• 跟:=IF(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),1,0);   
• DRAWTEXT(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),LOW*0.96,'跟'),COLOR7F52AF;   
• 買價:=((C-REF(MA5,1))/5+MA5)*1.004;     
• 買條件:=CROSS(C,買價) AND 買價>REF(買價,1);     
• 醉白K買進:IF(買條件,L,H),COLORWHITE,POINTDOT;     
• STICKLINE(買條
  件,H,L,0,1),COLORWHITE,LINETHICK2;     
• STICKLINE(買條件,O,C,4,1),COLORWHITE,LINETHICK2;     
• 加碼價:=((C-REF(MA10,1))/20+MA10)*1.004;     
• 加碼條件:=CROSS(C,加碼價) AND 加碼價>REF(加碼價,1);     
• 醉黃K加碼:IF(加碼條件,L,H),COLORYELLOW,POINTDOT;     
• STICKLINE(加碼條件,H,L,0,1),COLORYELLOW,LINETHICK2;     
• STICKLINE(加碼條
  件,O,C,4,1),COLORYELLOW,LINETHICK2;

 MA5:MA(CLOSE,5);  
MA10:MA(CLOSE,10);  
MA30:MA(CLOSE,30);  
MA60:MA(CLOSE,60);  
紅軌道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;  
綠軌道:=MA(MA(CLOSE,3),3);  
上升:IF(紅軌道>=綠軌道,綠軌道,NULL),COLORRED,LINETHICK2;  
AA1:=3*SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1)-2*SMA(SMA((C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100,3,1),3,1);  
加倉:=IF(CROSS(AA1,REF(AA1+0.01,1)) AND LLV(AA1,2)=LLV(AA1,8) AND BETWEEN(AA1,20,60),1,0);  
波段底:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1))-2*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));  
DRAWICON(加倉,L*0.97,'ICO4');  
DRAWICON(CROSS(波段底,3),L*0.97,'ICO5');  
A:=(3*C+L+O+H)/6;  
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;  
MTM:=C-REF(C,1);  
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);  
CB:=EMA(X,13);  
賣:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0); 
DRAWTEXT(FILTER(賣=1,1),HIGH*1.02,'賣'),COLORWHITE;  
買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); 
DRAWTEXT(FILTER(買=1,5),LOW-0.03,'買'),COLORRED;  
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;  
K:=SMA(RSV,3,1);  
D:=SMA(K,3,1);  
J:=3*K-2*D;  
BDGD:=HHV(J,2)=HHV(J,8) AND J>80;  
注意:=IF(CROSS(REF(J-0.01,1),J) AND REF(BDGD,1),1,0); 
加倉A:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;  
MA18:=MA(C,18);  
跟:=IF(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),1,0);  
DRAWTEXT(MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18),LOW*0.96,'跟'),COLOR7F52AF;  
買價:=((C-REF(MA5,1))/5+MA5)*1.004;    
買條件:=CROSS(C,買價) AND 買價>REF(買價,1);    
醉白K買進:IF(買條件,L,H),COLORWHITE,POINTDOT;    
STICKLINE1(買條件,H,L,0,1),COLORWHITE,LINETHICK2;    
STICKLINE1(買條件,O,C,4,1),COLORWHITE,LINETHICK2;    
加碼價:=((C-REF(MA10,1))/20+MA10)*1.004;    
加碼條件:=CROSS(C,加碼價) AND 加碼價>REF(加碼價,1);    
醉黃K加碼:IF(加碼條件,L,H),COLORYELLOW,POINTDOT;    
STICKLINE1(加碼條件,H,L,0,1),COLORYELLOW,LINETHICK2;    
STICKLINE1(加碼條件,O,C,4,1),COLORYELLOW,LINETHICK2;

僅供參考。