[源码]自己每天写一点指标当交作业--指标

woomin1985

//实盘排名29.....
//LTmic 加U!




KD指标改写
------文华代码----
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
//以上为KD指标公式
CROSS(K,D),BPK;//K,D金叉，买平并买开。
CROSS(D,K),SPK;//K,D死叉，卖平并卖开。

/////////////////////////
Params
         Numeric Length(20); //N                       
         Numeric SlowLength(24);   //M1     
         Numeric SmoothLength(10);  //M2
         Numeric lots(1);
Vars
         NumericSeries HighestValue;                                
         NumericSeries LowestValue;                                       
         NumericSeries RSV;        
         NumericSeries K1;
         NumericSeries D1;

Begin
        
         HighestValue = HighestFC(High, Length);
         LowestValue = LowestFC(Low, Length);
         PlotNumeric("LLV",LowestValue);
         PlotNumeric("HHV",HighestValue);
         RSV = (Close-LLV)/(HHV-LLV)*100;
         K1 = SMA(RSV,SlowLength,1);
         D1 = SMA(K1,SmoothLength,1);
end

=============================
文华代码 SSTO //
RSV:= (CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
FASTK:=SMA(RSV,M1,1);
K:=SMA(FASTK,M2,1);
D:=SMA(K,M3,1);
CROSS(K,D),BPK;
CROSS(D,K),SPK;

Params
         Numeric Length(20); //N                       
         Numeric SlowLength(24);   //M1     
         Numeric SmoothLength(10);  //M2
         Numeric lots(1);
         Numeric offset
         Numeric stoploss
                 
Vars
         NumericSeries HighestValue;                                
         NumericSeries LowestValue;                                       
         NumericSeries RSV;        
         NumericSeries K1;
         NumericSeries D1;
                 
Begin

woomin1985

ssto
//------------------------------------------------------------------------
// 简称: ssto
// 名称:
// 类别: 公式应用
// 类型: 用户应用
// 输出:
//------------------------------------------------------------------------
Params
Numeric Length(20); //N                       
Numeric SlowLength(24);   //M1     
Numeric SmoothLength(10);  //M2
Numeric LongLength(20);
Numeric lots(1);
Numeric offset(0);
Numeric stoploss(50);
                  
Vars
NumericSeries HighestValue;                                
NumericSeries LowestValue;                                       
NumericSeries RSV;        
NumericSeries FASTK;
NumericSeries K1;
NumericSeries D1;
Numeric i_offset;
Numeric BuyPosition;
Numeric SellPosition;
Numeric myEntryPrice;                  
Numeric myExitPrice;
                  
Begin
HighestValue = HighestFC(High, Length);
LowestValue = LowestFC(Low, Length);
RSV = (Close-LowestValue)/(HighestValue-LowestValue)*100;
FASTK = SMA(RSV,SlowLength,1);
K1 = SMA(FASTK,SmoothLength,1);
D1 = SMA(K1,LongLength,1);
i_offset = offset*MinMove*PriceScale;


if(MarketPosition == 0)
   {
      if(CrossOver(K1,D1))
         {
            buy(lots,Close[1]);
            Return;
                 }                        
          //if(CrossUnder(K1,D1))//开空头
         //{
          // SellShort(lots,Close[1]);
                  // Return;
         //}
        }
   if(MarketPosition == 1)//平多
   {
     if(CrossUnder(K1,D1))
         {
           Sell(lots,Close);
                   Return;
         }
   }
   
   //止损
    If(MarketPosition == 1)
        {
                If(Low < EntryPrice - StopLoss * MinMove*PriceScale)
                {
                        myExitPrice = EntryPrice - (StopLoss+1) * MinMove*PriceScale;
                        myExitPrice = max(low,myExitPrice);
                        Sell(lots,myExitPrice);
                }
        }
        Else If(MarketPosition == -1)
        {
                If(High > EntryPrice + StopLoss * MinMove*PriceScale)
                {
                        myExitPrice = EntryPrice + (StopLoss+1) * MinMove*PriceScale;
                        myExitPrice = min(high,myExitPrice);
                        BuyToCover(lots,myExitPrice);
                }
        }     
end

//------------------------------------------------------------------------
// 编译版本        GS2010.12.08
// 用户版本        2013/02/21 23:49
// 版权所有        woomin
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

woomin1985

拉里威廉姆斯模型 LWR I型
小编按:其实主体上看上去就是KD的变种.
RSV:= (CLOSE-HHV(HIGH,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;//定义RSV
LWR1:=SMA(RSV,3,1);//定义LWR1
LWR2:=SMA(LWR1,3,1);//定义LWR2
CROSS(LWR1,LWR2),BPK;//LWR1上穿LWR2
CROSS(LWR2,LWR1),SPK;//LWR1下穿LWR2



=====================
LWR II型
RSV:= (CLOSE-HHV(HIGH,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
LWR1:=SMA(RSV,M1,1);
LWR2:=SMA(LWR1,M2,1);
LWR1<30&&CROSS(LWR1,LWR2),BK;//LWR1小于30，并且LWR1上穿LWR2
LWR1>70&&CROSS(LWR2,LWR1),SK;//LWR1大于70，并且LWR1下穿LWR2
LWR1>80&&LWR2>70,BP;//LWR1大于80，并且LWR2大于70
LWR1<20&&LWR2<30,SP;//LWR1小于20，并且LWR2小于30

====================
Params
Numeric LengthN (20);
Numeric LengthM1(14);
Numeric LengthM2(7);
Numeric
Numeric
Numeric lots(1);
Numeric offset(3);
Numeric stoploss(50);


Vars
NumericSeries HighestValue
NumericSeries LowestValue
NumericSeries
NumericSeries
NumericSeries
NumericSeries

Begin
HighestValue:=(high,N);
LoeestValue:=(low,N);
RSV:= (CLOSE-HHV(HIGH,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;

zzg1247774

用心良苦，造福大众！长期关注一下

zzg1247774

想问问楼主如何实现指标保护？比如指定一个账户交易当前指标

woomin1985

zzg1247774 发表于 2013-2-23 12:29
想问问楼主如何实现指标保护？比如指定一个账户交易当前指标

什么是指标保护?
TB是分超级图表,你可以在一个超级图表上指定一个交易程序或者指标.
也就是说你可以开4个超级窗口图表交易4个指标.
你也可以开8个窗口交易8个指标.

woomin1985

----

zzg1247774

我的问题是自己写的公式不想让其他人看见....设置密码肯定是其中一个方面，还有一个办法好像是可以指定交易账户，或者设置时间截止日期什么的，找不到相关的函数和代码

zzg1247774

介意帮改个鳄鱼线指标吗？

Y:=(HIGH+LOW)/2;
CCX:REF((SMA(Y,5,1)),3),COLORGREEN;
BCX:REF((SMA(Y,8,1)),5),COLORRED;
AEX:REF((SMA(Y,13,1)),8),COLORBLUE;
VAR1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2:=CROSS(VAR1,0.9);
VAR3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4:=CROSS(VAR3,0.9);
STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2)),REF(HIGH,BARSLAST(VAR2)),1,0),COLORMAGENTA;
STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4)),REF(LOW,BARSLAST(VAR4)),1,0),COLORYELLOW;

这个是文华的源码

woomin1985

zzg1247774 发表于 2013-2-25 17:29
介意帮改个鳄鱼线指标吗？

Y:=(HIGH+LOW)/2;

鳄鱼我记得论坛里面有人发过.
我先改完ROC,如果能交易,我找个时间改这个.

cross代码和close代码有问题.