通达信【数字注解主图】海边技术 数字玄学主图 双胞胎数字 源码附图

{A1:=10;
A2:=10;
A3:=ZIG(3,10);
A4:=PEAK(3,10,1);
A5:=TROUGH(3,10,1);
CC:IF((A3 < (REF(A3,1))),A4,A5),LINETHICK2;
A6:=CROSS((A4 - 0.02),A3);
A7:=CROSS(A3,(A5 + 0.02));
A8:=A2 / 100;
A9:=IF((A3 < (REF(A3,1))),A8,REVERSE(A8));
A10:=IF((A3 < (REF(A3,1))),A6,A7);};
J:IF(H>=REF(H,1),H,DRAWNULL),NODRAW;
DRAWTEXT(J<>REF(J,1),J,VAR2STR(J,2));
D:IF(L<=REF(L,1),L,DRAWNULL),NODRAW;
DRAWTEXT(D<>REF(D,1),D,VAR2STR(D,2)),COLORYELLOW;
M:=INTPART(FRACPART(J)*10);
N:=INTPART(FRACPART(J*10)*10);
DRAWTEXT(M=N,H,VAR2STR(J,2)),COLORRED;
M2:=INTPART(FRACPART(D)*10);
N2:=INTPART(FRACPART(D*10)*10);
DRAWTEXT(M2=N2,L,VAR2STR(D,2)),COLORLIBLUE;

T:IF(BETWEEN(J,1,9.999),INTPART(J)+M+N,DRAWNULL),NODRAW;
K:IF(T>=10,INTPART(T/10)+INTPART(FRACPART(T/10)*10),DRAWNULL),NODRAW;
W:IF(T<10,T,DRAWNULL),NODRAW;
DRAWTEXT(K>=0,J+0.05,VAR2STR(K,0)),COLORGREEN;
DRAWTEXT(W>=1,J+0.05,VAR2STR(W,0)),COLORGREEN,COLORGREEN;

T1:IF(BETWEEN(J,10,99.999),INTPART(J/10)+INTPART(FRACPART(J/10)*10)+M+N,DRAWNULL),NODRAW;
K1:IF(T1>=10,INTPART(T1/10)+INTPART(FRACPART(T1/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(K1>=0,J+0.25,VAR2STR(K1,0)),COLORGREEN;
W1:IF(T1<10,T1,DRAWNULL),NODRAW;
DRAWTEXT(W1>=1,J+0.05,VAR2STR(W1,0)),COLORGREEN,COLORGREEN;


T2:IF(BETWEEN(J,100,999.999),INTPART(J/100)+INTPART(FRACPART(J/100)*10)+INTPART(FRACPART(FRACPART(J/100)*10)*10)+M+N,DRAWNULL),NODRAW;
K2:IF(T2>=10,INTPART(T2/10)+INTPART(FRACPART(T2/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(K2>=0,J+0.9,VAR2STR(K2,0)),COLORGREEN;

W2:IF(T2<10,T2,DRAWNULL),NODRAW;
DRAWTEXT(W2>=1,J+0.9,VAR2STR(W2,0)),COLORGREEN,COLORGREEN;


T3:IF(BETWEEN(J,1000,9999.999),INTPART(J/1000)+INTPART(FRACPART(J/1000)*10)+INTPART(FRACPART(FRACPART(J/1000)*10)*10)+INTPART(FRACPART(FRACPART(J/1000)*100)*10)+M+N,DRAWNULL),NODRAW;
K3:IF(T3>=10,INTPART(T3/10)+INTPART(FRACPART(T3/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(K3>=0,J+10,VAR2STR(K3,0)),COLORGREEN;
W3:IF(T3<10,T3,DRAWNULL),NODRAW;
DRAWTEXT(W3>=1,J+10,VAR2STR(W3,0)),COLORGREEN,COLORGREEN;


X:IF(BETWEEN(D,1,9.999),INTPART(D)+M2+N2,DRAWNULL),NODRAW;
Y:IF(X>=10,INTPART(X/10)+INTPART(FRACPART(X/10)*10),DRAWNULL),NODRAW;
Q:IF(X<10,X,DRAWNULL),NODRAW;
DRAWTEXT(Y>=0,D-0.05,VAR2STR(Y,0)),COLORGREEN,COLORMAGENTA;
DRAWTEXT(Q>=1,D-0.05,VAR2STR(Q,0)),COLORGREEN,COLORMAGENTA;
X1:IF(BETWEEN(D,10,99.999),INTPART(D/10)+INTPART(FRACPART(D/10)*10)+M2+N2,DRAWNULL),NODRAW;
Y1:IF(X1>=10,INTPART(X1/10)+INTPART(FRACPART(X1/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(Y1>=0,D-0.25,VAR2STR(Y1,0)),COLORMAGENTA;
Q1:IF(X1<10,X1,DRAWNULL),NODRAW;
DRAWTEXT(Q1>=1,D-0.25,VAR2STR(Q1,0)),COLORGREEN,COLORMAGENTA;


X2:IF(BETWEEN(D,100,999.999),INTPART(D/100)+INTPART(FRACPART(D/100)*10)+INTPART(FRACPART(FRACPART(D/100)*10)*10)+M2+N2,DRAWNULL),NODRAW;
Y2:IF(X2>=10,INTPART(X2/10)+INTPART(FRACPART(X2/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(Y2>=0,D-0.9,VAR2STR(Y2,0)),COLORMAGENTA;
Q2:IF(X2<10,X2,DRAWNULL),NODRAW;
DRAWTEXT(Q2>=1,D-0.9,VAR2STR(Q2,0)),COLORGREEN,COLORMAGENTA;

X3:IF(BETWEEN(D,1000,9999.999),INTPART(D/1000)+INTPART(FRACPART(D/1000)*10)+INTPART(FRACPART(FRACPART(D/1000)*10)*10)+INTPART(FRACPART(FRACPART(D/1000)*100)*10)+M2+N2,DRAWNULL),NODRAW;
Y3:IF(X3>=10,INTPART(X3/10)+INTPART(FRACPART(X3/10)*10),DRAWNULL),NODRAW;
DRAWTEXT(Y3>=0,D-10,VAR2STR(Y3,0)),COLORMAGENTA;
Q3:IF(X3<10,X3,DRAWNULL),NODRAW;
DRAWTEXT(Q3>=1,D-10,VAR2STR(Q3,0)),COLORGREEN,COLORMAGENTA;
STICKLINE(HREF(L,1) ,C,O,1,0),COLORRED;
Z:IF(HREF(L,1),H,DRAWNULL);
U:IF(HREF(L,1),L,DRAWNULL);
DRAWTEXT(Z<>0,Z,VAR2STR(Z,2));
DRAWTEXT(U<>0,U,VAR2STR(U,2));