大智慧公式源码共享

130波段 无未来数据 

VAR1:=((CLOSE - LLV(LOW,15))/(HHV(HIGH,15) - LLV(LOW,15)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,5,1);
K:=SMA(VAR3,3,1);
D:=SMA(K,3,1);
85,Stick,Linethick7,ColorFF0000;
DRAWTEXT(CROSS(K,D) and (D <18),15,'买'),Color00FF00;
DRAWTEXT(CROSS(D,K) and (D >75),85,'卖'),ColorFFFFFF;
STICKLINE((K >= D),K,D,6,0),Color0000A8;
STICKLINE((K >= D),K,D,5,0),Color0000C0;
STICKLINE((K >= D),K,D,4,0),Color0000E0;
STICKLINE((K >= D),K,D,3,0),Color0000F0;
STICKLINE((K >= D),K,D,2,0),Color0000D0;
STICKLINE((K >= D),K,D,1,0),Color8080FF;
STICKLINE((K <= D),K,D,6,0),Color008800;
STICKLINE((K <= D),K,D,5,0),Color009900;
STICKLINE((K <= D),K,D,4,0),Color00AA00;
STICKLINE((K <= D),K,D,3,0),Color00BB00;
STICKLINE((K <= D),K,D,2,0),Color00CC00;
STICKLINE((K <= D),K,D,1,0),Color00DD00;

MACD_KD解盘

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
MAC := DIFF>ref(DIFF ,1);
DIF:2*DIFF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趋势:=(-3)*(Var1-Var2);
趋势,colorred;
长期趋势:EMA(Var1,10)*(-1);
Jm:=CROSS(DIFF,DEA)*0.2;
JmCount:=COUNT(Jm=0.2,BARSLAST(DEA>0));

DRAWTEXT(DEA<0 AND Jm=0.2,Jm,'0轴下第'),colorgreen;
DRAWTEXT(DEA<0 AND Jm=0.2,0,'   次金叉'),coloryellow;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3 AND(VOL/CAPITAL<=(10/100)))
       AND((K<=20 AND D<=20)) ,0.40,
       '短线KD金叉'),COLORYELLOW;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3 AND
      (VOL/CAPITAL<=(10/100)))AND(BARSLAST(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3
       AND(VOL/CAPITAL<=(10/100)))AND((K<=20 AND D<=20)))>=1)AND(BARSLAST(CROSS(k,D)
       AND(COUNT(VOL>REF(VOL,1),30)>3 AND(VOL/CAPITAL<=(10/100)))AND((K<=30 AND D<=20)))<=7) ,0.40,
      '短线KD二次金叉'),Color00FFFF,LINETHICK2, ;
b:=CROSS(D,K) AND K>60 AND D>60;
b1:=COUNT(b,BARSLAST( D<60));
DRAWTEXT(b AND b1=1,0.50, '短线KD死叉'),ColorFFFFFF,LINETHICK2, ;
DRAWTEXT(b AND b1=2,0.70, '短线KD二次死叉'),ColorFFFFFF,LINETHICK2, ;

山峰

Var1:=(CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45))*100;
山峰:SMA(Var1,5,1)-8,LINETHICK2,COLORgreen;
STICKLINE(山峰,0,山峰,1,0),COLORC8FF00;
Var2:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
Var3:SMA(Var2,5,1)-16;
STICKLINE(Var3>山峰,5,-5,6,2),COLORYELLOW;
STICKLINE(Var3<山峰,0,-5,4,2),COLOR9800FF;
山谷: STICKLINE(FILTER(CROSS(Var3,山峰),5) AND 山峰<20,0,20,13,0),COLORgreen;
DRAWTEXT(FILTER(CROSS(Var3,山峰),5)=1 AND 山峰<15,25,'山谷'),COLORgreen;
上山: STICKLINE(CROSS(山峰,Var3) AND Var3>=55 AND Var3<70,0,75,8,0),COLORYELLOW;
DRAWTEXT(CROSS(山峰,Var3) AND Var3>=55 AND Var3<70,80,'跑吧'),COLORYELLOW;
山顶:STICKLINE(FILTER(CROSS(山峰,80),20)=1,0,85,10,0),COLORred;
DRAWTEXT(FILTER(CROSS(山峰,80),20)=1,85,'山顶'),COLORred;
Var4:=SMA(Vol,5,1);
Var5:=(Var4-llv(Var4,10))/(hhv(Var4,10)-llv(Var4,10))*100;

Var6:=SMA(Var5,3,1);
Var7:=100-Var6;
Var9:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*80;

藏宝图 无未来数据

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,27);
DEA:=EMA(DIFF,9);
MACD:=(2)*(DIFF - DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
准备抄底:=(REF(CLOSE,A1 + 1) >CLOSE) and (DIFF >REF(DIFF,A1 + 1)) and CROSS(DIFF,DEA);
STICKLINE(准备抄底,0,0.1,10,0),colorred;
DRAWTEXT(准备抄底,0.15,'准备抄底'),colorred;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
大盘顶:=(REF(CLOSE,A2 + 1) <CLOSE) and (REF(DIFF,A2 + 1) >DIFF) and CROSS(DEA,DIFF);
STICKLINE(大盘顶,0,0.1,10,0),Color00FF00;
DRAWTEXT(大盘顶,0.2,'大盘顶'),Color00FF00;
DRAWTEXT((DATE >1981231),999999995904,'Q'),coloryellow;

抢反弹 无未来数据

LC:=REF(CLOSE,1);
RSI:=((SMA(MAX(CLOSE - LC,0),4.1,1))/(SMA(ABS(CLOSE - LC),4.1,1)))*(100);
反弹:(CROSS(RSI,11))*(80),colorred;
DRAWTEXT(反弹,79,'抢反弹'),Color66FFCC;

好用就回帖……好用就回帖……好用就回帖……好用就回帖……好用就回帖……好用就回帖……好用就回帖