Nhận viết script phát hiện tín hiệu mua bán trên amibroker.

Short = Cover = 0;
Qty = 6;
SetTradeDelays( 0, 0, 0, 0 );
SetOption( "AllowSameBarExit", True );
SetOption( "maxopenpositions", Qty );
GapAmount = Param( "Gap (%)", 1.5, 0, 3, 0.01 );
BuyPrice = ( 1 - GapAmount / 100 ) * Ref( L, -1 );
BuyPrice = Min( O, BuyPrice ); // Enter immediately at Open if below BuyPrice
Buy = L < BuyPrice AND Ref( MA( V, 10 ), -1 ) > 1000000;
SellPrice = C;
Sell = Buy;
// To test for ticker-sensitivity turn on Random Ticker Selection
// and run this code in the Optimizer to see how performance varies
// Because it is unknown which ticker will trigger first actual
// performance will be somewhere between the min/max profits shown
if ( ParamToggle( "Random Ticker Selection", "OFF|ON", 0 ) )
{
Optimize( "Dummy", 1, 1, 100, 1 );
PositionScore = mtRandom();
}
PositionSize = -100 / Qty;
Plot( C, "", 1, 128 );
if ( ParamToggle( "Arrows", "HIDE|SHOW", 0 ) )
{
Equity( 1 );
PlotShapes( IIf( Buy, shapeUpArrow, shapeNone ), colorGreen, 0, BuyPrice );
PlotShapes( IIf( Sell, shapeDownArrow, shapeNone ), colorRed, 0, SellPrice );
PlotShapes( IIf( Buy, shapeSmallCircle, shapeNone ), colorGreen, 0, BuyPrice, 0 );
PlotShapes( IIf( Sell, shapeSmallCircle, shapeNone ), colorRed, 0, SellPrice, 0 );
}

Buy = Cross( MACD(), Signal() );
BuyPrice = Open; // Substitute your own prices
Sell = Cross( Signal(), MACD() );
SellPrice = Close; // Substitute your own prices
PlotShapes( IIf( Buy, shapeSmallUpTriangle, shapeNone ), colorBrightGreen, 0, BuyPrice, 0 );
PlotShapes( IIf( Sell, shapeSmallDownTriangle, shapeNone ), colorRed, 0, SellPrice, 0 );
Plot( C, "", 1, 128 );
// Plot the Trade Lines
Sig = Buy OR Sell;
y0 = 0;
y1 = C[0];
TPrice = C;
FirstVisibleBar = Status( "FirstVisibleBar" );
Lastvisiblebar = Status( "LastVisibleBar" );
for ( b = Firstvisiblebar; b <= Lastvisiblebar AND b < BarCount; b++ )
{
if ( Buy )
{
Co = colorRed;
TPrice = BuyPrice;
}
if ( Sell )
{
Co = colorBrightGreen;
TPrice = SellPrice;
}
if ( Sig )
{
x0 = y0;
x1 = y1;
y0 = b;
y1 = TPrice;
Plot( LineArray( x0, x1, y0, y1 ), "", Co, 1 );
}
}