勞駕寫(xiě)個(gè)小程序　[文華財(cái)經(jīng)]

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

?

?N :=BARSLAST(DATE<>REF(DATE,1))+1;
HD:=HHV(H,N);//今日最高
LD:=LLV(L,N);//今日最低
HD1:=REF(HH,N);//昨日最高---------------------------------------此處從左向右畫(huà)紅色射線虛線
LD1:=REF(LL,N);//昨日最低 ---------------------------------------此處從左向右畫(huà)蘭色射線虛線
昨日開(kāi)盤(pán)---------------------？？？-------此處價(jià)格高者從左向右畫(huà)紅色射線實(shí)線

昨日收盤(pán)---------------------？？？-------此處價(jià)格低者從左向右畫(huà)蘭色射線實(shí)線

?

昨日開(kāi)盤(pán)和昨日收盤(pán)一半處-----？？？-------此處從左向右畫(huà)白色射線實(shí)線

?

T?:=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;
HW:=HHV(H,T);//今周最高
LW:=LLV(L,T);//今周最低
HW1:=REF(HH,T);//昨周最高--------------------------------------此處從左向右畫(huà)黃色射線虛線
LW1:=REF(LL,T);//昨周最低 --------------------------------------此處從左向右畫(huà)綠色射線虛線
昨周開(kāi)盤(pán)---------------------？？？-------此處價(jià)格高者從左向右畫(huà)黃色射線實(shí)線
昨周收盤(pán)---------------------？？？-------此處價(jià)格低者從左向右畫(huà)綠色射線實(shí)線

昨周開(kāi)盤(pán)和昨周收盤(pán)一半處-----？？？-------此處從左向右畫(huà)灰色射線實(shí)線

?

多多謝！！！

?

?來(lái)源:程序化99

跟您核實(shí)一下，此處價(jià)格高者是指昨日所有開(kāi)盤(pán)價(jià)中的最高價(jià)嗎？

?

?來(lái)源: www.tumamayizhan.com

不是

?

?HD1:=REF(HH,N);//昨日最高---------------------------------------此處從左向右畫(huà)紅色射線虛線
LD1:=REF(LL,N);//昨日最低 ---------------------------------------此處從左向右畫(huà)蘭色射線虛線

昨日開(kāi)盤(pán)---------------------？？？-------此處價(jià)格高者從左向右畫(huà)紅色射線實(shí)線-------意思是收陽(yáng)線則在高的收盤(pán)價(jià)處畫(huà)紅色射線實(shí)線，而收陰線則在高的開(kāi)盤(pán)價(jià)處畫(huà)紅色射線實(shí)線

昨日收盤(pán)---------------------？？？-------此處價(jià)格低者從左向右畫(huà)蘭色射線實(shí)線-------意思同上，反之

?

周線同上

?

謝！

?

日線參考：

?N :=BARSLAST(DATE<>REF(DATE,1))+1;
HD:=HHV(H,N);//今日最高
LD:=LLV(L,N);//今日最低
HD1:=REF(HD,N);//昨日最高---------------------------------------此處從左向右畫(huà)紅色射線虛線
LD1:=REF(LD,N);//昨日最低 ---------------------------------------此處從左向右畫(huà)蘭色射線虛線

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;

?

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

?

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

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

HD1:=REF(HD,N);//昨日最高---------------------------------------此處從左向右畫(huà)紅色射線虛線
LD1:=REF(LD,N);//昨日最低 ---------------------------------------此處從左向右畫(huà)蘭色射線虛線
DO1:=REF(O,N);//昨日開(kāi)盤(pán)價(jià)---------------------此處開(kāi)盤(pán)價(jià)和收盤(pán)價(jià)二者大的，從左向右畫(huà)紅色射線實(shí)線

DC1:=REF(C,N);//昨日收盤(pán)價(jià)---------------------此處開(kāi)盤(pán)價(jià)和收盤(pán)價(jià)二者小的，從左向右畫(huà)蘭色射線實(shí)線

昨日開(kāi)盤(pán)價(jià)和昨日收盤(pán)價(jià)一半處-----？？？-------此處從左向右畫(huà)白色射線實(shí)線

?

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

HW:=HHV(H,T);//今周最高
LW:=LLV(L,T);//今周最低
HW1:=REF(HW,T);//上周最高--------------------------------------此處從左向右畫(huà)黃色射線虛線
LW1:=REF(LW,T);//上周最低 --------------------------------------此處從左向右畫(huà)綠色射線虛線

WO1:=REF(O,T);//上周開(kāi)盤(pán)價(jià)--------------------此處開(kāi)盤(pán)價(jià)和收盤(pán)價(jià)二者大的，從左向右畫(huà)黃色射線實(shí)線
WC1:=REF(C,T);//上周收盤(pán)價(jià)--------------------此處開(kāi)盤(pán)價(jià)和收盤(pán)價(jià)二者小的，從左向右畫(huà)綠色射線實(shí)線
上周開(kāi)盤(pán)價(jià)和上周收盤(pán)價(jià)一半處-----？？？-------此處從左向右畫(huà)灰色射線實(shí)線

?

謝