請老師幫忙看一下謝謝 [文華財經]
-
咨詢內容：
?KPW:=BARSLAST(DATE>REF(DATE,1));//TIME<=0900KPJ:=REF(O,KPW);DRAWGBK(O<KPJ,RGB(0,30,0),RGB(0,50,0),0);DRAWGBK(O>=KPJ,RGB(30,0,0),RGB(50,0,0),0);STICKLINE(C>=O,OPEN,CLOSE,RGB(120,120,120),1);STICKLINE(C< O,OPEN,CLOSE,RGB(120,120,120),0);DRAWLINE(H>L,H,H>L,MAX(C,O),RGB(120,120,120));DRAWLINE(H>L,L,H>L,MIN(C,O),RGB(120,120,120));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);TMP:=K2;W1:=K2;W2:=OPEN-CLOSE;HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);VAR3:=IF(DATE<990202,1,0);KWZ:=BARSLAST(CROSS(TMP,0));DWZ:=BARSLAST(CROSS(0,TMP));KKP:=REF(KPJ,KWZ);DKP:=REF(KPJ,DWZ);DRAWLINE(W1=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),HIGH,W1=1,HT,COLORCYAN);DRAWLINE(W1=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),LOW,W1=1,LT,COLORCYAN);STICKLINE(W1>0&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),OPEN,CLOSE,COLORCYAN,1);STICKLINE(W2>0&&W1>0&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),OPEN,CLOSE,COLORCYAN,0);DRAWLINE(TMP=1&&REF(TMP,1)=1&&VAR3>0,G,TMP=1&&REF(TMP,1)=1,REF(G,1),RGB(120,120,120)),DOT;DRAWSL(K2=1&&VAR3>0,G,0,1,0,RGB(120,120,120)),DOT;DRAWLINE(TMP=1&&REF(TMP,1)=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN),DOT;DRAWSL(K2=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),G,0,1,0,COLORCYAN),DOT;STICKLINE(W1<=0&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),OPEN,CLOSE,COLORRED,1);STICKLINE(W2>0&&W1<=0&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),OPEN,CLOSE,COLORRED,0);DRAWLINE(W1=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),HIGH,W1=-3,HT,COLORRED);DRAWLINE(W1=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),LOW,W1=-3,LT,COLORRED);DRAWLINE(TMP=-3&&REF(TMP,1)=-3&&VAR3>0,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),RGB(120,120,120)),DOT;DRAWSL(K2=-3&&VAR3>0,G,0,1,0,RGB(120,120,120)),DOT;DRAWLINE(TMP=-3&&REF(TMP,1)=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED),DOT;DRAWSL(K2=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),G,0,1,0,COLORRED),DOT;DRAWTEXT(CROSS(TMP,0)&&VAR3>0,HX,'ELL',FONTSIZE12,RGB(120,120,120);DRAWTEXT(CROSS(0,TMP)&&VAR3>0,LX,'UY',FONTSIZE12,RGB(120,120,120);DRAWTEXT(CROSS(TMP,0)&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),HX,'ELL',FONTSIZE18,COLORCYAN;DRAWTEXT(CROSS(0,TMP)&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),LX,'UY',FONTSIZE18,COLORYELLOW;KZY:=BARSLAST(REF(H,2)<REF(L,KWZ)&&KWZ<DWZ&&REF(C,1)>REF(H,2)&&(REF(H,2)>=REF(H,3)||REF(C,3)>REF(O,3)));DRAWTEXT(KZY>KWZ&&REF(H,1)<REF(L,KWZ)&&KWZ<DWZ&&C>REF(H,1)&&(REF(H,1)>=REF(H,2)||REF(C,2)>REF(O,2)),LX,'UY_STOP',FONTSIZE12,RGB(120,120,120);DRAWTEXT(KZY>KWZ&&REF(H,1)<REF(L,KWZ)&&KWZ<DWZ&&C>REF(H,1)&&(REF(H,1)>=REF(H,2)||REF(C,2)>REF(O,2))&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),LX,'UY_STOP',FONTSIZE12,COLORGREEN;DZY:=BARSLAST(REF(L,2)>REF(H,DWZ)&&DWZ<KWZ&&REF(C,1)<REF(L,2)&&(REF(L,2)<=REF(L,3)||REF(C,3)<REF(O,3)));DRAWTEXT(DZY>DWZ&&REF(L,1)>REF(H,DWZ)&&DWZ<KWZ&&C<REF(L,1)&&(REF(L,1)<=REF(L,2)||REF(C,2)<REF(O,2)),H,'ELL_STOP',FONTSIZE12,RGB(120,120,120);DRAWTEXT(DZY>DWZ&&REF(L,1)>REF(H,DWZ)&&DWZ<KWZ&&C<REF(L,1)&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1)&&(REF(L,1)<=REF(L,2)||REF(C,2)<REF(O,2)),H,'ELL_STOP',FONTSIZE12,COLORYELLOW;VAR3<1&&DATE>REF(DATE,1),WORD(1,'過期！微信:XIHUIGUOJI';1。老師去掉灰色開線。跌破支撐為陰。漲破壓力線為陽。謝謝。。。。2。開線色為正常色。兩個修改模式謝謝
?
?來源:程序化99
-
文華技術人員：
?第2種方案不要修改了老師謝謝
?
?來源: www.tumamayizhan.com
-
文華客服：
?
KPW:=BARSLAST(DATE>REF(DATE,1));//TIME<=0900
KPJ:=REF(O,KPW);
DRAWGBK(O<KPJ,RGB(0,30,0),RGB(0,50,0),0);
DRAWGBK(O>=KPJ,RGB(30,0,0),RGB(50,0,0),0);
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);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
VAR3:=IF(DATE<990202,1,0);
KWZ:=BARSLAST(CROSS(TMP,0));
DWZ:=BARSLAST(CROSS(0,TMP));
KKP:=REF(KPJ,KWZ);
DKP:=REF(KPJ,DWZ);
DRAWLINE(W1=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),LOW,W1=1,LT,COLORCYAN);
STICKLINE(W1>0&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W2>0&&W1>0&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),OPEN,CLOSE,COLORCYAN,0);
DRAWLINE(TMP=1&&REF(TMP,1)=1&&VAR3>0,G,TMP=1&&REF(TMP,1)=1,REF(G,1),RGB(120,120,120)),DOT;
DRAWSL(K2=1&&VAR3>0,G,0,1,0,RGB(120,120,120)),DOT;
DRAWLINE(TMP=1&&REF(TMP,1)=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN),DOT;
DRAWSL(K2=1&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),G,0,1,0,COLORCYAN),DOT;
STICKLINE(W1<=0&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),OPEN,CLOSE,COLORRED,0);
DRAWLINE(W1=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),LOW,W1=-3,LT,COLORRED);
DRAWLINE(TMP=-3&&REF(TMP,1)=-3&&VAR3>0,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),RGB(120,120,120)),DOT;
DRAWSL(K2=-3&&VAR3>0,G,0,1,0,RGB(120,120,120)),DOT;
DRAWLINE(TMP=-3&&REF(TMP,1)=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED),DOT;
DRAWSL(K2=-3&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),G,0,1,0,COLORRED),DOT;
DRAWTEXT(CROSS(TMP,0)&&VAR3>0,HX,'ELL',FONTSIZE12,RGB(120,120,120);
DRAWTEXT(CROSS(0,TMP)&&VAR3>0,LX,'UY',FONTSIZE12,RGB(120,120,120);
DRAWTEXT(CROSS(TMP,0)&&VAR3>0&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),HX,'ELL',FONTSIZE18,COLORCYAN;
DRAWTEXT(CROSS(0,TMP)&&VAR3>0&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1),LX,'UY',FONTSIZE18,COLORYELLOW;
KZY:=BARSLAST(REF(H,2)<REF(L,KWZ)&&KWZ<DWZ&&REF(C,1)>REF(H,2)&&(REF(H,2)>=REF(H,3)||REF(C,3)>REF(O,3)));
DRAWTEXT(KZY>KWZ&&REF(H,1)<REF(L,KWZ)&&KWZ<DWZ&&C>REF(H,1)&&(REF(H,1)>=REF(H,2)||REF(C,2)>REF(O,2)),LX,'UY_STOP',FONTSIZE12,RGB(120,120,120);
DRAWTEXT(KZY>KWZ&&REF(H,1)<REF(L,KWZ)&&KWZ<DWZ&&C>REF(H,1)&&(REF(H,1)>=REF(H,2)||REF(C,2)>REF(O,2))&&REF(C,KWZ)<KKP&&(REF(C,KWZ+1)<REF(KPJ,KWZ+1)||REF(C,KWZ)<REF(REF(L,KPW),KWZ)),LX,'UY_STOP',FONTSIZE12,COLORGREEN;
DZY:=BARSLAST(REF(L,2)>REF(H,DWZ)&&DWZ<KWZ&&REF(C,1)<REF(L,2)&&(REF(L,2)<=REF(L,3)||REF(C,3)<REF(O,3)));
DRAWTEXT(DZY>DWZ&&REF(L,1)>REF(H,DWZ)&&DWZ<KWZ&&C<REF(L,1)&&(REF(L,1)<=REF(L,2)||REF(C,2)<REF(O,2)),H,'ELL_STOP',FONTSIZE12,RGB(120,120,120);
DRAWTEXT(DZY>DWZ&&REF(L,1)>REF(H,DWZ)&&DWZ<KWZ&&C<REF(L,1)&&REF(C,DWZ)>DKP&&(REF(H,DWZ+1)>REF(KPJ,DWZ+1)||REF(KPW,DWZ)<1)&&(REF(L,1)<=REF(L,2)||REF(C,2)<REF(O,2)),H,'ELL_STOP',FONTSIZE12,COLORYELLOW;
VAR3<1&&DATE>REF(DATE,1),WORD(1,'過期！微信:XIHUIGUOJI';
DRAWCOLORKLINE(TMP>0&&C>=O,COLORCYAN,1);
DRAWCOLORKLINE(TMP>0&&C<O,COLORCYAN,1);
有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信號：cxh99cxh99 進行 有償收費 編寫！
(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)
相關文章
-
沒有相關內容