老師好,這個指標幫我改下,謝謝! [博易POBO]
咨詢內容:
LX:=LLV(LOW,3);
H1:=IFELSE(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IFELSE(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(LX>0,G1,G1,0,COLORCYAN);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
////畫線語句////
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
////畫變色K線語句////
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN);
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED);
DRAWSL(K2=1,G,0,1,0,COLORCYAN);
DRAWSL(K2=-3,G,0,1,0,COLORRED);
////文字標注語句////
DRAWTEXT(CROSS(TMP,0),HX,'賣');
DRAWTEXT(CROSS(0,TMP),LX,'買');
//MA55:=MA(CLOSE,55);
//DRAWTEXT(CROSS(TMP,0)&&CLOSE<=MA55,HX,'賣↓');
//DRAWTEXT(CROSS(0,TMP)&&CLOSE>=MA55,LX,'買↑');
LX:=LLV(LOW,3);
H1:=IF(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IF(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(LX>0,G1,G1,0),COLORCYAN;
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);
////畫線語句////
DRAWLINE(W1=1,HIGH,W1=1,HT),COLORCYAN;
DRAWLINE(W1=1,LOW,W1=1,LT),COLORCYAN;
DRAWLINE(W1=-3,HIGH,W1=-3,HT),COLORRED;
DRAWLINE(W1=-3,LOW,W1=-3,LT),COLORRED;
////畫變色K線語句////
STICKLINE(W1>0,OPEN,CLOSE,10,1),COLORCYAN;
STICKLINE(W1<=0,OPEN,CLOSE,10,1),COLORRED;
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,10,0),COLORRED;
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,10,0),COLORCYAN;
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),0),COLORCYAN;
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),0),COLORRED;
DRAWSL(K2=1,G,0,1,0),COLORCYAN;
DRAWSL(K2=-3,G,0,1,0),COLORRED;
////文字標注語句////
DRAWTEXT(CROSS(TMP,0),HX,'賣');
DRAWTEXT(CROSS(0,TMP),LX,'買');
//MA55:=MA(CLOSE,55);
//DRAWTEXT(CROSS(TMP,0)&&CLOSE<=MA55,HX,'賣↓');
//DRAWTEXT(CROSS(0,TMP)&&CLOSE>=MA55,LX,'買↑'); 謝謝老師,線段能不能用豎線連接起來。 來源 程序化久久網
老師好,這個指標幫我改下,謝謝!
HX:=HHV(HIGH,3);LX:=LLV(LOW,3);
H1:=IFELSE(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IFELSE(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(LX>0,G1,G1,0,COLORCYAN);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
////畫線語句////
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
////畫變色K線語句////
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN);
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED);
DRAWSL(K2=1,G,0,1,0,COLORCYAN);
DRAWSL(K2=-3,G,0,1,0,COLORRED);
////文字標注語句////
DRAWTEXT(CROSS(TMP,0),HX,'賣');
DRAWTEXT(CROSS(0,TMP),LX,'買');
//MA55:=MA(CLOSE,55);
//DRAWTEXT(CROSS(TMP,0)&&CLOSE<=MA55,HX,'賣↓');
//DRAWTEXT(CROSS(0,TMP)&&CLOSE>=MA55,LX,'買↑');
?
?來源:程序化99網( www.tumamayizhan.com )
博易技術人員: HX:=HHV(HIGH,3);LX:=LLV(LOW,3);
H1:=IF(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IF(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(LX>0,G1,G1,0),COLORCYAN;
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);
////畫線語句////
DRAWLINE(W1=1,HIGH,W1=1,HT),COLORCYAN;
DRAWLINE(W1=1,LOW,W1=1,LT),COLORCYAN;
DRAWLINE(W1=-3,HIGH,W1=-3,HT),COLORRED;
DRAWLINE(W1=-3,LOW,W1=-3,LT),COLORRED;
////畫變色K線語句////
STICKLINE(W1>0,OPEN,CLOSE,10,1),COLORCYAN;
STICKLINE(W1<=0,OPEN,CLOSE,10,1),COLORRED;
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,10,0),COLORRED;
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,10,0),COLORCYAN;
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),0),COLORCYAN;
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),0),COLORRED;
DRAWSL(K2=1,G,0,1,0),COLORCYAN;
DRAWSL(K2=-3,G,0,1,0),COLORRED;
////文字標注語句////
DRAWTEXT(CROSS(TMP,0),HX,'賣');
DRAWTEXT(CROSS(0,TMP),LX,'買');
//MA55:=MA(CLOSE,55);
//DRAWTEXT(CROSS(TMP,0)&&CLOSE<=MA55,HX,'賣↓');
//DRAWTEXT(CROSS(0,TMP)&&CLOSE>=MA55,LX,'買↑'); 謝謝老師,線段能不能用豎線連接起來。 來源 程序化久久網
有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號:cxh99cxh99 進行 有償收費 編寫!
(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
相關文章
-
沒有相關內容