|
|

楼主 |
发表于 2004-11-3 03:08
|
显示全部楼层
由于时间问题,关于第五维以后在补上。朋友们也可以帮忙补上谢谢!希望以后多加探讨谢谢!公式全在此(颜色全部按书上的):
分形:
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;
AO
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
STICKLINE(AO>=REF(AO,1),0,AO,10,0),COLORGREEN;
STICKLINE(AO<=REF(AO,1),0,AO,10,0),COLORRED;
AC
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:=SMA((AO-SMA(AO,5,1)),5,1);
STICKLINE(AC>=REF(AC,1),0,AC,10,0),COLORGREEN;
STICKLINE(AC<=REF(AC,1),0,AC,10,0),COLORRED;
区域:
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:=SMA((AO-SMA(AO,5,1)),5,1);
v1:=AO>REF(AO,1) AND AC<REF(AC,1);
v2:=AO<REF(AO,1) AND AC>REF(AC,1);
绿了:AO>REF(AO,1) AND AC>REF(AC,1),COLORGREEN;
红了:AO<REF(AO,1) AND AC<REF(AC,1),COLORRED;
灰了:v1 or v2,COLORGRAY;
v3:=count(绿了,BARSLAST(绿了=0));
v4:=count(红了,BARSLAST(红了=0));
v5:=count(灰了,BARSLAST(灰了=0));
v6:=NUMTOSTR(v3);
v7:=NUMTOSTR(v4);
v8:=NUMTOSTR(v5);
drawtext(绿了 and v3>4,0.9,v6),colorgreen;
drawtext(红了 and v4>4,0.9,v7),colorred;
drawtext(灰了 and v5>4,0.9,v8),COLORGREEN; |
|
|