cbl1:=if(ref(h,2)>ref(h,3),ref(h,2),ref(h,3));
cbl3:=if(ref(l,2)<ref(l,3),ref(h,2),cbl1);
cbl2:=if(ref(h,3)>=ref(h,2),ref(h,2),ref(h,3));
CBL4:=IF(H<REF(H,2 OR L<REF(L,2)),REF(H,2),CBL2);
cb5:=if(h>=ref(h,1) AND L>REF(L,1 ),cbl4,cbl3);
cbl6:=if(h>ref(h,1) and ref(h,1)>ref(h,2) and l<ref(h,2) and o>c,h,cb5);
cbl7:=if(l<ref(l,1) and ref(l,1)<ref(l,2)  and ref(l,2)<ref(l,3) and c>o and (ref(l,1)-l)/l>0.015,l,cbl6);
cbl:if(ref(l,1)<ref(l,2) and ref(l,2)<ref(l,3) and ref(l,3)<ref(l,4) and ref(c,1)>ref(o,1),ref(L,2),cbl7),,COLORff9963,LINETHICK0;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)and cbl<c),cbl,cbl,240,0),ColorRED;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)and cbl>=c),cbl,cbl,240,0),colorBLUE;
bc:=barslast(SYSPARAM(1)=barpos)+1;
点石成金H:=IF(close>100,SUM(h*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(H,bc)/SUM(C,BC)),colorred,LINETHICK2;
点石成金L:=IF(close>100,SUM(l*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(L,bc)/SUM(C,BC)),colorblue,LINETHICK2;
点石成金:if(ref(h,bc-1)>ref(h,bc) and ref(h,bc-1)>ref(h,bc-2) ,点石成金h,点石成金l),colorred,LINETHICK2;

input:  N(21,13,89);
雷达射线:DRAWLINE(h=hhv(H,21),H,barpos=sysparam(1),H,1),COLORYELLOW;
FX1:=(EMA(C,14)-REF(EMA(C,14),1))/REF(EMA(C,14),1)*100;
FX2:=IF(FX1<0,REF(FX1,BARSLAST(CROSS(0,FX1))+1),0);
FX3:=IF(FX1>0,REF(FX1,BARSLAST(CROSS(0,FX1))+1),0);
FX4:=FX1<0,LINETHICK;  
FX5:=FX1>0,LINETHICK;
ZH_1:=BARSLAST(CROSS(FX4,FX5)||CROSS(FX5,FX4));
ZH_2:=DATACOUNT-ZH_1[DATACOUNT];
ZH_3:=IF(BARPOS=ZH_2,CROSS(FX4,FX5)||CROSS(FX5,FX4),0);
DRAWLINE(CROSS(FX2,FX3),h,CROSS(FX3,FX2),L,0),COLORYELLOW;
DRAWLINE(CROSS(FX3,FX2),l,CROSS(FX2,FX3),h,0),COLORMAGENTA;
DRAWLINE(ZH_3,h,ISLASTBAR&&FX1<0,L,0),COLORYELLOW;
DRAWLINE(ZH_3,L,ISLASTBAR&&FX1>0,H,0),COLORMAGENTA;

{K线显示止损价}
收盘股价:=Close;
止损5:REF(H*0.95,1),linethick0,COLOR3399FF;
止损10:REF(H*0.90,1),linethick0,,COLOR3399FF;
止赢:REF(CLOSE*1.10,1),linethick0,COLOR3399FF;
{用最高价计算，上面分别为5％ 10％的止损，最后收盘价计算10％为止赢。可以附加在任意一条公式中。}
DRAWTEXT(ISLASTBAR ,止赢,'——涨停'),COLORYELLOW;
DRAWTEXT(ISLASTBAR ,止损5,'——止损5％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR ,止损10,'——止损10％'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR ,收盘股价,'——收盘价'),COLOR3399FF;