劳驾写个小程序

用于日线以下的分钟周期上

 N :=BARSLAST(DATE<>REF(DATE,1))+1;
HD:=HHV(H,N);//今日最高
LD:=LLV(L,N);//今日最低
HD1:=REF(HH,N);//昨日最高---------------------------------------此处从左向右画红色射线虚线
LD1:=REF(LL,N);//昨日最低 ---------------------------------------此处从左向右画兰色射线虚线
昨日开盘---------------------？？？-------此处价格高者从左向右画红色射线实线

昨日收盘---------------------？？？-------此处价格低者从左向右画兰色射线实线

昨日开盘和昨日收盘一半处-----？？？-------此处从左向右画白色射线实线

T :=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;
HW:=HHV(H,T);//今周最高
LW:=LLV(L,T);//今周最低
HW1:=REF(HH,T);//昨周最高--------------------------------------此处从左向右画黄色射线虚线
LW1:=REF(LL,T);//昨周最低 --------------------------------------此处从左向右画绿色射线虚线
昨周开盘---------------------？？？-------此处价格高者从左向右画黄色射线实线
昨周收盘---------------------？？？-------此处价格低者从左向右画绿色射线实线

昨周开盘和昨周收盘一半处-----？？？-------此处从左向右画灰色射线实线

多多谢！！！

 来源:程序化99

跟您核实一下，此处价格高者是指昨日所有开盘价中的最高价吗？

 来源: WWW.CXH99.COM

不是

 HD1:=REF(HH,N);//昨日最高---------------------------------------此处从左向右画红色射线虚线
LD1:=REF(LL,N);//昨日最低 ---------------------------------------此处从左向右画兰色射线虚线

昨日开盘---------------------？？？-------此处价格高者从左向右画红色射线实线-------意思是收阳线则在高的收盘价处画红色射线实线，而收阴线则在高的开盘价处画红色射线实线

昨日收盘---------------------？？？-------此处价格低者从左向右画兰色射线实线-------意思同上，反之

周线同上

谢！

日线参考：

 N :=BARSLAST(DATE<>REF(DATE,1))+1;
HD:=HHV(H,N);//今日最高
LD:=LLV(L,N);//今日最低
HD1:=REF(HD,N);//昨日最高---------------------------------------此处从左向右画红色射线虚线
LD1:=REF(LD,N);//昨日最低 ---------------------------------------此处从左向右画兰色射线虚线

N1:=VALUEWHEN(C>0,HHVBARS(H,N)),NODRAW;
ND1:=REF(N1,N),NODRAW;
DRAWSL1(ISLASTBAR,REF(H,N1+ND1+1),0,N1+ND1+1,1),DOT,COLORRED;

N2:=VALUEWHEN(C>0,LLVBARS(L,N)),NODRAW;
ND2:=REF(N2,N),NODRAW;
DRAWSL1(ISLASTBAR,REF(L,N2+ND2+1),0,N2+ND2+1,1),DOT,COLORBLUE;

ZN:SUMBARS(DATE<>REF(DATE,1),2),NODRAW;
DRAWSL1(ISLASTBAR,REF(MAX(O,C),ZN-1),0,ZN-1,1),COLORRED;
DRAWSL1(ISLASTBAR,REF(MIN(O,C),ZN-1),0,ZN-1,1),COLORBLUE;
DRAWSL1(ISLASTBAR,REF((C+O)/2,ZN-1),0,ZN-1,1),COLORWHITE;

--------------------------------------------------------------------------------------

周线参考：

T :=BARSLAST(CROSS(WEEKDAY=1,0.5))+1;
HW:=HHV(H,T);//今周最高
LW:=LLV(L,T);//今周最低

T1:=VALUEWHEN(C>0,HHVBARS(H,T)),NODRAW;
TD1:=REF(T1,T),NODRAW;
DRAWSL1(ISLASTBAR,REF(H,T1+TD1+1),0,T1+TD1+1,1),DOT,COLORYELLOW;

T2:=VALUEWHEN(C>0,LLVBARS(L,T)),NODRAW;
TD2:=REF(T2,T),NODRAW;
DRAWSL1(ISLASTBAR,REF(L,T2+TD2+1),0,T2+TD2+1,1),DOT,COLORGREEN;

TN:SUMBARS(CROSS(WEEKDAY=1,0.5),2),NODRAW;
DRAWSL1(ISLASTBAR,REF(MAX(O,C),TN-1),0,TN-1,1),COLORYELLOW;
DRAWSL1(ISLASTBAR,REF(MIN(O,C),TN-1),0,TN-1,1),COLORGREEN;
DRAWSL1(ISLASTBAR,REF((C+O)/2,TN-1),0,TN-1,1),COLORGRAY;

麻烦老师仔细看一下，加载后不太对，好象没有那么复杂？？？

  N :=BARSLAST(DATE<>REF(DATE,1))+1;

HD:=HHV(H,N);//今日最高
LD:=LLV(L,N);//今日最低

HD1:=REF(HD,N);//昨日最高---------------------------------------此处从左向右画红色射线虚线
LD1:=REF(LD,N);//昨日最低 ---------------------------------------此处从左向右画兰色射线虚线
DO1:=REF(O,N);//昨日开盘价---------------------此处开盘价和收盘价二者大的，从左向右画红色射线实线

DC1:=REF(C,N);//昨日收盘价---------------------此处开盘价和收盘价二者小的，从左向右画兰色射线实线

昨日开盘价和昨日收盘价一半处-----？？？-------此处从左向右画白色射线实线

T :=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;

HW:=HHV(H,T);//今周最高
LW:=LLV(L,T);//今周最低
HW1:=REF(HW,T);//上周最高--------------------------------------此处从左向右画黄色射线虚线
LW1:=REF(LW,T);//上周最低 --------------------------------------此处从左向右画绿色射线虚线

WO1:=REF(O,T);//上周开盘价--------------------此处开盘价和收盘价二者大的，从左向右画黄色射线实线
WC1:=REF(C,T);//上周收盘价--------------------此处开盘价和收盘价二者小的，从左向右画绿色射线实线
上周开盘价和上周收盘价一半处-----？？？-------此处从左向右画灰色射线实线

谢