源碼如下:
n 5 60 30 m 5 50 15 MA5:MA(C,5),COLORWHITE; 支撐線:(0.96+M/80000)*MA(CLOSE,N),COLORWHITE,LINETHICK2,CIRCLEDOT; MA20:MA(C,20),LINETHICK3; 漲停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(漲停,OPEN,CLOSE,2,0),COLORMAGENTA; STICKLINE(漲停,H,L,0,0),COLORMAGENTA; 跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0); STICKLINE(跌停,OPEN,CLOSE,2,0),COLORBLUE; STICKLINE(跌停,H,L,0,1),COLORBLUE; A1:=MIN(O,C); B1:=ABS(O-C); LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,2.5,0),COLORWHITE; 日:=150;昨前:=3; 高1:=REF(HHV(H,日),昨前); 頂:REFDATE(高1,DATE),COLORBLACK; 絕頂:=REFDATE(頂,DATE),NODRAW; 跑:=絕頂=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW; STICKLINE(跑,C,O,3,0),COLOR777777; STICKLINE(跑,C,O,2,0),COLORAAAAAA; STICKLINE(跑,C,O,1,0),COLORCCCCCC; STICKLINE(跑,C,O,0.1,0),COLORFFFFFF; STICKLINE(跑,L,H,0,0),COLORFFFFFF; DRAWTEXT(跑,C*0.99,絕頂)COLOR00FF00; A0:=(L+H+C*2)/4; A1X:=(A1-REF(A1,10))/REF(A1,10)*100,NODRAW; 出擊:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORWHITE,LINETHICK2; 逃遁:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLOR00FF00,LINETHICK2; |
|
|
|