Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
antimarti for Amibroker (AFL)
Copy & Paste Friendly
Back
1 2 3 4 5 6 7 8 9 10 11 12 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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | //------------------------------------------------------//// Formula Name: Anti-Martingale Trading system// Author/Uploader: Trading Tuitions// E-mail: support@tradingtuitions.com// Website: www.tradingtuitions.com//------------------------------------------------------_SECTION_BEGIN( "Anti Martingale Trading Syatem" );SetTradeDelays( 0, 0, 0, 0 );SetOption( "InitialEquity", 100000 );SetOption( "FuturesMode" , True );SetOption( "MinShares", 1 );SetOption( "CommissionMode", 3 );SetOption( "CommissionAmount", 2.01 );//SetOption( "AccountMargin", 10 );SetOption( "RefreshWhenCompleted", True );SetOption( "AllowPositionShrinking", True );period = 14;ScaleInPointsLoop = Ref( ATR( period ) * 2, -1 ) / 2;ScaleOutPointsLoop = ScaleInPointsLoop / 2;ScaleInSize = 2;ScaleOutSize = 1;//Buy and Sell ConditionBuy = Ref( Cross( MACD(), Signal() ), -0 );Sell = Ref( Cross( Signal(), MACD() ), -0 );BuyPrice = ValueWhen( Buy, C );ScaleInPoints = ScaleInPointsLoop[period];ScaleOutPoints = ScaleOutPointsLoop[period];for( i = period + 1; i < BarCount; i++ ){ Profit[i] = Close[i] - BuyPrice[i] >= ScaleInPoints; Loss[i] = Close[i] - BuyPrice[i] <= -ScaleOutPoints; if( Sell[i] ) { ScaleInPoints = ScaleInPointsLoop[i]; ScaleOutPoints = ScaleOutPointsLoop[i]; } else if( Profit[i] == 1 ) { ScaleInPoints = ( Close[i] - BuyPrice[i] ) + ScaleInPointsLoop[i]; } else if( Loss[i] == 1 ) { ScaleOutPoints = -( Close[i] - BuyPrice[i] ) + ScaleOutPointsLoop[i]; }}InTrade = Flip( Buy, Sell );DoScaleIn = Ref( InTrade, -0 ) AND Ref( Profit, -0 );DoScaleOut = Ref( InTrade, -0 ) AND Ref( Loss, -0 );Buy = Buy + sigScaleIn * DoScaleIn + sigScaleOut * DoScaleOut;Buy = Ref( Buy, -1 );Sell = Ref( Sell, -1 );slip = TickSize * 2;BuyPrice = Open + slip;SellPrice = Open - slip;ShortPrice = Open - slip;CoverPrice = Open + slip;PositionSize = IIf( DoScaleOut, ScaleOutSize, ScaleInSize );GraphXSpace = 5;SetChartBkColor( colorBlack );SetChartOptions( 0, chartShowDates );Plot( Close, "Price", colorWhite, styleCandle );SetPositionSize( PositionSize, spsShares );PlotShapes( IIf( Buy == 1, shapeUpArrow, shapeNone ), colorDarkGreen, 0, L, -20 );PlotShapes( IIf( Buy == 1, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );PlotShapes( IIf( Buy == sigScaleIn, shapeUpArrow, shapeNone ), colorBrightGreen, 0, L, -20 );PlotShapes( IIf( Buy == sigScaleIn, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );PlotShapes( IIf( Buy == sigScaleOut, shapeDownArrow, shapeNone ), colorViolet, 0, H, -20 );PlotShapes( IIf( Buy == sigScaleOut, shapeSmallCircle, shapeNone ), colorWhite, 0, BuyPrice, 0 );PlotShapes( IIf( Sell, shapeDownArrow, shapeNone ), colorRed, 0, H, -20 );PlotShapes( IIf( Sell, shapeSmallCircle, shapeNone ), colorWhite, 0, SellPrice, 0 );_SECTION_END(); |