通达信乾坤决策眼分时主图指标(源码)

昨开:='REF(O,1)#DAY',NODRAW;
昨高:='REF(H,1)#DAY',NODRAW;
昨低:='REF(L,1)#DAY',NODRAW;
昨收:=DYNAINFO(3),NODRAW;
A1:=CROSS(C,昨高);
B:=CROSS(昨高,C);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.01,0,STRCAT('昨高: ',CON2STR(昨高,2))),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.06,0,STRCAT('昨低: ',CON2STR(昨低,2))),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.11,0,STRCAT('昨收: ',CON2STR(昨收,2))),COLORGREEN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.16,0,STRCAT('昨开: ',CON2STR(昨开,2))),COLORWHITE;
N0:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y:=STRCAT(CON2STR(MONTH,0),' 月 ');
R:=STRCAT(CON2STR(DAY,0),' 日 ');
SJ:=STRCAT(STRCAT(N0,Y), R);
DRAWTEXT_FIX(C>0,0.68,0,0,SJ);
A:=O>C AND C>REF(C,1) AND O/REF(C,1)>1.03;
DRAWTEXT(ABS(A)>0,L, '假阴'),COLORYELLOW;
DRAWICON(C<O AND C>REF(C,1),H,6);{假阴真阳}
均价5:AMOUNT/VOL/100,NODRAW;
假阴0:=O>C AND 均价5>REF(C,1);
DRAWTEXT(假阴0,L-0.2,'↖假阴真阳'),COLORE8E8E8;
STICKLINE(假阴0,O,C,1,0),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.5,0.05,0,CODE),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.05,0,STKNAME)COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.6,0.05,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.6,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.85,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.90,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.55,0.95,0,ZSBLOCK),COLORYELLOW;
时间:=TIME=100000;
N:=BARSLAST(时间),COLOR808080;
常数:CONST(IF(N=0,C,REF(C,N))),COLOR004848,DOTLINE;
CS1:=CONST(IF(N,HHV(H,0),REF(HHV(H,0),N))),COLOR808080;
CS2:=CONST(IF(N,LLV(L,0),REF(LLV(L,0),N))),COLOR808080;
STICKLINE(时间=1,CS1,CS2,-1,0),COLOR808080;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORFFFFFF,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,阻力,' 阻力'),COLORFFFFFF;
支撑:L1+P1*0.5/8,COLORFFFFFF,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,支撑,' 支撑'),COLORFFFFFF;
中:(支撑+阻力)/2,COLORFFFFFF,DOTLINE;
现价:CLOSE,COLORWHITE,LINETHICK1;
MR:=C<支撑 AND CROSS(C,REF(C,2));
STICKLINE(CROSS(现价,支撑),C,中,2,0),COLOR00CCCC;
STICKLINE(MR=1,支撑,中,2,0),COLOR00CCCC;
DRAWICON(MR=1 OR CROSS(现价,支撑),中,34);
STICKLINE(CROSS(支撑,现价),支撑,(支撑-中)/5+支撑,2,0),COLOR00CCCC;
MC:=C>阻力 AND CROSS(REF(C,2),C);
STICKLINE(CROSS(阻力,现价),C,中,2,0),COLOR8C8C00;
STICKLINE(MC=1,阻力,中,2,0),COLOR8C8C00;
DRAWICON(MC=1 OR CROSS(阻力,现价),中,35);
STICKLINE(CROSS(现价,阻力),阻力,阻力-(支撑-中)/5,2,0),COLOR8C8C00;
DRAWTEXT(ISLASTBAR,(支撑+阻力)/2,' 中'),COLORFFFFFF;
均价:SUM(V*C,0)/SUM(V,0),COLOR004080,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=4,均价,' 均价'),COLORFFFFFF;
最新:C,LINETHICK9,COLORFFFF00;
IF(C>=REF(C,1),C,DRAWNULL),LINETHICK9,COLOR0909FF;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWICON(ISLASTBAR AND C>REF(C,1),C,1);
DRAWICON(ISLASTBAR AND C<REF(C,1),C,2);
{分时均线}
W:=BARSLAST(DAY-REF(DAY,1))+1;
FSJX:SUM(CLOSE*VOL,W)/SUM(VOL,W),LINETHICK2,COLOR00FFFF;
IF(FSJX<REF(FSJX,1),FSJX,DRAWNULL),LINETHICK2,COLOR00A100;