هوامير البورصة السعودية - مؤشرات AmiBroker جديده

هوامير البورصة السعودية (https://hawamer.com/vb/index.php)

- - مؤشرات AmiBroker جديده (https://hawamer.com/vb/hawamer992685)

مؤشرات AmiBroker جديده

TSI & Buy Sell Signals for Amibroker (AFL)

كود:



_SECTION_BEGIN("TSI");

r = Param( "TSI period 'R':", 7, 1, 100, 1 );

s = Param( "TSI period 'S':", 27, 1, 100, 1 );

u = Param( "TSI period 'U':", 1, 1, 100, 1 );

sig = Param( "Signal period:", 7, 1, 100, 1 );

 

Mtm = C - Ref ( C, -1 );

AbsMtm = abs ( Mtm );

Num_T = EMA ( EMA( EMA ( Mtm, r ), s ), u );

Den_T = EMA ( EMA( EMA ( AbsMtm, r ), s ), u);



TSI = 100 * Nz ( Num_T / Den_T );

TSIL = 100 * Nz ( Num_T / Den_T );



//Green TSIL Line=Rising; Red TSIL Line=Falling

col = IIf( TSIL > Ref( TSIL, -1 ), colorGreen, colorRed );

Plot( TSIL, "TSI("+r+","+s+","+u+")", col, styleLine | styleThick);

//Green EMA TSI,sig Line=Rising; Red EMA TSI,sig Line=Falling

col = IIf( EMA(TSI,sig) > Ref( EMA(TSI,sig), -1 ), colorGreen, colorRed );

Plot( EMA(TSI,sig), "", col, styleThick);

Histcol= IIf(TSI>0,colorLime,colorRed) ;

Plot( TSI, "", histcol, ParamStyle("Histogram style", styleThick |

    styleHistogram | styleNoLabel, maskHistogram ) );

Plot(0,"",ParamColor( "ColorZero", colorBrown ),styleLine);



//Title = "TSI";

_SECTION_END();

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



//FORMULE

Cuptop1= C>BBandTop( C,20,1 ) ;

top1up= BBandTop( C,20,1 )>=Ref(BBandTop( C,20,1 ),-1) ;

top2up= BBandTop( C,20,2 )>=Ref(BBandTop( C,20,2 ),-1) ;

MACDup= MACD()>Signal() ;

Hist= MACD()-Signal() ;

Histup= Hist>Ref(Hist,-1) ;

stochup= StochK()>StochD() ;

stoch80= StochK()<80 ;

MFIup= MFI()>EMA(MFI(),5) AND MFI()>20 ;

ma10up= MA(C,10)>=Ref(MA(C,10),-1) ;

ma20up= MA(C,20)>=Ref(MA(C,20),-1) ;

EMA50up= EMA(C,50)>=Ref(EMA(C,50),-1) ;

Cupma10= C>MA(C,10) ;

Cupma20= C>MA(C,20) ;

cupema50= C>EMA(C,50) ;

Vup50= V>50000 ;

CCIup0= CCI()>0 ;

Cupo= C>O ;

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



mybuy=  TSIL > Ref( TSIL, -1 ) AND EMA(TSI,sig) > Ref( EMA(TSI,sig), -1 ) AND TSIL>EMA(TSI,sig) AND

        macdup AND ema50up AND mfiup ;

mysell= TSIL < Ref( TSIL, -1 ) AND EMA(TSI,sig) < Ref( EMA(TSI,sig), -1 ) AND TSIL<EMA(TSI,sig) ;



Buy = ExRem(myBuy, mysell);

Sell = ExRem(mysell, myBuy);



PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBlue,0);

PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed,0);

رد: مؤشرات AmiBroker جديده

Similar Formulas

كود:

/* Forecast Oscillator */

// code - Milman //

/* Forecast oscillator - Default time period is 14 */



for( i = 1; i < 15; i++ ) 

{ 

VarSet( "C"+i, Ref( C, -i ) ); 

} 

fo= C- (( C14+ 6.5 * (6.5 * C + 5.5 * C1 + 4.5 

* C2 + 3.5 * C3 + 2.5 * C4 + 1.5 * C5 + 0.5 * 

C6 - 0.5 * C7 - 1.5 * C8 - 2.5 * C9 - 3.5 * 

C10 - 4.5 * C11 - 5.5 * C12 - 6.5 * C13) / 227.5));

trig= EMA(fo,3);

Plot(fo," Forecast Oscillator",1,2);

Color=IIf(fo>0,18,5);

Plot(fo, "" ,Color,4);

Plot (trig,"",6,styleDashed);

Plot(0,"",3);

رد: مؤشرات AmiBroker جديده

Looped Coppock Smoothner for Amibroker (AFL)

كود:

/* Looped Coppock Curve

  Code By : Rohit Patil.

  email : (تم حذف الإيميل لأن عرضه مخالف لشروط المنتدى)

my thanks goes to te original Coppock logic creator

i'm just coder and little bit researcher or say improviser */



x=Param("  I : ",14,1,500,1);

y=Param(" II : ",11,1,500,1);



r=Param("Range : ",14,1,500,1);



p11 =ParamToggle("Plot 0 line","No,Yes",0);

p12 =ParamToggle("Plot +/- 6K lines","No,Yes",0);





Type = ParamList("Type", "ROC,CCi,Close");





bo=0;

bh=0;

bl=0;

bc=0;





if( Type == "ROC" )                                        

{

for(i=0;i<=r;i++)

{

        ao=(ROC(Ref(O,-i),x)*(r-i) + ROC(Ref(O,-i),y)*(r-i))/2;

        bo=bo+ao;

        ah=(ROC(Ref(H,-i),x)*(r-i) + ROC(Ref(H,-i),y)*(r-i))/2;

        bh=bh+ah;

        al=(ROC(Ref(L,-i),x)*(r-i) + ROC(Ref(L,-i),y)*(r-i))/2;

        bl=bl+al;

        ac=(ROC(Ref(C,-i),x)*(r-i) + ROC(Ref(C,-i),y)*(r-i))/2;

        bc=bc+ac;



}

O=bo;H=bh;L=bl;C=bc;

}



if( Type == "CCi" )                                        

{

for(i=0;i<=r;i++)

{

        ao=(CCIa(Ref(O,-i),x)*(r-i) + CCIa(Ref(O,-i),y)*(r-i))/2;

        bo=bo+ao;

        ah=(CCIa(Ref(H,-i),x)*(r-i) + CCIa(Ref(H,-i),y)*(r-i))/2;

        bh=bh+ah;

        al=(CCIa(Ref(L,-i),x)*(r-i) + CCIa(Ref(L,-i),y)*(r-i))/2;

        bl=bl+al;

        ac=(CCIa(Ref(C,-i),x)*(r-i) + CCIa(Ref(C,-i),y)*(r-i))/2;

        bc=bc+ac;

        

}

O=bo;H=bh;L=bl;C=bc;



}



if( Type == "Close" )                                        

{

for(i=0;i<=r;i++)

{

        ao=((Ref(O,-i)*(r-i)) + (Ref(O,-i)*(r-i)))/2;

        bo=bo+ao;

        ah=((Ref(H,-i)*(r-i)) + (Ref(H,-i)*(r-i)))/2;

        bh=bh+ah;

        al=((Ref(L,-i)*(r-i)) + (Ref(L,-i)*(r-i)))/2;

        bl=bl+al;

        ac=((Ref(C,-i)*(r-i)) + (Ref(C,-i)*(r-i)))/2;

        bc=bc+ac;





}

d=0;

for(m=1;m<=r;m++)

{        d=d+m;

}

bo=bo/d;

bh=bh/d;

bl=bl/d;

bc=bc/d;



}





Col=IIf((Ref(bc,-1)==bc),colorBlack,IIf((Ref(bc,-1)<bc),colorLime,colorOrange));

PlotOHLC(bo,bh,bl,bc,"Coppock ("+r+") ("+Type+")",Col,ParamStyle("Copock sty ",styleLine,maskAll));





if(p11==1)

Plot(0,"",colorBlack,styleDashed);

if(p12==1)

{Plot(6000,"",ColorRGB(155,155,0),styleDashed);

Plot(-6000,"",ColorRGB(155,155,0),styleDashed);}

رد: مؤشرات AmiBroker جديده

Flower Indicator for Amibroker (AFL)

كود:

_SECTION_BEGIN("Price");

SetChartOptions(0,chartShowArrows|chartShowDates);

SetBarsRequired(sbrAll,sbrAll);

SetChartBkColor(ParamColor("Outer panel",colorDarkOliveGreen));

GraphXSpace=Param("GraphXSpace",20,-10,25,1);

_SECTION_END();



_SECTION_BEGIN( "Flower" );

Title = StrFormat( "\\c02 {{DATE}} | Volume = " + WriteVal( V, 1.0 ) + " {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) );

_SECTION_END();

 

_SECTION_BEGIN( "Sup/Res Detail" );

SupResPeriod = Param( "LookBack Period", 50, 0, 200, 1 );

SupResPercentage = Param( "Percentage", 100, 0, 200, 1 );

PricePeriod = Param( "Price Period", 16, 0, 200, 1 );

SupportLinecolor = ParamColor( "Support Color", colorGreen );

SupportLinestyle = ParamStyle( "Support Style", styleThick | 8 | styleNoLabel );

ResistanceLinecolor = ParamColor( "Resistance Color", colorRed );

Resistancestyle = ParamStyle( "Resistance Style", styleThick | 8 | styleNoLabel );

_SECTION_END();



_SECTION_BEGIN( "Line Detail" );

OverBought = Param( "OverBought Above", 200, 0, 400, 1 );

OverSold = Param( "OverSold Bellow", -200, -400, 0, 1 );

_SECTION_END();



_SECTION_BEGIN( "Trend Bought/Sold Detail" );

Smoother = Param( "Trend Smoother", 5, 5, 20 );

upcolor = ParamColor( "UpTrend Color", colorGreen );

Downcolor = ParamColor( "DownTrend Color", colorRed );

_SECTION_END();

 

_SECTION_BEGIN( "Circle Detail" );

Warningcolor = ParamColor( "Warning/Watch Signal", colorBlue );

WatchColor = ParamColor( "Accumulation Zone", colorWhite );

EntryColor = ParamColor( "Entry Signal", colorAqua );

ProfitTakeColor = ParamColor( "Distribution Zone", colorYellow );

ExitColor = ParamColor( "Exit Signal", colorRed );

_SECTION_END();

 

_SECTION_BEGIN( "Swing Sup/Res" );

Lookback = SupResPeriod;

PerCent = SupResPercentage;

Pds = PricePeriod;

Var = MACD();

Up = IIf( Var > Ref( Var, -1 ), abs( Var - Ref( Var, -1 ) ), 0 );

Dn = IIf( Var < Ref( Var, -1 ), abs( Var - Ref( Var, -1 ) ), 0 );

Ut = Wilders( Up, Pds );

Dt = Wilders( Dn, Pds );

RSIt = 100 * ( Ut / ( Ut + Dt ) );

A1 = RSIt;

B2 = RSI( pds );

C3 = CCI( pds );

D4 = StochK( pds );

E5 = StochD( pds );

F6 = MFI( pds );

G7 = Ultimate( pds );

H8 = ROC( C, pds );

Osc = C3;

Value1 = Osc;

Value2 = HHV( Value1, Lookback );

Value3 = LLV( Value1, Lookback );

Value4 = Value2 - Value3;

Value5 = Value4 * ( PerCent / 100 );

ResistanceLine = Value3 + Value5;

SupportLine = Value2 - Value5;

baseline = IIf( Osc < 100 AND Osc > 10 , 50 , IIf( Osc < 0 , 0, 0 ) );

Plot( ResistanceLine, "", SupportLinecolor, SupportLinestyle );

Plot( SupportLine, "", ResistanceLinecolor, Resistancestyle );

_SECTION_END();



_SECTION_BEGIN( "Entry/Exit Detail" );

n = Smoother;

ys1 = ( High + Low + Close * 2 ) / 4;

rk3 = EMA( ys1, n );

rk4 = StDev( ys1, n );

rk5 = ( ys1 - rk3 ) * 200 / rk4;

rk6 = EMA( rk5, n );

UP = EMA( rk6, n );

DOWN = EMA( up, n );

Oo = IIf( up < down, up, down );

Hh = Oo;

Ll = IIf( up < down, down, up );

Cc = Ll;

barcolor2 = IIf( Ref( oo, -1 ) < Oo AND Cc < Ref( Cc, -1 ), upcolor, IIf( up > down, upcolor, downcolor ) );

PlotOHLC( Oo, hh, ll, Cc, "Accumulation/Distribution", barcolor2, styleCandle );  // When value is -ve it is accumulation, when +ve it is distribution ( 200 lines are limtits to watch )

Buy = Cross( up, OverSold );

Sell = Cross( OverBought, up );

PlotShapes ( IIf( Buy, shapeSmallCircle, shapeNone ) , EntryColor, layer = 0, yposition = -220, offset = 1 );

PlotShapes ( IIf( Sell, shapeSmallCircle, shapeNone ) , ExitColor, layer = 0, yposition = 220, offset = 1 );

_SECTION_END();

 

_SECTION_BEGIN( "Overbought/Oversold/Warning Detail" );

n = Smoother;

ys1 = ( High + Low + Close * 2 ) / 4;

rk3 = EMA( ys1, n );

rk4 = StDev( ys1, n );

rk5 = ( ys1 - rk3 ) * 210 / rk4;

rk6 = EMA( rk5, n );

UP = EMA( rk6, n );

DOWN = EMA( up, n );

Oo = IIf( up < down, up, down );

Hh = Oo;

Ll = IIf( up < down, down, up );

Cc = Ll;

barcolor2 = IIf( Ref( oo, -1 ) < Oo AND Cc < Ref( Cc, -1 ), colorGreen, IIf( up > down, colorGreen, colorRed ) );

PlotOHLC( Oo, hh, ll, Cc, "", barcolor2, styleCandle | stylehidden );

UP = EMA( rk6, n );

UPshape = IIf( UP >= OverBought OR UP <= OverSold, shapeHollowSmallCircle, shapeNone );

UPColor = IIf( UP >= 210, ProfitTakeColor, IIf( UP <= -210, WatchColor, Warningcolor ) );

Plot( UP, "", colorGrey50, styleThick | stylehidden );

PlotShapes( UPShape, UPColor, 0, UP, 0 );

_SECTION_END();

 

_SECTION_BEGIN( "Plot Lines" );

Plot( OverBought, "", colorDarkGrey, styleLine | styleNoLabel );

Plot( 0, "", colorDarkGrey, styleDashed | styleNoLabel );

Plot( OverSold, "", colorDarkGrey, styleLine | styleNoLabel );

_SECTION_END();

رد: مؤشرات AmiBroker جديده

STRUT for Amibroker (AFL)

كود:

/*  STRUT.afl  ---  Don Carlson 3/7/2007



Money can generally be made when the STRUT (blue line) is moving up.



Also, use the STRUT oscillator to determine Market Risk of RUT                                        

 X-OverBought..18....2 Std Dev        )  When STRUT reaches 12.3        Start Selling        

 Over Bought....9....1 Std Dev        )                

 Avg Mkt........0        ....?.?<<-- Current STRUT        

 Over Sold.....-9...-1 Std Dev )        When STRUT reaches -13.2  Start Buying        

 X-OverSold...-18...-2 Std Dev        )                



        

*/



SetBarsRequired(100000, 100000);

symb        = ParamStr("Symbol", "") ;

if (symb != "")        SetForeign(symb);



SetChartBkColor(ParamColor("Outer panel color ",colorLightGrey)); // color of outer border 

SetChartBkGradientFill( ParamColor("Inner panel color upper half", colorLightGrey),ParamColor("Inner panel color lower half",  colorPaleBlue)); // color of inner panel

SetChartOptions(0, chartShowDates, chartGridMiddle);



//SetForeign("^RUT");



stoPer                = 53;

stoSmooth                = 49;

trigger                = 28;



Low1                        = LLV(C,stoPer);

High1                        = HHV(C,stoPer);

DStoc                        = (EMA(100*(Close - Low1)/(High1 - Low1),stoSmooth));

SignalLine        =  EMA(DStoc, trigger);

histogram        =  Dstoc - SignalLine ;



Buy = Histogram > 0.0;

Sell = Histogram < 0.0;

Buy = ExRem(Buy, Sell);

Sell = ExRem(Sell, Buy);

PlotShapes(Buy*shapeUpArrow+Sell*shapeDownArrow, IIf(Buy, colorBrightGreen, colorRed), 0, Histogram, -15);

Plot(DStoc - 50,                "      DSTOCH - 50",        colorBlue, styleNoLabel);

Plot(SignalLine-50,        "      SIGNAL - 50",        colorRed,        styleNoLabel);



if(SelectedValue(DStoc-50.0 > 0.0))

Plot(Histogram ,                "      HISTO",                colorTurquoise,        styleNoLabel|styleHistogram);

else

{

Plot(Histogram ,                "      HISTO",                colorPink,        styleNoLabel|styleHistogram);

}



if(SelectedValue(Histogram > 0.0))

Title = EncodeColor(colorBlue)+ Name() + " - " + Date() + 

":  O: "+WriteVal(O, 1.2) + "  H: "+WriteVal(H, 1.2) + "  L: "+WriteVal(L, 1.2)  + "  C: "+WriteVal(C, 1.2) + 

"\n    General Mkt Signal --- Ruttr --- Stochastic - 53, 49, 28      "+

"\n    Money can generally be made when the STRUT (blue line) is moving up."+

                        "\n    "+EncodeColor(colorBlue)+"DSTOCH = "+WriteVal(DStoc,1.2)+

                        "    "+EncodeColor(colorRed)+"SIGNAL  = "+WriteVal(SignalLine,1.2)+

                        "    "+EncodeColor(colorBlue)+"HISTOGRAM = "+ WriteVal(Histogram,1.2)+"      ";

else

{

Title = EncodeColor(colorRed) + Name() + " - " + Date() + 

":  O: "+WriteVal(O, 1.2) + "  H: "+WriteVal(H, 1.2) + "  L: "+WriteVal(L, 1.2)  + "  C: "+WriteVal(C, 1.2) + 

"\n    General Mkt Signal --- Ruttr --- Stochastic - 53, 49, 28      "+

"\n    Money can generally be made when the STRUT (blue line) is moving up."+

                        "\n    "+EncodeColor(colorBlue)+"DSTOCH = "+WriteVal(DStoc,1.2)+

                        "    "+EncodeColor(colorRed)+"SIGNAL  = "+WriteVal(SignalLine,1.2)+

                        "    "+EncodeColor(colorRed)+"HISTOGRAM = "+ WriteVal(Histogram,1.2)+"      ";

}







GraphXSpace = 5;



Filter = 1;



AddColumn(Close,"Close");

AddColumn(Histogram,"Histo");

رد: مؤشرات AmiBroker جديده

GANN Levels with TGT & SL for Amibroker (AFL)

كود:

_SECTION_BEGIN("GANN Levels");

/*

For Stocks/Index/Commodities "order" need to be 0.1 to 0.5



For "order" should be 0.001 ( except JPY pairs ), for JPY pairs it need to be 0.01

*/



Op=TimeFrameGetPrice("O",inDaily,0);  



order=Param("Order",0.5,0.001,0.1,0.001,sincr = 0);



level1 = 1.25;

level2 = 2.50;

level3 = 3.33;

level4 = 5;

level5 = 6.66;

level6 = 7.5;

level7 = 10;



level1 = level1 * order;

level2 = level2 * order;

level3 = level3 * order;

level4 = level4 * order;

level5 = level5 * order;

level6 = level6 * order;

level7 = level7 * order;



bAboveI=(sqrt(Op)+level1)*(sqrt(Op)+level1); // BUY Zone

bAbove = round(bAboveI);                                      



sBelowI=(sqrt(Op)-level1)*(sqrt(Op)-level1);  // SELL Zone

sBelow = round(sBelowI);



Sstop= bAbove ;

Bstop= sBelow ;



// Resistance Levels (or Targets for Buy trade)



BTgt1 = round((sqrt(Op)+level2)*(sqrt(Op)+level2));

BTgt2 = round((sqrt(Op)+level3)*(sqrt(Op)+level3));

BTgt3 = round((sqrt(Op)+level4)*(sqrt(Op)+level4));

BTgt4 = round((sqrt(Op)+level5)*(sqrt(Op)+level5));

BTgt5 = round((sqrt(Op)+level6)*(sqrt(Op)+level6));

BTgt6 = round((sqrt(Op)+level7)*(sqrt(Op)+level7));



// Support Levels (or Targets for Short trade)



STgt1 = round((sqrt(Op)-level2)*(sqrt(Op)-level2));

STgt2 = round((sqrt(Op)-level3)*(sqrt(Op)-level3));

STgt3 = round((sqrt(Op)-level4)*(sqrt(Op)-level4));

STgt4 = round((sqrt(Op)-level5)*(sqrt(Op)-level5));

STgt5 = round((sqrt(Op)-level6)*(sqrt(Op)-level6));

STgt6 = round((sqrt(Op)-level7)*(sqrt(Op)-level7));



GfxSetBkMode( 1 );

GfxSelectFont("Arial", 12, 900 );

GfxSetTextColor( colorLime );

GfxSelectPen( colorBlack, 1, 0) ;

GfxSelectSolidBrush( colorBlue );



BTgtext = "Buy Targets : " + NumToStr(btgt1,1.2,False) + " - " + NumToStr(btgt2,1.2,False) + " - " + NumToStr(btgt3,1.2,False)+ " - " + NumToStr(btgt4,1.2,False) + " - " + NumToStr(btgt5,1.2,False) + " - " + NumToStr(btgt6,1.2,False);

STgtext = "Short Targets : " + NumToStr(stgt1,1.2,False) + " - " + NumToStr(stgt2,1.2,False) + " - " + NumToStr(stgt3,1.2,False)+ " - " + NumToStr(stgt4,1.2,False) + " - " + NumToStr(stgt5,1.2,False) + " - " + NumToStr(stgt6,1.2,False);



// GANN levels based on MKT opening price ( please change this time according to exchnage opening time )

GfxTextOut("Buy Above : " + WriteIf(TimeNum()>092900, NumToStr(bAbove,1.2,False) + " SL : " + NumToStr(sBelow,1.2,False),"Waiting for Signal"), 10, 65);

GfxTextOut(WriteIf(TimeNum()>092900,BTgtext,""), 10, 85);



GfxSetBkMode( 1 );

GfxSelectFont("Arial", 12, 900 );

GfxSetTextColor( colorOrange );

GfxSelectPen( colorBlack, 1, 0) ;

GfxSelectSolidBrush( colorBlue );



GfxTextOut("Short Below : " + WriteIf(TimeNum()>092900, NumToStr(sBelow,1.2,False) + " SL : " + NumToStr(bAbove,1.2,False),"Waiting for Signal"), 10, 105);

GfxTextOut(WriteIf(TimeNum()>092900,STgtext,""), 10, 125);



BuySignal = (Cross(H,babove)OR Cross(C,babove) OR (H>babove AND L<=babove)) AND Op<babove ;

ShortSignal = (Cross(Sbelow,L) OR Cross(Sbelow,C) OR (H>=sbelow AND L<sbelow))AND Op>sbelow ;



BuySignal = ExRem(BuySignal,ShortSignal);

ShortSignal = ExRem(ShortSignal,BuySignal);



ShortProfitStop= (STgt1 AND L<=Stgt1 AND C>Stgt1) OR (STgt2 AND L<=Stgt2 AND C>Stgt2) OR (STgt3 AND L<=Stgt3 AND C>Stgt3) OR (STgt4 AND L<=Stgt4 AND C>Stgt4) OR (STgt5 AND L<=Stgt5 AND C>Stgt5) OR (STgt6 AND L<=Stgt6 AND C>Stgt6);

BuyProfitStop= (Btgt1 AND H>=btgt1 AND C<Btgt1) OR (Btgt2 AND H>=Btgt2 AND C<btgt2) OR (Btgt3 AND H>=Btgt3 AND C<btgt3) OR (Btgt4 AND H>=Btgt4 AND C<btgt4) OR (Btgt5 AND H>=Btgt5 AND C<btgt5) OR (Btgt6 AND H>=Btgt6 AND C<btgt6);



SetOption("MaxOpenPositions", 1 );

SetPositionSize(100,spsShares);



Buy = BuySignal;

Sell = C<Bstop OR BuyProfitStop;



Buy = ExRem(Buy,Sell);

Sell = ExRem(Sell,Buy);



Short = ShortSignal;

Cover = C>SStop OR ShortProfitStop;



PlotShapes(IIf(Buysignal, shapeSquare, shapeNone),colorBlue, 0, L, Offset=-20);

PlotShapes(IIf(Buysignal, shapeSquare, shapeNone),colorBlue, 0,L, Offset=-30);

PlotShapes(IIf(Buysignal, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-25);



PlotShapes(IIf(Shortsignal, shapeSquare, shapeNone),colorRed, 0, H, Offset=20);

PlotShapes(IIf(Shortsignal, shapeSquare, shapeNone),colorOrange, 0,H, Offset=30);

PlotShapes(IIf(Shortsignal, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-25);



Short = ExRem(Short,Cover);

Cover = ExRem(Cover,Short);



AlertIf( Buy, "", "BUY " + C, 1 );

AlertIf( Sell, "", "SELL " + C, 2 );



PlotShapes(IIf(Cover, shapeUpArrow,shapeNone),colorGreen, 0, Low, Offset=-20);

PlotShapes(IIf(Sell, shapeDownArrow,shapeNone),colorRed, 0, High, Offset=-20);





numbars = LastValue(Cum(Status("barvisible")));

hts  = -33.5;



gl = ParamToggle("GANN Levels","Show|Hide",0);

if(gl==1) {



Plot(sstop,"BUY Zone",colorDarkGreen,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(bstop,"SELL Zone",colorDarkRed,styleDots|styleNoLine|styleNoRescale|styleNoTitle );



Plot(BTgt1,"BUY TGT1",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(BTgt2,"BUY TGT2",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(BTgt3,"BUY TGT3",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(BTgt4,"BUY TGT4",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(BTgt5,"BUY TGT5",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );

Plot(BTgt6,"BUY TGT6",colorOrange,styleDots|styleNoLine|styleNoRescale|styleNoTitle );



Plot(STgt1,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);

Plot(STgt2,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);

Plot(STgt3,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);

Plot(STgt4,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);

Plot(STgt5,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);

Plot(STgt6,"SELL TGT1",colorLime,styleDots|styleNoLine|styleNoRescale|styleNoTitle);



PlotText(" BUY Zone" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(sstop,1), colorDarkGreen);

PlotText(" SELL Zone" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(bstop,1), colorDarkRed);



PlotText(" BUY TGT1" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt1,1), colorOrange);

PlotText(" BUY TGT2" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt2,1), colorOrange);

PlotText(" BUY TGT3" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt3,1), colorOrange);

PlotText(" BUY TGT4" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt4,1), colorOrange);

PlotText(" BUY TGT5" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt5,1), colorOrange);

PlotText(" BUY TGT6" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(BTgt6,1), colorOrange);



PlotText(" SELL TGT1" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt1,1), colorLime);

PlotText(" SELL TGT2" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt2,1), colorLime);

PlotText(" SELL TGT3" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt3,1), colorLime);

PlotText(" SELL TGT4" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt4,1), colorLime);

PlotText(" SELL TGT5" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt5,1), colorLime);

PlotText(" SELL TGT6" ,    LastValue(BarIndex())-(numbars/Hts), LastValue(STgt6,1), colorLime);



}



_SECTION_END();

رد: مؤشرات AmiBroker جديده

والله زمــــــــــان على الطلة الحلوة وين الناس أتمنى ان تكون بصحة وعافية

لا ننسى جهودك في البرنامج والذي تعلمنا منك الكثير

أخوك ابو محمد

رد: مؤشرات AmiBroker جديده

الله يوفقك اخوي

رد: مؤشرات AmiBroker جديده

الله يوفقك اخوي

رد: مؤشرات AmiBroker جديده

اقتباس:

المشاركة الأصلية كتبت بواسطة منادي_2005 (المشاركة 16562383)

ياهلا بك يابو محمد
عاش من شافك
سلخييير

رد: مؤشرات AmiBroker جديده

بارك الله فيك

رد: مؤشرات AmiBroker جديده

مشكور والله يوفقك