通达信指标公式源码变色双均线.doc

{P1:1 100 10 P2: 1 100 20}
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'11',0);
DRAWNUMBER(ISLASTBAR,C,C),COLORMAGENTA;
N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 ');
MAR1:=MA(CLOSE,P1);
C1:=C>=MAR1;
C2:=CAA:=C1>=C2;
BB:=C2>C1;
STICKLINE(AA,C,O,3,0),COLORRED;
STICKLINE(AA,H,L,0,0),COLORRED;
STICKLINE(BB,C,O,3,0),COLOR00FF00;
STICKLINE(BB,H,L,0,0),COLOR00FF00;
STICKLINE(AA,CLOSE,OPEN,3,0),COLOR000099;
STICKLINE(AA,CLOSE,OPEN,,0),COLOR0000CC;
STICKLINE(AA,CLOSE,OPEN,,0),COLOR0000FF;
STICKLINE(AA,CLOSE,OPEN,,0),COLORCC66FF;
STICKLINE(BB,CLOSE,OPEN,3,0),COLORFF7700;
STICKLINE(BB,CLOSE,OPEN,,0),COLORFF9900;
STICKLINE(BB,CLOSE,OPEN,,0),COLORFFBB00;
STICKLINE(BB,CLOSE,OPEN,,0),COLORCYAN;
MAA:MAR1,COLOR00FF00,LINETHICK2;
IF(MAA>=REF(MAA,1),MAA,DRAWNULL),COLORRED,LINETHICK2;
IF(MAAMAB:MA(CLOSE,P2),COLOR00FF00,LINETHICK2;
IF(MAB>=REF(MAB,1),MAB,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(MABSJ8:=STRCAT(STRCAT(N8,Y8), R8);
VAR2:=(2*CLOSE+HIGH+LOW)/4;
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
VAR6:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
VAR7:=EMA(*REF(VAR6,1)+* VAR6,2)*VAR3;
DRAWTEXT(CROSS(VAR6, VAR7) AND VAR6<30,L-,'←低吸'),