TÜRK ün VURUŞKAN EVLATLARI

**taka** · 18 Mayıs 2013, 16:17

başka bir siteden alınmıştır.bulue line hosu:
p8:= Ref((H+L)/2,-8);
p7:= Ref((H+L)/2,-7);
p6:= Ref((H+L)/2,-6);
p5:= Ref((H+L)/2,-5);
p4:= Ref((H+L)/2,-4);
p3:= Ref((H+L)/2,-3);
p2:= Ref((H+L)/2,-2);
p1:= Ref((H+L)/2,-1);
p0:= (H+L)/2;

PrevSum:= p8+p7+p6+p5+p4+p3+p2+p1;
PrevAve:= PrevSum/8;

Ref((PrevSum - PrevAve + p0)/8,-5)

**taka** · 18 Mayıs 2013, 16:19

tarafımdan modifye edilmiş süper tirend:
Factor:=Input("Factor",1.00,100.00,3.00);
Pd:=Input("ATR Periods",1,1000,10);
Up:=(H+L+C)/3+(Factor*ATR(Pd));
Dn:=(H+L+C)/3-(Factor*ATR(Pd));
Td:=If(Cross(C,LLV(Up,13)),1,If(Cross(HHV(Dn,13),C ),-1,PREV));
Dnx:=If(Dn=HighestSince(1,Cross(Td,0),Dn),Dn,PREV) ;
Upx:=If(Up=LowestSince(1,Cross(0,Td),Up),Up,PREV);
Upx;(Upx+Dnx)/2;Dnx

**taka** · 18 Mayıs 2013, 16:22

arkadaşlar sanırım verdiklerim işinizi görür.en azından zarar kes ve stop yerlerini tereddütsüz uygulamanıza yardımcı olabilmişimdir.benden buraya kadar.hoşça kalın sağlıcakla kalın.dualarınızı lütfen esirgemeyiniz.herşey gönlünüzce olsun.

**taka** · 18 Mayıs 2013, 16:26

buda ami kullanan dostlara gitsin.
---------------------------------------------
_SECTION_BEGIN("Ensign Volatility Stop");

// Ensign Volatility Stop
// get the multiple of 9 period EMA of ATR_Ensign
k=Param("multiplication factor", 1,0.5,5,0.1);

period=k*9;
VS_raw = 2.3 * EMA(ATR(1), period);

// for longs, VS line is below price
loline = VS_below_price = HHV(Close, period) - VS_raw;

// for shorts, VS line is above price
hiline = VS_above_price = LLV(Close, period) + VS_raw;
between = IIf (C < hiline AND C > loline, 1, 0);
up = IIf(C > hiline OR (H > Ref(H, -1) AND H > hiline), 1, 0);
dn = IIf(C < loline OR (L < Ref(L, -1) AND L < loline), 1, 0);
upcond = IIf(between AND BarsSince(up) < BarsSince(dn) , 1, 0);
dncond = IIf(between AND BarsSince(dn) < BarsSince(up) , 1, 0);
upline = IIf(up OR upcond, loline, Null);
dnline = IIf(dn OR dncond, hiline, Null);

Buy=upline;
Sell=dnline;

Col = IIf(Buy,colorGreen,IIf(Sell,colorRed,colorBlack));

Plot(C, "", col, styleBar);

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

shape = Buy * shapeUpArrow + Sell * shapeDownArrow;
PlotShapes( shape, IIf( Buy, colorBrightGreen, colorRed ),0, IIf( Buy, Low, High ) );

**taka** · 18 Mayıs 2013, 16:28

_SECTION_END();

_SECTION_BEGIN("SuperTrend");
SetBarsRequired(100000,0);
GraphXSpace = 15;
SetChartOptions(0,chartShowArrows|chartShowDates);
GfxSetBkMode(0);
GfxSetOverlayMode(1);
SetBarFillColor(IIf(C>O,ParamColor("Candle UP Color", colorGreen),IIf(C<=O,ParamColor("Candle Down Color", colorRed),colorLightGrey)));
Plot(C,"\nPrice",IIf(C>O,ParamColor("Wick UP Color", colorDarkGreen),IIf(C<=O,ParamColor("Wick Down Color", colorDarkRed),colorLightGrey)),64,0,0,0,0);

SetTradeDelays(1,1,1,1);

_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

Factor=Param("Factor",2,1,10,0.1);
Pd=Param("ATR Periods",11,1,100,1);
Up=(H+L)/2+(Factor*ATR(Pd));
Dn=(H+L)/2-(Factor*ATR(Pd));
iATR=ATR(Pd);
TrendUp=TrendDown=Null;
trend[0]=1;
changeOfTrend=0;
flag=flagh=0;

for (i = 1; i <BarCount-1; i++) {
TrendUp[i] = Null;
TrendDown[i] = Null;

trend[i]=1;

if (Close[i]>Up[i-1]) {
trend[i]=1;
if (trend[i-1] == -1) changeOfTrend = 1;

}
else if (Close[i]<Dn[i-1]) {
trend[i]=-1;
if (trend[i-1] == 1) changeOfTrend = 1;
}
else if (trend[i-1]==1) {
trend[i]=1;
changeOfTrend = 0;
}
else if (trend[i-1]==-1) {
trend[i]=-1;
changeOfTrend = 0;
}

if (trend[i]<0 && trend[i-1]>0) {
flag=1;
}
else {
flag=0;
}

if (trend[i]>0 && trend[i-1]<0) {
flagh=1;
}
else {
flagh=0;
}

if (trend[i]>0 && Dn[i]<Dn[i-1]){
Dn[i]=Dn[i-1];
}

if (trend[i]<0 && Up[i]>Up[i-1])
{ Up[i]=Up[i-1];
}

if (flag==1)
{ Up[i]=(H[i]+L[i])/2+(Factor*iATR[i]);;
}
if (flagh==1)
{ Dn[i]=(H[i]+L[i])/2-(Factor*iATR[i]);;
}
if (trend[i]==1) {
TrendUp[i]=Dn[i];
if (changeOfTrend == 1) {
TrendUp[i-1] = TrendDown[i-1];
changeOfTrend = 0;
}
}
else if (trend[i]==-1) {
TrendDown[i]=Up[i];
if (changeOfTrend == 1) {
TrendDown[i-1] = TrendUp[i-1];
changeOfTrend = 0;
}
}
}

Plot(TrendUp,"Trend",colorGreen);
Plot(TrendDown,"Down",colorRed);

Buy = trend==1;
Sell=trend==-1;

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

BuyPrice=ValueWhen(Buy,C);
SellPrice=ValueWhen(Sell,C);
ShortPrice=ValueWhen(Short,C);
CoverPrice=ValueWhen(Cover,C);

Title = EncodeColor(colorWhite)+ "Super Trend AFL code from www.marketcalls.in" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorRed) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+
EncodeColor(colorLime)+
WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorYellow)+
WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","");

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);

TrendSL=IIf(trend==1,TrendUp,TrendDown);

for(i=BarCount-1;i>1;i--)
{
if(Buy[i] == 1)
{
entry = C[i];
sig = "BUY";
sl = TrendSL[i];
tar1 = entry + (entry * .0050);
tar2 = entry + (entry * .0092);
tar3 = entry + (entry * .0179);

bars = i;
i = 0;
}
if(Sell[i] == 1)
{
sig = "SELL";
entry = C[i];
sl = TrendSL[i];
tar1 = entry - (entry * .0050);
tar2 = entry - (entry * .0112);
tar3 = entry - (entry * .0212);

bars = i;
i = 0;
}
}
Offset = 20;
Clr = IIf(sig == "BUY", colorLime, colorRed);
ssl = IIf(bars == BarCount-1, TrendSL[BarCount-1], Ref(TrendSL, -1));
sl = ssl[BarCount-1];

Plot(LineArray(bars-Offset, tar1, BarCount, tar1,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar2, BarCount, tar2,1), "", Clr, styleLine|styleDots, Null, Null, Offset);
Plot(LineArray(bars-Offset, tar3, BarCount, tar3,1), "", Clr, styleLine|styleDots, Null, Null, Offset);

messageboard = ParamToggle("Message Board","Show|Hide",1);
if (messageboard == 1 )
{
GfxSelectFont( "Tahoma", 13, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite );

if ( sig =="BUY")
{
GfxSelectSolidBrush( colorBlue );
}
else
{
GfxSelectSolidBrush( colorDarkBlue);
}
pxHeight = Status( "pxchartheight" ) ;
xx = Status( "pxchartwidth");
Left = 1100;
width = 310;
x = 5;
x2 = 330;

y = pxHeight;

GfxSelectPen( colorGreen, 1);
GfxRoundRect( x, y - 98, x2, y , 7, 7 ) ;
GfxTextOut( ( "Marketcalls - Supertrend"),13,y-100);
GfxTextOut( (" "),27,y-100);
GfxTextOut( ("Last " + sig + " Signal came " + (BarCount-bars-1) * Interval()/60 + " mins ago"), 13, y-80) ; // The text format location
GfxTextOut( ("" + WriteIf(sig =="BUY",sig + " @ ",sig + " @") + " : " + entry), 13, y-60);
GfxTextOut( ("Trailing SL : " + Ref(TrendSL,-1) + " (" + WriteVal(IIf(sig == "SELL",entry-sl,sl-entry), 2.2) + ")"), 13, y-40);
GfxTextOut( ("Current P/L : " + WriteVal(IIf(sig == "BUY",(C-entry),(entry-C)),2.2)), 13, y-22);;

FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=Param("Horizontal Position",940,1,1200,1);
Ver=Param("Vertical Position",12,1,830,1);
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorBlack );
GfxSetTextColor(ParamColor("Color",colorYellow) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );

}

_SECTION_END();

_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",50,0,1000,1);
y=Param("yposn",380,0,1000,1);

GfxSelectSolidBrush( ColorRGB( 230, 230, 230 ) );
GfxSelectPen( ColorRGB( 230, 230, 230 ), 2 );
if ( NewPeriod )
{
GfxSelectSolidBrush( colorYellow );
GfxSelectPen( colorYellow, 2 );
Say( "New period" );
}
//GfxRoundRect( x+45, y+40, x-3, y-2, 0, 0 );
//GfxSetBkMode(1);
GfxSelectFont( "Arial", 14, 700, False );
GfxSetTextColor( colorRed );
GfxTextOut( "Time Left :"+SecsToGo+"", x, y );
_SECTION_END();

**taka** · 18 Mayıs 2013, 16:31

neye bakarsanız bakın saatlik altına pek bakmayın,kv tiredler genelde saatlik yada 120 dakka arası oluşum yapar.tabiiki yatay giden hisseler için sözüm yoktur.tekrar hoşça kalın eyi günler sizlerle olsun.

**taka** · 18 Mayıs 2013, 16:34

son verdiğim ami sisteminde görüntü saatlikte bu şekil almış.

**TALEBE** · 18 Mayıs 2013, 16:53

taka emice..... 7174-7175 sayılı mesajların birbirini tamamlayan mı..?

tek tek girdim...olmadı...birlikte girdim olmadı...
"yazılım hatası" diyor...

saygılar

**manif** · 18 Mayıs 2013, 17:08

TALEBE Nickli Üyeden Alıntı Mesajı göster

taka emice..... 7174-7175 sayılı mesajların birbirini tamamlayan mı..?

tek tek girdim...olmadı...birlikte girdim olmadı...
"yazılım hatası" diyor...

saygılar

ayı abi, kopyala yapıştır yapma.
alıntı yaparak cevapla seç..orijinal mesajdan kopyala..parantezler vs. kayıyor ondan hata verir.

**taka** · 18 Mayıs 2013, 17:27

TALEBE Nickli Üyeden Alıntı Mesajı göster

taka emice..... 7174-7175 sayılı mesajların birbirini tamamlayan mı..?

tek tek girdim...olmadı...birlikte girdim olmadı...
"yazılım hatası" diyor...

saygılar

sevgili ayı bendeki ami eski versiyon yeni versiyonları sevmediğim için kurmadım.her mesajdaki formüller bağımsızdır.tek tek girmen gerekir.bendeki versiyon bu şekildedir.ilk verdiğim rormül görüntüsüde yanında görün dedim.

**thebaboli** · 18 Mayıs 2013, 20:41

İşte bu ya. Forum böyle bir yer olmalı. Büyük usta Taka abiye özel saygılar. Kaniye Egeliye teşekkürler. İnşallah bol bol paylaşımlar devam eder ve başlığın takipçileri de bu paylaşılanlardan istifade eder.

Eee hem bu bunu başlat hem yat olmaz. Sağolsun eskiler forumlarda bu tarz paylaşımlar yapmışda onlardan bazı bilgiler edinebilmişiz. Bir yerden aldım ama nerden aldığımı bilmediğim bir formülü paylaşıyorum. Yazılımcısı genele paylaştığı için paylaşıyorum.

Bu indikatörümüzün üstünde kapanışlarda alıyoruz.

(HHV(HIGH,x) - LLV(HIGH,x))/2 + LLV(HIGH,y)

Bun indikatörümüzün altında kapanışlarda satıyoruz.

(HHV(LOW,x) - LLV(LOW,x))/2 + LLV(LOW,y)

x yazan yerler 5 dakka için 100 30 dakka için 21

y yazan yer 5 dakka için 200 30 dakka için 36

Örnek 30 dakkalık için ;

ÜST indikatör ; (HHV(HIGH,21) - LLV(HIGH,21))/2 + LLV(HIGH,36)

ALT indikatör ; (HHV(LOW,21) - LLV(LOW,21))/2 + LLV(LOW,36)

kullanabilirsiniz. Formülü detaylı incelerseniz kendi sayılarınızı da oluşturup buradan paylaşabilirsiniz. Böylece ortak güçle daha iyi hale gelebilir.

AL FORMÜLÜ ;

BullFear := (HHV(HIGH,21) - LLV(HIGH,21))/2 + LLV(HIGH,36);
Cross(CLOSE,BullFear)

SAT FORMÜLÜ ;

BearFear := (HHV(LOW,21) - LLV(LOW,21))/2 + LLV(LOW,36);
Cross(BearFear,CLOSE)

Harun kardeşimize detayları anlattım. Matriks kullanmadığım için resimleri ekleyemedim ama kendisi resmi buraya ekleyebilir.

Arkadaşlar hiçbir sistemi direkt kopyala yapıştır kullanmayın. İyice inceleyin size uygun mu? Eğer uygun olduğuna karar verdiyseniz kaç parayla kaç kontratlık işlem yapacağınıza karar verin. Bence ilk olarak ya sanal oynayın yada 10 kontratlık teminatınız varsa 5 kontratlık teminatınızı ayırın 1 kontratlık bir sistemi oynayın. Diğer 5 kontratlık teminatınızla diğer sistemi 1 kontratlık oynayın. Bence kaldıracı 5 den fazla kullanmayın. Tek başına sistem yetersiz olabilir para yönetimi yapmanız gerekir.

İnşallah sizlere faydam dokunur da bir hayır duası edersiniz. Allaha emanet olun.

**taka** · 18 Mayıs 2013, 21:47

son olarak bunlarıda veremde tam olsun benden olan bitsin diyelim.
saycıl adıyla belirtebilirsiniz:
Periods:=Input("Period?",1,1150,20);
a:=Input("Hot?",0,2,.7);
e1:=Mov(C,Periods,E);
e2:=Mov(e1,Periods,E);
e3:=Mov(e2,Periods,E);
e4:=Mov(e3,Periods,E);
e5:=Mov(e4,Periods,E);
e6:=Mov(e5,Periods,E);
c1:=-a*a*a;
c2:=3*a*a+3*a*a*a;
c3:=-6*a*a-3*a-3*a*a*a;
c4:=1+3*a+a*a*a+3*a*a;
c1*e6+c2*e5+c3*e4+c4*e3

**taka** · 18 Mayıs 2013, 21:50

rsı özel kafesleme yapımı bendenize aittir.aşağıda numune oklarla belirttiğim gibi kendi ho sunu kesmesi tirend değişimi demektir.diğer özelliği ise kafesten pik dönüşlerdir.zamanında aylarımı almış bir sistemler gurubudur.hayrını görün.
Periods:=Input("PeriodRSI",1,540,14);
Period1:=Input("PeriodRSI",1,540,27);
A:=RSI(Periods);
UL:=Ref(HHV(A,25),-1);
ML:=(UL-LL)/1.25;
LL:=Ref(LLV(A,25),-1);
A;
UL;
LL;Mov(A,Period1,S)
----------------------------------------------------------

**ayhan53** · 18 Mayıs 2013, 22:12

taka Nickli Üyeden Alıntı Mesajı göster

buda ami kullanan dostlara gitsin.
---------------------------------------------
_section_begin("ensign volatility stop");

// ensign volatility stop
// get the multiple of 9 period ema of atr_ensign
k=param("multiplication factor", 1,0.5,5,0.1);

period=k*9;
vs_raw = 2.3 * ema(atr(1), period);

// for longs, vs line is below price
loline = vs_below_price = hhv(close, period) - vs_raw;

// for shorts, vs line is above price
hiline = vs_above_price = llv(close, period) + vs_raw;
between = iif (c < hiline and c > loline, 1, 0);
up = iif(c > hiline or (h > ref(h, -1) and h > hiline), 1, 0);
dn = iif(c < loline or (l < ref(l, -1) and l < loline), 1, 0);
upcond = iif(between and barssince(up) < barssince(dn) , 1, 0);
dncond = iif(between and barssince(dn) < barssince(up) , 1, 0);
upline = iif(up or upcond, loline, null);
dnline = iif(dn or dncond, hiline, null);

buy=upline;
sell=dnline;

col = iif(buy,colorgreen,iif(sell,colorred,colorblack));

plot(c, "", col, stylebar);

buy=exrem(buy,sell);
sell=exrem(sell,buy);

shape = buy * shapeuparrow + sell * shapedownarrow;
plotshapes( shape, iif( buy, colorbrightgreen, colorred ),0, iif( buy, low, high ) );

İmzandakİ Şakin Ördek benİm herhal

bakiyom bakiyom bİŞey anlamiyom

**taka** · 18 Mayıs 2013, 22:43

ayhan53 Nickli Üyeden Alıntı Mesajı göster

İmzandakİ Şakin Ördek benİm herhal

bakiyom bakiyom bİŞey anlamiyom

başkanım alıntıladığın formül amibroker analiz puroğramında kullanılmak üzere dizayn edilmiş sistemdir.hani olurya ami meraklısı olursa faydalı olabileceğini düşünerekten koydum.amide maaelesef formüller oldukça geniş alan kaplar.hayırlı geceler.

TÜRK ün VURUŞKAN EVLATLARI

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Yorum

Debug Information