改編成文華指標

作者：文華財經來源：cxh99.com 發布時間：2024年02月18日

咨詢內容： ?麻煩老師改編成文華指標，謝謝

A:=(3*C+L+O+H)/6;
GUP0:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)

+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)

+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)

+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210,COLOR0000FF;

GUP1:=SLOPE(EMA(CLOSE,2),5)*15+C;

GUP2:=EMA(GUP1,5);

GUPA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(GUP2,5),5),5),5),5),5),5),5);

GUPB:=BARSLAST(CROSS(CLOSE,GUPA));

GUPC:=BARSLAST(CROSS(GUPA,CLOSE));

STICKLINE(CLOSE<GUPA,REF(CLOSE,GUPC),REF(CLOSE,GUPC),12,0),COLOR00FF00;

STICKLINE(CLOSE>GUPA AND CLOSE>REF(CLOSE,GUPB),REF(CLOSE,GUPB),GUP0,0.2,0),COLOR0000FF;

STICKLINE(CLOSE>GUPA AND CLOSE>REF(CLOSE,GUPB),REF(CLOSE,GUPB),REF(CLOSE,GUPB),12,0),COLOR8000FF;

STICKLINE(CLOSE<GUPA AND CLOSE<REF(CLOSE,GUPC),REF(CLOSE,GUPC),GUP0,0.2,0),COLOR00FF00;

AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,30))/MA(CLOSE,30);

趨勢線:DMA((2*CLOSE+LOW+HIGH)/4,AA),LINETHICK3,COLORRED;

CC:=(CLOSE/趨勢線);

MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);

MAA:=((MA1-趨勢線)/趨勢線)/3;

TMP:=MA1-MAA*MA1;

持幣:IF(TMP<=趨勢線,趨勢線,DRAWNULL),LINETHICK3,COLORGREEN;

趨勢:IF(TMP<=趨勢線,TMP,DRAWNULL),LINETHICK2,COLORBLUE;

MX:=EMA(C,2);

MXA:=EMA(SLOPE(C,21)*20+C,42);

建倉:CROSS(MX,MXA),NODRAW;

清倉:=CROSS(MXA,MX);

DRAWTEXT(建倉,L-0.1,'',COLORRED;

DRAWTEXT(清倉,H+0.1,'',COLORGREEN;

STICKLINE(MX>=MXA,LOW,HIGH,0.0,1),COLORRED;

STICKLINE(MX>=MXA,CLOSE,OPEN,3,1),COLORRED;

STICKLINE(MX<MXA,LOW,HIGH,0.0,1),COLORGREEN;

STICKLINE(MX<MXA,CLOSE,OPEN,3,1),COLORGREEN;

STICKLINE(建倉,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(清倉,OPEN,CLOSE,2,0),COLORBLUE;

CP:=MA(CLOSE,9),COLORCYAN,LINETHICK1;

JD:=MA(CLOSE,18),COLORMAGENTA;

DRAWICON(CROSS(CP,JD) AND MX>=MXA,JD-0.1,1);

DRAWTEXT(CROSS(CP,JD) AND MX>=MXA,JD-0.38,'',COLORYELLOW;

BL:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;

STICKLINE(FILTER(BL,3),OPEN,CLOSE,1.5,0),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.05,0,'加：可以加倉來回做差】',COLORYELLOW;

DRAWTEXT_FIX(1,0,0.1,0,'空：空倉持幣】',COLORGREEN;

DRAWTEXT_FIX(1,0,0.15,0,'多：開始建倉】',COLORMAGENTA;
?
?來源:程序化99
文華技術人員： 文華軟件是不支持在指定位置標注的，您可以描述下您加、多、空的標注思路，
我們看下能否改寫。
參考：
A:=(3*C+L+O+H)/6;
GUP0:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)
+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)
+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)
+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210,COLOR0000FF;
GUP1:=SLOPE(EMA(CLOSE,2),5)*15+C;
GUP2:=EMA(GUP1,5);
GUPA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(GUP2,5),5),5),5),5),5),5),5);
GUPB:=BARSLAST(CROSS(CLOSE,GUPA));
GUPC:=BARSLAST(CROSS(GUPA,CLOSE));
STICKLINE(CLOSE<GUPA,REF(CLOSE,GUPC),REF(CLOSE,GUPC),12,0),COLOR00FF00;
STICKLINE(CLOSE>GUPA AND CLOSE>REF(CLOSE,GUPB),REF(CLOSE,GUPB),GUP0,0.2,0),COLOR0000FF;
STICKLINE(CLOSE>GUPA AND CLOSE>REF(CLOSE,GUPB),REF(CLOSE,GUPB),REF(CLOSE,GUPB),12,0),COLOR8000FF;
STICKLINE(CLOSE<GUPA AND CLOSE<REF(CLOSE,GUPC),REF(CLOSE,GUPC),GUP0,0.2,0),COLOR00FF00;
AA:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,30))/MA(CLOSE,30);
趨勢線:DMA((2*CLOSE+LOW+HIGH)/4,AA),LINETHICK3,COLORRED;
CC:=(CLOSE/趨勢線);
MA1:=MA(CC*(2*CLOSE+HIGH+LOW)/4,3);
MAA:=((MA1-趨勢線)/趨勢線)/3;
TMP:=MA1-MAA*MA1;
持幣:IF(TMP<=趨勢線,趨勢線,NULL),LINETHICK3,COLORGREEN;
趨勢:IF(TMP<=趨勢線,TMP,NULL),LINETHICK2,COLORBLUE;
MX:=EMA(C,2);
MXA:=EMA(SLOPE(C,21)*20+C,42);
建倉:CROSS(MX,MXA),NODRAW;
清倉:=CROSS(MXA,MX);
DRAWTEXT(建倉,L-0.1,'',COLORRED;
DRAWTEXT(清倉,H+0.1,'',COLORGREEN;
STICKLINE(MX>=MXA,LOW,HIGH,0.0,1),COLORRED;
STICKLINE(MX>=MXA,CLOSE,OPEN,3,1),COLORRED;
STICKLINE(MX<MXA,LOW,HIGH,0.0,1),COLORGREEN;
STICKLINE(MX<MXA,CLOSE,OPEN,3,1),COLORGREEN;
STICKLINE(建倉,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(清倉,OPEN,CLOSE,2,0),COLORBLUE;
CP:=MA(CLOSE,9),COLORCYAN,LINETHICK1;
JD:=MA(CLOSE,18),COLORMAGENTA;
DRAWICON(CROSS(CP,JD) AND MX>=MXA,JD-0.1,1);
DRAWTEXT(CROSS(CP,JD) AND MX>=MXA,JD-0.38,'',COLORYELLOW;
BL:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;
STICKLINE(FILTER(BL,3),OPEN,CLOSE,1.5,0),COLORYELLOW;