STICKLINE(1,HIGH*2,LOW,100000,0),COLOR461200;
VARL:= VOL*(OPEN+CLOSE+HIGH+LOW)/4;
S:= FORCAST(EMA(VARL,13)/EMA(VOL,13),20);
SS:= SMA(S,3,1);
YF:= 5*HHV(SS,2)-4*SS;
TF:= 2*SS-YF;
海: POLYLINE(CLOSE>0,TF),LINETHICK2,COLORFF0099;
STICKLINE(TF<YF,TF,YF,1,0),COLORF8008E;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,6,0),COLOR0000DD;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,4,0),COLOR0000EE;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0),COLOR0000FF;
STICKLINE(CLOSE<OPEN,OPEN,CLOSE,6,0),COLOR008800;
STICKLINE(CLOSE<OPEN,OPEN,CLOSE,4,0),COLOR009900;
STICKLINE(CLOSE<OPEN,OPEN,CLOSE,2,0),COLOR00AA00;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0,0),COLOR338EFF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLOR00BB00;
河: POLYLINE(CLOSE>0,YF),LINETHICK2,COLORFF0099;
航导: FORCAST(CLOSE,20),LINETHICK0,COLORFFFFFF;
一航: FORCAST(SMA(CLOSE,15,1)+SMA(CLOSE-SMA(CLOSE,15,1),3,1),20),LINETHICK0,COLOR00FF00;
趋势:= 0.01*AMOUNT/VOL;
SH:= SMA(HIGH,21,2)*1.02;
HH:= SMA(HIGH,21,2)*1.1;
XH:= SMA(LOW,27,2)*0.9;
DRAWTEXT(LONGCROSS(趋势,SH,13),LOW,'冲浪'),COLORFFFF00;
DRAWTEXT(LONGCROSS(HH, 趋势,13),航导*1.02,'返航'),COLOR00FF00;
DRAWTEXT(LONGCROSS(XH,航导,3),航导,' 海底'),COLOR9090FF;
启航: IF(CROSS(航导,XH) AND CLOSE>S,HIGH,0),LINETHICK0,POINTDOT,COLOR00FFFF;
DRAWTEXT(启航,LOW,'启航'),COLOR00FFFF;
LC:= REF(CLOSE,1);
RSI:= SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
VARE:= 3*SMA((CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100,10,1),3,1)-10;
VARJ:= (RSI+VARE)/2;
QD:= MA(CLOSE+(VARJ/50-1)*(MA(CLOSE,1)/20),1);
●扬帆: IF(CLOSE>航导 AND QD>航导 AND 航导>一航 AND CLOSE>河 AND CROSS(航导,SS),1,0),LINETHICK0,COLOR00FFFF;
DRAWTEXT(●扬帆,海,'●'),COLOR00FFFF;
破浪: IF(LONGCROSS(趋势,SH,13),1,0),LINETHICK0,COLORFFFF00;
E:= CROSS(80,RSI);
DRAWTEXT(E,HIGH*1.01,'⊙'),COLOR00FF00;
AA:= VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动性买:= IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*(HIGH-OPEN+CLOSE-LOW),VOL/2));
主动性卖:= IF(CLOSE>OPEN,AA*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2));
A1:= IF(主动性买,VOL*3,0);
A2:= IF(主动性卖,VOL*(-3),0);
DT:= DYNAINFO(3)*0.92;
K1:= SUM(A1,0)/SUM(VOL,0);
K2:= SUM(A2,0)/SUM(VOL,0);
纬1: IF(K1,K1*0.35+DT,DT),LINETHICK0,COLOR6666EE;
纬2: IF(K2,K2*0.35+DT,DT),LINETHICK0,COLOR0000FF;
纬高1: (K1*0.35+DT+(K2*0.35+DT))/1,LINETHICK1,POINTDOT,COLORFF00FF;
纬高2: (K1*0.35+DT+(K2*0.35+DT))/1.5,LINETHICK1,POINTDOT,COLORFFFF00;
纬中: (K1*0.35+DT+(K2*0.35+DT))/2,LINETHICK1,COLOR00FFFF;
纬低1: (K1*0.35+DT+(K2*0.35+DT))/2.5,LINETHICK1,POINTDOT,COLOR00FF00;
纬低2: (K1*0.35+DT+(K2*0.35+DT))/3,LINETHICK1,POINTDOT,COLORFFFFFF;
水文趋势:= ZIG(3,3);
M13:= ZIG(3,13);
A:= IF(CROSS(M13,REF(M13,1)) AND REF(M13,1)<=M13,M13+2,ZIG(3,21)-1);
VAR1:= ZIG(3,40);
VAR2:= REF(VAR1,1);
VAR3:=CROSS(CLOSE,"BOLL.LOWER"(20,2));
VAR4:= CROSS(VAR1,VAR2);
VAR5:= VOL/REF(VOL,2)>2;
VAR6:= (CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
VAR7:= SMA(VAR6,3,1);
当心海盗: IF(水文趋势=M13 AND 水文趋势>REF(水文趋势,1) AND M13>REF(M13,1) AND VAR7>68,河,A*0.1),LINETHICK0,STICK,COLORFF0000;
当心翻船:= IF(CROSS(REF(M13,1),M13) AND REF(M13,1)>=M13,A,A*0.1);
未来A: IF(CROSS(VAR1,VAR2),S,0),LINETHICK1,STICK,COLORFFFF00;
未来B: IF(IF(BARSCOUNT(CLOSE)>20,VAR3,1) AND VAR4 AND VAR5,航导,A*0.1),LINETHICK3,STICK,COLOR00FFFF;
HGA:= HHV(HIGH,40);
LDA:= LLV(LOW,10);
LDAB:= LLV(LOW,55);
HGB:= HHV(HIGH,20);
LDB:= LLV(LOW,40);
HGAA:= BARSLAST(HIGH=HGA);
LDAA:= BARSLAST(LOW=LDA);
LDABB:= BARSLAST(LOW=LDAB);
GG:= HGAA-LDAA;
DD:= LDABB-LDAA;
DRAWLINE(HIGH=HGA,HIGH,HIGH=HGB AND GG>10,HIGH,1),COLOREEEEEE;
DRAWLINE(LOW=LDAB,LOW,LOW=LDB AND DD>10,LOW,1),COLOREEEEEE;
HV1:= MA(VOL,5);
HV2:= VOL/REF(HV1,1)>1.6;
HV3:= CLOSE/REF(CLOSE,1)>1.05;
TY1:= MA(CLOSE,43);
TY2:= HHV(HIGH,43);
TY3:= LLV(LOW,43);
TY4:= (TY2-TY1)/TY1;
TY5:= (TY1-TY3)/TY1;
TY:= REF(TY4,1)<0.15 AND REF(TY5,1)<0.15;
TYY:= HHV(HIGH,43);
TTY:= HIGH=TYY;
HSL:= VOL/MA(VOL,5)<3;
突破: IF(HV2 AND HV3 AND TY AND TTY AND BARSCOUNT(CLOSE)>80,OPEN,0),LINETHICK0,STICK,COLORFFFFFF;
突破长期盘整:= REF((HHV(HIGH,89)-LLV(LOW,89))/LLV(LOW,89)/LLV(LOW,89),1)<=5/100 AND CLOSE>=REF(HHV(HIGH,89),1) AND BARSCOUNT(CLOSE)>85 AND VOL/REF(HV1,1)>2 AND CLOSE/REF(CLOSE,1)>1.03;
DRAWTEXT(突破长期盘整,LOW*0.98,'←破冰'),COLOR00FFFF;
DRAWTEXT( 突破,CLOSE,'勃海潮评台'),COLORFFFFFF;
|