麻煩老師幫忙把通達信的指標改寫成文華指標
作者：文華財經 來源：cxh99.com 發布時間：2018年08月10日
-
咨詢內容：
?
EMA21:=EMA(C,21),COLORYELLOW;?EMA34:=EMA(C,34),COLORFF00FF;?EMA60:=MA(C,60),COLORFFCC66;?VAR2:=(2*CLOSE+HIGH+LOW)/4;?VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);?VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);?散戶:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;?莊家:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3;?DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L-0.05,'低吸',COLORred;?DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H+0.15,'高拋',COLORred;?DRAWICON(CROSS(散戶,莊家) AND 散戶<30,L-0.05,4);?DRAWICON(CROSS(莊家,散戶) AND 散戶>70,H+0.05,5);?VAR9:=CLOSE-REF(CLOSE,5);?VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);?VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);?賣出1:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);?DRAWICON(賣出1=90,H+0.05,11);DRAWTEXT(賣出1=90,H+0.15,'線逃',COLORYELLOW;
?買線:=EMA(CLOSE,2);?賣線:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);?drawicon(CROSS(買線,賣線),l-0.06,10);drawicon(CROSS(80,"rsi.rsi1"),H+0.06,11);DRAWTEXT(CROSS(80,"rsi.rsi1"),H+0.06,'si80',COLORYELLOW;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;A0:=(L+H+C*2)/4;A1:EMA(A0,m),COLORBLUE,LINETHICK2;A2:=EMA(A0,25),LINETHICK2;A1X:=(A1-REF(A1,1))/REF(A1,1)*100;A2X:=(A2-REF(A2,1))/REF(A2,1)*100;看多:PARTLINE(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0)))),,COLORMAGENTA;逃頂:PARTLINE(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X)))),COLORCYAN;買入持股:PARTLINE(A1X>=0,A1),COLORRED,LINETHICK3;賣出空倉:PARTLINE(A1X<0 AND A2X<0,A1),COLORGREEN,LINETHICK3;STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;STICKLINE(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;?STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;?STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;UPQK:=LOW-REF(HIGH,1);STICKLINE(CLOSE>REF(CLOSE,1) AND UPQK>0,REF(HIGH,1),LOW,20,1),COLORFF00FF;DRAWTEXT(CLOSE>REF(CLOSE,1) AND UPQK>0,UPQK/2+REF(HIGH,1),'向上跳空',COLORFF00FF;DOWNQK:=REF(LOW,1)-HIGH;STICKLINE(CLOSE<REF(CLOSE,1) AND DOWNQK>0,REF(LOW,1),HIGH,20,1),COLORFFFF00;DRAWTEXT(CLOSE<REF(CLOSE,1) AND DOWNQK>0,DOWNQK/2+HIGH,'向下跳空',COLORFFFF00;MID : ?MA(CLOSE,26);UPPER: MID + 2*STD(CLOSE,26)，COLORYELLOW;LOWER: MID - 2*STD(CLOSE,26)，COLORYELLOW;
?
?來源:程序化99
-
文華技術人員：
?參考：
?EMA21:=EMA(C,21),COLORYELLOW;?
EMA34:=EMA(C,34),COLORFF00FF;?
EMA60:=MA(C,60),COLORFFCC66;?
VAR2:=(2*CLOSE+HIGH+LOW)/4;?
VAR3:=IF(YEAR>=2033 AND MONTH>2,0,1);?
VAR4:=LLV(LOW,5);?
VAR5:=HHV(HIGH,4);?
散戶:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;?
莊家:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3;?
DRAWTEXT(CROSS(散戶,莊家) AND 散戶<30,L-0.05,'低吸',COLORRED;?
DRAWTEXT(CROSS(莊家,散戶) AND 散戶>70,H+0.15,'高拋',COLORRED;?
DRAWICON(CROSS(散戶,莊家) AND 散戶<30,L-0.05,4);?
DRAWICON(CROSS(莊家,散戶) AND 散戶>70,H+0.05,5);?
VAR9:=CLOSE-REF(CLOSE,5);?
VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);?
VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);?
賣出1:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);?
DRAWICON(賣出1=90,H+0.05,11);
DRAWTEXT(賣出1=90,H+0.15,'線逃',COLORYELLOW;
LC := REF(CLOSE,1);
BACKGROUNDSTYLE(1);
RSI1:SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
?買線:=EMA(CLOSE,2);?
賣線:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);?
DRAWICON(CROSS(買線,賣線),L-0.06,10);
DRAWICON(CROSS(80,RSI1),H+0.06,11);
DRAWTEXT(CROSS(80,RSI1),H+0.06,'SI80',COLORYELLOW;
VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;
A0:=(L+H+C*2)/4;
M:5;
A1:EMA(A0,M),COLORBLUE,LINETHICK2;
A2:=EMA(A0,25),LINETHICK2;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100;
PARTLINE1(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0)))),COLORMAGENTA;
PARTLINE1(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X)))),COLORCYAN;
PARTLINE1(A1X>=0,A1),COLORRED,LINETHICK3;
PARTLINE1(A1X<0 AND A2X<0,A1),COLORGREEN,LINETHICK3;
STICKLINE1(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;
STICKLINE1(CROSS(A1X,0),C,O,3,0 ),COLOR0000CC;?
STICKLINE1(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;?
STICKLINE1(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;
UPQK:=LOW-REF(HIGH,1);
STICKLINE1(CLOSE>REF(CLOSE,1) AND UPQK>0,REF(HIGH,1),LOW,20,1),COLORFF00FF;
DRAWTEXT(CLOSE>REF(CLOSE,1) AND UPQK>0,UPQK/2+REF(HIGH,1),'向上跳空',COLORFF00FF;
DOWNQK:=REF(LOW,1)-HIGH;
STICKLINE1(CLOSE<REF(CLOSE,1) AND DOWNQK>0,REF(LOW,1),HIGH,20,1),COLORFFFF00;
DRAWTEXT(CLOSE<REF(CLOSE,1) AND DOWNQK>0,DOWNQK/2+HIGH,'向下跳空',COLORFFFF00;
MID :? MA(CLOSE,26);
UPPER: MID + 2*STD(CLOSE,26),COLORYELLOW;
LOWER: MID - 2*STD(CLOSE,26),COLORYELLOW;
打印本文
關閉窗口