勞駕寫個小程序　[文華財經(jīng)]

用于日線以下的分鐘周期上

?

?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.tumamayizhan.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;

?

麻煩老師仔細看一下，加載后不太對，好象沒有那么復(fù)雜？？？

?

??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);//上周收盤價--------------------此處開盤價和收盤價二者小的，從左向右畫綠色射線實線
上周開盤價和上周收盤價一半處-----？？？-------此處從左向右畫灰色射線實線

?

謝