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

bharathy1111 for Amibroker (AFL)

Copy & Paste Friendly
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
p=Param("Period",30,5,100,5);
period=Optimize("Period",p,5,100,5);
Hi=HHV(H,period);
Lo=LLV(L,period);
fib=Hi-Lo;
fib382=(fib*0.382)+Lo;
fib618=Hi-(fib*0.382);
fib236=(fib*0.236);
Hf236=Hi-fib236;
Lf236=fib236+Lo;

Plot(Lf236,"fib",colorYellow);
Plot(Hf236,"fib",colorViolet);
Plot(Hi,"Band",colorBlue);
Plot(Lo,"Band",colorBlue);
Plot(fib382,"fib",colorRed);
Plot(fib618,"fib",colorWhite);

parabuy= C>SAR();
parasell=C<SAR();


Buy=Cross(C,Lf236) AND C>O AND parabuy;
Sell=Cross(Hf236,C) AND O>C AND parasell;

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

PlotShapes(Buy*shapeUpArrow,colorGreen,0,L);
PlotShapes(Sell*shapeDownArrow,colorRed,0,H);

dist=3*ATR(10);
for(i=0;i<BarCount;i++)
{
	if(Buy[i]) PlotText(""+Lf236[i],i,L[i]-dist[i],colorWhite,colorBlack);
	if(Sell[i]) PlotText(""+Hf236[i],i,H[i]+dist[i],colorWhite,colorBlack);
}

//PM Ananth Exploration code
bp=(abs(C)+abs(H))/2;

target1=abs(H)+(H*0.045);
target2=abs(H)+(H*0.09);
stoploss=abs(H)-(H*0.021);
Selltgt1=C-(C*0.03);
Selltgt2=C-(C*0.05);
Sellstop=C+(C*0.014);


Filter= (Buy OR Sell)  ;
AddTextColumn(WriteIf(Buy,"Buy","Buy"), "Trade", 1.0, 
                      colorYellow,
                      IIf(Buy, colorGreen,colorRed),  50);
AddColumn((abs(H)*0.005)+abs(H),"BA/SB",1);
AddColumn(IIf(Buy,target1,IIf(Sell,Selltgt1,0)),"Tgt 1",1);
AddColumn(IIf(Buy,target2,IIf(Sell,Selltgt2,0)),"Tgt 2",1);
AddColumn(IIf(Buy,stoploss,IIf(Sell,Sellstop,0)),"SL",1);
AddColumn(V,"Volumn",1);

//Exploration code is completed



_SECTION_END();
"No Name Trading System";
//Listing - 1. Trigger Line and Close Line.
/*__________________________________________________________________________________________________________________________________________
Credits -
1.   No Name Trading System development for MT4 by Pip.
2.   Trigger Lines & Close Line coded for MT4 by adoleh2000.
3.   System transcoded for amibroker by rmike as per the original system developer's instructions.
4.   Intellectual Copyright - Pip. 
____________________________________________________________________________________________________________________________________________
Usage - Listing 1 Trading Template for the system. To be used in conjunction with Listing - 2 as per
the system rules by the system developer (enclosed separately in the folder). The performance results
of this system for live trades are available online - http://www.mt4i.com/users/pip

Disclaimer - This AFL is for demonstration and educational purposes only as per the ideas presented by the
system developer. The author neither makes any claims as to the efficacy of this template in live trading nor
wishes to incite/ induce anyone to engage in live trading. If you use this AFL for live trading you are hereby
forewarned that it will be entirely at your own discretion and risk and the system developer and author can
in no way be held responsible for your decision.

Warning - No one has the right to modify the code in any way or share this AFL without reference to and
acknowledment of original authors. No one has the right to re-package and/ or commercialize/ market this strategy.
__________________________________________________________________________________________________________________________________________*/

_SECTION_BEGIN("Trend Lines");
p1 = Param("TL 1 Periods", 20, 5, 50, 1);
p2 = Param("TL 2 Periods", 5, 3, 25, 1);
TL1 = LinearReg(C, p1);
TL2 = EMA(TL1, p2);
Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorGreen), ParamColor("TL Dn Colour", colorRed));
Plot(TL1, "TriggerLine 1", Col1, styleLine|styleThick|styleNoLabel);
Plot(TL2, "TriggerLine 2", Col1, styleLine|styleThick|styleNoLabel);
_SECTION_END();

_SECTION_BEGIN("Close Line");
Col2 = IIf((C > TL1), ParamColor("CL Up Colour", colorBlue), ParamColor("CL Dn Colour", colorRed));
PlotShapes(shapeSmallCircle, Col2, 0, C, 0);
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | styleBar); 
_SECTION_END();
;
Back