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

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

金融证券系统

开发平台：

Others

الدعم وا (737).afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    الدعم وا
  4. //  Author/Uploader: nmralarb - nmralarb [at] hotmail.com
  5. //  E-mail:          
  6. //  Date/Time Added: 2006-10-10 13:36:19
  7. //  Origin:          
  8. //  Keywords:        
  9. //  Level:           basic
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=737
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=737
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  هذة
  17. //  المعادلة
  18. //  تقوم
  19. //  بعمل
  20. //  خطوط
  21. //  للدعم
  22. //  والمقاومة
  23. //  التاريخية
  24. //  وهي
  25. //  فعالة
  26. //  واكثر
  27. //  من
  28. //  رائعة
  29. //  تم
  30. //  اعدادها
  31. //  وان شاء
  32. //  الله
  33. //  تحوز
  34. //  على
  35. //  رضاكم
  36. //
  37. //  نسبة
  38. //  مصداقيتها
  39. //  95بالمئة
  40. //
  41. //  معدها
  42. //  ///طلال
  43. //  احمد
  44. //  مشرف
  45. //  الزهراني
  46. //  ( نمر
  47. //  العرب )
  48. //
  49. //------------------------------------------------------------------------------
  52. _SECTION_BEGIN(" Support and Resistance ");
  53. /* MURREY MATH HORIZONTAL LINES Formula for Amibroker
  54. based on Excel spreadsheet by Jacek */
  56. GraphXSpace=1; MaxGraph=15;
  57. Period=Param("MM_Period", 70, 4, 256, 1) ;
  59. Graph1Color=6; Graph2Color=6; Graph3Color=6; Graph4Color=6;
  60. Graph5Color=6; Graph6Color=6; Graph7Color=6; Graph8Color=6;
  61. Graph9Color=6; Graph10Color=6; Graph11Color=6;Graph12Color=6;
  62. Graph13Color=6;
  66. Graph0=Close; Graph0Color=1; Graph0Style=64;
  68. Graph1Style=1; Graph2Style=1; Graph3Style=1; Graph4Style=1;
  69. Graph5Style=1; Graph6Style=1; Graph7Style=1; Graph8Style=1;
  70. Graph9Style=1; Graph10Style=1; Graph11Style=4; Graph12Style=1;
  71. Graph12Style=1;
  75. PER = Period;
  76. BarNR = LastValue(Cum(1)) ;
  77. TimeFrame = BarNR - PER ;
  78. TF = TimeFrame ;
  80. Lo = LastValue(ValueWhen(Cross(Cum(1), TF), LLV(Min(H,L),PER),1)) ;
  81. Hi = LastValue(ValueWhen(Cross(Cum(1), TF), HHV(Max(H,L),PER),1)) ;
  83. Lo = LastValue( LLV(Min(H,L),PER ),1) ;
  84. Hi = LastValue( HHV(Max(H,L),PER ),1) ;
  86. Fractal = IIf(Hi<=250,100, IIf(Hi<=2500,1000, IIf(Hi<=25000,10000, IIf(Hi<=250000,100000, 0 )))) ;
  87. int_Log = int( log(Fractal/(Hi-Lo))/log(2) ) ;
  88. Oct = Fractal * ( exp(ln(1/2)* int_Log ) ) ;
  91. Min_1 = int( Lo / Oct ) * Oct ;
  93. Max_1 = IIf( (Min_1 + Oct) > Hi, Min_1 + Oct, Min_1 + 2*Oct ) ;
  95. Min_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
  96. (Min_1 + 1/4*(Max_1-Min_1)) , Min_1 ) ;
  98. Max_2 = IIf( (Min_1 + 1/8*(Max_1-Min_1)) <= Lo AND Hi <= (Max_1 - 1/8*(Max_1-Min_1)) ,
  99. (Max_1 - 1/4*(Max_1-Min_1)) , Max_1 ) ;
  101. /******************************/
  103. Diff = Max_2 - Min_2 ;
  105. H1 = IIf( (Min_2 + 3/16*Diff) <= Lo AND Hi <= (9/16*Diff + Min_2) ,
  106. Min_2 + 1/2*Diff, 0) ;
  108. H2 = IIf( (Min_2 - 1/8*Diff) <= Lo AND Hi <= (5/8*Diff + Min_2) AND H1==0,
  109. Min_2 + 1/2*Diff, 0) ;
  111. H3 = IIf( (Min_2 + 7/16*Diff) <= Lo AND Hi <= (Min_2 + 13/16*Diff), Min_2 + 3/4*Diff, 0 ) ;
  113. H4 = IIf( (Min_2 + 3/8*Diff) <= Lo AND Hi <= (Min_2 + 9/8*Diff) AND H3==0,
  114. Max_2, 0 ) ;
  116. H5 = IIf( (Min_2 + 1/8*Diff)<=Lo AND Hi <= (Min_2 + 7/8*Diff) AND H1==0 AND H2==0 AND H3==0 AND H4==0,
  117. Min_2 + 3/4*Diff , 0 ) ;
  119. H6 = IIf( ( H1 + H2 + H3 + H4 + H5 ) == 0, Max_2, 0 ) ;
  121. /**************************/
  123. L1 = IIf(H1>0, Min_2 + 1/4*Diff, 0) ;
  125. L2 = IIf(H2>0, Min_2, 0) ;
  127. L3 = IIf(H3>0, Min_2 + 1/2*Diff, 0) ;
  129. L4 = IIf(H4>0, Min_2 + 1/2*Diff, 0) ;
  131. L5 = IIf(H5>0, Min_2 + 1/4*Diff, 0) ;
  133. L6 = IIf(H6>0, Min_2, 0 ) ;
  136. M_8 = ( H1 + H2 + H3 + H4 + H5 + H6 ) ;
  138. M_0 = ( L1 + L2 + L3 + L4 + L5 + L6 ) ;
  140. /**************************************/
  142. Graph1 = ValueWhen(Cum(1) >= TF, M_0 );
  144. Graph2 = ValueWhen(Cum(1) >= TF, M_0 + (1*(0.175*(M_8-M_0))));
  146. Graph3 = ValueWhen(Cum(1) >= TF, M_0 + (2*(0.175*(M_8-M_0))));
  148. Graph4 = ValueWhen(Cum(1) >= TF, M_0 + (3*(0.175*(M_8-M_0))));
  150. Graph5 = ValueWhen(Cum(1) >= TF, M_0 + (4*(0.175*(M_8-M_0))));
  152. Graph6 = ValueWhen(Cum(1) >= TF, M_0 + (5*(0.175*(M_8-M_0))));
  154. Graph7 = ValueWhen(Cum(1) >= TF, M_0 + (6*(0.175*(M_8-M_0))));
  156. Graph8 = ValueWhen(Cum(1) >= TF, M_0 + (7*(0.175*(M_8-M_0))));
  158. Graph9 = ValueWhen(Cum(1) >= TF, M_0  + (8*(0.175*(M_8-M_0))));
  160. Graph10 = ValueWhen(Cum(1) >= TF, M_0 + (9*(0.175*(M_8-M_0))));
  162. Graph11 = ValueWhen(Cum(1) >= TF, M_0 - (1*(0.175*(M_8-M_0))));
  164. Graph12 = ValueWhen(Cum(1) >= TF, M_0 - (2*(0.175*(M_8-M_0))));
  166. Graph13 = ValueWhen(Cum(1) >= TF, M_0 - (3*(0.175*(M_8-M_0))));
  167. /************************************************** ************/
  169. Title = Name()
  170. + "=" + WriteIf( round(C)== C, NumToStr(C,1) , WriteVal(C) ) + " " + "\c17"
  171. + WriteIf( Interval()==86400, "Daily ", WriteIf(Interval()==3600,"Hourly ", 
  172. WriteIf(Interval()==900,"15 Min ", WriteIf(Interval()==300,"5 Min ", 
  173. WriteIf(Interval()==60,"1 Min ", "" ) ) ) ) )
  174. + Date() + "\c12" + WriteIf(Volume>0," Turnover=","") 
  175. + WriteIf(Volume>0, WriteVal(Volume*Close/1000), "" ) ;
  176. _SECTION_END();