通达信MACD应用主图未加密选股指标公式源码

通达信MACD应用主图未加密选股指标公式源码

源码正文：

看顶部:=0{XG51};
超短线:=0{XG51};
看红柱高低:=0{XG51};
红色主升:=1{XG51};
基本数据:=0{XG51};
DRAWTEXT_FIX(1,0.00,0.10,0,'调整参数看顶部'){XG51};
超大1:=ema(CLOSE,300)-Ema(CLOSE,650){XG51};
红色1:=EMA(超大1,225){XG51};
白大于红:BArslAst(超大1<REF(红色1,1)),COLORRED,NODRAW{XG51};
{XG51};
中2:=EMA(CLOSE,50)-EMA(CLOSE,130),COLORGRAY{XG51};
DYO:=IF(中2>0,0.3,DRAWNULL){XG51};
主升:BARSLAST(DYO=DRAWNULL),COLORLICYAN,NODRAW{XG51};
红周期:BARSLAST(红色1<REF(红色1,1)),COLORWHITE,NODRAW{XG51};
{XG51};
超大线:EMA(CLOSE,300)-EMA(CLOSE,650),COLORRED,LINETHICK2{XG51};
红色线:EMA(超大线,225),COLORWHITE,LINETHICK2{XG51};
S1:=EMA(CLOSE,150)-EMA(CLOSE,320){XG51};
蓝色:EMA(S1,90),COLORYELLOW,LINETHICK1{XG51};
中级:EMA(CLOSE,50)-EMA(CLOSE,130),COLORGRAY{XG51};
绿色:EMA(中级,45),COLORCYAN{XG51};
VARA1:=IF(红色线<0,超大线<红色线,DRAWNULL){XG51};
距离:IF(BARSLAST(VARA1)>0,0-红色线,0),COLORBLUE,LINETHICK1{XG51};
VART2:=(EMA(CLOSE,6)-EMA(CLOSE,13)){XG51};
超短:IF(VART2<-0.8,-0.8,VART2)*超短线,COLORLIRED{XG51};
dif:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
MacD:看红柱高低*IF((DIF-DEA)*2>0,(DIF-DEA)*2,0),COLORSTICK{XG51};
MACD快线:IF(DIF<-1,-1,DIF)*看顶部,COLOR855C82{XG51};
最小值:=MIN(超大线,MIN(红色线,MIN(蓝色,MIN(中级,绿色)))){XG51};
主升区:IF(主升/红色主升,REF(红色线,主升),DRAWNULL),COLORLICYAN,LINETHICK4{XG51};
{XG51};
A1Q:=FINANCE(42){XG51};
A2Q:=DATETODAY(CONST(DATE)){XG51};
A3Q:=A2Q-A1Q{XG51};
A4Q:=DAYTODATE(A3Q)+19000000,NODRAW{XG51};
上市的日期:=STRCAT(CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0),STRCAT(' 上市日期: ',CON2STR(A4Q,0))){XG51};
上市天数:=STRCAT(STRCAT(' 自然日: ',CON2STR(FINANCE(42),0)),'天'){XG51};
交易日:=STRCAT(STRCAT(' [交易天数]: ',CON2STR(BARSSINCE(C),0)),'天 收缩k线准'){XG51};
显示:=STRCAT(STRCAT(上市的日期,上市天数),交易日){XG51};
DRAWTEXT_FIX(基本数据*C>0,0.00,0.00,0,显示),COLORBLACK{XG51};

N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 '){XG51};
R9:=STRCAT(CON2STR(WEEkdAY,0),' ');
RA:=STRCAT(STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))),'】'){XG51};
SJ9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(N8,Y8),R8),' 星期 '),R9),RA){XG51};
DRAWTEXT_FIX(基本数据*C>0,0.425,0.00,0,SJ9),COLORCYAN{X_G~5~1_C_N_{};

通达信强势股预警未加密选股指标公式源码

源码正文：

ma5:=MA(C,5){XG51};
布林上轨:=MA(CLOSE,24)+2*stD(CLOSE,24){XG51};
XG1:=O<MA5 AND C>MA5 AND O<布林上轨 AND C>布林上轨 AND MA(C,60)>REF(MA(C,60),1) AND C/REF(C,1)>1.03{XG51};
V1:=HHV(C,5)/LLV(O,5)<1.05{XG51};
XG:=COUNT(REF(XG1,1),5)<1 AND XG1{XG51};
V2:=C>O AND C/O<1.01{XG51};
V3:=REF(C,1)/REF(C,2)<1.05{XG51};
V4:=H>=HHV(C,20){XG51};
V5:=REF(XG,1){XG51};
V6:=H/L>1.03{XG51};
V7:=HHV(C,7)/LLV(O,7)<1.15{XG51};
XGG:=(V2 AND V5 AND V6 AND V7) OR (XG AND V4 AND V7){XG51};
difF:=ema(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
Q1:=BArslAST(crOSS(DIFF,DEA)){XG51};
XG2:=Q1>=1 ;
FILTER(XGG,6) AND XG2{X~G-5~1~C~N~{};