开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
Kagi Chart.afl
资源名称：AFL_collection.rar　[点击查看]
上传用户：shiqiang
上传日期：2009-06-12
资源大小：1289k
文件大小：3k
源码类别：

金融证券系统

开发平台：

Others

Kagi Chart.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Kagi Chart
  4. //  Author/Uploader: Graham Kavanagh 
  5. //  E-mail:          gkavanag@bigpond.net.au
  6. //  Date/Time Added: 2002-11-29 05:12:31
  7. //  Origin:          
  8. //  Keywords:        Kagi
  9. //  Level:           medium
  10. //  Flags:           system,indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=236
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=236
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  Kagi swing chart with change based on share price. Swing ranges from 3 to
  17. //  5%.
  18. //
  19. //  Place in indicator builder.
  20. //
  21. //------------------------------------------------------------------------------
  23. //KAGI Chart (or Swing) for Amibroker Indicator window. 
  24. //Reverse swing is 3%.
  25. //Graham Kavanagh 16 Nov 2002
  27. SetBarsRequired(100000,100000);
  29. Close = IIf( C<10, round(C*10)/10, IIf( C>=10 AND C<50, int(C) + round(round(frac(C)*10)/5)*5/10, int(C)));
  31. Reverse = LastValue(IIf(C<50,0.05,IIf(C>=50 AND C<100,0.04,0.03)));
  34. EnableScript("jscript");
  35. <%
  37. Close = VBArray( AFL( "Close" ) ).toArray();
  39. KC = new Array();
  41. // initialize first element
  42. j = 0;
  43. KC[j] = Close[0];
  45. down = 1;    // By default the first bar is a down bar.
  46. up = 0;
  47. swap = 0;
  49. // perform the loop that produces Kagi Chart
  50. for( i = 1; i < Close.length; i++ )
  51. {
  52.  Reverse =AFL("Reverse");                        // percent reversal requirement
  54.  if( Close[i] <= KC[j] && down)         //continue down
  55.  {
  56.   KC[j] = Close[i];
  57.  }
  58.  else
  59.  {
  60.   if( Close[i] >= KC[j]*(1 + Reverse) && down)  //Change direction to up
  61.   {
  62.    j++;
  63.    swap = 1;
  65.    KC[j] = Close[i];
  66.   }
  67.  }
  68.  if( Close[i] >= KC[j] && up)         //Continue up
  69.  { 
  70.   KC[j] = Close[i];
  71.  }
  72.  else
  73.  {
  74.   if( Close[i] <= KC[j]*(1 - Reverse) && up)   //Change direction to down
  75.   {
  76.    j++;
  78.    KC[j] = Close[i];
  79.    swap = 1;
  80.   }
  81.  }
  82.  if( swap )
  83.  {
  84.   swap = 0;
  85.   if( up )
  86.   {
  87.    up = 0;
  88.    down = 1;
  89.   }
  90.   else
  91.   {
  92.    up = 1;
  93.    down = 0;
  94.   }
  95.  }
  96. }
  97. delta = Close.length - j-1;      //to get all of chart
  99. AFL.Var("KC") = KC;
  100. AFL.Var("delta") = delta;
  101. AFL.Var("Reverse") = Reverse;
  102.  
  103. %>
  105. KC = Ref( KC, -delta );
  106. C = KC;
  107. L = LLV(C,2);
  108. H = HHV(C,2);
  110. MyColor = 
  111. IIf(C>Ref(H,-2),colorBlue, 
  112. IIf(C<Ref(L,-2),colorRed,
  113. colorBlack));
  114. Graph0BarColor = MyColor;
  115. Graph0Style = 512+4096;
  116. GraphXSpace = 5;
  117. Graph0 = C;
  118. Graph0Name = "Kagi Chart";
  119. Graph1BarColor = 1;
  120. Graph1Style = 16+2048+4096;
  121. Graph1 = Reverse*100;
  122. Graph1Name = "Reverse %";