一线乾坤 通达信源码

来函数检测结果如下：
该公式没有未来函数

DIR1:=ABS(CLOSE-REF(CLOSE,5));

VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);

ER1:=DIR1/VIR1;

CS1:=ER1*(0.8-2/8)+2/8;

CQ1:=CS1*CS1;

DIR2:=ABS(CLOSE-REF(CLOSE,10));

VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);

ER2:=DIR2/VIR2;

CS2:=ER2*(0.8-2/24)+2/24;

CQ2:=CS2*CS2;{分析家}

AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;

AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK2;

AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;

GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));

GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));

GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));

GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));

A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96;

B:=COUNT(A,2)=1;

D:=GJTJ1<GJTJ2 AND GJTJ1<GJTJ3 AND GJTJ1<GJTJ4 AND GJTJ2<GJTJ3 AND GJTJ4<95;

YH:=INDEXC/REF(INDEXC,1)*REF(C,1);

YH1:=REF(C,1)+C-INDEXC/REF(INDEXC,1)*REF(C,1);

X1:=EMA(YH1,7);

X2:=EMA(YH1,14);

X3:=EMA(X1,14);

E:=X1>X2 AND X2>X3;

竟星:=B AND D AND E;

DRAWTEXT(竟星,(L * 0.95),'竟星'),COLORWHITE;

XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;

天瀑:=COUNT(XG,3)=1 AND XG;

DRAWTEXT(天瀑,(L * 0.95),'天瀑'),COLORYELLOW;

A1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;

B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;

E1:=GJTJ1>60 AND GJTJ4>70;

白金:=A1 AND B1 AND E1;

DRAWTEXT(白金,(L * 0.95),'白金'),COLORGREEN;

A2:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;

B2:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;

A3:=A2 AND B2;

AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;

BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;

A4:=AA AND BA ;{分析家}

AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;

BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;

A8:=AAA AND BAA ;

B21:=REF(A3,1);

B3:=REF(A4,1);

B4:=REF(A8,1);

D2:=GJTJ1=100 AND GJTJ2=100 AND A3 ;

D3:=GJTJ1=100 AND GJTJ2=100 AND A4 ;

D4:=GJTJ1=100 AND GJTJ2=100 AND A8 ;

日月:=D2 OR D3 OR D3;

DRAWTEXT(日月,(L * 0.95),'日月'),COLORF00FF0;

A5:=BARSLAST(CROSS(95,GJTJ1))<=2;

B5:=BARSLAST(CROSS(95,GJTJ2))<=2;

E5:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;

F1:=GJTJ2>50 AND GJTJ3>50;

G1:=GJTJ1=100 AND GJTJ2=100;

TX:=COUNT(G1,2)=1;

青干:=A5 AND B5 AND E5 AND F1 AND TX;

DRAWTEXT(青干,(L * 0.95),'青干'),COLORRED;

A6:=GJTJ3=100;

B6:=GJTJ4<90;

莫问:=COUNT(A6,2) = 2 AND B6;

DRAWTEXT(莫问,(L * 0.95),'莫问'),COLORBLUE;

A7:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;

B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;

黄金:=A7 AND B7;

DRAWTEXT(黄金,(L * 0.95),'黄金'),COLORFFBB00;

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

多头:STICKLINE(DIFF>DEA,C,O,2,0),COLORRED;

STICKLINE(DIFF>DEA,H,L,0,0),COLORRED;

空头:STICKLINE(DIFF<=DEA,C,O,2,0),COLORF0F000;

STICKLINE(DIFF<=DEA,H,L,0,0),COLORF0F000;

DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'买入');

DRAWTEXT(CROSS(DEA,DIFF),H+0.2,'卖出');

原理解析：
DIR1赋值:收盘价-5日前的收盘价的绝对值


VIR1赋值:SUM(收盘价-1日前的收盘价的绝对值,5)


ER1赋值:DIR1/VIR1


CS1赋值:ER1*(0.8-2/8)+2/8


CQ1赋值:CS1*CS1


DIR2赋值:收盘价-10日前的收盘价的绝对值


VIR2赋值:SUM(收盘价-1日前的收盘价的绝对值,10)


ER2赋值:DIR2/VIR2


CS2赋值:ER2*(0.8-2/24)+2/24


CQ2赋值:CS2*CS2
输出{分析家}

AMA2:ED收盘价的CQ2日简单移动平均,2),画绿色, 线宽为2
输出

AMA3:IF(AMA2/1日前的AMA2>0.997,AMA2,DRAWNULL), 画蓝色, 线宽为2
输出

AMA4:IF(AMA2/1日前的AMA2>1.001,AMA2,DRAWNULL),画红色, 线宽为2
GJTJ1赋值:100*(C-5日内L最低值)/(5日内C最高值-5日内L最低值)


GJTJ2赋值:100*(C-10日内L最低值)/(10日内C最高值-10日内L最低值)


GJTJ3赋值:100*(C-20日内L最低值)/(20日内C最高值-20日内L最低值)


GJTJ4赋值:100*(C-30日内L最低值)/(30日内C最高值-30日内L最低值)


A赋值:GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4>96


B赋值:统计2日满足A的天数=1


D赋值:GJTJ1

YH赋值:INDEXC/1日前的INDEXC*1日前的C


YH1:=1日前的C+C-INDEXC/1日前的INDEXC*1日前的C


X1赋值:YH1的7日指数移动平均


X2赋值:YH1的14日指数移动平均


X3赋值:X1的14日指数移动平均


E赋值:X1>X2 AND X2>X3


竟星赋值:B AND D AND E


DRAWTEXT(竟星,(L * 0.95),'竟星'),画白色


XG赋值:上次GJTJ4上穿GJTJ1距今天数<5 AND GJTJ1>GJTJ4


天瀑赋值:统计3日满足XG的天数=1 AND XG


DRAWTEXT(天瀑,(L * 0.95),'天瀑'),画黄色


A1:=上次30上穿GJTJ1距今天数<2 AND BARSLAST(GJTJ1上穿50)<2


B1:=上次GJTJ4上穿GJTJ1距今天数<2 AND GJTJ1>GJTJ4


E1:=GJTJ1>60 AND GJTJ4>70


白金赋值:A1 AND B1 AND E1


DRAWTEXT(白金,(L * 0.95),'白金'),画绿色


A2:=上次97上穿GJTJ1距今天数<=1 AND BARSLAST(GJTJ1上穿85)<=1


B2:=上次97上穿GJTJ2距今天数<=1 AND BARSLAST(GJTJ2上穿85)<=1


A3:=A2 AND B2


AA:=上次97上穿GJTJ1距今天数<=2 AND BARSLAST(GJTJ1上穿85)<=1


BA:=上次97上穿GJTJ2距今天数<=2 AND BARSLAST(GJTJ2上穿85)<=1


A4:=AA AND BA
{分析家}

AAA:=上次97上穿GJTJ1距今天数<=3 AND BARSLAST(GJTJ1上穿85)<=1


BAA:=上次97上穿GJTJ2距今天数<=3 AND BARSLAST(GJTJ2上穿85)<=1


A8:=AAA AND BAA


B21:=1日前的A3


B3:=1日前的A4


B4:=1日前的A8


D2:=GJTJ1=100 AND GJTJ2=100 AND A3


D3:=GJTJ1=100 AND GJTJ2=100 AND A4


D4:=GJTJ1=100 AND GJTJ2=100 AND A8


日月赋值:D2 OR D3 OR D3


DRAWTEXT(日月,(L * 0.95),'日月'),COLORF00FF0


A5:=上次95上穿GJTJ1距今天数<=2


B5:=上次95上穿GJTJ2距今天数<=2


E5:= GJTJ4

F1赋值:GJTJ2>50 AND GJTJ3>50


G1赋值:GJTJ1=100 AND GJTJ2=100


TX赋值:统计2日满足G1的天数=1


青干赋值:A5 AND B5 AND E5 AND F1 AND TX


DRAWTEXT(青干,(L * 0.95),'青干'),画红色


A6:=GJTJ3=100


B6:=GJTJ4<90


莫问赋值:统计2日满足A6的天数 = 2 AND B6


DRAWTEXT(莫问,(L * 0.95),'莫问'), 画蓝色


A7:=上次50上穿GJTJ1距今天数<3 AND BARSLAST(GJTJ1上穿50)<3


B7:=上次GJTJ4上穿GJTJ1距今天数<2 AND GJTJ1>GJTJ4


黄金赋值:A7 AND B7


DRAWTEXT(黄金,(L * 0.95),'黄金'),COLORFFBB00


DIFF:=收盘价的12日指数移动平均-收盘价的26日指数移动平均


DEA:=DIFF的9日指数移动平均
当满足条件DIFF>DEA时,在C和O之间画柱状线
当满足条件DIFF>DEA时,在H和L之间画柱状线
当满足条件DIFF<=DEA时,在C和O之间画柱状线
当满足条件DIFF<=DEA时,在H和L之间画柱状线


DRAWTEXT(DIFF上穿DEA,L-0.2,'买入')


DRAWTEXT(DEA上穿DIFF,H+0.2,'卖出')