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

STRUT for Amibroker (AFL)

Rating:
3 / 5 (Votes 2)
Tags:
oscillator, amibroker, exploration

/* STRUT.afl - Don Carlson 3/7/2007

Money can generally be made when the STRUT (blue line) is moving up.

Also, use the STRUT oscillator to determine Market Risk of RUT
The orginial parameters are from the RUTTR afl, designed to trade one or two times a year….the table below identifes Mkt Risk when used with ^RUT

X-OverBought..18…2 Std Dev ) When STRUT reaches 12.3 Start Selling
Over Bought….9…1 Std Dev )
Avg Mkt……..0…?.?<<— Current STRUT
Over Sold…..-9..-1 Std Dev ) When STRUT reaches -13.2 Start Buying X-OverSold…-18…-2 Std Dev )

Similar Indicators / Formulas

Jasons Indicator Convergence Divergence (JICD)
Submitted by kaiji over 10 years ago
rsi<30 and sort
Submitted by ali32b about 6 years ago
MACD Divergences 2
Submitted by filinta over 9 years ago
CumRSI
Submitted by Xswingtrader almost 10 years ago
Cross Prediction
Submitted by mauro24 almost 10 years ago
Awesome Oscillator (AO)
Submitted by zaroldo almost 10 years ago

Indicator / Formula

Copy & Paste Friendly
/*  STRUT.afl  ---  Don Carlson 3/7/2007

Money can generally be made when the STRUT (blue line) is moving up.

Also, use the STRUT oscillator to determine Market Risk of RUT					
 X-OverBought..18....2 Std Dev	)  When STRUT reaches 12.3	Start Selling 	
 Over Bought....9....1 Std Dev	)		
 Avg Mkt........0	....?.?<<-- Current STRUT	
 Over Sold.....-9...-1 Std Dev )	When STRUT reaches -13.2  Start Buying	
 X-OverSold...-18...-2 Std Dev	)		

	
*/

SetBarsRequired(100000, 100000);
symb	= ParamStr("Symbol", "") ;
if (symb != "")	SetForeign(symb);

SetChartBkColor(ParamColor("Outer panel color ",colorLightGrey)); // color of outer border 
SetChartBkGradientFill( ParamColor("Inner panel color upper half", colorLightGrey),ParamColor("Inner panel color lower half",  colorPaleBlue)); // color of inner panel
SetChartOptions(0, chartShowDates, chartGridMiddle);

//SetForeign("^RUT");

stoPer 		= 53;
stoSmooth 		= 49;
trigger 		= 28;

Low1			= LLV(C,stoPer);
High1			= HHV(C,stoPer);
DStoc			= (EMA(100*(Close - Low1)/(High1 - Low1),stoSmooth));
SignalLine 	=  EMA(DStoc, trigger);
histogram 	=  Dstoc - SignalLine ;

Buy = Histogram > 0.0;
Sell = Histogram < 0.0;
Buy = ExRem(Buy, Sell);
Sell = ExRem(Sell, Buy);
PlotShapes(Buy*shapeUpArrow+Sell*shapeDownArrow, IIf(Buy, colorBrightGreen, colorRed), 0, Histogram, -15);
Plot(DStoc - 50, 		"      DSTOCH - 50", 	colorBlue, styleNoLabel);
Plot(SignalLine-50, 	"      SIGNAL - 50", 	colorRed, 	styleNoLabel);

if(SelectedValue(DStoc-50.0 > 0.0))
Plot(Histogram ,		"      HISTO", 		colorTurquoise, 	styleNoLabel|styleHistogram);
else
{
Plot(Histogram ,		"      HISTO", 		colorPink, 	styleNoLabel|styleHistogram);
}

if(SelectedValue(Histogram > 0.0))
Title = EncodeColor(colorBlue)+ Name() + " - " + Date() + 
":   O: "+WriteVal(O, 1.2) + "   H: "+WriteVal(H, 1.2) + "   L: "+WriteVal(L, 1.2)  + "   C: "+WriteVal(C, 1.2) + 
"\n    General Mkt Signal --- Ruttr --- Stochastic - 53, 49, 28      "+
"\n    Money can generally be made when the STRUT (blue line) is moving up."+
			"\n    "+EncodeColor(colorBlue)+"DSTOCH = "+WriteVal(DStoc,1.2)+
			"    "+EncodeColor(colorRed)+"SIGNAL  = "+WriteVal(SignalLine,1.2)+
			"    "+EncodeColor(colorBlue)+"HISTOGRAM = "+ WriteVal(Histogram,1.2)+"      ";
else
{
Title = EncodeColor(colorRed) + Name() + " - " + Date() + 
":   O: "+WriteVal(O, 1.2) + "   H: "+WriteVal(H, 1.2) + "   L: "+WriteVal(L, 1.2)  + "   C: "+WriteVal(C, 1.2) + 
"\n    General Mkt Signal --- Ruttr --- Stochastic - 53, 49, 28      "+
"\n    Money can generally be made when the STRUT (blue line) is moving up."+
			"\n    "+EncodeColor(colorBlue)+"DSTOCH = "+WriteVal(DStoc,1.2)+
			"    "+EncodeColor(colorRed)+"SIGNAL  = "+WriteVal(SignalLine,1.2)+
			"    "+EncodeColor(colorRed)+"HISTOGRAM = "+ WriteVal(Histogram,1.2)+"      ";
}



GraphXSpace = 5;

Filter = 1;

AddColumn(Close,"Close");
AddColumn(Histogram,"Histo");

2 comments

1. sukas

Should aware of this AFL not right tools for good businessman!!!!!!!!!!!!
Rgds,
Sukas

2. sam21

Signal are generated are late.

Leave Comment

Please login here to leave a comment.

Back