通过交点来判断变盘时间，参数见三张小图
主图最高:=SYSPARAM(4);
主图最低:=SYSPARAM(5);
个股量能:=VOL/MA(REF(VOL,1),5);
大盘量能:=INDEXV/MA(REF(INDEXV,1),5);
相对比较:=个股量能/大盘量能;
NN:=显示个数+1;
QK_0:=IF(DATACOUNT>天,DATACOUNT-天,1);
QK_1:=DATACOUNT-BARPOS+1<天;
QK_2:=HIGH*QK_1;
QK_3:=LOW*QK_1;
FOR I=DATACOUNT-1 DOWNTO QK_0 DO BEGIN
IF QK_2[I]
IF QK_3[I]>QK_3[I+1] THEN
QK_3[I]:=QK_3[I+1];
END;
QK_4:=IF(LOW>REF(HIGH,1),2,IF(HIGH
QK_6:=IF(QK_4=2,REF(HIGH,1),IF(QK_4=1,HIGH,0));
QK_7:=QK_4=2 AND QK_3<=QK_5 AND QK_3>=QK_6 OR QK_4=1 AND QK_2
QK_8:=COUNT(QK_7,IF(BARPOS>天,天+1,0));
QK_9:=QK_8[DATACOUNT]-QK_8+1;
QK_10:=(QK_9
QK_12:=IF(REF(QK_4,QK_10-1)=2,REF(QK_3,QK_10-1),IF(REF(QK_4,QK_10-1)=1,REF(QK_2,QK_10-1),0));
QK_13:=IF(REF(QK_4,QK_10-1)=2,REF(QK_6,QK_10-1),IF(REF(QK_4,QK_10-1)=1,REF(QK_5,QK_10-1),0));
QK_14:=MAX(QK_12,QK_13);
QK_15:=MIN(QK_12,QK_13);
A1:=SYSPARAM(1);
IF A1
STICKLINE(QK_1 AND QK_10 AND QK_9
MA2:MA(CLOSE,MAN2),LINETHICK2,color9000;
MA3:MA(CLOSE,MAN3),LINETHICK2,colorAAAA00;
MA4:MA(CLOSE,MAN4),LINETHICK2,color900090;}
KLINE(OPEN,HIGH,LOW,CLOSE,0);
KT1:=TROUGHBARS(2,时间精度,1);
FT1:=PEAKBARS(1,时间精度,1);
最近周期:=时间范围;
起点:=DATACOUNT-最近周期;
FZ1:=HIGH>=REF(HIGH,1) AND HIGH>=REFX(HIGH,1);
KZ1:=LOW<=REF(LOW,1) AND LOW<=REFX(LOW,1);
KK1:=KT1=0 AND LOW=LLV(LOW,转折强度);
FF1:=FT1=0 AND HIGH=HHV(HIGH,转折强度);
XQG:=IF(FF1,SUMBARS(FF1,2)-1,SUMBARS(FF1,1)-1);
XLG:=IF(KK1,SUMBARS(KK1,2)-1,SUMBARS(KK1,1)-1);
ZQG:=IF(FZ1,SUMBARS(FZ1,2)-1,SUMBARS(FZ1,1)-1);
ZLG:=IF(KZ1,SUMBARS(KZ1,2)-1,SUMBARS(KZ1,1)-1);
IF 升降开关>0 AND 升降开关<4 THEN BEGIN
XBY:=(LOW-REF(LOW,XLG))/XLG;
XBU:=INTPART((REF(HIGH,BARSLAST(IF(XQG>XLG,FZ1,FF1)))-LOW)/XBY+0.99);
XBU1:=INTPART((REF(HIGH,SUMBARS(IF(XQG>XLG,FZ1,FF1),2)-1)-LOW)/XBY+0.99);
DRAWSL(BARSLAST(IF(XQG>XLG,FZ1,FF1))
DRAWSL(BARSLAST(IF(XQG>XLG,FZ1,FF1))
DRAWSL(BARSLAST(IF(XQG>XLG,FZ1,FF1))
DRAWSL(BARSLAST(IF(XQG>XLG,FZ1,FF1))
XCY:=(LOW-REF(HIGH,XQG))/XQG;
XCU:=INTPART((ABS(REF(LOW,IF(XLG>XQG,ZLG,XLG))-LOW))/ABS(XCY)+0.99);
DRAWSL(XCU<>0 AND LOW
DRAWSL(XQG<>0 AND LOW
DRAWSL(IF(XLG>XQG,ZLG,XLG)<>0 AND LOW
DRAWSL(XCU<>0 AND LOW
XDY:=(HIGH-REF(HIGH,XQG))/XQG;
XDU:=INTPART((ABS(REF(LOW,BARSLAST(IF(XLG>XQG,KZ1,KK1)))-HIGH))/ABS(XDY)+0.99);
DRAWSL(XDU<>0 AND HIGH
DRAWSL(XQG<>0 AND HIGH
DRAWSL(IF(XLG>XQG,ZLG,XLG)<>0 AND HIGH
DRAWSL(XDU<>0 AND HIGH
END;
IF 升降开关<>1 AND 升降开关<4 AND 升降开关>=-1 THEN BEGIN
XCY1:=(HIGH-REF(HIGH,XQG))/XQG;
XCU1:=INTPART((ABS(HIGH-REF(LOW,BARSLAST(IF(XLG>XQG,KZ1,KK1)))))/ABS(XCY1)+0.99);
XCU2:=INTPART((ABS(HIGH-REF(LOW,SUMBARS(IF(XLG>XQG,KZ1,KK1),2)-1)))/ABS(XCY1)+0.99);
DRAWSL(BARSLAST(IF(XLG>XQG,KZ1,KK1))
DRAWSL(BARSLAST(IF(XLG>XQG,KZ1,KK1))
DRAWSL(BARSLAST(IF(XLG>XQG,KZ1,KK1))
DRAWSL(BARSLAST(IF(XLG>XQG,KZ1,KK1))
XEY:=(LOW-REF(LOW,XLG))/XLG;
XEU:=INTPART((ABS(REF(HIGH,BARSLAST(IF(XQG>XLG,FZ1,FF1)))-LOW))/ABS(XEY)+0.99);
TJDQ:=XEU>0 AND LOW>REF(LOW,XLG) AND LOW>REFX(HIGH,1) AND BARPOS>=起点 AND REF(BARPOS,MAX(XLG,XQG))>=起点;
DRAWSL(TJDQ,LOW,XEY,XEU,0),colorA0;
DRAWSL(TJDQ AND XLG<>0,LOW,XEY,XLG,1),LINEDOT,colorFFFFFF;
DRAWSL(TJDQ AND IF(XQG>XLG,ZQG,XQG)<>0,REF(HIGH,IF(XQG>XLG,ZQG,XQG)),0,IF(XQG>XLG,ZQG,XQG),1),colorA0;
DRAWSL(TJDQ,REF(HIGH,IF(XQG>XLG,ZQG,XQG)),0,XEU,0),colorA0;
XFY:=(HIGH-REF(LOW,XLG))/XLG;
XFU:=INTPART((ABS(REF(HIGH,IF(XQG>XLG,ZQG,XQG))-HIGH))/ABS(XFY)+0.99);
DRAWSL(XFU>0 AND HIGH>REF(LOW,XLG) AND HIGH
DRAWSL(XLG>0 AND HIGH>REF(LOW,XLG) AND HIGH
DRAWSL(IF(XQG>XLG,ZQG,XQG)>0 AND HIGH>REF(LOW,XLG) AND HIGH
DRAWSL(XFU>0 AND HIGH>REF(LOW,XLG) AND HIGH
END;
DRAWTEXTEX(CLOSE,0,5,5,'今日涨停：'+NUMTOSTR(REF(CLOSE,1)*1.1,2)),colorA0A0A0;
DRAWTEXTEX(CLOSE,0,5,20,'今日跌停：'+NUMTOSTR(REF(CLOSE,1)*0.9,2)),colorA0A0A0;
DRAWTEXTEX(相对比较>1,0,5,35,'量能强弱:'+NUMTOSTR(相对比较,2)),colorA0000F0;
DRAWTEXTEX(相对比较<=1,0,5,35,'量能强弱:'+NUMTOSTR(相对比较,2)),colorA009000;
DRAWTEXTEX(1,0,5,50,'测量周期:'+NUMTOSTR(时间范围,2)),colorA0A0A0;
R:=VOL/((HIGH-LOW)*2-(ABS(OPEN-CLOSE)));
买:=IF(OPEN=CLOSE AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>9.8,VOL,R*(CLOSE-LOW));
资比:=买/VOL*100;
主力流入:=AMOUNT*资比/10000000000;
主力流出:=AMOUNT/100000000-主力流入;
资金差额:=主力流入-主力流出;
资金比率:=资比;
DRAWTEXTEX(DATATYPE>-1,1,850,850,'主力流入:'+NUMTOSTR(主力流入,2)+' 亿'),colorAA;
DRAWTEXTEX(DATATYPE>-1,1,850,900,'主力流出:'+NUMTOSTR(主力流出,2)+' 亿'),colorAA00;
DRAWTEXTEX(DATATYPE>-1,1,850,950,'资金差额:'+NUMTOSTR(资金差额,2)+' 亿'),color808080;
DRAWTEXTEX(DATATYPE>-1,1,850,1000,'资金比率:'+NUMTOSTR(资金比率,2)),colorAAAA;
