通达信箱体红绿灯主图源码

箱顶：PEAK(CLOSE,20,1)*0.98;
箱底：TROUGH(CLOSE,20,1)*1.02;
箱高：100*(箱顶-箱底)/箱底，NODRAW;
{HLD}
RSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
X1:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6);
X2:=EMA(X1,10);
AA10:MA(CLOSE,8),COLORYELLOW ,NODRAW;
RSV24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=((3 * K24) - (2 * D24));
VARD:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);
Ö§³Å:EMA(VARD,5),NODRAW;
¾ùÏß:MA(CLOSE,16),NODRAW;
×èµ²:=(SMA(HIGH,21,2) * 1.05);
A:=(3*C+L+O+H)/6;
B:=(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;
{STICKLINE(B>REF(B,1),REF(B,1),B,4,0),COLORYELLOW;
STICKLINE(B<=REF(B,1),REF(B,1),B,4,0),COLORGREEN;}
MA3:=MA(C,3),NODRAW;
MA13:=MA(C,13),COLORGREEN,NODRAW;
IF(MA13>REF(MA13,1),MA13,DRAWNULL),COLORRED,NODRAW;
IF(MA13<REF(MA13,1),MA13,DRAWNULL),COLORYELLOW,NODRAW;
DRAWICON(C>MA3 AND C>MA13 AND MA13>REF(MA13,1)
AND REF(C,1)<MA13,L*0.99,9);
VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))),NODRAW;
VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
STICKLINE(VAR2 < MA(VAR3,8),LOW,HIGH,0,1),COLORBLUE;
STICKLINE(VAR2 > MA(VAR3,8),LOW,HIGH,0,1),COLORRED;
STICKLINE(((OPEN>CLOSE)AND(VAR2<MA(VAR3,6))),(CLOSE-0.03),OPEN,3,0),COLORBLUE;
STICKLINE(((OPEN<CLOSE)AND(VAR2<MA(VAR3,6))),CLOSE,OPEN,3,1),COLORBLUE;
STICKLINE(((OPEN>CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,(CLOSE-0.03),3,0),COLORRED;
STICKLINE(((OPEN<CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,CLOSE,3,1),COLORRED;
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.02)),7);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.02)),8);
MA30:EMA(CLOSE,30),COLORGREEN;