need two afl

helo friends

This my 1 st request.i need 2 afl time segmented volume and balance on power bop histogarm afl.plzzzzzzzzzzzzzzzz.thanks in advance

100+view no response?? i think may be i am failed to express that what i want here few futage

Uploaded with ImageShack.us

Balance of Power

// Balance of Power

//----- This prevents a bad data point from generating a divide by zero.
THL = IIf(H != L, H - L, 0.01);

//----- Reward based on Open
BullOpen = (H - O)/THL;
BearOpen = (O - L)/THL;

//----- Reward based on Close
BullClose = (C - L)/THL;
BearClose = (H - C)/THL;

//----- Reward based on Open - Close
BullOC =IIf(C > O, (C - O)/THL, 0);
BearOC =IIf(O > C, (O - C)/THL, 0);
BullReward = (BullOpen + BullClose + BullOC)/3;
BearReward = (BearOpen + BearClose + BearOC)/3;

BOP = BullReward - BearReward;

Period1 = 34;
SmoothBOP = EMA(BOP, Period1);

Period2 = 34;
SmootherBOP = TEMA(SmoothBOP, Period2);

//Plot(BOP, "BOP", colorBlack, 1);
Plot(SmoothBOP, "BOP " + Period1, colorLightBlue, 1);
Plot(SmootherBOP, "", colorRed);
Plot(Ref(SmootherBOP, -2), "", colorBlue);
Plot(0.1, "", colorGreen);
Plot(0, "", colorBlack);
Plot(-0.1, "", colorGreen);

hi manish

thanks for response but it is not real BOP wich i am searching .if any bro interested and and make it to use in amibroker it will be great.let me try to give some light.
this BOP afl/indicator represent institutional buying and selling.if above zero bullish below zero bearish and neutral yellow

it is origenaly Tc2000 system by worden bros and in is costly product.

adding image if you need i will give more

Uploaded with ImageShack.us

Any interested senior coder plz come forward to make an afl for which is showing institutional buying and selling.i giving links where discus about BOP

http://www.linnsoft.com/tour/techind/bop.htm

no one is interested ????111

_SECTION_BEGIN("TSV");
// Time segment volume


//TSV=(SUM( IIf( C > Ref(C,-1), V * ( C-Ref(C,-1) ),
//IIf( C < Ref(C,-1),V * ( C-Ref(C,-1) ), 0 ) ) ,18));


TSV=(EMA( IIf( C > Ref(C,-1), V * ( C-Ref(C,-1) ),
IIf( C < Ref(C,-1),V * ( C-Ref(C,-1) ), 0 ) ) ,18));

SIG = EMA(TSV,5);

mycolor=IIf(TSV>SIG AND TSV>0,colorBlue,
IIf(TSV<SIG AND TSV>0,colorSkyblue,
IIf(TSV>SIG AND TSV<0,colorPink,
IIf(TSV<SIG AND TSV<0,colorRed,31))));

Plot(TSV, "TSV", mycolor, styleHistogram | styleThick| styleNoLabel, styleOwnScale);

Plot(SIG ,"",colorRed,styleLine|styleThick);

Plot(6, "Ribbon", mycolor, styleOwnScale| styleArea|styleNoLabel,-0.5,100);
_SECTION_END();