源码
SJ1:=TIME=93100;
SJ2:=TIME=100000;
SJ3:=TIME=103000;
SJ4:=TIME=110000;
SJ5:=TIME=112900;
XSJ1:=TIME=130000;
XSJ2:=TIME=133000;
XSJ3:=TIME=140000;
XSJ4:=TIME=143000;
XSJ5:=TIME=150000;
T1:=BARSLAST(SJ1);
T2:=BARSLAST(SJ2);
T3:=BARSLAST(SJ3);
T4:=BARSLAST(SJ4);
T5:=BARSLAST(SJ5);
XT1:=BARSLAST(XSJ1);
XT2:=BARSLAST(XSJ2);
XT3:=BARSLAST(XSJ3);
XT4:=BARSLAST(XSJ4);
XT5:=BARSLAST(XSJ5);
H1:=IF(TIME=100000,REF(C,T2),DRAWNULL)=C;
H2:=IF(TIME=103000,REF(C,T3),DRAWNULL)=C;
H3:=IF(TIME=110000,REF(C,T4),DRAWNULL)=C;
H4:=IF(TIME=112900,REF(C,T5),DRAWNULL)=C;
XH1:=IF(TIME=133000,REF(C,XT2),DRAWNULL)=C;
XH2:=IF(TIME=140000,REF(C,XT3),DRAWNULL)=C;
XH3:=IF(TIME=143000,REF(C,XT4),DRAWNULL)=C;
XH4:=IF(TIME=150000,REF(C,XT5),DRAWNULL)=C;
CS2:=CONST(REF(C,T2));
CS3:=CONST(REF(C,T3));
CS4:=CONST(REF(C,T4));
CS5:=CONST(REF(C,T5));
XCS2:=CONST(REF(C,XT2));
XCS3:=CONST(REF(C,XT3));
XCS4:=CONST(REF(C,XT4));
XCS5:=CONST(REF(C,XT5));
GL2:=FILTERX(H1,T2);
GL3:=FILTERX(H2,T3);
GL4:=FILTERX(H3,T4);
GL5:=FILTERX(H4,T5);
XGL2:=FILTERX(XH1,XT2);
XGL3:=FILTERX(XH2,XT3);
XGL4:=FILTERX(XH3,XT4);
XGL5:=FILTERX(XH4,XT5);
L1:=IF(TIME=93100,REF(C,T1),DRAWNULL)=C;
XL1:=IF(TIME=130000,REF(C,XT1),DRAWNULL)=C;
CS1:=CONST(REF(C,T1));
XCS1:=CONST(REF(C,XT1));
GL1:=FILTERX(L1,T1);
XGL1:=FILTERX(XL1,XT1);
DA:=CONST(IF(REF(GL2,BARSLAST(GL2)),REF(BARSLAST(GL1),BARSLAST(GL2)),DRAWNULL));
DA1:=CONST(IF(REF(GL3,BARSLAST(GL3)),REF(BARSLAST(GL2),BARSLAST(GL3)),DRAWNULL));
DA2:=CONST(IF(REF(GL4,BARSLAST(GL4)),REF(BARSLAST(GL3),BARSLAST(GL4)),DRAWNULL));
DA3:=CONST(IF(REF(GL5,BARSLAST(GL5)),REF(BARSLAST(GL4),BARSLAST(GL5)),DRAWNULL));
XDA:=CONST(IF(REF(XGL2,BARSLAST(XGL2)),REF(BARSLAST(XGL1),BARSLAST(XGL2)),DRAWNULL));
XDA1:=CONST(IF(REF(XGL3,BARSLAST(XGL3)),REF(BARSLAST(XGL2),BARSLAST(XGL3)),DRAWNULL));
XDA2:=CONST(IF(REF(XGL4,BARSLAST(XGL4)),REF(BARSLAST(XGL3),BARSLAST(XGL4)),DRAWNULL));
XDA3:=CONST(IF(REF(XGL5,BARSLAST(XGL5)),REF(BARSLAST(XGL4),BARSLAST(XGL5)),DRAWNULL));
XA:=IF(BARSLAST(GL1)>=0 AND BARSLAST(GL1)<=DA,((CS2-CS1)/DA)*BARSLAST(GL1)+CS1,DRAWNULL);
XA1:=IF(BARSLAST(GL2)>=0 AND BARSLAST(GL2)<=DA1,((CS3-CS2)/DA1)*BARSLAST(GL2)+CS2,DRAWNULL);
XA2:=IF(BARSLAST(GL3)>=0 AND BARSLAST(GL3)<=DA2,((CS4-CS3)/DA2)*BARSLAST(GL3)+CS3,DRAWNULL);
XA3:=IF(BARSLAST(GL4)>=0 AND BARSLAST(GL4)<=DA3,((CS5-CS4)/DA3)*BARSLAST(GL4)+CS4,DRAWNULL);
A:=IF(BARSLAST(XGL1)>=0 AND BARSLAST(XGL1)<=XDA,((XCS2-XCS1)/XDA)*BARSLAST(XGL1)+XCS1,DRAWNULL);
A1:=IF(BARSLAST(XGL2)>=0 AND BARSLAST(XGL2)<=XDA1,((XCS3-XCS2)/XDA1)*BARSLAST(XGL2)+XCS2,DRAWNULL);
A2:=IF(BARSLAST(XGL3)>=0 AND BARSLAST(XGL3)<=XDA2,((XCS4-XCS3)/XDA2)*BARSLAST(XGL3)+XCS3,DRAWNULL);
A3:=IF(BARSLAST(XGL4)>=0 AND BARSLAST(XGL4)<=XDA3,((XCS5-XCS4)/XDA3)*BARSLAST(XGL4)+XCS4,DRAWNULL);
IF(A>=REF(A,1),A,DRAWNULL)COLORLIMAGENTA;
IF(A<REF(A,1),A,DRAWNULL)COLORGREEN;
IF(A1>=REF(A1,1),A1,DRAWNULL)COLORLIMAGENTA;
IF(A1<REF(A1,1),A1,DRAWNULL)COLORGREEN;
IF(A2>=REF(A2,1),A2,DRAWNULL)COLORLIMAGENTA;
IF(A2<REF(A2,1),A2,DRAWNULL)COLORGREEN;
IF(A3>=REF(A3,1),A3,DRAWNULL)COLORLIMAGENTA;
IF(A3<REF(A3,1),A3,DRAWNULL)COLORGREEN;
IF(XA>=REF(XA,1),XA,DRAWNULL)COLORLIMAGENTA;
IF(XA<REF(XA,1),XA,DRAWNULL)COLORGREEN;
IF(XA1>=REF(XA1,1),XA1,DRAWNULL)COLORLIMAGENTA;
IF(XA1<REF(XA1,1),XA1,DRAWNULL)COLORGREEN;
IF(XA2>=REF(XA2,1),XA2,DRAWNULL)COLORLIMAGENTA;
IF(XA2<REF(XA2,1),XA2,DRAWNULL)COLORGREEN;
IF(XA3>=REF(XA3,1),XA3,DRAWNULL)COLORLIMAGENTA;
IF(XA3<REF(XA3,1),XA3,DRAWNULL)COLORGREEN;
均:SUM(CLOSE*VOL,FROMOPEN)/SUM(VOL,FROMOPEN)COLORYELLOW;
