- 精华
- 0
- 在线时间
- 231 小时
- UID
- 1057
- 积分
- 824
- 帖子
- 158
- 阅读权限
- 60
- 注册时间
- 2008-1-11
- 最后登录
- 2021-10-24
- 精华
- 0
- UID
- 1057
- 积分
- 824
- 帖子
- 158
- 主题
- 8
- 阅读权限
- 60
- 注册时间
- 2008-1-11
- 最后登录
- 2021-10-24
|
原帖由 nopain 于 2008-2-15 09:28 发表
默认是相同的,您想设置成不同,增加一个参数就可以了
请教:是不是这样修改
Params
Numeric Length(14);
Numeric Length2(6);
Vars
NumericSeries oDMIPlus( 0 );
NumericSeries oDMIMinus( 0 );
Numeric oDMI( 0 );
Numeric oADX( 0 );
Numeric oADXR( 0 );
Numeric oVolty( 0 );
NumericSeries nTrend(0);
Begin
DirMovement(Length, Length2, oDMIPlus, oDMIMinus, oDMI, oADX, oADXR, oVolty ) ;
PlotNumeric( "DMI+" ,oDMIPlus);
PlotNumeric( "DMI-" ,oDMIMinus);
PlotNumeric( "ADX" ,oADX);
PlotNumeric( "ADXR" ,oADXR);
End
DirMovement函数
Params
Numeric Length(14);
Numeric Length2(6);
NumericRef oDMIPlus;
NumericRef oDMIMinus;
NumericRef oDMI;
NumericRef oADX;
NumericRef oADXR;
NumericRef oVolty;
Vars
NumericSeries sDMI;
NumericSeries sADX;
NumericSeries sVolty;
Numeric PlusDM;
Numeric MinusDM;
Numeric UpperMove;
Numeric LowerMove;
Numeric SumPlusDM(0);
Numeric SumMinusDM(0);
Numeric SumTR(0);
NumericSeries AvgPlusDM;
NumericSeries AvgMinusDM;
Numeric SF; // smoothing factor
Numeric SF2; // smoothing factor2
Numeric Divisor;
Numeric i;
NumericSeries TRValue;
Begin
SF = 1/length;
SF2 = 1/length2;
(这部分相同省略)
if(CurrentBar > 0)
{
if (CurrentBar <= Length)
{
sADX = Cum( sDMI ) / CurrentBar ;
oADXR = ( sADX + sADX[ CurrentBar - 1 ] ) * 0.5 ;
}else
{
sADX = sADX[1] + SF2 * ( sDMI - sADX[1] ) ;
oADXR = ( sADX + sADX[ Length2 - 1 ] ) * 0.5 ;
}
}
oVolty = sVolty;
oDMI = sDMI;
oADX = sADX;
Return True;
End |
|