|
VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
" Y7 \& E+ }6 k# m# J; S* W, ~% M9 `4 aVAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
6 R5 t# ~4 E7 X! mVAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)); Q- i1 q2 r: s, g& s4 R8 G6 S
DIR1:=ABS(CLOSE-REF(CLOSE,5));
3 d/ ?; o" i$ T: a& J) w) BVIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
' D, C$ B) k& s& X$ FER1:=DIR1/VIR1;/ P6 S. _ Y: p$ v
CS1:=ER1*(0.8-2/8)+2/8;
( x5 ^: o" j9 [) N E% uCQ1:=CS1*CS1;1 _ T* c( i/ T
AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;# m4 @. G8 y( m' u
DIR2:=ABS(CLOSE-REF(CLOSE,10)); y- B5 e. K0 o
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
- W1 v* `. c5 gER2:=DIR2/VIR2;" G- I/ u8 G& A- F9 W7 d
CS2:=ER2*(0.8-2/24)+2/24;# Y i0 W& Y1 O/ Y, [
CQ2:=CS2*CS2;
; {- C2 I& j5 OAMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;% \. l% P1 b; o0 \5 g
AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORYELLOW,LINETHICK2;$ U: R8 V; k P. ^, v' d5 I% {
AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;
1 L. j1 F) [% Y, _4 BSTICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,3,1),COLOR008000;
% ~% e" Q1 Z6 T9 @; f9 USTICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,3,1),COLORRED;) G* o5 x- n! B: w) [- ^6 k3 j
STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0001),2.3,0),COLOR008000;
, r- N; P/ o! i' I. P* TSTICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.002),2.3,0),COLORRED;. ~1 }5 w, z, L, G
STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,2.3,0),COLOR008000;
# s6 {4 e- v7 h8 \/ S* P$ B: EDRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.04)),7);
: e+ a2 z+ X* A( x- W, H0 l4 g$ ~, aDRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.03)),8);
4 |8 J- H# ~, [PT:=REF(H,1)-REF(L,1);
% S) f6 `7 K7 S: i+ w2 y. f' A' T4 L# _) BCDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;; |( [9 I0 y) _, J; Z
AH:=CDP+PT;/ E2 j# y& p% f" ]; G
AL:=CDP-PT;
3 _- ?- ~' I! ?0 t3 dNH:=CDP*2-REF(L,1);
# x5 W2 j1 k( F) zNL:=CDP*2-REF(H,1);
) k- P# n- l0 l* d5 f强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;
/ D( H4 \4 M) R1 M# k# n( W阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORCYAN;; @) j) i6 b: M2 H
M:=IF(AL |