混沌操作法-------------大家探讨
文章出处:易坚 发布时间:2005-09-08
混沌分形公式
var1:=(H+L)/2;
下颚:SMA(VAR1,13,1),SHIFT8,COLORBLUE;
牙齿:SMA(VAR1,8,1),SHIFT5,COLORRED;
上唇:SMA(VAR1,5,1),SHIFT3,COLORGREEN;
ho:=h>ref(h,1) and h>ref(h,2) and h>refx(h,1) and h>refx(h,2);
fxh:=cross(ho,0.9);
hh:=ref(h,barslast(fxh));
lo:=l fxl:=cross(lo,0.9);
ll:=ref(l,barslast(fxl));
向上分形: hh,, POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,hh,hh,5,0),COLORMAGENTA;
向下分形: ll, POINTDOT,Color3791B5;
STICKLINE(CLOSE,ll,ll,5,0),COLOR66CC99;
DRAWICON(fxh and hh>牙齿,H*1.005,8),COLORRED;
DRAWICON(fxl and ll<牙齿,L*0.995,9),COLORGREEN;
var1:=(H+L)/2;
下颚:SMA(VAR1,13,1),SHIFT8,COLORBLUE;
牙齿:SMA(VAR1,8,1),SHIFT5,COLORRED;
上唇:SMA(VAR1,5,1),SHIFT3,COLORGREEN;
ho:=h>ref(h,1) and h>ref(h,2) and h>refx(h,1) and h>refx(h,2);
fxh:=cross(ho,0.9);
hh:=ref(h,barslast(fxh));
lo:=l fxl:=cross(lo,0.9);
ll:=ref(l,barslast(fxl));
向上分形: hh,, POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,hh,hh,5,0),COLORMAGENTA;
向下分形: ll, POINTDOT,Color3791B5;
STICKLINE(CLOSE,ll,ll,5,0),COLOR66CC99;
DRAWICON(fxh and hh>牙齿,H*1.005,8),COLORRED;
DRAWICON(fxl and ll<牙齿,L*0.995,9),COLORGREEN;