金融证券系统

开发平台：
Others

Position Sizing and Risk Price Graph.afl：源码内容
							//------------------------------------------------------------------------------
//
//  Formula Name:    Position Sizing and Risk Price Graph
//  Author/Uploader: Tommy Beard 
//  E-mail:          tab321@yahoo.com
//  Date/Time Added: 2004-11-29 02:11:39
//  Origin:          
//  Keywords:        Position Sizing - Price Graph - Commentary
//  Level:           basic
//  Flags:           system,indicator,commentary
//  Formula URL:     http://www.amibroker.com/library/formula.php?id=408
//  Details URL:     http://www.amibroker.com/library/detail.php?id=408
//
//------------------------------------------------------------------------------
//
//  Position Sizing and Risk Price Graph
//
//  The Position Sizing Price Graph Bar allows one to automatically view how
//  many shares should be purchased based upon a 1% Risk Management Rule while
//  using Average True Range as a basis for stop losses. This is covered in Van
//  Tharp's book, "Trade Your Way to Financial Freedom." The formulas work best
//  with even 1000s so it is best to enter the value as 25,000 instead of
//  25,355. And, the magic numbers for stop losses may not be Average True
//  Range times Three. Much of that depends on your holding period. Also, the
//  formula below is set for the conservative risk management of 1% equity loss
//  but that can easily be changed to 2%. The summary of the figures show up in
//  the title of the price graph.
//
//  MyPort = 25000;//Enter Portfolio Value
//
//  MyATR=ATR(14);//Enter ATR Average or use the 14 Day Moving Average of ATR
//
//  MidRange=(H+L)/2;//Figure Used In Title for Middle of Trading Range
//
//  col = IIf( Close > Ref( Close, -1 ), colorGreen, colorRed );
//
//  Plot( Close, "Price", col, styleBar );
//
//  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" + "SL " + WriteVal (
//  Close - (MyATR*3),(format=1.2)) + " Risk " + WriteVal (
//  (MyATR*3/Close)*100,format=1.2 ) + " %" + "n" + "Shares " + WriteVal
//  ((MyPort*0.01)/(MyATR*3),(format=1.2))+ "n"+
//  "$"+WriteVal(C*((MyPort*0.01)/(MyATR*3)),(format=1.0))+ " of" +" "+
//  WriteVal ((MyPort)/1000,format=1.0)+"K";
//
//------------------------------------------------------------------------------
//Position Sizing AND Risk Price Graph
//The Position Sizing Price Graph Bar allows one to automatically view how many shares should be purchased based upon a 1% Risk Management Rule while using Average True Range as a basis for stop losses.  This is covered in Van Tharp's book, "Trade Your Way to Financial Freedom."  The formulas work best with even 1000s so it is best to enter the value as 25,000 instead of 25,355.  AND, the magic numbers for stop losses may NOT be Average True Range times Three.  Much of that depends on your holding period.  Also, the formula below is set for the conservative risk management of 1% Equity loss but that can easily be changed to 2%.  The summary of the figures show up in the Title of the price graph.
MyPort = 25000;//Enter Portfolio Value
MyATR=ATR(14);//Enter ATR Average or use the 14 Day Moving Average of ATR 
MidRange=(H+L)/2;//Figure Used In Title for Middle of Trading Range 
col = IIf( Close > Ref( Close, -1 ), colorGreen, colorRed );
Plot( Close, "Price", col, styleBar );
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" + "SL " + WriteVal ( Close - (MyATR*3),(format=1.2)) + " Risk " + WriteVal ( (MyATR*3/Close)*100,format=1.2 ) + " %" + "n" + "Shares " + WriteVal ((MyPort*0.01)/(MyATR*3),(format=1.2))+ "n"+ "$"+WriteVal(C*((MyPort*0.01)/(MyATR*3)),(format=1.0))+ " of" +" "+ WriteVal ((MyPort)/1000,format=1.0)+"K";

						