|
|
发表于 2012-1-28 19:01
|
|阅读模式
马上注册,享用更多功能,让你轻松玩转本论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
手机登录
×
备注:公式不是万能的,只能多一项参考,感谢千老师原创!
飞狐源码:
DRAWTEXTEX(C,1,0,0,STKLABEL+' '+STKNAME+''),ColorFFBF00;
J1:="macd.diff";
J2:="macd.dea";
J3:="kdj.k";
J4:="kdj.d";
VL:=REF(LOW,1); VH:=REF(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=REF(CLOSE,1);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
var7:=CROSS(93,Var6);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=H>LLV(l,0)*7;
var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);
T:FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20),LINETHICK4,STICK,ColorFF00FF;
T0:FILTER(IF(CROSS(j4,j3) and SUM(j1>REF(j1,1),3)>3,CROSS(j4,j3) and CROSS(j2,j1),0),13),STICK,Color5E8262,LINETHICK3;
T1:FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),3),STICK,Color2B87C3,LINETHICK3;
T2:FILTER(var7 and C/(REF(C,1)-1)*100<>5 and var9 and vol>REF(SUM(vol,3),1),5),STICK,ColorFFFF00,LINETHICK3;
T3:FILTERX(var9 and CROSS(j4,j3) and C/(REF(C,1)-1)*100<>5,22),STICK,Color00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注\n意\n洗\n盘'),SHIFT1,Color5E8262;
DRAWTEXT(T,T,'洗\n盘\n结\n束'),ColorFF00FF,SHIFT1;
DRAWTEXT(T1,T1,'主\n力\n加\n速'),Color2B87C3,SHIFT1;
DRAWTEXT(T2,T2,'庄家逃跑'),ColorFFFF00;
DRAWTEXT(T3,T3,'风\n险'),Color00FF00,SHIFT1,PXDN50,ALIGN4;
通达信版
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J1:=DIFF;
J2:=DEA;
J3:=K;
J4:=D;
VL:=REF(LOW,1); VH:=REF(H,1);
VAR1:=SMA(ABS(H-VH),13,1)/SMA(MAX(H-VH,0),13,1)*100;
VAR2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
VAR3:=REF(CLOSE,1);
VAR4:=MA(VAR2,13);
VAR5:=LLV(L,34);
VAR6:=SMA(MAX(CLOSE-VAR3,0),6,1)/SMA(ABS(CLOSE-VAR3),6,1)*100;
VAR7:=CROSS(93,VAR6);
VAR8:=EMA(IF(L<=VAR5,VAR4,0),3);
VAR9:=H>LLV(L,0)*7;
VAR10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
VAR11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (VAR10 * 10.9);
T:FILTER(IF(VAR11<=VAR10 AND VAR8>REF(VAR8,1),VAR8*8,0),20),LINETHICK4,STICK,COLORFF00FF;
T0:FILTER(IF(CROSS(J4,J3) AND SUM(J1>REF(J1,1),3)>3,CROSS(J4,J3) AND CROSS(J2,J1),0),13),STICK,COLOR5E8262,LINETHICK3;
T1:FILTER(CROSS(J1,J2) AND VOL>REF(SUM(VOL,5),1),3),STICK,COLOR00FFFF,LINETHICK3;
T2:FILTER(VAR7 AND C/(REF(C,1)-1)*100!=5 AND VAR9 AND VOL>REF(SUM(VOL,3),1),5),STICK,COLORFFFF00,LINETHICK3;
T3:FILTER(VAR9 AND CROSS(J4,J3) AND C/(REF(C,1)-1)*100!=5,22),STICK,COLOR00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注意洗盘'),COLOR5E8262;
DRAWTEXT(T,T*0.90,'洗盘结束'),COLORFF00FF;
DRAWTEXT(T1,T1*0.90,'主力加速'),COLOR00FFFF;
DRAWTEXT(T2,T2*0.90,'庄家逃跑'),COLORFFFF00;
DRAWTEXT(T3,T3*0.90,'风险'),COLOR00FF00;
|
|