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


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



إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 20-03-2012, 08:52 PM  
#25
*الفارس الفيصل*
محلل هوامير
 
تاريخ التسجيل: Jul 2006
المشاركات: 3,623

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

كود:
_SECTION_BEGIN("BuySell-nodll-");
//-------------------------------------------------------------------------
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat(" Open %g, Hi %g, Lo %g, Close %g (%.1f%%)", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));


T=26; 
BHSda=((C-MA(C,T))/MA(C,T))*100; // func fixed
Graph0=BHSda;
Graph0Style=2+4;
Graph0BarColor=IIf(BHSda>0,5,4);
GraphXSpace=5;

SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | styleCandle ); 
Plot( O, "Open", ParamColor("Color", colorBlack ), styleNoDraw); 
Plot( H, "High", ParamColor("Color", colorBlack ), styleNoDraw); 
Plot( L, "Low", ParamColor("Color", colorBlack ),styleNoDraw); 


//------------------------------------------------------------------------------
Value1 = 60;//Param("BearRes", 60, 1, 100, 0.1 );
Value2 = 40;//Param("BullSup", 40, 1, 100, 0.1 );
BHSMPPer= 13;//Param("Time periods", 13, 1, 100 );
BHEXPerc = 2 * BHSMPPer- 1;

BSAU = EMA(Max( C - Ref (C, -1 ),0) , BHEXPerc );
BSAC = EMA(Max( Ref( C, -1 ) - C,0), BHEXPerc );
x1=(BHSMPPer-1)* ((BSAC * Value1 )/(100-Value1) - BSAU);
BSR1 = IIf( x1 >= 0, C + x1, C + x1 * (100-Value1)/Value1 );
x2=(BHSMPPer-1)* ((BSAC * Value1 )/(100-Value2) - BSAU);
BSR2 = IIf( x2 >= 0, C + x2, C + x2 * (100-Value2)/Value2 );

Plot( BSR1, "", colorOrange,styleDashed);
Plot( BSR2, "", colorPaleBlue,styleDashed );

//------------------------------------------------------------------------------


r1 = 12;//Param( "Fast avg", 12, 2, 200, 1 );
r2 = 26;//Param( "Slow avg", 26, 2, 200, 1 );
r3 = 9;//Param( "Signal avg", 9, 2, 200, 1 );
Z = 1;//Param("zig",1,0,10,0.1);


Cond1 = Cross(MACD(r1,r2),Signal(r1,r2,r3));
Cond3 = Zig(C,z)>Ref(Zig(C,z),-4);
Buy = Cond1 AND Cond3;

Cond4 = Cross(Signal(r1,r2,r3),MACD(r1,r2));
Cond6 = Zig(C,z)<Ref(Zig(C,z),-4);
Sell = Cond4 AND Cond6;

Trigger = WriteIf(Buy, "Buy", "") + WriteIf(Sell, "Sell", "");
BSG = IIf(Buy, colorPaleGreen, IIf(Sell, colorRose, colorDefault));
BSFG = IIf(Buy, colorDarkGreen, IIf(Sell, colorDarkRed, colorDefault));


//------------------------------------------------------------------------------------------------

if((Status("action") == actionExplore) OR (Status("action") == actionScan))
Filter = Buy OR Sell;
SetOption("NoDefaultColumns", True);
AddTextColumn(Name(), "Symbol", 77, BSFG, BSG, 120);
AddColumn(DateTime(), "Date", formatDateTime, BSFG, BSG, 100);
AddColumn(TimeNum() ,"Time",1,BSFG, BSG, 100);
AddColumn( Buy, "Buy", 1,BSFG, BSG, 50);
AddColumn( Sell, "Sell", 1,BSFG, BSG, 50 );
AddColumn( O, "Open", 1.2,BSFG, BSG, 100 );
AddColumn( H, "High", 1.2,BSFG, BSG, 100 );
AddColumn( L, "Low", 1.2,BSFG, BSG, 100 );
AddColumn( C, "Close", 1.2,BSFG, BSG, 100 );
AddColumn(Ref(V,-1),"P-Vol",1,BSFG, BSG, 100);
AddColumn(V/(Ref(V,-1)*100),"Increase in Vol",1,BSFG, BSG, 100);

shape= (Buy * shapeHollowUpTriangle )+(Sell *shapeHollowDownTriangle);
PlotShapes( shape, IIf( Buy, colorBlue, colorBlue ), 0, IIf( Buy, Low, High ) );
GraphXSpace = 7;

//---------------------------------------------------------------------------------------------------------
C13=20;//Param("fonts",20,10,30,1 );
C14=2.1;//Param("left-right",2.1,1.0,5.0,0.1 );
C15=12;//Param("up-down",12,1,20,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetBkMode(transparent=1);
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/C13 );
GfxSetTextAlign( 6 );
GfxSetTextColor( ColorRGB (217,217,213));
GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 );
GfxSelectFont("Tahoma", Status("pxheight")/C13*0.4 );
GfxSetTextColor( ColorRGB (103,103,103));
GfxSelectFont("Tahoma", Status("pxheight")/C13*0.45 );
GfxSetTextColor( colorWhite);
GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0);
//------------------------------------------------------------------------------------------------


SetChartBkGradientFill( ParamColor("BgTop", colorDarkOliveGreen),ParamColor("BgBottom", colorDarkGrey)); 
pShowtradeLines = ParamToggle("Show Trade Lines", "No|Yes", 1);
Volmin=Param("Volume minimum",5000,0,10000000,50);
Volmax=Param("Volume maximum",1000000,0,10000000,50);
priceRL=Param("Price Range Min",150,1,20000,1);
priceRH=Param("Price Range Max",3000,1,20000,1);
BSPeChMi=-25;//Param("Percentage Change Min set", -25, -100, 100, 0.1);
BSPeChMa=25;//Param("Percentage Change Max set", 25, -100, 100, 0.1);
BSPerTkProf=0.6;//Param("Take Profit Percent Set",0.6,0.3,30,0.1);
BSPerStLos=0.25;//Param("StopLoss Percent Set",0.25,0.2,5,0.1);


Bars = 0;
xpdh = 90;

{
BSPl_Rng = (TimeNum() >= 90000 AND TimeNum()<= 153000) AND (DateNum()==LastValue(DateNum()));
BSFH_Rg = (TimeNum() >= 090000 AND TimeNum()<= 093000) AND (DateNum()==LastValue(DateNum()));

BSFH_Prc = High * BSFH_Rg;
BSFH_Mrk = BarsSince(BSFH_Rg>0);
Num_Bars = 36000 / Interval(1); 

TimeFrameSet(inDaily);
TOP_ = Open;
PDH_ = Ref(High,-1);
PDL_ = Ref(Low,-1);
PDO_ = Ref(Open,-1);
PDC_ = Ref(Close,-1);
PDM_ = (PDH_+PDL_)/2;
TimeFrameRestore();

isAll = True;
isRth = TimeNum() >= 085400 AND TimeNum() <= 093000;
isdRth = TimeNum() >= 085400 AND TimeNum() <= 160000;

aRthL = IIf(isRth, L, 1000000);
aRthH = IIf(isdRth, H, Null);
aRthLd =IIf(isdRth, L, 1000000);

TOP = TimeFrameExpand(TOP_,inDaily,expandFirst); 
PDH = TimeFrameExpand(PDH_,inDaily,expandFirst); 
PDL = TimeFrameExpand(PDL_,inDaily,expandFirst); 
PDO = TimeFrameExpand(PDO_,inDaily,expandFirst); 
PDC = TimeFrameExpand(PDC_,inDaily,expandFirst); 
PDM = TimeFrameExpand(PDM_,inDaily,expandFirst); 
FHH = Ref(HHV(High*BSFH_Rg,Num_Bars),-BSFH_Mrk);
FHL = TimeFrameCompress( aRthL, inDaily, compressLow );
FHL = TimeFrameExpand( FHL, inDaily, expandFirst );
DayH = TimeFrameCompress( aRthH, inDaily, compressHigh );
DayH = TimeFrameExpand( DayH, inDaily, expandFirst );
DayL = TimeFrameCompress( aRthLd, inDaily, compressLow );
DayL = TimeFrameExpand( DayL, inDaily, expandFirst );


FC1=((PDH-PDL)*0.433);
FC2=((PDH-PDL)*0.7666);
FC3=((PDH-PDL)*1.355);
FC4=(FHH-FHL);

A=IIf((FC4<=FC1+PDH*0.005),FC1,0);
B=IIf((FC4<=FC2+PDH*0.005 AND FC4>FC1+PDH*0.005),FC2,0);
Cl=IIf((FC4<=FC3 AND FC4>FC2+PDH*0.005),FC3,0);
AF=(A+B+Cl);

HaC =(O+H+L+C)/4; 
HaO = AMA( Ref( HaC, -1 ), 0.5 ); 
HaH = Max( H, Max( HaC, HaO) ); 
HaL = Min( L, Min( HaC, HaO) );
BG3=HHV(LLV(HaL,4)+ATR(4),8); 
BR3=LLV(HHV(HaH ,4)-ATR(4),8); 
co = IIf(Hac>BG3 ,colorBlue,IIf(Hac < BR3,colorRed,colorGrey50)); 

BuyPrice=(DayL+AF);
BSByTP1=(BuyPrice+(BuyPrice*(BSPerTkProf/100)));
BSByTP2=(C>=BSByTP1);
SellPrice=(DayH-AF);
BSSlTP1=(SellPrice-(SellPrice*(BSPerTkProf/100)));
BSSlTP2=(C<=BSSlTP1);
BSPrCh=(((C-TOP)/TOP)*100);
Vol=(V>=Volmin AND V<=Volmax);
Percentage=(BSPrCh>=BSPeChMi AND BSPrCh<=BSPeChMa);
prc=(C>=priceRL AND C<=priceRH);
BuyStop1=(BuyPrice-(BuyPrice*(BSPerStLos/100)));
BuyStop2=IIf((BuyStop1<=SellPrice) AND SellPrice<=BuyPrice,SellPrice,BuyStop1);
SellStop1=(SellPrice+(SellPrice*(BSPerStLos/100)));
SellStop2=IIf((SellStop1>=BuyPrice) AND SellPrice<=BuyPrice, BuyPrice,SellStop1);

BuyStop=IIf((Buy AND NOT BSByTP2),BuyStop2,Null);
BuyTP=IIf(Buy AND NOT BuyStop,BSByTP2,Null);

Bars = BarsSince(TimeNum() >= 85400 AND TimeNum() < 092900);
x0 = BarCount-LastValue(Bars);
x1 = BarCount-1;
TOP_Line = LineArray(x0,LastValue(TOP),x1,LastValue(TOP),0);
PDH_Line = LineArray(x0,LastValue(PDH),x1,LastValue(PDH),0);
PDL_Line = LineArray(x0,LastValue(PDL),x1,LastValue(PDL),0);
PDC_Line = LineArray(x0,LastValue(PDC),x1,LastValue(PDC),0);
PDM_Line = LineArray(x0,LastValue(PDM),x1,LastValue(PDM),0);
FHH_Line = LineArray(x0,LastValue(FHH),x1,LastValue(FHH),0);
FHL_Line = LineArray(x0,LastValue(FHL),x1,LastValue(FHL),0);
BuyPriceline=LineArray(x0,LastValue(BuyPrice),x1,L astValue(BuyPrice),0);
BuyStopline=LineArray(x0,LastValue(BuyStop2),x1,La stValue(BuyStop2),0);
BuyTPline=LineArray(x0,LastValue(BSByTP1),x1,LastV alue(BSByTP1),0);
SellPriceline=LineArray(x0,LastValue(SellPrice),x1 ,LastValue(SellPrice),0);
SellStopline=LineArray(x0,LastValue(SellStop2),x1, LastValue(SellStop2),0);
SellTPline=LineArray(x0,LastValue(BSSlTP1),x1,Last Value(BSSlTP1),0);
DayHline=LineArray(x0,LastValue(DayH),x1,LastValue (DayH),0);
DayLline=LineArray(x0,LastValue(DayL),x1,LastValue (DayL),0);


Plot(IIf(pShowtradeLines,BuyStopline,Null),"",colo rBrightGreen,styleDots|styleNoRescale| styleNoLine);
Plot(IIf(pShowtradeLines,SellPriceline,Null),"",co lorRed,styleDots|styleNoRescale);

if( Status("action") == actionIndicator ) 
(
Title = EncodeColor(colorWhite)+ "BuySell system " + " - " + Name() + " - " + EncodeColor(colorYellow)+ Interval(2) + EncodeColor(colorYellow) +
" - " + Date() +" - "+ EncodeColor(colorYellow) + "Open = "+EncodeColor(colorWhite)+WriteVal(O,8.2) + EncodeColor(colorYellow) + ", High = "+EncodeColor(colorWhite)+ WriteVal(H,8.2)+ EncodeColor(colorYellow) + ", Low= "+EncodeColor(colorWhite)+ WriteVal(L,8.2)+ EncodeColor(colorYellow) + ", Close= "+EncodeColor(colorWhite)+ WriteVal(C,8.2)+ EncodeColor(colorYellow) + ", Vol= "+EncodeColor(colorWhite)+ WriteVal(V,1)+("\n")
);



//---------------------------------------------------------------------------------------------------------------------
GfxSetOverlayMode( mode = 0 ); 
GfxSelectPen( colorLightBlue, 2 ); 
GfxSelectSolidBrush( colorBlack ); 
GfxRoundRect( 5,65, 250, 180, 16, 20 ); 
GfxSetBkMode(1); 
GfxSelectFont( "Arial", 12, 700, False );
GfxSetTextColor( colorBrown );
GfxSetTextAlign(0);
GfxSetTextColor( colorPaleGreen );
GfxTextOut( WriteIf(BuyPrice, "Long Target 1: "+WriteVal(BuyPrice,1.2),""),15, 73);
GfxSetTextColor( colorLightBlue );
GfxTextOut( WriteIf(BSByTP1 , "Long Target 2: "+WriteVal(BSByTP1,1.2),""), 15, 92);
GfxSetTextColor( colorRed );
GfxTextOut( WriteIf(SellPrice, "Short Target 1: "+WriteVal(SellPrice,1.2),""), 15, 111);
GfxSetTextColor( colorOrange );
GfxTextOut( WriteIf(BSSlTP1, "Short Target 2: "+WriteVal(BSSlTP1,1.2),""), 15, 129);
GfxSetTextColor( colorWhite );
GfxTextOut( WriteIf(BuyStopline, "Instant Sup/Res: "+WriteVal(BuyStopline,1.2),""), 15, 147);
}


//-------------------------------------------------------------------------------------------------------------------------

CHA= (O+H+L+C)/4;
OHA = AMA( Ref( CHA,-2 ), 0.5 ); 
HAH = Max( H, Max( CHA,OHA ) ); 
HAL = Min( L, Min( CHA,OHA ) ); 
BG2=HHV(LLV(Low,4)+ATR(4),8); 
BR2=LLV(HHV(High,4)-ATR(4),8);
k = Optimize("K",1.75,1,5,0.25); 
Per =Optimize("A",10,3,30,1); 
j=CHA;
nm=(H-L);
rfsctor = WMA(nm, PER);
revers = (K *rfsctor); 
Trend = 1; 
NW[0] = 0; 
for(i = 1; i < BarCount; i++) 
{ 
if(Trend[i-1] == 1) 
{ 
if(j[i] < NW[i-1]) 
{ 
Trend[i] = -1; 
NW[i] = j[i] + Revers[i]; 
} 
else 
{ 
Trend[i] = 1; 
if((j[i] - Revers[i]) > NW[i-1]) 
{ 
NW[i] = j[i] - Revers[i]; 
} 
else 
{ 
NW[i] = NW[i-1]; 
} 
} 
} 
if(Trend[i-1] == -1) 
{ 
if(j[i] > NW[i-1]) 
{ 
Trend[i] = 1; 
NW[i] = j[i] - Revers[i]; 
} 
else 
{ 
Trend[i] = -1; 
if((j[i] + Revers[i]) < NW[i-1]) 
{ 
NW[i] = j[i] + Revers[i]; 
} 
else 
{ 
NW[i] = NW[i-1]; 
} 
} 
} 
} 

Plot(NW,"",IIf(Trend ==1,6,4),4);

Buy=Cross(j,nw);
Short=Cross(nw,j);
Sell=Cross(nw,j);
Cover=Cross(j,nw);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
Short=ExRem(Short,Cover);
Cover=ExRem(Cover,Short);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );

dist = 1.5*ATR(15);
Buy2show=0;
Sell2show=0;
for( i = 0; i < BarCount; i++ ) 
{ 
if( Buy[i] ) 
{
PlotText( "Buy@" +WriteVal( L[ i],1.2), i-5, L[ i ]-Trend[i], colorWhite, colorBlue); 
Buy2show=L[i];
}

if( Sell[i] )
{
PlotText( "Sell@" +WriteVal (H[ i ],1), i-5, L[ i ]+Trend[i], colorWhite, colorRed );
Sell2show=H[ i ];
}
} 
AlertIf(Sell,"SOUND C:\\Windows\\Media\\Ding.wav","Sell@" + WriteVal( H,1.2) ,2);
AlertIf(Buy,"SOUND C:\\Windows\\Media\\Ding.wav","Buy@" + WriteVal( O,1.2),1);

GfxSetBkMode(transparent=1);
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/C13 );
GfxSetTextAlign( 6 );
GfxSetTextColor( ColorRGB (217,217,213));
GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 );
GfxSelectFont("Tahoma", Status("pxheight")/C13*0.4 );
GfxSetTextColor( ColorRGB (103,103,103));
GfxTextOut( "From", Status("pxwidth")/C14*1.8, Status("pxheight")/C15*10.5 );
GfxSelectFont("Tahoma", Status("pxheight")/C13*0.45 );
GfxSetTextColor( colorWhite);
GfxTextOut( " www.buysellnifty.com ", Status("pxwidth")/C14*1.8, Status("pxheight")/C15*11 );
GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0);

//----------------------------------------------------------------------------------------------

//---------------------------
//to plot buysell price
GfxSetOverlayMode( mode = 0 );
GfxSelectPen( colorGreen, 2 );
GfxSelectSolidBrush( colorBlack );
GfxRoundRect( 5, 181,250,240, 15, 15 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 12, 700, False );
GfxSetTextColor( colorPaleGreen );
GfxSetTextAlign(0);




bf=(H-B);
SF=(O-L);

GfxTextOut( WriteIf(Buy OR Long , "BUY Signal At = "+WriteVal(Buy2show,1.2),""), 10, 185);
GfxTextOut( WriteIf(Sell OR shrt , "SELL Signal At = "+WriteVal(Sell2show,1.2),""),10, 185);


GfxSetTextColor( colorYellow );
GfxTextOut( WriteIf( Long AND NOT Buy, "BUY Profit = "+WriteVal(C-Buy2show,1.2 ),""),10, 205);
GfxTextOut( WriteIf( shrt AND NOT Sell, "SELL Profit = "+WriteVal(Sell2show-C,1.2 ),""),10, 205);
//GfxTextOut( WriteIf(Long OR shrt , "CMP = "+WriteVal(C,1.2),""),10, 215);



//-----------------------------------------------------------------------------------------------------

GfxSetOverlayMode( mode = 0 ); 
GfxSelectPen( colorOrange, 2 ); 
GfxSelectSolidBrush( colorBlack ); 
GfxRoundRect(5,20, 250,63, 16, 20 ); 
GfxSetBkMode(1); 
GfxSelectFont( "Arial",12, 700, False ); 
GfxSetTextColor( colorPaleGreen );
GfxSetTextAlign(0);

GfxSetTextColor( colorYellow );
GfxTextOut(WriteIf(SellPrice, "TREND REVERSAL: "+(SellPrice),""), 8 ,25 );

GfxSetTextColor( colorRed );
GfxTextOut( WriteIf(nw, " Trailing SL : "+WriteVal(nw,1),""), 8, 43);
GfxTextOut( WriteIf(Cover AND NOT Buy ," Trailing SL : "+WriteVal(nw,1 ),""),8, 43);
GfxSetTextColor( colorGold );
GfxTextOut( WriteIf(nw, " Trailing SL : "+WriteVal(nw,1),""), 8, 43);
GfxTextOut( WriteIf( Short AND NOT Sell," Trailing SL : "+WriteVal(nw,1 ),""),8, 43);

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,HAL,-40);

PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,HAH,-40);

//-----------------------------------------------------------------------------

fibs = ParamToggle("Plot Fibs","Off|On",1);
pctH = 0.325;//Param ("Pivot Hi %", 0.325,0.001,2.0,0.002);
HiLB = 1;//Param ("Up LookBack",1,1,BarCount-1,1);
pctL = 0.325;//Param ("Pivot Lo %", 0.325,0.001,2.0,0.002);
LoLB = 1;//Param ("Down LookBack",1,1,BarCount-1,1);
Back = 1;//Param ("Extend Left = 2",1,1,500,1);
Fwd = 0;//Param("Plot Forward", 0, 0, 500, 1);
text = ParamToggle("Plot Text","Off|On",1);
hts = -14;//Param ("Text Shift", -14,-50,50,0.10);
style = ParamStyle("Line Style",styleLine,styleNoLabel);
x =BarIndex(); 
pRp = PeakBars( H, pctH, 1) == 0;
yRp0 = LastValue(ValueWhen( pRp, H, HiLB));
xRp0 = LastValue(ValueWhen( pRp, x, HiLB));
pSp = TroughBars( L, pctL, 1) == 0;
ySp0 = LastValue(ValueWhen( pSp, L, LoLB));
xSp0 = LastValue(ValueWhen( pSp, x, LoLB));
Delta = yRp0 - ySp0;

function LFI(ret)
{
retval = (Delta * ret);
LFIVal = IIf(ret < 1.0 
AND xSp0 < xRp0, yRp0 - retval, IIf(ret < 1.0 
AND xSp0 > xRp0, ySp0 + retval,IIf(ret > 1.0 
AND xSp0 < xRp0, yRp0 - retval, IIf(ret > 1.0 
AND xSp0 > xRp0, ySp0 + retval, Null)))); 
return LFIVal;
}


xo=Min(xSp0,xRp0)-Back;
x1=BarCount-1;
//////////////////////////////////////////////////////////////////
r236 = LFI(0.236); r236I = LastValue (r236,1);
r382 = LFI(0.382); r382I = LastValue (r382,1);
r050 = LFI(0.50); r050I = LastValue (r050,1);
r618 = LFI(0.618); r618I = LastValue (r618,1);
r786 = LFI(0.786); r786I = LastValue (r786,1);
e127 = LFI(1.27); e127I = LastValue (e127,1);
e162 = LFI(1.62); e162I = LastValue (e162,1);
e200 = LFI(2.00); e200I = LastValue (e200,1);
e262 = LFI(2.62); e262I = LastValue (e262,1);
e424 = LFI(4.24); e424I = LastValue (e424,1);
//////////////////////////////////////////////////////////////////
p00 = IIf(xSp0 > xRp0,ySp0,yRp0); p00I = LastValue (p00,1);
p100 = IIf(xSp0 < xRp0,ySp0,yRp0); p100I = LastValue (p100,1);
color00 =IIf(xSp0 > xRp0,colorLime,colorRed);
color100 =IIf(xSp0 < xRp0,colorLime,colorRed);
//////////////////////////////////////////////////////////////////
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
//////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////
if(text==1) 
{ 
PlotText(" 0% = " + WriteVal(p00,1), LastValue(BarIndex())-(numbars/hts), p00I + 0.05, color00);
PlotText("23% = " + WriteVal(r236,1), LastValue(BarIndex())-(numbars/hts), r236I + 0.05, color00);
PlotText("38% = " + WriteVal(r382,1), LastValue(BarIndex())-(numbars/hts), r382I + 0.05, color00);
PlotText("50% = " + WriteVal(r050,1), LastValue(BarIndex())-(numbars/hts), r050I + 0.05, color00);
PlotText("62% = " + WriteVal(r618,1), LastValue(BarIndex())-(numbars/hts), r618I + 0.05, color00);
PlotText("78% = " + WriteVal(r786,1), LastValue(BarIndex())-(numbars/hts), r786I + 0.05, color00);
PlotText("100% = " + WriteVal(p100,1), LastValue(BarIndex())-(numbars/hts),p100I + 0.05, color00);
PlotText("127% = " + WriteVal(e127,1), LastValue(BarIndex())-(numbars/hts),e127I + 0.05, color00);
PlotText("162% = " + WriteVal(e162,1), LastValue(BarIndex())-(numbars/hts),e162I + 0.05, color00);
PlotText("200% = " + WriteVal(e200,1), LastValue(BarIndex())-(numbars/hts),e200I + 0.05, color00);
PlotText("262% = " + WriteVal(e262,1), LastValue(BarIndex())-(numbars/hts),e262I + 0.05, color00);
PlotText("424% = " + WriteVal(e424,1), LastValue(BarIndex())-(numbars/hts),e424I + 0.05, color00);
}


////////////////////////////////////////////////////////////////////////////

YH = TimeFrameGetPrice("H", inDaily, -1); // yesterdays high
YL = TimeFrameGetPrice("L", inDaily, -1); // low
YC = TimeFrameGetPrice("C", inDaily, -1); // close
YO = TimeFrameGetPrice("O", inDaily); // current day open

//Normal Pivot
PP = (YH + YL + YC) / 3;
R1 = (2 * PP) - YL;
R2 = PP + (YH - YL);
R3 = YH + 2*(PP-YL);
S1 = (2 * PP) - YH;
S2 = PP - (YH - YL);
S3 = YL - 2*(YH - PP) ;
// -----------------------------------------------------------------------------------
_SECTION_END();
*الفارس الفيصل* غير متواجد حالياً   رد مع اقتباس
قديم 15-05-2012, 08:13 PM   #26
abomahmood
عضو هوامير المميز
 
تاريخ التسجيل: Feb 2008
المشاركات: 5

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

يعطيكم العافيه
abomahmood غير متواجد حالياً   رد مع اقتباس
قديم 17-05-2012, 03:25 AM   #27
slimi
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2006
المشاركات: 6,075

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

الله يسلمك .. بس ياليت لو تحط شرح لك مؤشر .. ولا عليك امر
slimi غير متواجد حالياً   رد مع اقتباس
قديم 28-05-2012, 03:52 PM   #28
الله الموفق
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2009
المشاركات: 192

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

موضوعك جميل أخي الفاضل لكن تمنيت أن يكون مدعوم بأسم المؤشر وصورته

وشكرا
الله الموفق غير متواجد حالياً   رد مع اقتباس
قديم 28-05-2012, 10:24 PM   #29
ryof
عضو هوامير المميز
 
تاريخ التسجيل: Dec 2010
المشاركات: 623

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

اقتباس:
المشاركة الأصلية كتبت بواسطة الله الموفق مشاهدة المشاركة
موضوعك جميل أخي الفاضل لكن تمنيت أن يكون مدعوم بأسم المؤشر وصورته

وشكرا
ryof غير متواجد حالياً   رد مع اقتباس
قديم 06-03-2016, 02:03 AM   #30
THE LORD KSA
رئيس قسم التحليل الفني
خبير وصانع مؤشرات الايمي بروكر
 
تاريخ التسجيل: May 2005
المشاركات: 16,465

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

بارك الله فيك
 
التوقيع - THE LORD KSA

!@)(@!

THE LORD KSA غير متواجد حالياً   رد مع اقتباس
قديم 06-03-2016, 07:34 PM   #31
خبير مال
عضو هوامير المميز
 
تاريخ التسجيل: Oct 2011
المشاركات: 1,764

رد: تثبيت اسبوعي فقط مؤشرات AmiBroker جديده

بارك الله فيك
خبير مال غير متواجد حالياً   رد مع اقتباس
قديم 06-03-2016, 10:59 PM   #32
أسعار
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2005
المشاركات: 1,258

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

اقتباس:
المشاركة الأصلية كتبت بواسطة الله الموفق مشاهدة المشاركة
موضوعك جميل أخي الفاضل لكن تمنيت أن يكون مدعوم بأسم المؤشر وصورته

وشكرا
نعم ولاننسى شكرك
أسعار غير متواجد حالياً   رد مع اقتباس
قديم 10-03-2016, 01:39 PM   #33
THE LORD KSA
رئيس قسم التحليل الفني
خبير وصانع مؤشرات الايمي بروكر
 
تاريخ التسجيل: May 2005
المشاركات: 16,465

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

اقتباس:
المشاركة الأصلية كتبت بواسطة الله الموفق مشاهدة المشاركة
موضوعك جميل أخي الفاضل لكن تمنيت أن يكون مدعوم بأسم المؤشر وصورته

وشكرا

صدقني مؤشراتة من اقوى المؤشرات
 
التوقيع - THE LORD KSA

!@)(@!

THE LORD KSA غير متواجد حالياً   رد مع اقتباس
قديم 25-03-2016, 09:23 AM   #34
قرصان الصحراء
عضو هوامير المميز
 
تاريخ التسجيل: May 2012
المشاركات: 3,066

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

اقتباس:
المشاركة الأصلية كتبت بواسطة THE LORD KSA مشاهدة المشاركة
صدقني مؤشراتة من اقوى المؤشرات

صااااااااااااااادق

انت مميز في الايمي بروكر

بجربها ان شاء الله

واللي يصعب علينا نسالك عنه

قرصان الصحراء غير متواجد حالياً   رد مع اقتباس
قديم 05-02-2017, 09:49 AM   #35
غنيمة
عضو هوامير المميز
 
تاريخ التسجيل: Aug 2005
المشاركات: 1,694

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

بارك الله فيك
غنيمة متواجد حالياً   رد مع اقتباس
قديم 06-02-2017, 02:50 AM   #36
adel828
عضو هوامير المميز
 
تاريخ التسجيل: Sep 2014
المشاركات: 89

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

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



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

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

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

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




02:23 PM


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

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