咨詢內容：

請老師幫助修改

1LL:=REF(LLV(L,DAYBARPOS),DAYBARPOS);
1HH:=REF(HHV(H,DAYBARPOS),DAYBARPOS);
1A1382:=1HH+(1HH-1LL)*0.382;
1A2:=1HH+(1HH-1LL);
1A15:=1HH+(1HH-1LL)*0.5;
1A075:=1HH-(1HH-1LL)*0.25;
1A05:=1HH-(1HH-1LL)*0.5;
1A1382X:=1LL-(1HH-1LL)*0.382;
1A15X:=1LL-(1HH-1LL)*0.5;
1A1X:=1LL;
1A075X:=1LL+(1HH-1LL)*0.25;
1A05X:=1LL+(1HH-1LL)*0.5;
1A025X:=1LL+(1HH-1LL)*0.75;
1TT:=HHV(H,DAYBARPOS)<=1A1382&&LLV(L,DAYBARPOS)>=1A1382X,NODRAW;
DRAWSL(ISLASTBAR&&1TT,1A05X,0,-DAYBARPOS+1,0,COLORMAGENTA),LINETHICK4;
DRAWSL(ISLASTBAR&&1TT,1HH,0,-DAYBARPOS+1,0,COLORWHITE),LINETHICK3;
DRAWSL(ISLASTBAR&&1TT,1LL,0,-DAYBARPOS+1,0,COLORRED),LINETHICK3;
DRAWNUMBER(ISLASTBAR&&1TT,1A05X,1A05X,2,COLORMAGENTA);
DRAWNUMBER(ISLASTBAR&&1TT,1HH,1HH,2,COLORWHITE);
DRAWNUMBER(ISLASTBAR&&1TT,1LL,1LL,2,COLORRED);
1Q:=BACKSET(ISLASTBAR,DAYBARPOS);
1T:=1Q>REF(1Q,1)&&REFX1(ISLASTBAR&&1TT,10000);
DRAWTEXT(1T,REFX1(1A05X,10000),'中'),COLORMAGENTA,LINETHICK4,FONTSIZE36;
DRAWTEXT(1T,REFX1(1HH,10000),'A上'),COLORWHITE;
DRAWTEXT(1T,REFX1(1LL,10000),'A下'),COLORRED;
觀望:IF(ISLASTBAR&&1TT,1A05,NULL);
N2:=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;
周高:REF(HHV(H,N2),N2),NODRAW;
周低:REF(LLV(L,N2),N2),NODRAW;
周中:(周高+周低)/2,NODRAW;
AA:=BACKSET(ISLASTBAR,BARSLAST(周高<>REF(周高,1))+1);
BB:=BACKSET(ISLASTBAR,BARSLAST(周低<>REF(周低,1))+1);
DRAWSL(周高<>REF(周高,1)&&AA,周高,0,REFX1(BARSLAST(周低<>REF(周低,1))+1,9999),0,COLORBLUE),DOT;
DRAWSL(周低<>REF(周低,1)&&BB,周低,0,REFX1(BARSLAST(周低<>REF(周低,1))+1,9999),0,COLORYELLOW),DOT;
DRAWSL(周高<>REF(周高,1)&&AA,周中,0,REFX1(BARSLAST(周低<>REF(周低,1))+1,9999),0,COLORMAGENTA),DOT;
DRAWSL(周低<>REF(周低,1)&&BB,周中,0,REFX1(BARSLAST(周低<>REF(周低,1))+1,9999),0,COLORMAGENTA),DOT;
DRAWNUMBER(ISLASTBAR&&AA,周高,周高,2,COLORBLUE);
DRAWNUMBER(ISLASTBAR&&周中,AA,BB,2,COLORMAGENTA);
DRAWNUMBER(ISLASTBAR&&BB,周低,周低,2,COLORYELLOW);
IF(周高<>REF(周高,1)&&AA,周高,NULL),CIRCLEDOT;
IF(周低<>REF(周低,1)&&BB,周低,NULL),CIRCLEDOT;
KTEXT(REFX(CROSS(AA,0.5),2),-DAYBARPOS+1,REFX(周高,2),1,COLORBLUE,'周高');
KTEXT(REFX(CROSS(BB,0.5),2),-DAYBARPOS+1,REFX(周低,2),1,COLORYELLOW,'周低'),VALIGN2;
KTEXT(REFX(CROSS(BB,0.5),2),-DAYBARPOS+1,REFX(周中,2),1,COLORMAGENTA,'周中'),VALIGN0;?
DRAWSL(周高<>REF(周高,1)&&AA,周高,0,-SUMBARS(DAYBARPOS=1,2)+1,0,COLORBLUE),DOT;
DRAWSL(周低<>REF(周低,1)&&BB,周低,0,-SUMBARS(DAYBARPOS=1,2)+1,0,COLORYELLOW),DOT;
DRAWSL(周高<>REF(周高,1)&&AA,周中,0,-SUMBARS(DAYBARPOS=1,2)+1,0,COLORMAGENTA),DOT;
DRAWSL(周低<>REF(周低,1)&&BB,周中,0,-SUMBARS(DAYBARPOS=1,2)+1,0,COLORMAGENTA),DOT;
?

?

?來源:程序化99網（ www.tumamayizhan.com ）

博易技術人員： DAYBARPOS:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);
LL:=REF(LLV(L,DAYBARPOS),DAYBARPOS);
HH:=REF(HHV(H,DAYBARPOS),DAYBARPOS);
A1382:=HH+(HH-LL)*0.382;
A2:=HH+(HH-LL);
A15:=HH+(HH-LL)*0.5;
A075:=HH-(HH-LL)*0.25;
A05:=HH-(HH-LL)*0.5;
A1382X:=LL-(HH-LL)*0.382;
A15X:=LL-(HH-LL)*0.5;
A1X:=LL;
A075X:=LL+(HH-LL)*0.25;
A05X:=LL+(HH-LL)*0.5;
A025X:=LL+(HH-LL)*0.75;
TT:=HHV(H,DAYBARPOS)<=A1382&&LLV(L,DAYBARPOS)>=A1382X,NODRAW;
DRAWSL(ISLASTBAR&&TT,A05X,0,-DAYBARPOS+1,0),COLORMAGENTA,LINETHICK4;
DRAWSL(ISLASTBAR&&TT,HH,0,-DAYBARPOS+1,0),COLORWHITE,LINETHICK3;
DRAWSL(ISLASTBAR&&TT,LL,0,-DAYBARPOS+1,0),COLORRED,LINETHICK3;
DRAWNUMBER(ISLASTBAR&&TT,A05X,A05X,2),COLORMAGENTA;
DRAWNUMBER(ISLASTBAR&&TT,HH,HH,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR&&TT,LL,LL,2),COLORRED;
Q:=BACKSET(ISLASTBAR,DAYBARPOS);
T:=Q>REF(Q,1)&&REFX(ISLASTBAR&&TT,DATACOUNT-BARPOS);
DRAWTEXT(T,REFX(A05X,DATACOUNT-BARPOS),'中'),COLORMAGENTA,LINETHICK4,FONTSIZE36;
DRAWTEXT(T,REFX(HH,DATACOUNT-BARPOS),'A上'),COLORWHITE;
DRAWTEXT(T,REFX(LL,DATACOUNT-BARPOS),'A下'),COLORRED;
觀望:=IF(ISLASTBAR&&TT,A05,DRAWNULL);
N2:=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;
周高:REF(HHV(H,N2),N2),NODRAW;
周低:REF(LLV(L,N2),N2),NODRAW;
周中:(周高+周低)/2,NODRAW;
AA:=BACKSET(ISLASTBAR,BARSLAST(周高<>REF(周高,1))+1);
BB:=BACKSET(ISLASTBAR,BARSLAST(周低<>REF(周低,1))+1);
DRAWSL(周高<>REF(周高,1)&&AA,周高,0,REFX(BARSLAST(周低<>REF(周低,1))+1,DATACOUNT-BARPOS),0),COLORBLUE;
DRAWSL(周低<>REF(周低,1)&&BB,周低,0,REFX(BARSLAST(周低<>REF(周低,1))+1,DATACOUNT-BARPOS),0),COLORYELLOW;
DRAWSL(周高<>REF(周高,1)&&AA,周中,0,REFX(BARSLAST(周低<>REF(周低,1))+1,DATACOUNT-BARPOS),0),COLORMAGENTA;
DRAWSL(周低<>REF(周低,1)&&BB,周中,0,REFX(BARSLAST(周低<>REF(周低,1))+1,DATACOUNT-BARPOS),0),COLORMAGENTA;
DRAWNUMBER(ISLASTBAR&&AA,周高,周高,2),COLORBLUE;
DRAWNUMBER(ISLASTBAR&&BB,周低,周低,2),COLORYELLOW;
IF(周高<>REF(周高,1)&&AA,周高,DRAWNULL),CIRCLEDOT;
IF(周低<>REF(周低,1)&&BB,周低,DRAWNULL),CIRCLEDOT;
DRAWSL(周高<>REF(周高,1)&&AA,周高,0,-SUMBARS(DAYBARPOS=1,2)+1,0),COLORBLUE;
DRAWSL(周低<>REF(周低,1)&&BB,周低,0,-SUMBARS(DAYBARPOS=1,2)+1,0),COLORYELLOW;
DRAWSL(周高<>REF(周高,1)&&AA,周中,0,-SUMBARS(DAYBARPOS=1,2)+1,0),COLORMAGENTA;
DRAWSL(周低<>REF(周低,1)&&BB,周中,0,-SUMBARS(DAYBARPOS=1,2)+1,0),COLORMAGENTA; 來源 程序化久久網