实现渐近色指标！

nopain

最近无意发现TS可以实现渐近色的指标，看了一下，发现TB不用系统函数也可以实现该功能，因此写一个例程供大家参考，没啥大用处，仅供玩赏.
1、首先，我们先要新建一个用户函数，取名为： GradientColor
返回值为数值型，代码如下：

1. Params
   
2.         Numeric Price(10);
   
3.         Numeric minSet(20);
   
4.         Numeric MaxSet(80);
   
5.         Numeric StartColor(255);
   
6.         Numeric EndColor(65535);
   
7. Vars
   
8.         Numeric offset;
   
9.         Numeric startRed;
   
10.         Numeric startGreen;
    
11.         Numeric startBlue;
    
12.         Numeric endRed;
    
13.         Numeric endGreen;
    
14.         Numeric endBlue;
    
15.         Numeric reRed;
    
16.         Numeric reGreen;
    
17.         Numeric reBlue;
    
18.         Numeric step;
    
19.         Numeric reColor;
    
20. Begin
    
21.         step = 10;
    
22.         offset = (maxSet-minSet)/step;
    
23. 
    
24.         startRed = StartColor%256;
    
25.         startGreen = (StartColor/256)%256;
    
26.         startBlue = (StartColor/256/256);
    
27.         endRed = EndColor%256;
    
28.         endGreen = (EndColor/256)%256;
    
29.         endBlue = (EndColor/256/256);
    
30.                
    
31.         reRed = startRed + IntPart((Price - minSet)/offSet)*(endRed-startRed)/step;
    
32.         reGreen = startGreen + IntPart((Price - minSet)/offSet)*(endGreen-startGreen)/step;
    
33.         reBlue = startBlue+ IntPart((Price - minSet)/offSet)*(endBlue-startBlue)/step;
    
34.         FileAppend("C:\\formula.log","Red="+Text(reRed)+",Green="+Text(reGreen)+",Blue="+Text(reBlue));
    
35. 
    
36.         reColor = RGB(reRed,reGreen,reBlue);
    
37.         return reColor;
    
38. End

复制代码

2、我们在RSI的基础上来进行修改，支持RSI渐近色！新建一个RSIEx技术指标，代码如下：

1. Params
   
2.         Numeric Length(14) ;
   
3.         Numeric OverSold(30) ;
   
4.         Numeric OverBought(70) ;
   
5. Vars
   
6.         NumericSeries NetChgAvg( 0 );
   
7.         NumericSeries TotChgAvg( 0 );
   
8.         Numeric Change( 0 );
   
9.         Numeric SF( 0 );
   
10.         Numeric ChgRatio( 0 ) ;
    
11.         Numeric RSIValue;
    
12.         Numeric curColor;
    
13. Begin
    
14.         SF = 1/Length;
    
15.         If(CurrentBar < Length)
    
16.         {
    
17.                 RSIValue = InvalidNumeric;
    
18.         }Else
    
19.         {
    
20.                 If(CurrentBar == Length)
    
21.                 {
    
22.                         NetChgAvg = ( Close - Close[Length] ) / Length ;
    
23.                         TotChgAvg = AverageFC( Abs( Close - Close[1] ), Length ) ;
    
24.                 }
    
25.                
    
26.                 If(CurrentBar>length)
    
27.                 {
    
28.                         Change = Close - Close[1] ;
    
29.                         NetChgAvg = NetChgAvg[1] + SF * ( Change - NetChgAvg[1] ) ;
    
30.                         TotChgAvg = TotChgAvg[1] + SF * ( Abs( Change ) - TotChgAvg[1] ) ;
    
31.                 }
    
32.                
    
33.                 If( TotChgAvg <> 0 )
    
34.                 {
    
35.                         ChgRatio = NetChgAvg / TotChgAvg ;
    
36.                 }else
    
37.                 {
    
38.                         ChgRatio = 0 ;
    
39.                 }
    
40.                
    
41.                 RSIValue = 50 * ( ChgRatio + 1 ) ;
    
42.         }
    
43.         If(RSIValue > OverBought)
    
44.         {
    
45.                 curColor = Red;
    
46.         }else if(RSIValue < OverSold)
    
47.         {
    
48.                 curColor = DarkCyan;
    
49.         }Else
    
50.         {
    
51.                 curColor = GradientColor(RSIValue,OverSold,OverBought,DarkCyan,Red);
    
52.         }
    
53.         PlotNumeric("RSI",RSIValue,curColor);
    
54.         PlotNumeric("超买",OverBought);
    
55.         PlotNumeric("超卖",OverSold);
    
56. End

复制代码

3、插入图表，显示如下：


[ 本帖最后由 nopain 于 2007-10-16 15:39 编辑 ]

xxndm

请问楼主是怎么样把TB的超级图表调整成 MT 里的样子的呢？ 谢谢

nopain

主图线型选美国线就可以啦

stevenx8

先留个言，以后好找到这个帖子。

偶得好好学习一下。谢谢版主！

跑步的鱼

谢谢，公式好复杂啊

hedgehog

呵呵 看出来了
TB不仅功能强大
而且有一群热血斑竹和维护人员
正是TB的这个团队 支撑起了TB未来无限的发展空间

stevenx8

版主：你这个渐近色指标确实直观了，但我用了发现一个问题----速度大大降低了，变换周期时，显示极慢。

nopain

多做很多计算阿，所以只推荐来玩赏。

nickchen

编译通不过呢！！！提示  函数GradientColor 没有被声明 赋值语句 必须使用同类数据类型！！

nopain

GradientColor 用户函数的返回值设置为数值型