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

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

金融证券系统

开发平台：

Others

Modified Darvas Box.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Modified Darvas Box
  4. //  Author/Uploader: davis 
  5. //  E-mail:          
  6. //  Date/Time Added: 2006-03-21 04:46:07
  7. //  Origin:          
  8. //  Keywords:        Darvas Box
  9. //  Level:           basic
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=608
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=608
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  After reference the Darvas Box code from Stephane, I added an additional
  17. //  rule of sell. So that the profit can increase a bit. The idea is the found
  18. //  the suitable selling point after we found the box top. When it meet the
  19. //  highest point and turn back, we sell if the different between the highest
  20. //  price and current close price is greater than a certain prestentage. Just
  21. //  like to share and hope can get comment from the others, since I am a
  22. //  beginner of TA.
  23. //
  24. //------------------------------------------------------------------------------
  28. //////////begin/////////
  30. box1=0;
  31. box2=0;
  32. SetBarsRequired(10000,10000);
  33. procedure fillDarvas(start,end,swap,top, bottom )
  34. {
  35.    for ( j = start; j < end; j++)
  36.    {
  37.        if( box1[j] == swap)
  38.   box1[j]= top ;
  39. else
  40. box1[j]= bottom;
  42.        if(box2[j] == swap)
  43.   box2[j]= bottom ;
  44. else
  45. box2[j]= top;
  46.    }
  47. }
  49. BoxArr1 = 0;
  50. BoxArr2 = 0;
  51. StateArray = 0;
  52. DBuy = 0;
  53. DSell = 0;
  54. TopArray = 0;
  55. BotArray = 0;
  56. tick=0;
  58. BoxTop = High[0];
  59. BoxBot = Low[0];
  60. swap=0;
  61. state = 0;
  62. BoxStart = 0;
  64. for (i=0; i<BarCount; i++)
  65. {
  66.  if (state==5)
  67.  {
  68.   TopArray[i]=BoxTop;
  69.   BotArray[i]=BoxBot;
  70.   if (Low[i]<(BoxBot*(1-tick/100)) || High[i]>(BoxTop*(1+tick/100)))
  71.   {
  72. fillDarvas(BoxStart,i,swap,BoxTop,BoxBot);
  74.   state = 1;
  75.   swap =  !swap;
  76.   BoxTop = High[i];
  77.   BoxStart = i;
  78.   }
  79.  }
  80.  else
  81.  {
  82.   if (High[i]<BoxTop)
  83.   {
  84.       if ((state<3) || (Low[i]>BoxBot))
  85.       {
  86.    state++;
  87.    }
  88.       else
  89.    {
  90.       state=3;
  91.    }
  92.       if (state==3)
  93.       BoxBot=Low[i];
  94.   }
  95.   else
  96.   {
  97.       state=1;
  98.       BoxTop=High[i];
  99.   }
  100.  }
  101.  StateArray[i] = state;
  102. }
  104. fillDarvas(BoxStart,BarCount,swap,BoxTop,BoxBot);
  107. Buyrule=H>Ref(box1,-1) AND H>Ref(box2,-1) AND Ref(statearray,-1)==5;
  108. Sellrule=L<Ref(box1,-1) AND L<Ref(box2,-1) AND Ref(statearray,-1)==5;
  112. _SECTION_BEGIN("Darvas box");
  113. Plot(C,"",1,64);
  114. Plot( box2, "" , 1 + statearray , styleLine );
  115. Plot( box1, " Status = "+WriteVal(statearray,1.0) , 1 + statearray, styleLine );
  116. _SECTION_END();
  119. Buy = Buyrule;
  120. statopt = Optimize("statopt var", 3, 1, 5, 1 ); 
  121. lossopt= Optimize("lossopt var", 5, 3, 10, 1 ); 
  122. //statopt=5;
  123. //lossopt=7;
  125. topvalue=IIf(box1>box2,box1,box2);
  126. Sellrule2 = (((topvalue-Close)*100/topvalue) > lossopt) AND (statearray == statopt);
  127. Sell = Sellrule OR Sellrule2;
  129. Short = Sell;
  130. Cover = Buy;