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

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

金融证券系统

开发平台：

Others

Position Sizing and Risk Price Graph - 2.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Position Sizing and Risk Price Graph - 2
  4. //  Author/Uploader: Tommy Beard 
  5. //  E-mail:          tab321@yahoo.com
  6. //  Date/Time Added: 2005-04-21 04:03:17
  7. //  Origin:          
  8. //  Keywords:        Indicator, Trading System, Risk
  9. //  Level:           basic
  10. //  Flags:           system,indicator
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=459
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=459
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  This is the same as the first version except you may adjust the portfolio
  17. //  values and risk values with the parameter feature. The Position Sizing
  18. //  Price Graph Bar allows one to automatically view how many shares should be
  19. //  purchased based upon a 1% or 2% Risk Management Rule while using Average
  20. //  True Range as a basis for stop losses. This is covered in Van Tharp's book,
  21. //  "Trade Your Way to Financial Freedom." The magic numbers for stop losses
  22. //  may not be Average True Range times Three. Much of that depends on your
  23. //  holding period. The summary of the figures show up in the title of the
  24. //  price graph. Also, you can see in the title if the parameter is set for 1%
  25. //  or 2% Risk as well as see what the Stop Loss at Ten Percent would be.
  26. //
  27. //------------------------------------------------------------------------------
  29. MyPort = 5000;//Enter Default Portfolio Value
  30. HR=0.02;//HR is High Risk set at Two Percent of Portfolio
  31. LR=0.01;//LR is Low Risk set at One Percent of Portfolio
  32. PRisk=HR;//Enter High Risk (HR) or Low Risk (LR) as Default
  34. //The above values are easily changed using the Parameter Feature which is accessed by right clicking the Price Graph and choosing Parameters or you may use (Ctrl+R). 
  37. Port = Param("Portfolio", MyPort, 500, 35000, 50 );
  38. Risk = Param("Risk", HR, 0.01, 0.02, 0.01 );
  40. SL10=C-(C*0.10);
  42. MyATR=ATR(14);//Enter ATR Average or use the 14 Day Moving Average of ATR 
  44. MidRange=(H+L)/2;//Figure Used In Title. Middle Range of Price. 
  46. col = IIf( Close > Ref( Close, -1 ), colorGreen, colorRed );
  48. Plot( Close, "Price", col, styleBar );
  49. Plot( SL10, "10%", colorLightGrey, 256 );
  50. //SL10 is Price minus Ten Percent to use as a stop loss reference.  It is not actually plotted but its value can be seen as you mouse over the price bars.  To plot this value, replace (256) with (StyleLine)
  52. Title = Name() + " " + Date() + " Price: " + C + " Open: " + O + " High: " + H + " Low: " + L + " M:" + MidRange + "" + WriteVal(ROC( Close, 1) ) + "%" + "n" + EncodeColor(colorBlue) + "ATR " + WriteVal (MyATR,format=1.2) + "  3*ATR " + WriteVal (MyATR*3,format=1.2 )+ "n" + EncodeColor(colorBlue) +"SL " + WriteVal ( Close - (MyATR*3),(format=1.2)) + "   Risk " + WriteVal ( (MyATR*3/Close)*100,format=1.2 ) + "%" + "n" + "Shares  " + WriteVal ((Port*Risk)/(MyATR*3),(format=1.2))+ "n"+ "$"+WriteVal(C*((Port*Risk)/(MyATR*3)),(format=1.0))+ " of" +" $"+ WriteVal (Port,format=1.0) + "n" + WriteVal(Risk, format=1.2) + "   " + EncodeColor(colorIndigo)+ WriteVal(SL10, format=1.2);