通达信公式 红升！擒金牛 ，
 公式有未来函数
 源码如下：

10,COLORRED;

20,COLOR00FF00,LINETHICK3,POINTDOT;

40,COLOR00FFFF,LINETHICK3,POINTDOT;

50,COLORRED,LINETHICK2;

60,COLORRED,LINETHICK3,POINTDOT;

80,COLOR00FFFF,LINETHICK3,POINTDOT;

90,COLORWHITE;

100,COLOR00FF00,LINETHICK1;

{进入异动区}{当出现进入异动区提示时需观察买入，最好是第二次KDJ三线相交时介入}

VAR7:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;{分析家公式网}

VAR8:=EMA(VAR7,30);

VAR9:=EMA(VAR8,30);

VAR10:=3*VAR8-2*VAR9;

势:=EMA(VAR10,5);

DRAWTEXT(CROSS(10,势),69,'进'),COLORYELLOW;

DRAWTEXT(CROSS(10,势),58,'入'),COLORFF00FF;

DRAWTEXT(CROSS(10,势),43,'异'),COLOR00C0FF;

DRAWTEXT(CROSS(10,势),31,'动[↓]'),COLORFFFF6F;

DRAWTEXT(CROSS(10,势),19,'区'), COLORB47DFF;

{长线持股}{含未来函数：DRAWLINE当天出现信号可择机介入，明日买、卖需观察}

A7:=C-REF(C,1);

A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);

SHORT:=7; LONG:=19;

RMA:=EMA(CLOSE,SHORT);

NMA:=EMA(CLOSE,LONG);

UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV

(L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV

(H,BARSLAST(CROSS(RMA,NMA))+1),HHV

(H,BARSLAST(CROSS(RMA,NMA))+1),0);

DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV

(H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV

(L,BARSLAST(CROSS(NMA,RMA))+1),LLV

(L,BARSLAST(CROSS(NMA,RMA))+1),0);

买进:=(LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND

CROSS(A8,MA(A8,2))) AND REF(DOWN,1)REF(DOWN,1);

STICKLINE(买进,0,45,1.3,0),COLOR000088;

STICKLINE(买进,0,45,0.9,0),COLOR0000AA;

STICKLINE(买进,0,45,0.6,0),COLOR0000CC;

STICKLINE(买进,0,45,0.2,0),COLOR0000FF;

DRAWTEXT(买进,43,'长线持股'),COLORRED,LINETHICK1;

{共振}

RV:=(CLOSE-LLV(LOW,33))/(HHV(HIGH,33)-LLV(LOW,33))*100;

RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;

VAR44:=SMA(RV,3,1);

VAR55:=SMA(VAR44,3,1);

KK:=EMA(SMA(RG,3,1),2),COLORFFFFFF;

JJ:=SMA(KK,3,1),COLOR00FFFF;

共振点:=(CROSS(VAR44,VAR55) AND CROSS(KK,JJ));

STICKLINE(共振点>0,0,35,1.3,0),COLOR008888;

STICKLINE(共振点>0,0,35,0.9,0),COLOR00AAAA;

STICKLINE(共振点>0,0,35,0.6,0),COLOR00DDDD;

STICKLINE(共振点>0,0,35,0.2,0),COLOR00FFFF;

DRAWTEXT(共振点>0,33,'共振'),COLOR00FF00;

{涨}

VAR1:=EMA(CLOSE,3);

VAR2:=EMA(CLOSE,21);

VAR3:=BARSLAST(CROSS(VAR2,VAR1))>15;

VAR4:=VOL>MA(VOL,5)*2 AND VOL

VAR5:=CROSS(VAR1,VAR2) AND VAR4 AND VAR3;

STICKLINE(VAR5,0,25,1.3,0),COLOR008800;

STICKLINE(VAR5,0,25,0.9,0),COLOR00AA00;

STICKLINE(VAR5,0,25,0.6,0),COLOR00CC00;

STICKLINE(VAR5,0,25,0.2,0),COLOR00FF00;

DRAWTEXT(VAR5,23,'★涨'),COLOR00FF00;

{KDJ没有未来函}

RSV:=(CLOSE-LLV(LOW,33))/(HHV(HIGH,33)-LLV(LOW,33))*100;

K:SMA(RSV,3,1),COLOR00FFFF,LINETHICK2;

D:SMA(K,3,1),COLORWHITE LINETHICK2;

J:3*K-2*D,COLORRED,LINETHICK2;

IF(J

{KDJ相交红蓝球}

DRAWICON(CROSS(J,D) AND CROSS(J,K),5,13);

DRAWICON(CROSS(D,J) AND CROSS(K,J),95,14);

{逃}

DRAWTEXT(CROSS(80,RSI),95,'★逃'),COLORWHITE LINETHICK1;

{顶}

VAR2