معادلة هدية لأعضاء المنتدى لمستخدمي الإيمي بروكر + صور للمؤشر من جهازي

المشاركة الأصلية كتبت بواسطة abokahlid

المشاركة الأصلية كتبت بواسطة سعد العبدالعزيز

اشكرك على المعلومه ماقصرت اخوي ربي يوفقكم

المشاركة الأصلية كتبت بواسطة amiralshoq

//////////////////////////////////////
//hammor
adjbar = param( "bar", 0, 0, barcount, 1 );
adjz = param( "zig", 1, 0, 20, .1 );
//select current tickers ohlc
co = ref( o, -adjbar );
ch = ref( h, -adjbar );
cl = ref( l, -adjbar );
cc = ref( c, -adjbar );
//select foriegn ohlc
"ticker "
+ tn = name() ; // show ticker
"index "
+ bi = getbaseindex(); //bi = baseindex string
fo = ref( foreign( bi, "o" ), -adjbar );
fh = ref( foreign( bi, "h" ), -adjbar );
fl = ref( foreign( bi, "l" ), -adjbar );
fc = ref( foreign( bi, "c" ), -adjbar );
//create trend
zac = zig( cc, adjz );
utrend = zac > ref( zac, -1 );
dtrend = zac < ref( zac, -1 );
//do cross (create result arrays)
t1 = oscp( 3, 6 );
cond1a = cross ( t1, macd() );
cond1b = macd() > -1 and macd() < 0;
cond1 = cond1a and cond1b;
cond2 = macd() > signal() - .5;
cond3 = cross( 0, t1 );
// select conditions to display.
C1 = ref( cond1, -adjbar );
c2 = ref( cond2, -adjbar );
c3 = ref( cond3, -adjbar );
zcolor = iif( utrend, colorbrightgreen, colorred );
//show buy/sell arrows.
Buyf = utrend;
sellf = dtrend;
buyf = exrem( buyf, sellf );
sellf = exrem( sellf, buyf );
plotshapes( shapecircle* sellf, colorred, 0, h, 13 );
plotshapes( shapecircle * buyf, colorbrightgreen, 0, l, -9 );
plotshapes( shapeuparrow* sellf, colorred, 0, h, 9 );
plotshapes( shapeuparrow * buyf, colorbrightgreen , 0, l, -13 );
zcolor = iif( buyf, coloryellow, iif( sellf, coloryellow, zcolor ) );
plot( 3, "", zcolor , styleownscale | stylearea | stylenolabel, 0, 175 );
graphxspace = 1;
maxgraph = 13;
period = param( "mm_period", 14, 4, 256, 1 ) ;
graph1color = 6;
graph2color = 7;
graph3color = 4;
graph4color = 7;
graph5color = 6;
graph6color = 7;
graph7color = 4;
graph8color = 5;
graph9color = 6;
graph10color = 4;
graph11color = 4;
graph12color = 5;

graph1style = styleline | stylenolabel;
graph2style = styleline | stylenolabel;
graph3style = styleline| stylenolabel;
graph4style = styleline | stylenolabel;
graph5style = styleline | stylenolabel;
graph6style = styleline | stylenolabel;
graph7style = styleline | stylenolabel;
graph8style = styleline | stylenolabel;
graph9style = styleline | stylenolabel;
graph10style = styleline | stylenolabel;
graph11style = styleline | stylenolabel;
graph12style = styleline | stylenolabel;

per = period;
barnr = lastvalue( cum( 1 ) ) ;
timeframe = barnr - per ;
tf = timeframe ;
lo = lastvalue( valuewhen( cross( cum( 1 ), tf ), llv( min( h, l ), per ), 1 ) ) ;
hi = lastvalue( valuewhen( cross( cum( 1 ), tf ), hhv( max( h, l ), per ), 1 ) ) ;
lo = lastvalue( llv( min( h, l ), per ), 1 ) ;
hi = lastvalue( hhv( max( h, l ), per ), 1 ) ;
fractal = iif( hi <= 250, 100, iif( hi <= 2500, 1000, iif( hi <= 25000, 10000, iif( hi <= 250000, 100000, 0 ) ) ) ) ;
int_log = int( log( fractal / ( hi - lo ) ) / log( 2 ) ) ;
oct = fractal * ( exp( ln( 1 / 2 ) * int_log ) ) ;

min_1 = int( lo / oct ) * oct ;
max_1 = iif( ( min_1 + oct ) > hi, min_1 + oct, min_1 + 2 * oct ) ;
min_2 = iif( ( min_1 + 1 / 8 * ( max_1 - min_1 ) ) <= lo and hi <= ( max_1 - 1 / 8 * ( max_1 - min_1 ) ) ,
( min_1 + 1 / 4 * ( max_1 - min_1 ) ) , min_1 ) ;
max_2 = iif( ( min_1 + 1 / 8 * ( max_1 - min_1 ) ) <= lo and hi <= ( max_1 - 1 / 8 * ( max_1 - min_1 ) ) ,
( max_1 - 1 / 4 * ( max_1 - min_1 ) ) , max_1 ) ;
/******************************/
diff = max_2 - min_2 ;
h1 = iif( ( min_2 + 3 / 16 * diff ) <= lo and hi <= ( 9 / 16 * diff + min_2 ) ,
min_2 + 1 / 2 * diff, 0 ) ;
h2 = iif( ( min_2 - 1 / 8 * diff ) <= lo and hi <= ( 5 / 8 * diff + min_2 ) and h1 == 0,
min_2 + 1 / 2 * diff, 0 ) ;
h3 = iif( ( min_2 + 7 / 16 * diff ) <= lo and hi <= ( min_2 + 13 / 16 * diff ), min_2 + 3 / 4 * diff, 0 ) ;
h4 = iif( ( min_2 + 3 / 8 * diff ) <= lo and hi <= ( min_2 + 9 / 8 * diff ) and h3 == 0,
max_2, 0 ) ;
h5 = iif( ( min_2 + 1 / 8 * diff ) <= lo and hi <= ( min_2 + 7 / 8 * diff ) and h1 == 0 and h2 == 0 and h3 == 0 and h4 == 0,
min_2 + 3 / 4 * diff , 0 ) ;
h6 = iif( ( h1 + h2 + h3 + h4 + h5 ) == 0, max_2, 0 ) ;
/**************************/
l1 = iif( h1 > 0, min_2 + 1 / 4 * diff, 0 ) ;
l2 = iif( h2 > 0, min_2, 0 ) ;
l3 = iif( h3 > 0, min_2 + 1 / 2 * diff, 0 ) ;
l4 = iif( h4 > 0, min_2 + 1 / 2 * diff, 0 ) ;
l5 = iif( h5 > 0, min_2 + 1 / 4 * diff, 0 ) ;
l6 = iif( h6 > 0, min_2, 0 ) ;

m_8 = ( h1 + h2 + h3 + h4 + h5 + h6 ) ;
m_0 = ( l1 + l2 + l3 + l4 + l5 + l6 ) ;
/**************************************/
graph1 = valuewhen( cum( 1 ) >= tf, m_0 );
graph2 = valuewhen( cum( 1 ) >= tf, m_0 + ( 1 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph3 = valuewhen( cum( 1 ) >= tf, m_0 + ( 2 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph4 = valuewhen( cum( 1 ) >= tf, m_0 + ( 3 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph5 = valuewhen( cum( 1 ) >= tf, m_0 + ( 4 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph6 = valuewhen( cum( 1 ) >= tf, m_0 + ( 5 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph7 = valuewhen( cum( 1 ) >= tf, m_0 + ( 6 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph8 = valuewhen( cum( 1 ) >= tf, m_0 + ( 7 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph9 = valuewhen( cum( 1 ) >= tf, m_8 ) ;
graph10 = valuewhen( cum( 1 ) >= tf, m_8 + ( 1* ( 0.125 * ( m_8 - m_0 ) ) ) );
graph11 = valuewhen( cum( 1 ) >= tf, m_0 - ( 2 * ( 0.125 * ( m_8 - m_0 ) ) ) );
graph12 = valuewhen( cum( 1 ) >= tf, m_8 + ( 3 * ( 0.125 * ( m_8 - m_0 ) ) ) );

//

/************************************************** ************/
title = name();
numbars = selectedvalue( cum( status( "barvisible" ) ) );
fraction = iif( strright( name(), 3 ) == "", 3.2, 3.2 );
hts = param ( "text shift", -50, -100, 100, 10 );

plottext( "" + writeval( graph1, fraction ),
lastvalue( barindex()+1 ) - ( numbars / hts ), selectedvalue( graph1 ), colorwhite, colorblue );
plottext( "" + writeval( graph2, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph2 ), colorblack, coloryellow );
plottext( "" + writeval( graph3, fraction ),
lastvalue( barindex() +1) - ( numbars / hts ), selectedvalue( graph3 ), colorblack, colorred );
plottext( "" + writeval( graph4, fraction ),
lastvalue( barindex()+1 ) - ( numbars / hts ), selectedvalue( graph4 ), colorblack, coloryellow );
plottext( "" + writeval( graph5, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph5 ), colorwhite, colorblue );
plottext( "" + writeval( graph6, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph6 ), colorblack, coloryellow );
plottext( "" + writeval( graph7, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph7 ), colorblack, colorred );
plottext( "" + writeval( graph8, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph8 ), colorblack, colorbrightgreen );
plottext( "" + writeval( graph9, fraction ),
lastvalue( barindex() +1) - ( numbars / hts ), selectedvalue( graph9 ), colorwhite, colorblue );
plottext( "" + writeval( graph10, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph10 ), colorblack, colorred );
plottext( "" + writeval( graph11, fraction ),
lastvalue( barindex() +1 ) - ( numbars / hts ), selectedvalue( graph11 ), colorblack, colorred );
plottext( "" + writeval( graph12, fraction ),
lastvalue( barindex()+1 ) - ( numbars / hts ), selectedvalue( graph12 ), colorblack, colorbrightgreen );
title = "hammor" + " " + interval(2) + encodecolor() + " - " + date() +" - ";
_section_end();

_section_begin("companyclos");
{ gfxselectfont("french script mt",16, 800 );
gfxsetbkmode(1);
gfxsettextcolor(colorbrightgreen);
gfxtextout("c="+c+" ",650,1);
}
_section_end();
_section_begin("companyhigh");
{ gfxselectfont("french script mt",16, 800 );
gfxsetbkmode(1);
gfxsettextcolor(colorcustom12);
gfxtextout("h="+h+" ",450,1);
}
_section_end();
_section_begin("companyopen");
{ gfxselectfont("french script mt",16, 800 );
gfxsetbkmode(1);
gfxsettextcolor(colorwhite);
gfxtextout("o="+o+" ",350,1);
}
_section_end();
_section_begin("companylow");
{ gfxselectfont("french script mt",16, 800 );
gfxsetbkmode(1);
gfxsettextcolor(coloryellow);
gfxtextout("l="+l+" ",550,1);
}
_section_end();
_section_begin("name");
gfxsetoverlaymode(1);
pxh= status("pxheight"); pxw=status("pxwidth");
gfxselectfont("tahoma",pxh/30);
gfxsettextcolor(colorcustom12);
gfxsettextalign(6); gfxsetbkmode(0);
gfxtextout(fullname(),pxw/2.1,pxh/6);
gfxselectfont("tahoma",pxh/15);
gfxtextout("",pxw/2,pxh/3);
_section_end();

_section_begin("companysympole");
{ gfxselectfont("croobie",15,800 );
gfxsetbkmode(1);
gfxsettextcolor(colorcustom12);
gfxtextout( name(),550,65);
}
/////////////////////////////////





_section_begin("magnified price");
fs=param("font size",15,11,100,1);
gfxselectfont("arial", fs, 700, true );
gfxsetbkmode( colorblue );
gfxsettextcolor( paramcolor("color",colorcustom12) );
hor=param("horizontal position",300,2,100,2);
ver=param("vertical position",30,1,1,1);
gfxtextout("c="+c,hor , ver+5 );
yc=timeframegetprice("c",indaily,-1);
dd=prec(c-yc,2);
xx=prec((dd/yc)*100,2);
gfxselectfont("arial", 12, 700, true );
gfxsetbkmode( coloryellow );
gfxsettextcolor(paramcolor("color",colorblue) );
gfxtextout(""+dd+" ("+xx+"%)", hor , ver+25 );

_section_end();

المشاركة الأصلية كتبت بواسطة abokahlid