通达信分时四小时高低点连线公式 源码
如果用DRAWLINE(,,,,)函数不能够完成因为DRAWLINE(,,,,)属于未来函数 通达信分时画线不支持未来函数 应答疑区同学求助变通画出了由9:31分到10:3010:30分到11:2913:00到14:00 14:00到15:00高低点连线不知道盘中是否适合判断趋势。
画线是这样的 如果9:31分的收盘价大于10:30分的收盘价趋势向下画绿色线反之就画上升趋势红色 上个图 希望能够帮助大家盘中提前掌控趋势
源码
SJ1:=TIME=93100;
T1:=BARSLAST(SJ1);
SJ2:=TIME=103000;
SJ4:=TIME=112900;
T2:=BARSLAST(SJ2);
T4:=BARSLAST(SJ4);
H1:=IF(TIME=103000,REF(C,T2),DRAWNULL)=C;
H2:=IF(TIME=112900,REF(C,T4),DRAWNULL)=C;
CS2:=CONST(REF(C,T2));
CS4:=CONST(REF(C,T4));
GL2:=FILTERX(H1,T2);
GL4:=FILTERX(H2,T4);
L1:=IF(TIME=93100,REF(C,T1),DRAWNULL)=C;
CS1:=CONST(REF(C,T1));
GL1:=FILTERX(L1,T1);
DA:=CONST(IF(REF(GL2,BARSLAST(GL2)),REF(BARSLAST(GL1),BARSLAST(GL2)),DRAWNULL));
DA1:=CONST(IF(REF(GL4,BARSLAST(GL4)),REF(BARSLAST(GL2),BARSLAST(GL4)),DRAWNULL));
A:=IF(BARSLAST(GL1) =0 AND BARSLAST(GL1) =DA,((CS2-CS1)/DA)*BARSLAST(GL1)+CS1,DRAWNULL);
B:=IF(BARSLAST(GL2) =0 AND BARSLAST(GL2) =DA1,((CS4-CS2)/DA1)*BARSLAST(GL2)+CS2,DRAWNULL);
IF(A =REF(A,1),A,DRAWNULL)COLORLIMAGENTA;
IF(A REF(A,1),A,DRAWNULL)COLORGREEN;
IF(B =REF(B,1),B,DRAWNULL)COLORLIMAGENTA;
IF(B REF(B,1),B,DRAWNULL)COLORGREEN;
XSJ1:=TIME=130000;
XT1:=BARSLAST(XSJ1);
XSJ2:=TIME=140000;
XSJ4:=TIME=150000;
XT2:=BARSLAST(XSJ2);
XT4:=BARSLAST(XSJ4);
XH1:=IF(TIME=140000,REF(C,XT2),DRAWNULL)=C;
XH2:=IF(TIME=150000,REF(C,XT4),DRAWNULL)=C;
XCS2:=CONST(REF(C,XT2));
XCS4:=CONST(REF(C,XT4));
XGL2:=FILTERX(XH1,XT2);
XGL4:=FILTERX(XH2,XT4);
XL1:=IF(TIME=130000,REF(C,XT1),DRAWNULL)=C;
XCS1:=CONST(REF(C,XT1));
XGL1:=FILTERX(XL1,XT1);
XDA:=CONST(IF(REF(XGL2,BARSLAST(XGL2)),REF(BARSLAST(XGL1),BARSLAST(XGL2)),DRAWNULL));
XDA1:=CONST(IF(REF(XGL4,BARSLAST(XGL4)),REF(BARSLAST(XGL2),BARSLAST(XGL4)),DRAWNULL));
XA:=IF(BARSLAST(XGL1) =0 AND BARSLAST(XGL1) =XDA,((XCS2-XCS1)/XDA)*BARSLAST(XGL1)+XCS1,DRAWNULL);
XB:=IF(BARSLAST(XGL2) =0 AND BARSLAST(XGL2) =XDA1,((XCS4-XCS2)/XDA1)*BARSLAST(XGL2)+XCS2,DRAWNULL);
IF(XA =REF(XA,1),XA,DRAWNULL)COLORLIMAGENTA;
IF(XA REF(XA,1),XA,DRAWNULL)COLORGREEN;
IF(XB =REF(XB,1),XB,DRAWNULL)COLORLIMAGENTA;
IF(XB REF(XB,1),XB,DRAWNULL)COLORGREEN;
