通达信〖蓝底掘金〗阶梯K线变色系统主图指标公式源码

VAR3H:=C>REF(C,1) AND C>REF(C,2);
VARB1:=REF(VAR3H,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARSJ:=REF(VARB1,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARX6:=REF(VARSJ,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR1G:=REF(VARX6,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARCQ:=REF(VAR1G,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARK9:=REF(VARCQ,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR0B:=REF(VARK9,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARAO:=REF(VAR0B,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARKG:=REF(VARAO,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR6Q:=REF(VARKG,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARF2:=REF(VAR6Q,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR7P:=VAR3H OR VARB1 OR VARSJ OR VARX6 OR VAR1G OR VARCQ OR VARK9 OR VAR0B OR VARAO OR VARKG OR VAR6Q OR VARF2;
VAR4B:=C<REF(C,1) AND C<REF(C,2);
VAR2U:=REF(VAR4B,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARWH:=REF(VAR2U,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARB9:=REF(VARWH,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARGP:=REF(VARB9,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARI8:=REF(VARGP,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR0C:=REF(VARI8,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARRB:=REF(VAR0C,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARM2:=REF(VARRB,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARLG:=REF(VARM2,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR3S:=REF(VARLG,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARIX:=REF(VAR3S,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARJ6:=VAR4B OR VAR2U OR VARWH OR VARB9 OR VARGP OR VARI8 OR VAR0C OR VARRB OR VARM2 OR VARLG OR VAR3S OR VARIX;
STICKLINE(VAR7P,C,O,4,0),COLOR000099;
STICKLINE(VAR7P,H,L,0.5,0),COLOR000099;
STICKLINE(VAR7P,C,O,4.0,0),COLOR9900CC;
STICKLINE(VAR7P,C,O,2.9,0),COLOR6600CC;
STICKLINE(VAR7P,C,O,1.9,0),COLOR6600FF;
STICKLINE(VAR7P,C,O,1.0,0),COLOR3366FF;
STICKLINE(VAR7P,C,O,0.5,0),COLOR3399FF;
STICKLINE(VAR7P,C,O,0.2,0),COLOR33CCFF;
{下跌阶梯k线 绿色系}
STICKLINE(VARJ6,C,O,4,0),COLOR009966;
STICKLINE(VARJ6,H,L,0.5,0),COLOR006666;
STICKLINE(VARJ6,C,O,4,0),COLOR006633;
STICKLINE(VARJ6,C,O,2.9,0),COLOR339933;
STICKLINE(VARJ6,C,O,1.9,0),COLOR669933;
STICKLINE(VARJ6,C,O,1.5,0),COLOR33CC33;
STICKLINE(VARJ6,C,O,1.0,0),COLOR66CC33;
STICKLINE(VARJ6,C,O,0.2,0),COLORCCFF33;
MA5:MA(C,5),COLOR00FFFF,LINETHICK2;
MA10:MA(C,10),COLOR00DDFF,LINETHICK1;
MA30:MA(C,30),COLOR0066FF,LINETHICK2;
MA60:MA(C,60),COLORFFFFFF,LINETHICK1;
MA120:MA(C,120),COLORFF00FF,LINETHICK1;
MA13:MA(C,13),COLOR0066FF,LINETHICK2;
VAR49:=crOSS(VAR7P,VARJ6);
VAR1W:=CROSS(VARJ6,VAR7P);
STICKLINE(VAR49,O,(C-O)/2+O,4,0),COLOR335555;
STICKLINE(VAR49,O,(C-O)/2+O,2.9,0),COLOR338888;
STICKLINE(VAR49,O,(C-O)/2+O,1.5,0),COLOR33AAAA;
STICKLINE(VAR49,O,(C-O)/2+O,1,0),COLOR33CCCC;
STICKLINE(VAR49,O,(C-O)/2+O,0,0),COLOR33EEEE;
STICKLINE(VAR1W,O,(C-O)/2+O,4,0),COLOR550055;
STICKLINE(VAR1W,O,(C-O)/2+O,2.9,0),COLOR880088;
STICKLINE(VAR1W,O,(C-O)/2+O,1.5,0),COLORAA00AA;
STICKLINE(VAR1W,O,(C-O)/2+O,1,0),COLORCC00CC;
STICKLINE(VAR1W,O,(C-O)/2+O,0.5,0),COLOREE00EE;
VAR02:=MA((C-MA(C,13))/MA(C,13),3)*100;
VAR03:=MA((C-MA(C,34))/MA(C,34),3)*100;
VAR04:=COUNT(VAR03<0,8)>=8 AND COUNT(VAR03>0,34)>13 AND COUNT(VAR03<0,55)>30 OR VAR03<-15;
VAR05:=REF(C,1);
VAR06:=SMA(MAX(C-VAR05,0),13,1)/SMA(Abs(C-VAR05),13,1)*100;
VAR07:=C/REF(C,1)-1>0.05;
VAR08:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
VAR09:=SMA(VAR08,3,1);
VAR10:=SMA(VAR09,3,1);
VAR11:=C>VAR05 AND C>O;
VAR14:=REF(VAR10,1);
VAR15:=REF(VAR09,1);
DRAWTEXT((VAR14<30 AND CROSS(VAR09,VAR10) AND VAR11 AND VAR07),L-0.2,' ←蓝底掘金'),COLOR00FFFF;