欢迎您光临博庭社区!

 找回密码
 立即注册
楼主: ptLibert

公式转换器   [复制链接]

Rank: 8Rank: 8

发表于 2013-9-15 21:44:29 |显示全部楼层
niuren 发表于 2013-9-14 14:49
这软件打不开,应用程序初始化失败

请问您是什么操作系统。

使用道具 举报

Rank: 9Rank: 9Rank: 9

发表于 2013-9-16 22:02:03 |显示全部楼层
ptLibert 发表于 2013-9-15 21:44
请问您是什么操作系统。

(需要 .net 4.0,windows8应该自带,windows7和xp需要安装 http://www.microsoft.com/zh-cn/download/details.aspx?id=17718

使用道具 举报

Rank: 9Rank: 9Rank: 9

发表于 2013-9-16 22:02:27 |显示全部楼层
细水长流888 发表于 2013-9-12 12:30
转换器打不开啊   大神能帮转一下公式吗

(需要 .net 4.0,windows8应该自带,windows7和xp需要安装 http://www.microsoft.com/zh-cn/download/details.aspx?id=17718

使用道具 举报

Rank: 2

发表于 2013-9-26 08:38:25 |显示全部楼层
太牛了。希望继续努力,能转大智慧的公式那就完美了。

使用道具 举报

Rank: 8Rank: 8

发表于 2013-9-26 15:37:06 |显示全部楼层
wbzhj 发表于 2013-9-26 08:38
太牛了。希望继续努力,能转大智慧的公式那就完美了。

大智慧公式跟飞狐公式其实比较类似的。语法基本一样。

剩下就是一些函数,大智慧有金魔方没有的,这种转换器也转换不了,必须另外想办法找替代方案。

使用道具 举报

Rank: 2

发表于 2013-11-3 01:07:23 |显示全部楼层
.net4.0 我的win7竟然装不上,报错。

使用道具 举报

Rank: 6Rank: 6

激情奖

发表于 2013-12-28 11:56:52 |显示全部楼层
MC转换错误
Input:
Threshold( 30  ),
Lookback( 300  ) ;
Variable:
TrendLineBuilt( false  ),
PivotsFound( 0  ),
f( 0  ),
b( 0  ),
x( 0  ),
y( 0  ),
F1( 0  ),
F2( 0  ),
F3( 0  ),
PF1( 0  ),
PF2( 0  ),
PF3( 0  ) ;
Arrays:
PivotArray[500 ]( 0  ) ,
PivotType[4 ]( 0  ) ,
PivotPosition[4 ]( 0  ) ,
SI[500 ]( 0  )  ;
if LastBarOnChart  then
begin
for x = 1  to Lookback
  begin
  PivotArray[x ] := 0  ;
  end ;
F1 :=  1  ;
F2 := F1  ;
PF1 :=  Close[F1 ]  ;
PF2 :=  Close[F2 ]  ;
{find the first move greater than threshold percent}
while ( 100 *Abs( PF1 - PF2  ) / Min( PF1 , PF2  )
  < Threshold  and ( F2  < Lookback  )  )
  begin
  F2 := F2 + 1  ;
  PF2 :=  Close[F2 ]  ;
  end ;
F3 := F2  ;
PF3 :=  Close[F3 ]  ;
while F1  < Lookback
  begin
  while ( ( (100 * Abs( PF2 - PF3  )
   / Min( PF2 , PF3  )  < Threshold  )
   or ( ( ( PF1  < PF2  )  and ( PF2  <= PF3  )  )
   or ( ( PF1 >PF2 )  and ( PF2  >= PF3  )  )  )  )
   and ( F3  < Lookback  )  )
   begin
   if ( ( ( PF1  < PF2  )  and ( PF2  <= PF3  )  )
     or ( ( PF1  > PF2  )  and ( PF2  >= PF3  )  )  )
   then
    begin
    F2 := F3  ;
    PF2 :=  Close[F2 ]  ;
    end ;
   F3 := F3 + 1  ;
   PF3 :=  Close[F3 ]  ;
   end ;
  if ( ( F3  = Lookback  )  )  then
   begin
   F1 := F2  ;
   F2 := F3  ;
   PF1 :=  Close[F1 ]  ;
   PF2 :=  Close[F2 ]  ;
   end ;
  if ( F2  > F1  )  then
   begin
   PivotArray[F2 ] := 1  ;
   F1 := F2  ;
   F2 := F3  ;
   PF1 :=  Close[F1 ]  ;
   PF2 :=  Close[F2 ]  ;
   end ;
  end ;
PivotArray[1 ] := 0  ;
PivotArray[Lookback ] := 0  ;
end ;
if LastBarOnChart  then
begin
x := 1  ;
y := 1  ;
while ( y  < Lookback  )
  begin
  y := y + 1  ;
  if ( ( PivotArray[ y  ]  <> 0  )
   or ( y  = Lookback  )  )
  then
   begin
   b := ( Close[y ] - Close[x ]  ) / ( y - x  )  ;
   for f = x  to y
    begin
    SI[f ] :=  ( b * ( f - x  ) + Close[x ]  )  ;
    end ;
   x := y  ;
   end ;
  end ;
F := 2  ;
{locate pivots}
PivotsFound := 0  ;
while ( ( F  < Lookback - 2  )  and ( PivotsFound  < 4  )  )
  begin
  if ( ( SI[f ]  <= SI[ f + 1  ]  )
   and ( SI[ f - 1  ]  >= SI[f ]  )  )
  then
   begin
   PivotsFound := PivotsFound + 1  ;
   PivotType[ 5 - PivotsFound  ] :=  + 1  ;
   PivotPosition[ 5 - PivotsFound  ] :=  F  ;
   end ;
  if ( ( SI[f ]  >= SI[ f + 1  ]  )
   and (SI[ f - 1  ]  <= SI[f ]  )  )
  then
   begin
   PivotsFound := PivotsFound + 1  ;
   PivotType[ 5 - PivotsFound  ] :=  - 1  ;
   PivotPosition[ 5 - PivotsFound  ] :=  f  ;
   end ;
  F := F + 1  ;
  end ;
if ( PivotsFound  = 4  )  then
  begin
  if ( PivotType[2 ]  = 1  )
   and ( PivotType[4 ]  = 1  )
   and ( Close[ PivotPosition[2 ]  ]
   < Close[ PivotPosition[4 ]  ]  )
   and ( Max( Close[ PivotPosition[2 ]  ] ,
   Close[ PivotPosition[4 ]  ]  )
   < Max( High[ PivotPosition[4 ]  ] ,Close[0 ]  )  )
  then
   begin
   Value1 := TrendlineUp( Lookback ,
    PivotPosition[2 ] ,PivotPosition[4 ]  )  ;
   TrendlineBuilt := true  ;
   end
  else if ( PivotType[2 ]  = -1  )
   and ( PivotType[4 ]  = -1  )
   and ( Close[ PivotPosition[2 ]  ]
   > Close[ PivotPosition[4 ]  ]  )
   and ( Min( Close[ PivotPosition[2 ]  ] ,
   Close[ PivotPosition[4 ]  ]  )  > Min
   ( Close[ PivotPosition[4 ]  ] , Close[0 ]  )  )
  then
   begin
   Value1 := TrendlineDown( Lookback ,
    PivotPosition[2 ] , PivotPosition[4 ]  ) ;
   TrendlineBuilt := true  ;
   end
  else
   Print( ' Lookback trendline can be drawn,' ,
    'Threshold = ' , Threshold  )  ;
  end ;
if ( PivotsFound  >= 3  )  and TrendLineBuilt  = false  then
  begin
  if ( PivotType[1 ]  = 1  )
   and ( PivotType[3 ]  = 1  )
   and ( Close[ PivotPosition[1 ]  ]  <
   Close[ PivotPosition[3 ]  ]  )
   and ( Max( Close[ PivotPosition[1 ]  ] ,
   Close[ PivotPosition[3 ]  ]  )  < Max(
   Close[ PivotPosition[3 ]  ] , Close[0 ]  )  )
  then
   Value1  = TrendlineUp( Lookback ,
   PivotPosition[1 ] , PivotPosition[3 ]  )
  else if ( PivotType[1 ]  = -1  )
   and ( PivotType[3 ]  = -1  )
   and ( Close[PivotPosition[1 ]  ]  >
   Close[ PivotPosition[3 ]  ]  )
   and ( Min( Close[ PivotPosition[1 ]  ] ,
   Close[ PivotPosition[3 ]  ]  )  > Min(
   Close[ PivotPosition[3 ]  ] , Close[0 ]  )  )
  then
   Value1  = TrendlineDown( Lookback ,
   PivotPosition[1 ] , PivotPosition[3 ]  )
  else
   Print( 'No trendline can be drawn,' ,
     'Threshold = ' , Threshold  )  ;
  end
else
  Print( 'No trendline can be drawn,' ,
    'Threshold = ' , Threshold  )  ;
if ( PivotsFound  < 3  )  then
  Print( 'No Point Milestones Can Be Found,' ,
    'Threshold = ' , Threshold  )  ;
end ;

追求的基调是快乐投资

使用道具 举报

Rank: 6Rank: 6

发表于 2014-1-2 09:32:06 |显示全部楼层
有些公式转换错误,还需要手动调整

使用道具 举报

Rank: 2

发表于 2014-2-9 14:32:12 |显示全部楼层
飞狐软件公式编译不过,太麻烦,能不能直接就用啊?你们不是同一个公司吗?

使用道具 举报

Rank: 8Rank: 8

发表于 2014-2-9 18:44:35 |显示全部楼层
wwsmao 发表于 2014-2-9 14:32
飞狐软件公式编译不过,太麻烦,能不能直接就用啊?你们不是同一个公司吗? ...

有少量的不兼容无法智能的转换。编译不过的可以发给我看看,或者参照文档
http://www.hs633.com/kthelp/inde ... 0%E5%B7%AE%E5%BC%82
尝试找到问题

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

bottom

Archiver|http://www.patiosoft.com

GMT+8, 2017-12-17 08:46 , Processed in 0.103546 second(s), 9 queries .

花生网 Copyrigh©2012

和讯信息科技有限公司 ALL Rights Reserved 版权所有 复制必究

回顶部