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

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

金融证券系统

开发平台：

Others

Darvas Box.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Darvas Box
  4. //  Author/Uploader: Stephane 
  5. //  E-mail:          s.carrasset@laposte.net
  6. //  Date/Time Added: 2004-12-06 14:06:18
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=414
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=414
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  An explanation of the construction of the Darvas Box is available at:
  17. //
  18. //  1) <http://www.gerryco.com/tech/darvas.html>
  19. //
  20. //  2) <http://www.wealth-lab.com/cgi-bin/WealthLab.DLL/editsystem?id=2814>
  21. //
  22. //------------------------------------------------------------------------------
  24. //////////begin/////////
  26. box1=0;
  27. box2=0;
  28. SetBarsRequired(10000,10000);
  29. procedure fillDarvas(start,end,swap,top, bottom )
  30. {
  31.    for ( j = start; j < end; j++)
  32.    {
  33.        if( box1[j] == swap)
  34.   box1[j]= top ;
  35. else
  36. box1[j]= bottom;
  38.        if(box2[j] == swap)
  39.   box2[j]= bottom ;
  40. else
  41. box2[j]= top;
  42.    }
  43. }
  45. BoxArr1 = 0;
  46. BoxArr2 = 0;
  47. StateArray = 0;
  48. DBuy = 0;
  49. DSell = 0;
  50. TopArray = 0;
  51. BotArray = 0;
  52. tick=0;
  54. BoxTop = High[0];
  55. BoxBot = Low[0];
  56. swap=0;
  57. state = 0;
  58. BoxStart = 0;
  60. for (i=0; i<BarCount; i++)
  61. {
  62.  if (state==5)
  63.  {
  64.   TopArray[i]=BoxTop;
  65.   BotArray[i]=BoxBot;
  66.   if (Low[i]<(BoxBot*(1-tick/100)) || High[i]>(BoxTop*(1+tick/100)))
  67.   {
  68. fillDarvas(BoxStart,i,swap,BoxTop,BoxBot);
  70.   state = 1;
  71.   swap =  !swap;
  72.   BoxTop = High[i];
  73.   BoxStart = i;
  74.   }
  75.  }
  76.  else
  77.  {
  78.   if (High[i]<BoxTop)
  79.   {
  80.       if ((state<3) || (Low[i]>BoxBot))
  81.       {
  82.    state++;
  83.    }
  84.       else
  85.    {
  86.       state=3;
  87.    }
  88.       if (state==3)
  89.       BoxBot=Low[i];
  90.   }
  91.   else
  92.   {
  93.       state=1;
  94.       BoxTop=High[i];
  95.   }
  96.  }
  97.  StateArray[i] = state;
  98. }
  100. fillDarvas(BoxStart,BarCount,swap,BoxTop,BoxBot);
  102. Plot(C,"",1,64);
  103. Plot( box1, "" , 1 + statearray, styleLine );
  104. Plot( box2, "" , 1 + statearray , styleLine );