以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  以上是TB版的卡夫曼自适应均线求翻译成金字塔版本 谢谢！  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=48982)
--  作者：qjj3344
--  发布时间：2013/2/27 13:59:35
--  以上是TB版的卡夫曼自适应均线求翻译成金字塔版本 谢谢！
Params

Numeric EffRatioLength(10);
Numeric FastAvgLength(2);
Numeric SlowAvgLength(30);
Vars
Numeric NetChg(0);
Numeric TotChg(0);
Numeric EffRatio(0);
Numeric ScaledSFSqr(0);
NumericSeries AMAValue;
Numeric SFDiff;
Begin
if(CurrentBar == 0)//当前第一根K线金子塔barpos
{
AMAValue = close;
}Else//从第二根K线开始计算
{
NetChg = Abs( close - close[EffRatioLength] );当前收盘价与前十根K线的收盘价之差的绝对值
TotChg = Summation( Abs( Price - Price[1] ), EffRatioLength ); 前十个周期的前后收盘价之差的绝对值之和
EffRatio = IIF(TotChg > 0, NetChg / TotChg, 0);
SFDiff = 2 / ( FastAvgLength + 1 ) - 2 / ( SlowAvgLength + 1 );
ScaledSFSqr = Sqr( 2 / ( SlowAvgLength + 1 ) + EffRatio * SFDiff );sqr是求平方
AMAValue = AMAValue[1] + ScaledSFSqr * ( Price - AMAValue[1] );
}
End
//[]指的是回溯周期数
以上是TB版的卡夫曼自适应均线求翻译成金字塔版本
谢谢！
--  作者：jinzhe
--  发布时间：2013/2/27 14:12:59
--  
上面那一串是用来干什么的?
--  作者：qjj3344
--  发布时间：2013/2/27 14:15:10
--  
定义参数变量
--  作者：qjj3344
--  发布时间：2013/2/27 14:16:57
--  
Params下的是常量
var 是变量
Numeric是简单的数值变量
NumericSeries序列变量类似全局变量
--  作者：qjj3344
--  发布时间：2013/2/27 14:59:05
--  
比较急，求大侠帮助啊！！！！
--  作者：jinzhe
--  发布时间：2013/2/27 15:01:15
--  

n:=10;
n2:=2;
n3:=30;
cn:=ref(c,n);
s1:=sum(abs(close-ref(close,1)),n);
variable:amavalue=0;
a1:=ref(amavalue,1);
if barpos=1 then amavalue:=close;

else then begin
 netchg:=abs(c-cn);
 totchg:=s1;
 effratio:=if(totchg>0,netchg,0);
 sfdiff:=2/(n2+1)-2/(n3+1);
 scaledsfsqr:=SQRT(2/(n3+1)+effratio*sfdiff);
 amavalue:=a1+scaledsfsqr*(close-a1);
end
--  作者：qjj3344
--  发布时间：2013/2/27 15:16:56
--  
你好，这个均线值 amavalue 没啊？
--  作者：qjj3344
--  发布时间：2013/2/27 15:30:03
--  
这个均线值 amavalue不存在。。。
--  作者：jinzhe
--  发布时间：2013/2/27 15:30:58
--  

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=1771&skin=0

这个是搜索到的