DELTA彩线公式修正版
(2012-12-11 23:22:32)
					
											标签:
																				
                            杂谈 | 
					分类: 杂谈 | 
//修正:原公式彩线有时会随屏幕变化而变短,现在已经没有
//以下是正式代码,以上可不复制
//绘制K线
KLINE(O,H,L,C,0);
//判断是否绘制彩线的位置
农历:LDay,LineThick0,COLORYELLOW;
isColor:=IF((REF(农历,1)<15  OR
 REF(农历,1)>农历) AND
农历>=15,1,0);  
 //农历15,或者农历15后的第一个交易日,就是绘制彩线的位置    
NUM:=COUNT(ISCOLOR=1,0);    
     
     
     
     
     
     
     
  //当前彩线的个数                        
//绘制彩线
VERTLINE(isColor AND MOD(NUM,4)=0),COLORRED;
     
     
   
 //绘制红色线         
VERTLINE(isColor AND MOD(NUM,4)=1),COLORYELLOW;
     
     
  //绘制黄色线       
VERTLINE(isColor AND MOD(NUM,4)=2),COLORBLUE;
     
     
    //绘制蓝色线        
VERTLINE(isColor AND MOD(NUM,4)=3),COLORMAGENTA;
     
     
 //绘制紫色线       
(2)Delta MTD公式
//绘制K线
KLINE(O,H,L,C,0);
//判断是否绘制彩线的位置
农历:LDay,LineThick0,COLORYELLOW;
isColor:=if((ref(农历,1)<15  or
ref(农历,1)>农历) and 农历>=15,1,0);
 //农历15,或者农历15后的第一个交易日,就是绘制彩线的位置  
NUM:=COUNT(ISCOLOR=1,0);    
     
     
     
     
     
     
   
 //当前彩线的个数                       
//绘制彩线
VERTLINE(isColor and mod(Num,12)=0),colorred
     ;   
VERTLINE(isColor and mod(Num,12)=3),coloryellow
  ; 
VERTLINE(isColor and mod(Num,12)=6),colorblue
    ;  
VERTLINE(isColor and mod(Num,12)=9),colormagenta
 ; 
(3)DELTA LTD公式
//可用于绘制K线
KLINE(O,H,L,C,0);
//判断是否绘制彩线的位置
年:=year;
isColor:=IF(年>REF(年,1),1,0);  
     
    //当K线的年份发生变化,就是绘制彩线的位置      
Num:=COUNT(isColor,0);    
     
     
    //计算彩线个数          
//绘制彩线
VERTLINE(isColor and mod(Num,4)=1),colorred  
   ;   
VERTLINE(isColor and mod(Num,4)=2),coloryellow
  ; 
VERTLINE(isColor and mod(Num,4)=3),colorblue
    ;  
VERTLINE(isColor and mod(Num,4)=0),colormagenta
 ; 
(4)DELTA SLTD公式
//绘制K线
KLINE(O,H,L,C,0);
//判断是否绘制彩线的位置
月:=MONTH;
isFirst:=IF(月<>REF(月,1),1,0);
     
     
     
     
  //K线月份发生变化的位置             
isColor:=IF(MOD(COUNT(isFirst,0),57)=1  AND
isFirst,1,0); //每57个月绘制一次彩线; 
Num:=COUNT(isColor,0);    
     
     
     
     
     
 //计算彩线个数                  
//绘制彩线
VERTLINE(isColor and mod(Num,4)=1),colorred  
   ;   
VERTLINE(isColor and mod(Num,4)=2),coloryellow
  ; 
VERTLINE(isColor and mod(Num,4)=3),colorblue
    ;  
VERTLINE(isColor and mod(Num,4)=0),colormagenta
 ; 
(5)DELTA STD 公式
//绘制彩线
KLINE(O,H,L,C,0);
IF DATATYPE>5 THEN
BEGIN
END;
//判断是否绘制彩线的位置
日:=date;    
     
     
     
     
     
     
     
     
 //求当前K线的日期                           
isColor:=if(日>ref(日,1) or barpos=1,1,0);
     
     
     
  //当K线的日期发生变化时,就是新的彩线绘制位置          
DIS0:=if(barpos=1 or not(isColor),0,DATEDIFF(ref(日,1),日)-1);
//星期六、星期日以及节假日也要考虑
DIS:=SUM(DIS0,0);
Num:=count(isColor,0)+DIS;  
     
     
     
     
     
   //计算彩线个数                  
VERTLINE(isColor and mod(Num,4)=0),colorred  
   ;   
VERTLINE(isColor and mod(Num,4)=1),coloryellow
  ; 
VERTLINE(isColor and mod(Num,4)=2),colorblue
    ;  
VERTLINE(isColor and mod(Num,4)=3),colormagenta
 ; 
前一篇:【读书笔记】德马克指标之TD序列
										
					
加载中…