لتبليغ الإدارة عن موضوع أو رد مخالف يرجى الضغط على هذه الأيقونة الموجودة على يمين المشاركة لتطبيق قوانين المنتدى


سجل من هنا
العودة   هوامير البورصة السعودية > >
التسجيل اضف الموقع لمفضلتك بحث جوجل فوركس هوامير التقويم البحث مشاركات اليوم اجعل كافة الأقسام مقروءة
 



إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 04-03-2012, 12:04 AM  
#1
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

مؤشرات 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);
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 12:13 AM   #2
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

رد: مؤشرات 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);
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 12:15 AM   #3
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

رد: مؤشرات 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);}
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 12:15 AM   #4
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

رد: مؤشرات 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();
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 12:17 AM   #5
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

رد: مؤشرات 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");
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 12:17 AM   #6
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

رد: مؤشرات 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 Forex "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();
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 02:47 AM   #7
منادي_2005
كاتب قدير
 
تاريخ التسجيل: Oct 2005
المشاركات: 8,266

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

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

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

أخوك ابو محمد
منادي_2005 غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 07:47 AM   #8
ريبروتو
عضو هوامير المميز
 
تاريخ التسجيل: Feb 2008
المشاركات: 563

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

الله يوفقك اخوي
ريبروتو غير متواجد حالياً   رد مع اقتباس
قديم 04-03-2012, 04:33 PM   #9
غنيمة
عضو هوامير المميز
 
تاريخ التسجيل: Aug 2005
المشاركات: 1,692

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

الله يوفقك اخوي
غنيمة غير متواجد حالياً   رد مع اقتباس
قديم 05-03-2012, 01:04 AM   #10
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

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

اقتباس:
المشاركة الأصلية كتبت بواسطة منادي_2005 مشاهدة المشاركة
والله زمــــــــــان على الطلة الحلوة وين الناس أتمنى ان تكون بصحة وعافية

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

أخوك ابو محمد
ياهلا بك يابو محمد
عاش من شافك
سلخييير
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 05-03-2012, 09:57 AM   #11
THE LORD KSA
رئيس قسم التحليل الفني
خبير وصانع مؤشرات الايمي بروكر
 
تاريخ التسجيل: May 2005
المشاركات: 16,465

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

بارك الله فيك
THE LORD KSA غير متواجد حالياً   رد مع اقتباس
قديم 05-03-2012, 09:54 PM   #12
أبو سارا
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2006
المشاركات: 398

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

مشكور والله يوفقك
أبو سارا غير متواجد حالياً   رد مع اقتباس
إضافة رد



مواقع النشر (المفضلة)

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
.. مكتبتي .. الخاااصة .. للبرامج .. Abunawaf منتدى التحليل الفني والاساسي 10 16-09-2012 01:01 AM
يقولون في آكتتأب شركه جديده الاسبوع القادم : الخبر صحيح ولا لا . ارجو الرد السعلي منتدى الأسهم السعودية 11 27-02-2012 11:28 PM
قطاع التطوير العقاري ثماني شركات، تصدرتها من حيث مؤشرات الأداء دار الأركان، عبدالله2009 منتدى الأسهم السعودية 5 02-12-2011 10:17 PM
لماذا تنبح شركات الاسمنت ضد قرار منع التصدير الا يكفيهم بناء 500000 وحده سكنيه جديده جريح مايو منتدى الأسهم السعودية 34 06-07-2011 12:17 AM




10:42 PM


الاعلان بمنتدى هوامير البورصة
تشغيل وتطوير افاق الإقتصاد
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
جميع المواضيع و الردود المطروحة لا تعبر عن رأي المنتدى بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك

بناء على نظام السوق المالية بالمرسوم الملكي م/30 وتاريخ 2/6/1424هـ ولوائحه التنفيذية الصادرة من مجلس هيئة السوق المالية: تعلن الهيئة للعموم بانه لا يجوز جمع الاموال بهدف استثمارها في اي من اعمال الاوراق المالية بما في ذلك ادارة محافظ الاستثمار او الترويج لاوراق مالية كالاسهم او الاستتشارات المالية او اصدار التوصيات المتعلقة بسوق المال أو بالاوراق المالية إلا بعد الحصول على ترخيص من هيئة السوق المالية.