S.o.s.

[parapara]

Topiginiz hayırlı olsun. Önemli bir konuyu işliyorsunuz bende kurdugum bir sistem için yorum isteyecektim.

[Dantes]

tesekkurler ustad eline beynine saglik.
ets vob 30 baktinmi bir al verdi daha sat vermedi saatlikte bile gunluk gibi calisiyor.

ShortProfit:=If(PozBAz<0,ValueWhen(1 ,Cross(0,ETSPozBAz),C )-C,0);

bold yaptigim tanimlamalar yok ustad daha once verdinmi bunlari.

[hdioxyde]

..................
Bu sistemi seçmemim nedeni, S.O.S ile böyle bir sistemin bile performansını artırıp artıramayacağımıza bakmak...

Bir sonraki aşamada vakit bulunca karı belli bir ortalamanın üstünde tutacak şekilde bir formüle dayalı takip eden "trailing stop loss" kodu yazmayı amaçlıyorum. Böylece herkesin rahatlıkla kendi sistemine uyarlayabileceği bir şablonumuz olacak. Asıl amacım bu.

...

...

Daha önce bahsettiğim bu takip eden stop loss formülünü yazdım. Kodu kendi gereksinimleri doğrultusunda modifiye etmek isteyecek arkadaşlar için de kod içine ufak tefek açıklamalar ekledim.

Bir konuyu önemle belirtmek isterim ki bu sistemin formulize edilerek uygunlanmış halini hiç görmedim. O nedenle aşağıda göreceğinizi kodun algoritması ve formülasyonu tamemen orjinaldir ve benim emeklerimin bir sonucudur. Sahip olduğum paylaşım prensipleri icabı kodla istediğiniz gibi oynayabilir, istediğiniz gibi kullanabilir, istediğiniz kişiye verebilirsiniz. Ama sistem olarak satmak isteyecek sevgili uyanık arkadaşlarımıza telif hakkının bana ait olduğunu kantılayacak her türlü delile sahip olduğumu ve bunu satarak kazanacakları her kuruş parayı bana vermekle kalmayacaklarını üstüne bir de tazminat ödeyeceklerini hatırlatmak isterim. Mimarlık yaptığım için telif hakkı meselesine gayet hakimim, ve inanmayacaksınız ülkemizde en iyi işleyen Hukuk Sistemi telif hakları, bu konuda son derece ciddi olduğumu bilin yeter...

Önce üzerinde açıklamalarla grafiğimiz:




Ve kodumuz:
---------------------------------------

{ S.O.S TSL: Sistem Optimizasyon Sistemi Trailing Stop Loss }

{ ©Copyright Hdioxyde-Keyborsa.com
The grant of this license is for personal use
only - no resale or repackaging allowed.}

{Donemler ve Stop Cinsi}
prds:=Input("Kar Takip Ort",5,100,13);
FullS:=Input("mod HHV-LLV 1:yes 2:no",1,2,1);

{Sistem Kosullari}
TI:=Mov(C,21,S) - (Ref(Mov(C,21,S),-5));;
EL:=TI>0 AND L>=Mov(C,21,S) AND C>Max(O,Ref(H,-3));
ES:=TI<0 AND H<=Mov(C,21,S) AND C<Min(O,Ref(L,-3));

{Al - Sat Sinyalleri}
LE:=EL AND BarsSince(Ref(EL,-1))>BarsSince(Ref(ES,-1));
LX:=ES AND BarsSince(Ref(EL,-1))<BarsSince(Ref(ES,-1));
SE:=ES AND BarsSince(Ref(EL,-1))<BarsSince(Ref(ES,-1));
SX:=EL AND BarsSince(Ref(EL,-1))>BarsSince(Ref(ES,-1));


PozBAz:=ExtFml( "Forum.Latch", LE, LX, SE, SX);

{Pozisyon Karlari}
ShortProfit:=If(PozBAz<0,ValueWhen(1 ,Cross(0,ETSPozBAz),C )-C,0);
LongProfit:=If(PozBAz>0,C-ValueWhen(1 ,Cross(ETSPozBAz,0),C ),0);

{Sinyal anindaki low ve high degerleri}
SatBarH:=ValueWhen(1 ,Cross(0,PozBAz),H);
AlBarL:=ValueWhen(1 ,Cross(PozBAz,0),L );

{Stoplar}
{Stoplari tanimlarken 13 donemlik triangular mov alinmistir, kullanici mov cesidini degistirerek deneyebilir}
StopShort:=Min(SatBarH,(SatBarH-Mov(ShortProfit,prds,TRI)));
StopLong:=Max(AlBarL,(AlBarL+Mov(LongProfit,prds,T RI)));

{Stop cinsi tanimlari, Fulls 1 ise long stopu asla daha düşük bir değer almaz}

StopS:=If(Fulls=1,LowestSince(1, Cross(0,PozBAz),StopShort),StopShort);
StopL:=If(Fulls=1,HighestSince(1, Cross(PozBAz,0),StopLong),StopLong);
Stop:=If(PozBaz>0,StopL,StopS);


Stop

---------------------------------------------------

Kendi sistemlerinize yapacağınız uyarlamaların sonuçlarını (sadece uyarlamaların sonucunu sisteminizi değil. Nedense Teo hariç herkes sistemleri konusunda bir kıskanç bir kıskanç anlatamam) burada yayınlarsanız S.O.S'in işe yarayıp yaramadığı konusunda hepimiz aydınlanırız...

İyi hafta sonları...


..

[Dantes]

bır yerlerden okumustum ama nerde hatırlamıyorum, ben bu sıstemı kullanalı cok oldu, ama sanırım en emın nokta sıfır yerıne 54 du...

bende deneyerek 60 bulmustum tesekkurler ustad

[teo]

İşte o nokta meşhur Woodies'in ZLR (Zero Line Reject) dediği formasyon bu aşmanın tek yolu 0 değerini biraz aşağı almak sanırım....

bır yerlerden okumustum ama nerde hatırlamıyorum, ben bu sıstemı kullanalı cok oldu, ama sanırım en emın nokta sıfır yerıne 54 du...

[Dantes]

İşte o nokta meşhur Woodies'in ZLR (Zero Line Reject) dediği formasyon bu aşmanın tek yolu 0 değerini biraz aşağı almak sanırım....

iste bu tesekkurler ustad "zlr" demeniz insana yeni ufuklar aciyor.
sizin gibi cok okumadigimiz icin olayin teorisini bilmeden cirpinip duruyoruz.
olayi cok basitlestirmeye calisiyorum gercekten basit bunu goruyorum artik.
period olayinida asmak uzereyeim.

[hdioxyde]

bu sistem alakali oldugu icin buraya yaziyorum ustad. oyle birsey oluyorki gayet iyi yerde poz aliyor ama gercekten cok kucuk bir hareketle cci yine sifira carpiyor ama sonra yukari hizla devam ediyor biz cikmis oluyor pozdan bir daha 0 gecildigi icin yeniden poz acmiyor. garip durum bunu nasil asariz.

İşte o nokta meşhur Woodies'in ZLR (Zero Line Reject) dediği formasyon bu aşmanın tek yolu 0 değerini biraz aşağı almak sanırım....

[Dantes]

bu sistem alakali oldugu icin buraya yaziyorum ustad. oyle birsey oluyorki gayet iyi yerde poz aliyor ama gercekten cok kucuk bir hareketle cci yine sifira carpiyor ama sonra yukari hizla devam ediyor biz cikmis oluyor pozdan bir daha 0 gecildigi icin yeniden poz acmiyor. garip durum bunu nasil asariz.

[Dantes]

ustad basitce bir indkator nasil smooth hale getirilir kolay bir yolu varmidir yoksa sadece iyi bir MA mi atilir ustune.

[Dantes]

pek hayal ettigim gibi olmadi sonuclar halbuki gozle dogru gibi idi cogunlukla. simdi cok farkli gozukuyor. inceleyip bilgi veririrm. cok tesekkurler.

[hdioxyde]

dantes formülü:
------------------------------------------------------
KOSULAL:=ADX(8)>20 AND Cross(CCI(16),0);
KOSULSAT:=ADX(8)>20 AND Cross(0,CCI(16));

LX1:=BarsSince(KOSULAL=1)=2 AND (ADX(8)<25 OR DX(12)<20 OR PDI(12)<20 OR MDI(12)>20 OR CCI(16)<60);
LX2:=DX(12)<20 AND Cross(60,CCI(16));

SX1:=BarsSince(KOSULSAT=1)=2 AND (ADX(8)<25 OR DX(12)<=20 OR MDI(12)<20 OR PDI(12)>20 OR CCI(16)>-60);
SX2:=DX(12)<20 AND Cross(CCI(16),60);

LE:=DX(8)>20 AND Cross(CCI(16),0);
LX:=LX1 OR LX2;
SE:=DX(8)>20 AND Cross(0,CCI(16));
SX:=SX1 OR SX2;

ExtFml( "Forum.Latch", LE, LX, SE, SX)
----------------------------------------------

şimdi oldu sanırım.

[hdioxyde]

Dantes isminde yeni gösterge yaratıp içine alttaki kodu kopyalayın:
--------------------------------------------------------------------
KOSULAL:=ADX(8)>20 AND Cross(CCI(16),0);
KOSULSAT:=ADX(8)>20 AND Cross(0,CCI(16));

LX1:=BarsSince(KOSULAL=1)=3 AND (ADX(8)<25 OR DX(12)<20 OR PDI(12)<20 OR MDI(12)>20 OR CCI(16)<60);
LX2:=ADX(12)<20 AND Cross(CCI(16),60);

SX1:=BarsSince(KOSULSAT=1)=3 AND (ADX(8)<25 OR DX(12)<20 OR MDI(12)<20 OR PDI(12)>20 OR CCI(16)>-60);
SX2:=ADX(8)<20 AND Cross(CCI(16),60);

LE:=DX(8)>20 AND Cross(CCI(16),0);
LX:=LX1 OR LX2;
SE:=DX(8)>20 AND Cross(0,CCI(16));
SX:=SX1 OR SX2;

ExtFml( "Forum.Latch", LE, LX, SE, SX)
-------------------------------------------------------------

İstediğiniz isimde bir expert yaratıp Symbols kısmına


Al oku:
Fml( "DANTES") >0 and ref( Fml( "DANTES"),-1)<=0

LX:
Fml( "DANTES") =0 and ref( Fml( "DANTES"),-1)>0

Sat oku:
Fml( "DANTES") <0 and ref( Fml( "DANTES"),-1)>=0

SX:
Fml( "DANTES") =0 and ref( Fml( "DANTES"),-1)<0

2 barda istediğin koşullara ulaşamadığı için sık sık erken poz çıkıyor yalnız..3'e çıkardım istersen değiştireceğin yer "BarsSince(KOSULAL=1)=3" ve "BarsSince(KOSULSAT=1)=3" fonksiyonları...

period düzeltmesi ile bu yorumum anlamsız kaldı




..

Bir yerde bir hata var onu arıyorum...

[hdioxyde]

Dantes isminde yeni gösterge yaratıp içine alttaki kodu kopyalayın:
--------------------------------------------------------------------
KOSULAL:=ADX(8)>20 AND Cross(CCI(16),0);
KOSULSAT:=ADX(8)>20 AND Cross(0,CCI(16));

LX1:=BarsSince(KOSULAL=1)=3 AND (ADX(8)<25 OR DX(12)<20 OR PDI(12)<20 OR MDI(12)>20 OR CCI(16)<60);
LX2:=ADX(12)<20 AND Cross(CCI(16),60);

SX1:=BarsSince(KOSULSAT=1)=3 AND (ADX(8)<25 OR DX(12)<20 OR MDI(12)<20 OR PDI(12)>20 OR CCI(16)>-60);
SX2:=ADX(8)<20 AND Cross(CCI(16),60);

LE:=DX(8)>20 AND Cross(CCI(16),0);
LX:=LX1 OR LX2;
SE:=DX(8)>20 AND Cross(0,CCI(16));
SX:=SX1 OR SX2;

ExtFml( "Forum.Latch", LE, LX, SE, SX)
-------------------------------------------------------------

İstediğiniz isimde bir expert yaratıp Symbols kısmına


Al oku:
Fml( "DANTES") >0 and ref( Fml( "DANTES"),-1)<=0

LX:
Fml( "DANTES") =0 and ref( Fml( "DANTES"),-1)>0

Sat oku:
Fml( "DANTES") <0 and ref( Fml( "DANTES"),-1)>=0

SX:
Fml( "DANTES") =0 and ref( Fml( "DANTES"),-1)<0

2 barda istediğin koşullara ulaşamadığı için sık sık erken poz çıkıyor yalnız..3'e çıkardım istersen değiştireceğin yer "BarsSince(KOSULAL=1)=3" ve "BarsSince(KOSULSAT=1)=3" fonksiyonları...

period düzeltmesi ile bu yorumum anlamsız kaldı




..

[Dantes]

Gösterge Periodları?

tesekkurler
--
cci(16)
--
adx(8)
dmi(12)
dx(8)
--
bu boyle bir ortaya ciksin basit ama etkili bir iki fikrim daha var denemis onlarida ekleriz.

[hdioxyde]

ustad performansini gormek icin(baktigim kadariyla onceki sayfadakinden daha iyi) basit ama guclu iki indikatore dayanan bir sistem yazabilirmisiniz.

------------
30 dk period ve vob30 icin
alim kurali
adx in 20 ustunde oldugu durumda iken
cci(16) sifiri yukari kesecek.(burada al oku cikacak)

1 veya 2 sonraki bara kadar mutlaka (30 ila 60 dk sonra yani)
adx 25 ustunde pdi 20 ustunde mdi ise 20 altinda ve dx 20 ustunde olacak
ve cci 60 a erismis olacak.(degilse LX yapilacak)

alimdan cikis kurali
cci 20 60 asagi kesecek. dx 20 nin altinda olacak

satim kurali tam tersi
satistan cikis tam tersi

adx in 20 altinda oldugu tum durumlarda alim satim yapilamayacak.
----------

Gösterge Periodları?