Kod till ValueChart
Lägger in lite kod till ValueChart(amibroker)indis som jag knappat om från ig0r4eva:s version i wealth-lab,, hans/hennes förklaring " My take of the Value Charts system presented in an interview at TradeStationWorld.com. Pretty much it's a different look at price action, as distance from an SMA, using bollingers to give oversold/overbought thresholds. ".
På bilden är ma satt till 8(orginal är 3) men det är bara att fippla å testa olika settings..
Passar på att göra lite reklam för en grupp jag startade nyss, Scriptbanken blev det fräsiga namnet, syftet är att ha ett ställe där man kan dumpa av script som man vill publicera och göra det enkelt att leta efter dom.. Iaf här under ligger koden
mvh PQ..
/* ValueChart Re-written by PQ.. from igOr4eva:s Wealth-lab script*/
//Sätt inputs
BBLenght = 14;
BBStd = 2.45;
SMALenght = 8;
//Sätt namn
Title = "ValueCart" + " " + FullName() + " " + Date();
//Sätt värdet på indikatorn
VCClose = Close / MA(Close,SMALenght);
VCOpen = Open / MA(Close,SMALenght);
VCHigh = High / MA(Close,SMALenght);
VCLow = Low / MA(Close,SMALenght);
//Räkna ut ValueChartet
Brange = BBandTop(VCClose,BBLenght,BBStd) - BBandBot(VCClose,BBLenght,BBStd);
X = BBandBot(VCClose,BBLenght,BBStd);
VCCloseF = ((VCClose - X) / Brange) * 100;
VCOpenF = ((VCOpen - X) / Brange) * 100;
VCHighF = ((VCHigh - X) / Brange) * 100;
VCLowF = ((VCLow - X) / Brange) * 100;
// Plotta ValueChart i Candleform
PlotOHLC(VCOpenF , VCHighF , VCLowF , VCCloseF ,
"\n"+"O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L
+ "\n"+"C = " + C,
colorBlack, styleCandle);
//Plotta horizontala linjer
Plot(100,"",colorRed,styleLine|styleNoLabel);
Plot(0,"",colorGreen,styleLine|styleNoLabel);
Plot(25,"",colorGold,styleLine|styleNoLabel);
Plot(75,"",colorGold,styleLine|styleNoLabel);
Ser intressant ut men hur ska man tolka det?
Mvh våfflan
Visa sida
Ogilla! 9
Gilla!
orginalkoden fast i den är det lite köp/sälj kod insprängt..
mvh PQ..
var Bar, BandLength, VCPane, VCClose, VCOpen, VCHigh, VCLow, SMALen, VCPaneF, VCCloseF, VCOpenF, VCHighF, VCLowF: integer;
var BandStdDev: float;
BandLength := 14;
BandStdDev := 2.45;
SMALen := 3;
InstallStopLoss(5);
InstallProfitTarget(10);
VCPaneF := CreatePane(100,false,true);
VCPane := CreatePane(100,false,true);
VCClose := CreateSeries();
VCOpen := CreateSeries();
VCHigh := CreateSeries();
VCLow := CreateSeries();
VCCloseF := CreateSeries();
VCOpenF := CreateSeries();
VCHighF := CreateSeries();
VCLowF := CreateSeries();
DrawText('Price/SMA w/ Bollingers',VCPane,4,4,#Black,8);
DrawText('Value Chart',VCPaneF,4,4,#Black,8);
PlotSeries(SMASeries(#Close,SMALen),0,#Green,#Thick);
var brange,x: float;
for Bar := 20 to BarCount() -1 do
begin
@VCClose[Bar] := PriceClose(Bar)/SMA(Bar,#Close,SMALen);
@VCOpen[Bar] := PriceOpen(Bar)/SMA(Bar,#Close,SMALen);
@VCHigh[Bar] := PriceHigh(Bar)/SMA(Bar,#Close,SMALen);
@VCLow[Bar] := PriceLow(Bar)/SMA(Bar,#Close,SMALen);
end;
for Bar := 20 to BarCount() -1 do
begin
{Calculate Value Chart}
brange := BBandUpper(Bar,VCClose,BandLength,BandStdDev) - BBandLower(Bar,VCClose,BandLength,BandStdDev);
x := BBandLower(Bar,VCClose,BandLength,BandStdDev);
@VCCloseF[Bar] := ((@VCClose[Bar]-x)/brange)*100;
@VCOpenF[Bar] := ((@VCOpen[Bar]-x)/brange)*100;
@VCHighF[Bar] := ((@VCHigh[Bar]-x)/brange)*100;
@VCLowF[Bar] := ((@VCLow[Bar]-x)/brange)*100;
DrawCircle(3,VCPaneF,Bar,@VCCloseF[Bar],#Red,#Thick);
DrawCircle(3,VCPaneF,Bar,@VCOpenF[Bar],#Green,#Thick);
DrawLine(Bar,@VCLowF[Bar],Bar,@VCHighF[Bar],VCPaneF,0,0);
ApplyAutoStops(Bar);
if @VCLowF[Bar]<0 then
begin
if SMA(Bar,#Close,20)>SMA(Bar,#Close,40) then
BuyAtMarket(Bar+1,'');
end;
if @VCHighF[Bar]>100 then
begin
//ShortAtMarket(Bar+2,'');
end;
end;
DrawHorzLine(0,VCPaneF,#Green,#Thick);
DrawHorzLine(100,VCPaneF,#Red,#Thick);
DrawHorzLine(25,VCPaneF,660,#Thick);
DrawHorzLine(75,VCPaneF,660,#Thick);
PlotSeries(VCLowF,VCPaneF,#White,0);
PlotSeries(VCHighF,VCPaneF,#White,0);
PlotSeries(VCClose,VCPane,0,0);
PlotSeries(VCOpen,VCPane,0,0);
PlotSeries(VCLow,VCPane,0,0);
PlotSeries(VCHigh,VCPane,0,0);
PlotSeries(BBandLowerSeries(VCClose,BandLength,BandStdDev),VCPane,#Green,0);
PlotSeries(BBandUpperSeries(VCClose,BandLength,BandStdDev),VCPane,#Red,0);