| 
    	
 | 
         | 
    
    	    	  
        
 
 
 楼主 |
发表于 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; |   
 
 
 
 | 
         |