|
|

楼主 |
发表于 2013-11-4 15:36
|
显示全部楼层
公式水平不值一提,现在不怎么写了。
你问的这个公式是我根据均线的变化写的:大概就是研究一根均线的变化,加速,减速,变方向等等。前贴写过当时最简单的想法,就是三句程序语言,后来就是美化版,加上若干颜色变化。因为这不是程序区。建议你去程序区找高人学习下。
我再把这个程序图文下:
通达信源程序:
{M1:250 M2:13 M3:30}
MID:=(3*C+O+L+H)/4;
即时速度线:EMA(MID,M1)-REF(EMA(MID,M1),1),COLOR444444;
IF(即时速度线,即时速度线,DRAWNULL),COLOR999999,CROSSDOT;
平均速度线:MA(即时速度线,M2),LINETHICK0,COLORYELLOW;
加速度:(平均速度线-REF(平均速度线,9))/9,LINETHICK0,COLORMAGENTA;
MA1:MA(平均速度线,5),COLORWHITE;
MA2:MA(平均速度线,10),COLORYELLOW;
IF(MA1<=REF(MA1,1) ,MA1,DRAWNULL),COLOR22FF22;
IF(MA2<=REF(MA2,1),MA2,DRAWNULL),COLOR33FF33;
A1:=平均速度线>REF(平均速度线,1) AND 加速度>REF(加速度,1);{加速上行}
A2:=平均速度线>REF(平均速度线,1) AND 加速度<REF(加速度,1);{减速上行}
A3:=平均速度线<REF(平均速度线,1) AND 加速度<REF(加速度,1);{加速下行}
A4:=平均速度线<REF(平均速度线,1) AND 加速度>REF(加速度,1);{减速下行}
加速上行: STICKLINE(A1,平均速度线,REF(平均速度线,1),2,1),COLORRED;
减速上行: STICKLINE(A2,平均速度线,REF(平均速度线,1),2,1),COLORBLUE;
加速下行: STICKLINE(A3,平均速度线,REF(平均速度线,1),2,1),COLORGREEN;
减速下行: STICKLINE(A4,平均速度线,REF(平均速度线,1),2,1),COLORMAGENTA;
VAR3:=平均速度线>REF(平均速度线,1) AND REF(平均速度线,1)<REF(平均速度线,2);
VAR4:=平均速度线<REF(平均速度线,1) AND REF(平均速度线,1)>REF(平均速度线,2);
MA20:=MA(C,M3);
B1:=BARSLAST(MA20>REF(MA20,1));
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=1,0.95*REF(平均速度线,1),'1'),COLORYELLOW;
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=2,0.95*REF(平均速度线,1),'2'),COLORYELLOW;
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=3,0.95*REF(平均速度线,1),'3'),COLORYELLOW;
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=4,0.95*REF(平均速度线,1),'4'),COLORYELLOW;
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=5,0.95*REF(平均速度线,1),'5'),COLORYELLOW;
DRAWTEXT(VAR3 AND MA20<REF(MA20,1) AND COUNT(VAR3,B1)=6,0.95*REF(平均速度线,1),'6'),COLORYELLOW;
B2:=BARSLAST(MA20<REF(MA20,1));
DRAWTEXT(VAR4 AND MA20>REF(MA20,1) AND COUNT(VAR4,B2)=1 ,1.05*REF(平均速度线,1),'1');
DRAWTEXT(VAR4 AND MA20>REF(MA20,1) AND COUNT(VAR4,B2)=2 ,1.05*REF(平均速度线,1),'2');
DRAWTEXT(VAR4 AND MA20>REF(MA20,1) AND COUNT(VAR4,B2)=3 ,1.05*REF(平均速度线,1),'3');
DRAWTEXT(VAR4 AND MA20>REF(MA20,1) AND COUNT(VAR4,B2)=4 ,1.05*REF(平均速度线,1),'4');
DRAWTEXT(VAR4 AND MA20>REF(MA20,1) AND COUNT(VAR4,B2)=5 ,1.05*REF(平均速度线,1),'5');
图:
日K线:
|
|
|