通达信无语主图公式

源码

N:=10;
 T1:=CONST(LLVBARS(LOW,N));
 T1HIGH:=CONST(REF(HIGH,T1));
 CC:=CONST(CURRBARSCOUNT);
 T2:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T1)) AND (HIGH>T1HIGH)));
 T2HIGH:=CONST(REF(HIGH,T2));
 T3:=CONST(BARSLAST((CURRBARSCOUNT >(CC+T2)) AND (HIGH>T2HIGH)));
 T3HIGH:=CONST(REF(HIGH,T3));
必杀线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK3,COLOR0000FF;
 DRAWTEXT(ISLASTBAR, T3HIGH, ' 必杀线')LINETHICK1,COLORYELLOW;

筹码重心:IF(CURRBARSCOUNT  DRAWTEXT(CURRBARSCOUNT<4 AND CROSS(C,筹码重心) AND C/REF(C,1)>1.05,L,'---突破筹码重心买进!'),COLORMAGENTA;
 DRAWTEXT(筹码重心 AND ISLASTBAR,筹码重心*0.99,'↖筹码重心'),COLORF7F7F7;

P:=21;
 WH1:=IF(L=LLV(L,P),L,DRAWNULL);
 WH2:=CONST(BARSLAST(WH1!=DRAWNULL));
 WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
 WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
 WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
 WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
进场:IF(CURRBARSCOUNT<=WH2+21,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORRED;
 IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORRED;
 DRAWTEXT(CURRBARSCOUNT=INTPART((WH2+21)*0.618),进场,'进场线'),COLORRED;
超跌进场: