Daytrader

[Kerberoys]

hocam 66 binleri şimdi görür mü sizce...

61 binlerde döndü herhalde borsa ...

[saraylı]

hocam 66 binleri şimdi görür mü sizce...

61 binlerde döndü herhalde borsa ...

hemen görmez tabi,önümüzdeki haftasonuna kadar olabilir...

[AMON RA]

Bir "Heikin-Ashi with MA" çalışması, boş kutular long, dolu kutular short

Fevkaladeninde fevkindeymiş!

[saraylı]

en altta kahve kaldı......74.375

[anonimm]

Fevkaladeninde fevkindeymiş!

kodu burda:

/*
Heikin-Ashi(Koma-Ashi) with Moving Average Type
*/
SetChartOptions(2, chartWrapTitle);
// Calculate Moving Average
MAPeriod = Param("MA Period", 15, 1, 100);
MAOpen = EMA(Open, MAPeriod);
MAHigh = EMA(High, MAPeriod);
MALow = EMA(Low, MAPeriod);
MAClose = EMA(Close, MAPeriod);
HaClose = (MAOpen + MAHigh + MALow + MAClose) / 4;
HaOpen = AMA(Ref(HaClose, - 1), 0.5);
// for graph collapse
for (i = 0; i <= MAPeriod; i++)
HaClose[i] = Null;
/*
// same
// HaOpen = (Ref(HaOpen, -1) + Ref(HaClose, -1)) / 2;
HaOpen[ 0 ] = HaClose[ 0 ];
for(i = 1; i < BarCount; i++) {
HaOpen[i] = (HaOpen[i - 1] + HaClose[i - 1]) / 2;
}
*/
HaHigh = Max(MAHigh, Max(HaClose, HaOpen));
HaLow = Min(MALow, Min(HaClose, HaOpen));
// outs comments
"BarIndex = " + BarIndex();
"Open = " + Open;
"High = " + High;
"Low = " + Low;
"Close = " + Close;
"HaOpen = " + HaOpen;
"HaHigh = " + HaHigh;
"HaLow = " + HaLow;
"HaClose = " + HaClose;
// Plot graphs
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} HaOpen %g, HaHigh %g, HaLow %g, HaClose %g (%.1f%%) {{VALUES}}", HaOpen, HaHigh, HaLow, HaClose, SelectedValue(ROC(HaClose, 1))));
PlotOHLC(HaOpen, HaHigh, HaLow, HaClose, _DEFAULT_NAME(), ParamColor("Color", colorBlack), styleCandle);
/* **********************************
Code to automatically identify pivots
********************************** */
// -- what will be our lookback range for the hh and ll?
farback = Param("How Far back to go", 100, 50, 5000, 10);
nBars = Param("Number of bars", 12, 5, 40);
// -- Title.
Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ", H: " + High + ", L: " + Low + ", C: " + Close;
// -- Plot basic candle chart
PlotOHLC(Open, High, Low, Close, "BIdx = " + BarIndex() + "\n" + "O = " + O + "\n" + "H = " + H + "\n" + "L = " + L + "\n" + "C ", colorYellow, styleLine | styleThick);
GraphXSpace = 7;
// -- Create 0-initialized arrays the size of barcount
aHPivs = H - H;
aLPivs = L - L;
// -- More for future use, not necessary for basic plotting
aHPivHighs = H - H;
aLPivLows = L - L;
aHPivIdxs = H - H;
aLPivIdxs = L - L;
nHPivs = 0;
nLPivs = 0;
lastHPIdx = 0;
lastLPIdx = 0;
lastHPH = 0;
lastLPL = 0;
curPivBarIdx = 0;
// -- looking back from the current bar, how many bars
// back were the hhv and llv values of the previous
// n bars, etc.?
aHHVBars = HHVBars(H, nBars);
aLLVBars = LLVBars(L, nBars);
aHHV = HHV(H, nBars);
aLLV = LLV(L, nBars);
// -- Would like to set this up so pivots are calculated back from
// last visible bar to make it easy to "go back" and see the pivots
// this code would find. However, the first instance of
// _Trace output will show a value of 0
aVisBars = Status("barvisible");
nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));
_TRACE("Last visible bar: " + nLastVisBar);
// -- Initialize value of curTrend
curBar = (BarCount - 1);
curTrend = "";
if (aLLVBars[curBar] <
aHHVBars[curBar])
{
curTrend = "D";
}
else
{
curTrend = "U";
}
// -- Loop through bars. Search for
// entirely array-based approach
// in future version
for (i = 0; i < farback; i++)
{
curBar = (BarCount - 1) - i;
// -- Have we identified a pivot? If trend is down...
if (aLLVBars[curBar] < aHHVBars[curBar])
{
// ... and had been up, this is a trend change
if (curTrend == "U")
{
curTrend = "D";
// -- Capture pivot information
curPivBarIdx = curBar - aLLVBars[curBar];
aLPivs[curPivBarIdx] = 1;
aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] = curPivBarIdx;
nLPivs++;
}
// -- or current trend is up
}
else
{
if (curTrend == "D")
{
curTrend = "U";
curPivBarIdx = curBar - aHHVBars[curBar];
aHPivs[curPivBarIdx] = 1;
aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] = curPivBarIdx;
nHPivs++;
}
// -- If curTrend is up...else...
}
// -- loop through bars
}
// -- Basic attempt to add a pivot this logic may have missed
// -- OK, now I want to look at last two pivots. If the most
// recent low pivot is after the last high, I could
// still have a high pivot that I didn't catch
// -- Start at last bar
curBar = (BarCount - 1);
candIdx = 0;
candPrc = 0;
lastLPIdx = aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];
lastHPH = aHPivHighs[0];
if (lastLPIdx > lastHPIdx)
{
// -- Bar and price info for candidate pivot
candIdx = curBar - aHHVBars[curBar];
candPrc = aHHV[curBar];
if (
lastHPH < candPrc AND
candIdx > lastLPIdx AND
candIdx < curBar)
{
// -- OK, we'll add this as a pivot...
aHPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j = 0; j < nHPivs; j++)
{
aHPivHighs[nHPivs - j] = aHPivHighs[nHPivs -
(j + 1)];
aHPivIdxs[nHPivs - j] = aHPivIdxs[nHPivs - (j + 1)];
}
aHPivHighs[0] = candPrc;
aHPivIdxs[0] = candIdx;
nHPivs++;
}
}

else
{
// -- Bar and price info for candidate pivot
candIdx = curBar - aLLVBars[curBar];
candPrc = aLLV[curBar];
if (
lastLPL > candPrc AND
candIdx > lastHPIdx AND
candIdx < curBar)
{
// -- OK, we'll add this as a pivot...
aLPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j = 0; j < nLPivs; j++)
{
aLPivLows[nLPivs - j] = aLPivLows[nLPivs - (j + 1)];
aLPivIdxs[nLPivs - j] = aLPivIdxs[nLPivs - (j + 1)];
}
aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;
nLPivs++;
}
}
// -- Dump inventory of high pivots for debugging
/*
for (k=0; k<nHPivs; k++) {
_TRACE("High pivot no. " + k
+ " at barindex: " + aHPivIdxs[k] + ", "
+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],
DateTime(), 1), formatDateTime)
+ ", " + aHPivHighs[k]);
}
*/
// -- OK, let's plot the pivots using arrows
PlotShapes(IIf(aHPivs == 1, shapeDownArrow, shapeNone), colorRed, 0, High, Offset = - 15);
PlotShapes(IIf(aLPivs == 1, shapeUpArrow, shapeNone), colorBrightGreen, 0, Low, Offset = - 15);

[saraylı]

süper kapanış...



iyi akşamlar....

[Kerberoys]

bu kod metastock kodu mu? , matriks kodunuda zahmet olmassa verebilirmisiniz

[kokohan23]

kodu burda:

/*
heikin-ashi(koma-ashi) with moving average type
*/
setchartoptions(2, chartwraptitle);
// calculate moving average
maperiod = param("ma period", 15, 1, 100);
maopen = ema(open, maperiod);
mahigh = ema(high, maperiod);
malow = ema(low, maperiod);
maclose = ema(close, maperiod);
haclose = (maopen + mahigh + malow + maclose) / 4;
haopen = ama(ref(haclose, - 1), 0.5);
// for graph collapse
for (i = 0; i <= maperiod; i++)
haclose[i] = null;
/*
// same
// haopen = (ref(haopen, -1) + ref(haclose, -1)) / 2;
haopen[ 0 ] = haclose[ 0 ];
for(i = 1; i < barcount; i++) {
haopen[i] = (haopen[i - 1] + haclose[i - 1]) / 2;
}
*/
hahigh = max(mahigh, max(haclose, haopen));
halow = min(malow, min(haclose, haopen));
// outs comments
"barındex = " + barındex();
"open = " + open;
"high = " + high;
"low = " + low;
"close = " + close;
"haopen = " + haopen;
"hahigh = " + hahigh;
"halow = " + halow;
"haclose = " + haclose;
// plot graphs
_n(title = strformat("{{name}} - {{ınterval}} {{date}} haopen %g, hahigh %g, halow %g, haclose %g (%.1f%%) {{values}}", haopen, hahigh, halow, haclose, selectedvalue(roc(haclose, 1))));
plotohlc(haopen, hahigh, halow, haclose, _default_name(), paramcolor("color", colorblack), stylecandle);
/* **********************************
code to automatically identify pivots
********************************** */
// -- what will be our lookback range for the hh and ll?
Farback = param("how far back to go", 100, 50, 5000, 10);
nbars = param("number of bars", 12, 5, 40);
// -- title.
Title = name() + " (" + strleft(fullname(), 15) + ") o: " + open + ", h: " + high + ", l: " + low + ", c: " + close;
// -- plot basic candle chart
plotohlc(open, high, low, close, "bıdx = " + barındex() + "\n" + "o = " + o + "\n" + "h = " + h + "\n" + "l = " + l + "\n" + "c ", coloryellow, styleline | stylethick);
graphxspace = 7;
// -- create 0-initialized arrays the size of barcount
ahpivs = h - h;
alpivs = l - l;
// -- more for future use, not necessary for basic plotting
ahpivhighs = h - h;
alpivlows = l - l;
ahpivıdxs = h - h;
alpivıdxs = l - l;
nhpivs = 0;
nlpivs = 0;
lasthpıdx = 0;
lastlpıdx = 0;
lasthph = 0;
lastlpl = 0;
curpivbarıdx = 0;
// -- looking back from the current bar, how many bars
// back were the hhv and llv values of the previous
// n bars, etc.?
Ahhvbars = hhvbars(h, nbars);
allvbars = llvbars(l, nbars);
ahhv = hhv(h, nbars);
allv = llv(l, nbars);
// -- would like to set this up so pivots are calculated back from
// last visible bar to make it easy to "go back" and see the pivots
// this code would find. However, the first instance of
// _trace output will show a value of 0
avisbars = status("barvisible");
nlastvisbar = lastvalue(highest(ııf(avisbars, barındex(), 0)));
_trace("last visible bar: " + nlastvisbar);
// -- ınitialize value of curtrend
curbar = (barcount - 1);
curtrend = "";
if (allvbars[curbar] <
ahhvbars[curbar])
{
curtrend = "d";
}
else
{
curtrend = "u";
}
// -- loop through bars. Search for
// entirely array-based approach
// in future version
for (i = 0; i < farback; i++)
{
curbar = (barcount - 1) - i;
// -- have we identified a pivot? ıf trend is down...
If (allvbars[curbar] < ahhvbars[curbar])
{
// ... And had been up, this is a trend change
if (curtrend == "u")
{
curtrend = "d";
// -- capture pivot information
curpivbarıdx = curbar - allvbars[curbar];
alpivs[curpivbarıdx] = 1;
alpivlows[nlpivs] = l[curpivbarıdx];
alpivıdxs[nlpivs] = curpivbarıdx;
nlpivs++;
}
// -- or current trend is up
}
else
{
if (curtrend == "d")
{
curtrend = "u";
curpivbarıdx = curbar - ahhvbars[curbar];
ahpivs[curpivbarıdx] = 1;
ahpivhighs[nhpivs] = h[curpivbarıdx];
ahpivıdxs[nhpivs] = curpivbarıdx;
nhpivs++;
}
// -- ıf curtrend is up...else...
}
// -- loop through bars
}
// -- basic attempt to add a pivot this logic may have missed
// -- ok, now ı want to look at last two pivots. ıf the most
// recent low pivot is after the last high, ı could
// still have a high pivot that ı didn't catch
// -- start at last bar
curbar = (barcount - 1);
candıdx = 0;
candprc = 0;
lastlpıdx = alpivıdxs[0];
lastlpl = alpivlows[0];
lasthpıdx = ahpivıdxs[0];
lasthph = ahpivhighs[0];
if (lastlpıdx > lasthpıdx)
{
// -- bar and price info for candidate pivot
candıdx = curbar - ahhvbars[curbar];
candprc = ahhv[curbar];
if (
lasthph < candprc and
candıdx > lastlpıdx and
candıdx < curbar)
{
// -- ok, we'll add this as a pivot...
Ahpivs[candıdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j = 0; j < nhpivs; j++)
{
ahpivhighs[nhpivs - j] = ahpivhighs[nhpivs -
(j + 1)];
ahpivıdxs[nhpivs - j] = ahpivıdxs[nhpivs - (j + 1)];
}
ahpivhighs[0] = candprc;
ahpivıdxs[0] = candıdx;
nhpivs++;
}
}

else
{
// -- bar and price info for candidate pivot
candıdx = curbar - allvbars[curbar];
candprc = allv[curbar];
if (
lastlpl > candprc and
candıdx > lasthpıdx and
candıdx < curbar)
{
// -- ok, we'll add this as a pivot...
Alpivs[candıdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j = 0; j < nlpivs; j++)
{
alpivlows[nlpivs - j] = alpivlows[nlpivs - (j + 1)];
alpivıdxs[nlpivs - j] = alpivıdxs[nlpivs - (j + 1)];
}
alpivlows[0] = candprc;
alpivıdxs[0] = candıdx;
nlpivs++;
}
}
// -- dump inventory of high pivots for debugging
/*
for (k=0; k<nhpivs; k++) {
_trace("high pivot no. " + k
+ " at barindex: " + ahpivıdxs[k] + ", "
+ writeval(valuewhen(barındex()==ahpivıdxs[k],
datetime(), 1), formatdatetime)
+ ", " + ahpivhighs[k]);
}
*/
// -- ok, let's plot the pivots using arrows
plotshapes(ııf(ahpivs == 1, shapedownarrow, shapenone), colorred, 0, high, offset = - 15);
plotshapes(ııf(alpivs == 1, shapeuparrow, shapenone), colorbrightgreen, 0, low, offset = - 15);

kurduğumuzda hata veriyor sendeki msteki formülü yapıştırabilirmisin

[kokohan23]

Hocam heralde sizin sayım doğru çıkacak

[Kerberoys]

süper kapanış...



iyi akşamlar....

anlaşılan herkes bugun mutlu

[anonimm]

bu kod metastock kodu mu? , matriks kodunuda zahmet olmassa verebilirmisiniz

kurduğumuzda hata veriyor sendeki msteki formülü yapıştırabilirmisin

Arkadaşlar, bu ms kodu değil, amibroker kodu, ms de çalışmaması normal

[halojen]

fikrim değişmedi.. ancak bir miktar daha tepki ihtimali doğdu cuma günü.. bana göre artık tepe geçilemez..

tepki geldi ama kısada yakalandım

75900'ün geçilmesini beklemiyorum....