麻烦老师修改保护价代码　[博易POBO]

咨询内容： 麻烦老师修改保护价代码 N:=BARSLAST(DATE<>REF(DATE,1))+1;
昨收:VALUEWHEN(N=1,REF(C,1)),NODRAW;

昨高:REF(HHV(H,DAYBARPOS),DAYBARPOS),RGB(138,21,255),NODRAW;
昨低:REF(LLV(L,DAYBARPOS),DAYBARPOS),RGB(255,143,32),NODRAW;
DRAWSL(N>=1,昨收,0,1,0,COLORYELLOW),LINETHICK2;
DRAWSL(N>=1,昨高,0,1,0,RGB(138,21,255)),LINETHICK2;

DRAWSL(N>=1,昨低,0,1,0,RGB(255,143,32)),LINETHICK2;

DRAWTEXT(ISLASTBAR,昨收,'          昨收'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
DRAWTEXT(ISLASTBAR,昨高,'          昨高'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
DRAWTEXT(ISLASTBAR,昨低,'          昨低'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
SETTLE,COLORYELLOW,LINETHICK2;
主线:EMA2(C,26),COLORCYAN,LINETHICK1;
HH1:=IF(H<REF(H,8)&&REF(H,9)<REF(H,2),REF(H,2),0);
LL1:=IF(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IF(CLOSE>HH2,-3,IF(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,HH2,LL2);
保护价:VALUEWHEN(ISLASTBAR,G),COLORWHITE;
DIG:=ABS(FLOOR(-1*LOG10(1/MINPRICE)));
DRAWNUMBER(L>0,保护价,保护价,DIG,COLORYELLOW),ALIGN0,VALIGN1,FONTSIZE18;
A:=MINPRICE;

 

 来源:程序化99网（ WWW.CXH99.COM ）

博易技术人员： 老师帮忙修改一下吧 N:=BARSLAST(DATE<>REF(DATE,1))+1;
昨收:VALUEWHEN(N=1,REF(C,1)),NODRAW;
DAYBARPOS:=BARSLAST(REF(HOUR,1)=15ANDHOUR<>15);
昨高:REF(HHV(H,DAYBARPOS),DAYBARPOS),COLORFF158A,NODRAW;
昨低:REF(LLV(L,DAYBARPOS),DAYBARPOS),COLOR208FFF,NODRAW;
DRAWSL(N>=1,昨收,0,1,0),COLORYELLOW,LINETHICK2;
DRAWSL(N>=1,昨高,0,1,0),COLORFF158A,LINETHICK2;
DRAWSL(N>=1,昨低,0,1,0),COLOR208FFF,LINETHICK2;
DRAWTEXT(ISLASTBAR,昨收,'     昨收'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
DRAWTEXT(ISLASTBAR,昨高,'     昨高'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
DRAWTEXT(ISLASTBAR,昨低,'     昨低'),ALIGN0,VALIGN1,FONTSIZE14,COLORWHITE;
SETTLE,COLORYELLOW,LINETHICK2;
主线:EMA2(C,26),COLORCYAN,LINETHICK1;
HH1:=IF(H<REF(H,8)&&REF(H,9)<REF(H,2),REF(H,2),0);
LL1:=IF(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IF(CLOSE>HH2,-3,IF(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,HH2,LL2);
MINPRICE:=1;
保护价:VALUEWHEN(ISLASTBAR,G),COLORWHITE;
DIG:=ABS(FLOOR(-1*LOG(1/MINPRICE)));
DRAWNUMBER(L>0,保护价,保护价,DIG),COLORYELLOW,ALIGN0,VALIGN1,FONTSIZE18; 来源 程序化久久网