通达信分时图每半个小时高低点连线

通达信分时图每半个小时高低点连线
 

源码

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;