Market Profile

 _SECTION_BEGIN("MarketProf ile+OR+FPSR bold_POC+IB");  _SECTION_BEGIN("MarketProfile+OR+FPSR !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   For#la Nae$ Market Profile   %&e 'it *i ,art

-e . Para("-e&it/"0 *0 1230 *110 123);  Re&ol#tio i ter& of 4 IBBar& . Para("Iitial Bala,e Bar&"0 30 10 0 *); EIB . Para("So' Iitial Bala,e"0 *0 10 *0 *); EMP . Para("So' Market Profile"0 *0 10 30 *); PlotO56C(O05060C0"Pri,e"0IIf(C7O0,olor89#a0,olorRed)0&t/leCadle:&t/leTi,k: &t/leNo6abel); Bar&I-a/ . Bar&Si,e(-a/() . Ref(-a/()0 !*)); Bot . TieFraeGetPri,e("6"0 i-ail/0 1); To< . TieFraeGetPri,e("5"0 i-ail/0 1); =ol . TieFraeGetPri,e("="0 i-ail/0 1); POC . 5 ! 5; =86 . 5 ! 5; =85 . 5 ! 5; C#rTo< . 55=(50Bar&I-a/+*); C#rbot . 66=(60Bar&I-a/+*); Ra>e . 5i>e&t(Toe . To< ! Bot; 8?eRa>e . S#(Toe . 8?eRa>eABarCo#t!*; if (68?eRa>e  *) D-e . 121; el&e if (68?eRa>e  *1) D-e . 123; el&e if (68?eRa>e  31) D-e . 12; el&e if (68?eRa>e  *11) D-e . *; el&e if (68?eRa>e  11) D-e . ; el&e D-e . *;  Iitialiatio ba&e . 1; ba&eH . floor(BotA1-e)-e; relToda/Ra>e . 1; fir&t=i&Bar . Stat#&("fir&t?i&iblebar"); la&t=i&Bar . Stat#&("la&t?i&iblebar"); -.2111*3; for (J.1; J . *11; J++) D KAJ . 1;  i1 . 1; i* . 1; for (i.1; iBarCo#t; i++) D if (Bar&I-a/Ai .. 1 8N- i  fir&t=i&Bar) D i1 . i; 

if (Bar&I-a/Ai .. 1 8N- i 7. la&t=i&Bar) D i* . i;   i* . BarCo#t!*; for (i.i1; i.i*; i++) D if (Bar&I-a/Ai .. 1) D ba&e . i; ba&eH . floor(BotAi-e)-e; aKH . floor(Toe . (aKH!ba&eH)-e; for (J.1; J . relToda/Ra>e; J++) D KAJ . 1;   if (EMP .. 3) D for (J.1; J. relToda/Ra>e; J++) D if (6Ai . ba&eH+J-e 8N- 5Ai 7. ba&eH+J-e) D PlotTeKt(StrEKtra,t("80B0C0-0E0F0G050I0L0060M0N"0 Bar&I-a/Ai)0 ba&e+KAJ0 ba&eH+J-e0 ,olorBla,k);   KAJ++;    el&e if (EMP .. *) D for (J.1; J. relToda/Ra>e; J++) D if (6Ai . ba&eH+J-e 8N- 5Ai 7. ba&eH+J-e) D lie . 6ie8rra/(ba&e0 ba&eH+J-e0 ba&e+KAJ+*0 ba&eH+J-e); Plot(lie0""0ParaColor("Color"0 ,olorC#&to*3)0 &t/le6ie+&t/le-ot&: &t/leNo6abel);   KAJ++;   

         

 -ra' Iitial Bala,e after **a bar i& ,o
           

6ie/ . 6ie8rra/(i!30 ,#rbotAi!*0i+*10 ,#rbotAi!*010Tr#e); 6ie*a.6ie*+d6ie*; 6ie*b.6ie*!d6ie*; Plot(6ie*0""0,olorBl#e0&t/le-ot&+&t/leTi,k:&t/leNo6abel); Plot(6ie*a0""0,olorBl#e0&t/le-ot&+&t/leTi,k:&t/leNo6abel); Plot(6ie*b0""0,olorBl#e0&t/le-ot&+&t/leTi,k:&t/leNo6abel); PlotO56C(6ieK06ieK06ie/06ie/0""0,olorBl#e0&t/leClo#d);   EKaie KAJ

         

if ((i  BarCo#t ! * 8N- Bar&I-a/Ai+* .. 1) OR i .. BarCo#t!*) D aKJ . 1; for (J.1; J. relToda/Ra>e; J++) D if (aKJ  KAJ) DaKJ . KAJ; aKJ . J;  for (k.i!Bar&I-a/Ai;k.i;k++) D POCAk . ba&eH+MaKJ-e;  6ie* . 6ie8rra/(ba&e0 ba&eH+aKJ-e0 i0 ba&eH+aKJ-e010Tr#e); 6ie*a.6ie*+d6ie*; 6ie*b.6ie*!d6ie*; Plot(6ie*0""0,olorite0&t/le-ot&+&t/leTi,k); Plot(6ie*a0""0,olorite0&t/le-ot&+&t/leTi,k:&t/leNo6abel); Plot(6ie*b0""0,olorite0&t/le-ot&+&t/leTi,k:&t/leNo6abel); 

 Plot(POC0"POC"0,olorite0&t/le-ot&);  _SECTION_EN-();  _SECTION_BEGIN("Pri,e"); SetCartO (2*f)"0C0Sele,ted=al#e( ROC( C0 * ) )); Title ."-5IR8L" +
breako#tie . *1111; afterbreako#t1 . Cro&&(TieN#()0*1111); afterbreako#t* . TieN#()7.*1111; Ne'-a/ . -a/(). Ref(-a/()0 !*); i>e&tofteda/ . 5i>e&tSi,e(e'da/050*); 6o'e&tofteda/ .6o'e&tSi,e(e'da/060*); ORB5i> . =al#ee(afterbreako#t10i>e&tofteda/0*); ORB6o' . =al#ee(afterbreako#t10lo'e&tofteda/0*); b#/,adidate .Cro&&(C0orblo') 8N- afterbreako#t*; &ell,adidate . Cro&&(orbi>0C) 8N- afterbreako#t* ; B#/Cod3 . Cro&&(C0 M8((6+C+5)@0Q)+121*);((MidM80 6o>M8); SellCod.Cro&&( M8((6+C+5)@0Q)+121*0C); B#/* . B#/Cod3; Sell* . SellCod ; etr/) 8N- afterbreako#t*; Sell . Cro&&(orblo'0C) 8N- afterbreako#t*; ,olor . IIf(B#/0,olorGree0IIf(Sell0,olorRed0IIf(b#/,adidate0,olorBl#e0IIf(&ell,adidate0,

olorPik01))));

Plot(C0""0,olorHello'0&t/leBar); PlotSara:&t/leO'S,ale); St/leOR.&t/leNo6ie:&t/le-ot&+&t/leTi,k:&t/leNo6abel; Plot(ORB5i>0"RESISTENCE"0,olorGree0St/leOR); Plot(ORB6o'0"S%PPORT"0,olorRed0St/leOR); PlotO56C(ORB5i>0ORB5i>0ORB6o'0ORB6o'0""0,olor-arkBl#e0&t/leClo#d); Filter . B#/ OR Sell OR &ell,adidate

OR b#/,adidate OR B#/* OR Sell*;

Filter . B#/ OR Sell OR &ell,adidate OR b#/,adidate; 8ddCol#(C0"CMP"010,olorBl#e); 8ddCol#(IIf(B#/ OR &ell,adidate0ORB5i>0ORB6o')0"INTR8 "010,olor-efa#lt0,olor); 8ddCol#(IIf(B#/*0etr/0 5i >0 6o >0 Clo&e > (2*f) DD=86%ES"0 O0 50 60 C0 Sele,ted=al#e( ROC( C0 * ) ) )); Plot( C0 "Clo&e"0 ParaColor("Color"0,olorT#r9#oi&e)0 &t/leNoTitle : &t/leBar : GetPri,eSt/le() );  _SECTION_EN-();  _SECTION_BEGIN("Market Profile"); Market Profile Gra<S>le("So' MP"0 "No:He&"); So'=P . ParaTo>>le("So' =P"0 "No:He&"); St/leMP . ParaSt/le("&t/le MP"0 &t/le6ie:&t/le-ot&0 a&k8ll); St/le=P . ParaSt/le("&t/le =P"0 &t/le6ie:&t/le-ot&0 a&k8ll); ........................... ........................... Bar&I-a/ .Bar&Si,e(-a/Ofeek()  Ref( -a/Ofeek()0 !* ))+*; ........................... Ne'-a/ . -a/Ofeek() 7 Ref( -a/Ofeek()0*) OR C#(*) .. BarCo#t; ........................... Bot . TieFraeGetPri,e("6"0 ieekl/0 1); To< . TieFraeGetPri,e("5"0 ieekl/0 1); =ol . TieFraeGetPri,e("="0 ieekl/0 1);

........................... Ra>e . 5i>e&t(Toe-e; =ol#e%it . =olBar&I-a/; for (k . 1; k  -e; k++)  loo< tro#> ea, lie ( at te 6o'e&t . IIf(Ne'-a/0 S#(dete,t0 Bar&I-a/)0 1); Co#tMPStri> . Ref(=al#ee(Ne'-a/0 Co#tMPStri>0 1)0 !*); M<6ie . IIf(Co#tMPStri> 7. Bar&I-a/0 6ie0 N#ll); Plot(MP6ie0 ""0 ,olorGree 0 &t/leMP);  if(So'=P .. Tr#e) D Co#t=PStri> . IIf(Ne'-a/0 S#(dete,t=0 Bar&I-a/)=ol#e%it0 1); Co#t=PStri> . Ref(=al#ee(Ne'-a/0 Co#t=PStri>0 1)0 !*); =<6ie . IIf(Co#t=PStri> 7. Bar&I-a/0 6ie + BoK0 N#ll);  Plot() Plot(=P6ie0 ""0 ,olorBl#e0 &t/le=P);   Title . "DDN8ME ! DDINTER=86 DD-8TE DD=86%ES ! ,1 Market Profile =ol#e Profile";  _SECTION_EN-();

,1

 _SECTION_BEGIN("Pri,e+FPSR+UG++Sto-i?+CCI+"); SetCartO0 5i >0 6o >0 Clo&e > (2*f) DD=86%ES"0 O0 50 60 C0 Sele,ted=al#e( ROC( C0 * ) ) )); Plot( C0 "Clo&e"0 ParaColor("Color"0 ,olorPik )0 &t/leNoTitle : &t/leBar );

 -P TOGG6E 

So'_Pre? . ParaTo>>le( "-i& -a/C.Pre?_Clo&e . TieFraeGetPri,e( "C"0 i-ail/0 !*0 eK . TieFraeGetPri,e( "5"0 i-ail/0 !*0 eK + Pre?_6o' + Pre?_Clo&e) @;

R R R R@ R3 R*

. . . . . .

(-a/5  -a/6)  -a/C  *2113; (-a/5  -a/6)  -a/C; (((-a/5  -a/6) + 12W@)  *2W@)  -a/C; ( ( (-a/5  -a/6) + 32)  @2)  -a/C; ( ( (-a/5  -a/6) + 2)  2)  -a/C; ( ( (-a/5  -a/6) + *1)  **)  -a/C;

S* . (3! ( ( (-a/5  -a/6) + *1)  **))  -a/C; S3 . (3!( (-a/5  -a/6) + 2)  2)  -a/C; S@ . (3!(( -a/5  -a/6) + 32)  @2)  -a/C; S . (3!( (-a/5  -a/6) + 12W@)  *2W@)  -a/C; S . (3!( -a/5  -a/6))  -a/C; S . (3!( -a/5  -a/6))  -a/C  12QQW;  FPSR @1 MT STR8TEGH  TieFraeSet( i-ail/ ); BS.(Pre?_5i>!Pre?_6o')@; H.Pre?_Clo&e+BS; .Pre?_Clo&e!BS;

M%6T.12111@;

HT.H+M%6TH; HB.H!M%6TH; T.+M%6T; B.!M%6T;

PlotO56C( 10 Pre?_5i> 0Pre?_6o' 0Pre?_6o'0 ""0 56Color0 &t/leClo#d: &t/leNo6abel); 56Color . ,olorPaleBl#e; if(So'_Pre?) DPlot(IIf(Toda/ .. -a/()0R0 N#ll)0 "R"0 ParaColor("R"0 ,olor6i>tBl#e)0&t/le-a&ed:&t/leTi,k:&t/leNoRe&,ale); Plot(IIf(Toda/ .. -a/()0R0 N#ll)0 "R"0 ParaColor("R"0,olor6i>tBl#e)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale); Plot(IIf(Toda/ .. -a/()0R@0 N#ll)0 "R@"0 ParaColor("R@"0,olor6i>tBl#e)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale); Plot(IIf(Toda/ .. -a/()0R30 N#ll)0 "R3"0 ParaColor("R3"0 ,olorBla,k)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale:&t/leNo6abel); Plot(IIf(Toda/ .. -a/()0R*0 N#ll)0 "R*"0 ParaColor("R*"0,olorBla,k)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale:&t/leNo6abel); Plot(IIf(Toda/ .. -a/()0P0 N#ll)0 "P"0 ParaColor("P"0,olorHello')0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale); Plot(IIf(Toda/ .. -a/()0S*0 N#ll)0 "S*"0 ParaColor("S*"0 ,olorBla,k)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale:&t/leNo6abel); Plot(IIf(Toda/ .. -a/()0S30 N#ll)0 "S3"0 ParaColor("S3"0,olorBla,k)0&t/le-ot&: &t/leTi,k:&t/leNoRe&,ale:&t/leNo6abel); Plot(IIf(Toda/ .. -a/()0S@0 N#ll)0 "S@"0 ParaColor("S@"0,olorBri>tGree)0&t/le-ot&:&t/leTi,k:&t/leNoRe&,ale); Plot(IIf(Toda/ .. -a/()0S0 N#ll)0 "S"0 ParaColor("S"0 ,olorBri>tGree)0&t/le-ot&:&t/leTi,k:&t/leNoRe&,ale );

Plot(IIf(Toda/ .. -a/()0S0 N#ll)0 "S"0 ParaColor("S"0 ,olorBri>tGree)0&t/le-a&ed:&t/leTi,k:&t/leNoRe&,ale);

Plot(IIf(Toda/ .. -a/()0 Pre?_5i>0 N#ll)0 "Pre?_5i>"0 ParaColor(" Pre?_5i>"0 56Color)0&t/le-a&ed:&t/leTi,k:&t/leNoRe&,ale ); Plot(IIf(Toda/ .. -a/()0 Pre?_6o'0 N#ll)0 "Pre?_6o'"0 ParaColor(" Pre?_6o'"0 56Color)0&t/le-a&ed:&t/leTi,k:&t/leNoRe&,ale ); 

 -8H 5I6O S58-O 

BSColor . ColorRGB(W10W10W1); 56Color . ColorRGB(3103101); PlotO56C( 10 Pre?_5i> 0Pre?_6o' 0Pre?_6o'0 ""0 56Color0 &t/leClo#d: &t/leNo6abel);    -O%B6E TOP 

 -ete,ti> do#ble to<&  ; K . C#( * ); P* . =al#ee( P0 K0 * ); P3 . =al#ee( P0 K0 3 );  7 55=( Ref( 50 f'd,e,k )0 f'd,e,k ! * ); Sell-T . do#bleto<; B#/ . 1; Filter.Sell-T; riteIf( 5i>e&t( do#bleto< ) .. *0 "8iBroker a& dete,ted &oe ree arro'& o te
PlotSale0,olorPik0 10 5i>0 Off&et .!3); PlotSait10,olorPik0 10 5i>0 Off&et .1); PlotSait10,olorPik0 10 5i>0 Off&et .1);

_SECTION_BEGIN("=ol#e 8t Pri,e"); Plot=8PO?erla/( Para("6ie&"0 @110 *110 *1110 * )0 Para("idt"0 0 *0 *110 * )0

ParaColor("Color"0 ,olor6i>tBl#e )0 ParaTo>>le("Side"0 "6eft:Ri>t" ) : ParaTo>>le("U!order"0 "O to<:Beid"0 * ) );  _SECTION_EN-();  _SECTION_BEGIN("=O6%ME_5i>t of =ol#e Bar& Cotrol");

Plot=O6 . ParaTo>>le( "t (TieBar ,art)(fra,tio of 'ido') .*.31"0*10 30 *110 *21) ;  Tiebar& if (Plot=O6 71) D =ei>t . =olS,ale; Plot(Pre,(=ol#e 01)0"="0=olColor0 &t/leNoTitle: &t/leO'S,ale: &t/leTi,k: ParaSt/le( "=St/le"0 &t/le5i&to>ra0a&k5i&to>ra) 0=ei>t );   _SECTION_EN-();  _SECTION_BEGIN("-i&0 5i >0 6o >0 Clo&e > (2*f) DD=86%ES"0 O0 50 60 C0 Sele,ted=al#e( ROC( C0 * ) ) )); Plot( C0 "Clo&e"0 ParaColor("Color"0 N#ll )0 &t/leNoTitle : &t/leCadle ); P . ParaField("Field"); T/ted"); Period& . Para("Period&"0 @10 30 @11 ); -i&
K. Ref(80!); /. Ref(B0!); -.2111@; Kt.K+K-; Kb.K!K-; /t./+/-; /b./!/-;

PlotO56C( 10Kt0Kb0Kb 0""0ColorRGB(Y10*10*1)0 &t/leClo#d); PlotO56C( 10/t0/b0/b 0""0ColorRGB(*10Y10*1)0 &t/leClo#d);  _SECTION_EN-();