A:=IF(HIGH>=REF(HIGH,1)&&HIGH>=REF(HIGH,2)&&HIGH>=REF(HIGH,3) &&HIGH>=REF(HIGH,4)&&HIGH>=REF(HIGH,5),LOW,0); B:=IF(LOW<=REF(LOW,1)&&LOW<=REF(LOW,2)&&LOW<=REF(LOW,3) &&LOW<=REF(LOW,4)&&LOW<=REF(LOW,5),HIGH,888888); P1:=IF(A>REF(L,1),REF(L,1),0); P2:=IF(A>REF(L,2)&&A<=REF(L,1),REF(L,2),0); P3:=IF(A>REF(L,3)&&A<=REF(L,1)&&A<=REF(L,2),REF(L,3),0); P4:=IF(A>REF(L,4)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3),REF(L,4),0); P5:=IF(A>REF(L,5)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4),REF(L,5),0); P6:=IF(A>REF(L,6)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5),REF(L,6),0); P7:=IF(A>REF(L,7)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6),REF(L,7),0); P8:=IF(A>REF(L,8)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7),REF (L,8),0); P9:=IF(A>REF(L,9)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7) &&A<=REF(L,8),REF(L,9),0); P10:=IF(A>REF(L,10)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7) &&A<=REF(L,8)&&A<=REF(L,9),REF(L,10),0); AA:=P1+P2+P3+P4+P5+P6+P7+P8+P9+P10; PP1:=IF(AA>REF(L,1),REF(L,1),0); PP2:=IF(AA>REF(L,2)&&AA<=REF(L,1),REF(L,2),0); PP3:=IF(AA>REF(L,3)&&AA<=REF(L,1)&&AA<=REF(L,2),REF(L,3),0); PP4:=IF(AA>REF(L,4)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3),REF(L,4),0); PP5:=IF(AA>REF(L,5)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4),REF(L,5),0); PP6:=IF(AA>REF(L,6)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5),REF(L,6),0); PP7:=IF(AA>REF(L,7)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6),REF (L,7),0); PP8:=IF(AA>REF(L,8)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6)&&AA<=REF (L,7),REF(L,8),0); PP9:=IF(AA>REF(L,9)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6)&&AA<=REF (L,7)&&AA<=REF(L,8),REF(L,9),0); PP10:=IF(AA>REF(L,10)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6) &&AA<=REF(L,7)&&AA<=REF(L,8)&&AA<=REF(L,9),REF(L,10),0); AAA:=PP1+PP2+PP3+PP4+PP5+PP6+PP7+PP8+PP9+PP10; C1:=VALUEWHEN(AAA>0,AAA); T1:=IF(B<REF(H,1),REF(H,1),0); T2:=IF(B<REF(H,2)&&B>=REF(H,1),REF(H,2),0); T3:=IF(B<REF(H,3)&&B>=REF(H,1)&&B>=REF(H,2),REF(H,3),0); T4:=IF(B<REF(H,4)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3),REF(H,4),0); T5:=IF(B<REF(H,5)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4),REF(H,5),0); T6:=IF(B<REF(H,6)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5),REF(H,6),0); T7:=IF(B<REF(H,7)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6),REF(H,7),0); T8:=IF(B<REF(H,8)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7),REF (H,8),0); T9:=IF(B<REF(H,9)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7) &&B>=REF(H,8),REF(H,9),0); T10:=IF(B<REF(H,10)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7) &&B>=REF(H,8)&&B>=REF(H,9),REF(H,10),0); BB:=IF((T1+T2+T3+T4+T5+T6+T7+T8+T9+T10)=0,888888,T1+T2+T3+T4+T5+T6+T7+T8+T9+T10); TT1:=IF(BB<REF(H,1),REF(H,1),0); TT2:=IF(BB<REF(H,2)&&BB>=REF(H,1),REF(H,2),0); TT3:=IF(BB<REF(H,3)&&BB>=REF(H,1)&&BB>=REF(H,2),REF(H,3),0); TT4:=IF(BB<REF(H,4)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3),REF(H,4),0); TT5:=IF(BB<REF(H,5)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4),REF(H,5),0); TT6:=IF(BB<REF(H,6)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5),REF(H,6),0); TT7:=IF(BB<REF(H,7)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6),REF (H,7),0); TT8:=IF(BB<REF(H,8)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6)&&BB>=REF (H,7),REF(H,8),0); TT9:=IF(BB<REF(H,9)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6)&&BB>=REF (H,7)&&BB>=REF(H,8),REF(H,9),0); TT10:=IF(BB<REF(H,10)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6) &&BB>=REF(H,7)&&BB>=REF(H,8)&&BB>=REF(H,9),REF(H,10),0); BBB:=TT1+TT2+TT3+TT4+TT5+TT6+TT7+TT8+TT9+TT10; D:=VALUEWHEN(BBB>0,BBB); UD:=IF(CLOSE>D&&REF(CLOSE,1)<=D,1,IF(CLOSE<C1&&REF(CLOSE,1)>=C1,-3,0)); K:=VALUEWHEN(UD<>0,UD); W:IF(K=1,C1,D),COLOR03DAEB,LINETHICK2; H1:=IF(H>=REF(H,1)&&H>=REF(H,2)&&H>=REF(H,3)&&H>=REF(H,4)&&H>=REF(H,5)&& H>REFX(H,1)&&H>REFX(H,2)&&H>REFX(H,3),HIGH,0); L1:=IF(L<=REF(L,1)&&L<=REF(L,2)&&L<=REF(L,3)&&L<=REF(L,4)&&L<=REF(L,5)&& L<REFX(L,1)&&L<REFX(L,2)&&L<REFX(L,3),LOW,0); H2:=VALUEWHEN(H1>0,H1); L2:=VALUEWHEN(L1>0,L1); 上軌:=HHV (H2,34),LINETHICK1,COLOR12D36D; 下軌:=LLV (L2,34),LINETHICK1,COLOR00FF00; H3:=IF(H2<>REF(H2,1),上軌-下軌,0); L3:=IF(L2<>REF(L2,1),上軌-下軌,0); PLOYLINE(H2>0,(上軌-下軌)*0.618+下軌),COLORFF8000; PLOYLINE(H2>0,(上軌-下軌)*0.5+下軌),COLORFF00FF,DOTLINE; PLOYLINE(H2>0,(上軌-下軌)*0.382+下軌),COLORFF8000; QWX1:=HHV(C,30); QWX2:=LLV(C,30); QWX3:=CONST((QWX1+QWX2)/2); QWX4:=ABS((2*C+H+L)/4-MA(C,20))/MA(C,20); QWX5:=CONST((1-7/100)*(DMA(CLOSE,QWX4))); QWX6:=CONST((1+7/100)*(DMA(CLOSE,QWX4))); {KDJ} RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; KX:=SMA(RSV1,3,1); DX:=SMA(KX,3,1); JX:=3*KX-2*DX; {MACD} DIF:=(EMA(C,12)-EMA(C,26))*2+QWX3,COLORWHITE; DEA:=EMA(DIF,9),COLORYELLOW; MCD:=(DIF-DEA)*2+QWX3; M5:=MA(C,5),COLORWHITE; M10:=MA(C,10),COLORYELLOW; M20:=MA(C,20),COLORFF00FF; VA1:=IF(C>O,C,O); VA2:=MEMA(C,5); VA3:=ATAN((VA2/REF(VA2,1)-1)*100); VA4:=IF(VA3>0,VA3,VA3); VA5:=(C/REF(C,1)-1)*100; VA6:=VA5<1.5 AND VA5>-1.5; 小撐:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=5),QWX5,DRAWNULL),DRAWNULL),COLORCYAN; 阻力:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=5),QWX6,DRAWNULL),DRAWNULL),COLORYELLOW; {柱型顯示} STICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,4,-1),COLOR00FFFF; STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,4,-1),COLORGREEN; {藍(lán)} STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLORFF7700; STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.2,0),COLORFF9900; STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.5,0),COLORFFBB00; STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0.5,0),COLORCYAN; {紅} STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR000099; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLOR0000CC; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0),COLOR0000FF; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF; {綠} STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,3,0),COLOR009900; STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,2.2,0),COLOR00BB00; STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,1.5,0),COLOR00DD00; STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,0.5,0),COLOR00FF00; {灰} STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,3,0),COLOR999999; STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,2.2,0),COLORBBBBBB; STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,1.5,0),COLORDDDDDD; STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,0.5,0),COLORFFFFFF; STICKLINE(CROSS(JX,DX),OPEN,CLOSE,0.5,0),COLORYELLOW; STICKLINE(CROSS(DX,JX),OPEN,CLOSE,0.5,0),COLOR000099; LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),4.1,1) / SMA(ABS((CLOSE - LC)),4.1,1)) * 100); VAR27:=REF(CLOSE,1); VAR28:=((SMA(MAX((CLOSE - VAR27),0),5.5,1) / SMA(ABS((CLOSE - VAR27)),6,1)) * 100); VARA:=((AMOUNT / VOL) / 100); VARB:=(((((3 * H) + L) + O) + (2 * C)) / 7); VARC:=((SUM(AMOUNT,7) / VARA) / 100); VARD:=DMA(VARB,(VOL / VARC)); VARE:=(((CLOSE - VARD) / VARD) * 100); VARF:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100); VARJ:=(MA(VARE,20) + STD(VARE,20)); BIAS18:=(((CLOSE - MA(CLOSE,18)) / MA(CLOSE,18)) * 100); PP:=SMA(VARF,3,1); SS:=(((REF(BIAS18,1) >= 5) AND CROSS(VARJ,VARE)) AND (PP> 79)); VAR1:=ZIG(3,10) < REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) > REF(ZIG(3,10),2); VAR2:=ZIG(3,10) > REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) < REF(ZIG(3,10),2); STICKLINE(VAR1,O,C,3,0),COLOR00AAFF; STICKLINE(VAR1,O,C,2.2,0),COLOR22CCFF; STICKLINE(VAR1,O,C,1.5,0),COLOR33DDFF; STICKLINE(VAR1,O,C,0.5,0),COLOR44EEFF; STICKLINE(VAR2,O,C,3,0),COLORA200F9; STICKLINE(VAR2,O,C,2.2,0),COLOREF38FE; STICKLINE(VAR2,O,C,1.5,0),COLORFF00FF; STICKLINE(VAR2,O,C,0.5,0),COLORFF00FF; VAR1111:=BACKSET((REF(H,2) = HHV(H,5)),3); VAR2222:=CROSS(VAR1111,0.9); VAR3333:=BACKSET((REF(L,2) = LLV(L,5)),3); VAR4444:=CROSS(VAR3333,0.9); 壓力:REF(HIGH,BARSLAST(VAR2222)),NODRAW,COLOR808000; 支撐:REF(LOW,BARSLAST(VAR4444)),NODRAW,COLOR1D99FE; STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4444)),REF(LOW,BARSLAST(VAR4444)),2,0),COLOR0080FF; STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2222)),REF(HIGH,BARSLAST(VAR2222)),2,0),COLOR808000; DRAWNUMBER(ISLASTBAR,W,W),COLORYELLOW; |
|