全套VT版混沌理论公式-----分析家

peter8

谢谢你呀
thanks you

bullhorn

学习

richerone

学习

天高任鸟飞

thank you

bb好胜

谢谢！

zhanglm

花了许多精力，比赚钱的兴趣都大！
终于局部完善了分形部分，仍有遗憾：分析家的公式系统太难搞，我觉得无法理解（我的水平有限，但编程也不至于如此复杂）。

对分形应用了两套条件语句。第一套FILTER(BACKSET(REF(H,2)=HHV(H,5),3),2)语句准确定位准确，但所有h,l是无效值，绘图语句却知道h,l值（绘图语句输出却很完美），所以fractal 和Uplevel（上碎）等根本没有办法在这个条件下输出。
所以又用了另一套条件，输出fractal等数据。

在这个公式中分形数据的输出往后移了两个周期，包括（Upfr,lofr, uplevel, lolevel).对颜色调了一下，uplevel, lolevel和飞狐相反，利于识别突破！


以下为分析家5。0 机构版公式，无参数！

{PAINT FRACTAL AND LEVEL}
VAR1:=FILTER(BACKSET(REF(H,2)=HHV(H,5),3),2);
VAR2:=FILTER(BACKSET(REF(L,2)=LLV(L,5),3),2);
IF VAR1 THEN BEGIN
STICKLINE(1,H+MA((H-L)/3,100),(H+MA((H-L)/3,100)),6,0),COLORCCCCCC;
UP:=H;
END
IF VAR2 THEN BEGIN
STICKLINE(1,L-MA((H-L)/3,100),(L-MA((H-L)/3,100)),6,0),COLORCCCCCC;
DN:=L;
END
STICKLINE(1,UP,UP,1,1),COLORFFFF00;
STICKLINE(1,DN,DN,1,1),COLORFF00FF;
{LEVEL AND FRACTAL OUT PUT}
UP_FR:=H+MA((H-L)/3,100);
LO_FR:=L-MA((H-L)/3,100);
IF REF(H,2)=HHV(H,5) THEN BEGIN
UPFR:REF(H+MA((H-L)/3,100),2),LINETHICK0,COLORCCCCCC,PRECIS2;
UPLEVEL:REF(H,2),LINETHICK0,COLORFFFF00,PRECIS2;
END
IF REF(L,2)=LLV(L,5) THEN BEGIN
LOFR:REF(LO_FR,2),LINETHICK0,COLORCCCCCC,PRECIS2;
LOLEVEL:REF(L,2),LINETHICK0,COLORFF00FF,PRECIS2;
END
{ALLIGATOR MOVING LINES}
Y:=(H+L)/2;
LIP:SMA(Y,5,1),COLORGREEN,MOVE3,PRECIS2;
TEETH:SMA(Y,8,1),COLORRED,MOVE5,PRECIS2;
JAW:SMA(Y,13,1),COLORBLUE,MOVE8,PRECIS2;

zhanglm

大地飞鹰那边不知有没有高招！

zhanglm

外软原码有h3>=h4, h3>=h5语句，以前用的条件没有限制h1,h2,h3,h4,h5同等和不允许h1=h3, h2=h3的情况。修补如下：（请专家验证，一个人做程序难免有误和缺失）


{PAINT FRACTAL AND LEVEL}
VAR1:=FILTER(BACKSET(REF(H,2)=HHV(H,5) AND REF(H,2)>REF(H,3) AND REF(H,2)>REF(H,4),3),2);
VAR2:=FILTER(BACKSET(REF(L,2)=LLV(L,5) AND REF(L,2)<REF(L,3) AND REF(L,2)<REF(L,4),3),2);
IF VAR1 THEN BEGIN
STICKLINE(1,H+MA((H-L)/3,100),(H+MA((H-L)/3,100)),6,0),COLORCCCCCC;
UP:=H;
END
IF VAR2 THEN BEGIN
STICKLINE(1,L-MA((H-L)/3,100),(L-MA((H-L)/3,100)),6,0),COLORCCCCCC;
DN:=L;
END
STICKLINE(1,UP,UP,1,1),COLORFFFF00;
STICKLINE(1,DN,DN,1,1),COLORFF00FF;
{LEVEL AND FRACTAL OUT PUT}
UP_FR:=H+MA((H-L)/3,100);
LO_FR:=L-MA((H-L)/3,100);
IF REF(H,2)=HHV(H,5) AND REF(H,2)>REF(H,3) AND REF(H,2)>REF(H,4) THEN BEGIN
UPFR:REF(H+MA((H-L)/3,100),2),LINETHICK0,COLORCCCCCC,PRECIS2;
UPLEVEL:REF(H,2),LINETHICK0,COLORFFFF00,PRECIS2;
END
IF REF(L,2)=LLV(L,5) AND REF(L,2)<REF(L,3) AND REF(L,2)<REF(L,4) THEN BEGIN
LOFR:REF(LO_FR,2),LINETHICK0,COLORCCCCCC,PRECIS2;
LOLEVEL:REF(L,2),LINETHICK0,COLORFF00FF,PRECIS2;
END
{ALLIGATOR MOVING LINES}
Y:=(H+L)/2;
LIP:SMA(Y,5,1),COLORGREEN,MOVE3,PRECIS2;
TEETH:SMA(Y,8,1),COLORRED,MOVE5,PRECIS2;
JAW:SMA(Y,13,1),COLORBLUE,MOVE8,PRECIS2;

小期

改成飞狐的吧~~~~~~~~~~~~~

zhanglm

Originally posted by 小期 at 2004-10-18 20:33:
改成飞狐的吧~~~~~~~~~~~~~

小期，飞狐的函数不一样，我模拟get的5,35 osc飞狐就不认条件语句，所以break of bands无法转到飞狐。弄的我对飞狐没兴趣！

那位飞狐高手调一下？

zhanglm

Originally posted by zhanglm at 2004-10-18 20:56:



小期，飞狐的函数不一样，我模拟get的5,35 osc飞狐就不认条件语句，所以break of bands无法转到飞狐。弄的我对飞狐没兴趣！

那位飞狐高手调一下？

飞狐有refx函数，实现了会比我的这个分析家版更漂亮。

看天下谁是英雄？

litianfang

以下是飞狐的上下分形公式：
AA:=REF(H,N)=HHV(H,2*N+1);
BB:=BACKSET(AA,N+1);
CC:=FILTER(BB,N) AND H=HHV(H,N+1);
DRAWICON(CC,H*1.02,8);
AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:=FILTER(BB2,N) AND L=LLV(L,N+1);
DRAWICON(CC2,L*0.99,9);
其实清扬的新波浪格式的代码里就有。

小期

Originally posted by litianfang at 2004-10-19 03:15 PM:
以下是飞狐的上下分形公式：
AA:=REF(H,N)=HHV(H,2*N+1);
BB:=BACKSET(AA,N+1);
CC:=FILTER(BB,N) AND H=HHV(H,N+1);
DRAWICON(CC,H*1.02,8);
AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:= ...

这个不错~~俺喜欢~~

小期

问题是这个不准。。。。参数是设5吧。许多没有显示出来啊。。。。-_-|||比俺以前自己用的还差~~

zhanglm

Originally posted by 小期 at 2004-10-19 15:45:
问题是这个不准。。。。参数是设5吧。许多没有显示出来啊。。。。-_-|||比俺以前自己用的还差~~

N should be 2.

小期

俺用2试了下确实不错~~ ：）

zhanglm麻烦你把这个分形加上虚线好吗？另外能把你分析家的鳄鱼线改成飞狐的吗？最好AC、AO的也有。感谢了~~~~~~~~~~~~~~

北呆

北呆

Originally posted by zhanglm at 2004-10-19 04:06 PM:



N should be 2.

AO AC 以及线不难，分形要做精确难！~

lyy159237

谢谢

zhanglm

Originally posted by 北呆 at 2004-10-19 23:58:



AO AC 以及线不难，分形要做精确难！~

北呆，那里不对请指正！我一直希望完善！