Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Top finder for Amibroker (AFL)

Rating:
3 / 5 (Votes 4)
Tags:
amibroker, pattern

Midas Topfinder—— as detailed by Paul Levin

Similar Indicators / Formulas

Wolf Wave AFL
Submitted by shekhar373 over 12 years ago
Head & Shoulders Pattern
Submitted by anandnst over 12 years ago
Volume Trade with Candle reader
Submitted by Divyesh almost 11 years ago
Modified Head & Shoulder Pattern
Submitted by huynhbao2 almost 13 years ago
Cup Formation
Submitted by vargasc1 about 13 years ago
Andrews Pitchfork v3.3
Submitted by kaiji about 14 years ago

Indicator / Formula

Copy & Paste Friendly
SetBarsRequired(sbrAll);

sd = ParamDate("Input Date","2012-02-14",0); 
st=ParamTime("input time","1:44",0);
dn = DateNum(); 
tn=TimeNum();
 
start = dn == sd AND tn==st; 


 
mp =  ParamField("Price field",-1);
 
PV1= Cum(mp * V); 
CV1= Cum( V ); 

D=Param("D",6120000000,50000,9000000000000);

PV=PV1-ValueWhen(sd==dn AND tn==st,PV1,1);
CV=CV1-ValueWhen(sd==dn AND tn==st,CV1,1);

E=CV*(1-CV/D);

ET=CV-E;


startloop=EndValue(ValueWhen(sd==dn AND tn==st,BarIndex(),1));
endloop=EndValue(IIf(CV>D,ValueWhen(CV<D,BarIndex(),1),BarCount));

barint=0;

TBF=mp;

for (j=startloop+1;j<endloop;j++)
	{
				k=0;
				i=startloop+1;
		while (ET[j]>0 AND k==0)
					{
				
				if (CV[i]>ET[j])
							{
							k=1;
							
							}
					i=i+1;
					}

		if (k==1)
					{
					barint[j]=i-1;
					}

		Volint[j]=CV[barint[j]]-ET[j];
		Mpint[j]=Low[barint[j]]*Volint[j];

		CVint[j]=CV[j]-CV[barint[j]]+Volint[j];
		PVint[j]=PV[j]-PV[barint[j]]+Mpint[j];
		TBF[0]=Low[0];
		TBF[j]=PVint[j]/CVInt[j];
		


			
		}

TBF1=IIf(BarsSince(start),TBF,Null);

PCT=100*CV/D;



tbf2=IIf(BarIndex()<endloop,TBF1,Null);
	
		

		





Plot(TBF2,"PCT="+WriteVal(PCT,1.0)+"TBF",ParamColor( "Color", colorCycle ), ParamStyle("Style") );
	
		

		


6 comments

1. hmsanil

hi,

Nothing displayed on screen.

Tell us how to use it

Thanks

2. dineshpal

It does not give any error but also does not display anything on screen. Can someone please post Picture of this AFL.

3. sajid

what is the use ,, i dont understand

4. wildeazoscar

Get a copy of the basic work of Paul Levin MIDAS system to understand. This is a professional tool and not to be understood in one line.

5. fansami

Nothing displayed on screen.

Tell us how to use it

Thanks

6. ecredic

Nice job wildeazoscar, works perfect!

Leave Comment

Please login here to leave a comment.

Back