請老師改文華 謝謝
作者：文華財經 來源：cxh99.com 發布時間：2019年10月29日
-
咨詢內容：
?N:=9;
M1:=3;
M2:=3;
A:=14;
A1:=14;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
金:BARSLAST(CROSS(K,D))NODRAW;死:BARSLAST(CROSS(D,K))NODRAW;
DRAWICON(CROSS(K,D),D,1); {K上穿D做記號};
DRAWICON(CROSS(D,K),K,2); {D下穿K做記號};
A80:80,DOTLINE,COLORMAGENTA,LINETHICK1;
VAR1:=C-REF(C,1);
VAR2:=100*EMA(EMA(VAR1,6),6)/EMA(EMA(ABS(VAR1),6),6);
MA5:=EMA(C,5);
MA13:=EMA(C,13);
UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF;
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00;
BT:(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1);
STICKLINE(UP,0,3,2,0),COLOR0000FF;
STICKLINE(DOWN,0,3,2,0),COLOR00FF00;
STICKLINE(BT,0,30,2,0),COLOR000088;
STICKLINE(BT,0,30,1,0),COLOR0000CC;
STICKLINE(BT,0,30,0.22,0),COLOR0000FF;
DRAWTEXT(BT,30,'牛',COLOR0000FF;
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82;
STICKLINE(TJ1,0,20,3,0),COLOR880088;
STICKLINE(TJ1,0,20,1.5,0),COLORAA00AA;
STICKLINE(TJ1,0,20,0.8,0),COLORCC00CC;
STICKLINE(TJ1,0,20,0.2,0),COLORFF00FF;
DRAWTEXT(TJ1,20,'牛',COLORFF00FF;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
TJ2:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33;
STICKLINE(TJ2,0,10,3,0),COLOR008888;
STICKLINE(TJ2,0,10,2,0),COLOR00AAAA;
STICKLINE(TJ2,0,10,1,0),COLOR00CCCC;
STICKLINE(TJ2,0,10,0.2,0),COLOR00FFFF;
DRAWTEXT(TJ2,10,'牛',COLOR00FFFF;
ST:=REF(UP,1)>REF(UP,2) AND DOWN<REF(UP,1);
STICKLINE(ST,100,90,2,0),COLOR008800;
STICKLINE(ST,100,90,2,0),COLOR00AA00;
STICKLINE(ST,100,90,1,0),COLOR00CC00;
STICKLINE(ST,100,90,0.2,0),COLOR00FF00;
DRAWTEXT(ST,90,'',COLORFFFFFF;
DRAWICON(BT AND TJ1 AND TJ2,5,25);
上升:IF(K>REF(K,1),K,DRAWNULL),LINETHICK1,COLORRED;
?
?來源:程序化99
-
文華技術人員：
參考
?N:=9;
M1:=3;
M2:=3;
A:=14;
A1:=14;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
金:BARSLAST(CROSS(K,D)),NODRAW;
死:BARSLAST(CROSS(D,K)),NODRAW;
DRAWICON(CROSS(K,D),D,1);?
DRAWICON(CROSS(D,K),K,2);?
A80:80,DOT,COLORMAGENTA,LINETHICK1;
VAR1:=C-REF(C,1);
VAR2:=100*EMA(EMA(VAR1,6),6)/EMA(EMA(ABS(VAR1),6),6);
MA5:=EMA(C,5);
MA13:=EMA(C,13);
UP:=TRENDLINES(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1)),COLOR0000FF;
DOWN:=TRENDLINES(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1)),COLOR00FF00;
BT:(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1);
STICKLINE(UP,0,3,2,0),COLOR0000FF;
STICKLINE(DOWN,0,3,2,0),COLOR00FF00;
STICKLINE(BT,0,30,2,0),COLOR000088;
STICKLINE(BT,0,30,1,0),COLOR0000CC;
STICKLINE(BT,0,30,0.22,0),COLOR0000FF;
DRAWTEXT(BT,30,'牛',COLOR0000FF;
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82;
STICKLINE(TJ1,0,20,3,0),COLOR880088;
STICKLINE(TJ1,0,20,1.5,0),COLORAA00AA;
STICKLINE(TJ1,0,20,0.8,0),COLORCC00CC;
STICKLINE(TJ1,0,20,0.2,0),COLORFF00FF;
DRAWTEXT(TJ1,20,'牛',COLORFF00FF;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
TJ2:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33;
STICKLINE(TJ2,0,10,3,0),COLOR008888;
STICKLINE(TJ2,0,10,2,0),COLOR00AAAA;
STICKLINE(TJ2,0,10,1,0),COLOR00CCCC;
STICKLINE(TJ2,0,10,0.2,0),COLOR00FFFF;
DRAWTEXT(TJ2,10,'牛',COLOR00FFFF;
ST:=REF(UP,1)>REF(UP,2) AND DOWN<REF(UP,1);
STICKLINE(ST,100,90,2,0),COLOR008800;
STICKLINE(ST,100,90,2,0),COLOR00AA00;
STICKLINE(ST,100,90,1,0),COLOR00CC00;
STICKLINE(ST,100,90,0.2,0),COLOR00FF00;
DRAWTEXT(ST,90,'',COLORFFFFFF;
DRAWICON(BT AND TJ1 AND TJ2,5,25);
上升:IF(K>REF(K,1),K,NULL),LINETHICK1,COLORRED;
打印本文
關閉窗口