Fikirler -> Sistemler

[hdioxyde]

SAyın Hdioxyde ortalarda gözükmüyor...Nerelerdesin..

Buralardayım sevgili Teo,

Geçen hafta 3 kere ters gapte kaldım, yaralarımı sarıyorum. Senden tek farkım son geçen günkü tam gider ayak al deyip te senin flat kaldığına ben bir de short girdim sinirden, bu sefer de sinyal doğru çıktı.

Biraz kafamı toplamalıyım....Biraz nadas iyi gelecek bana...

[ESAY.RUL]

VOB30: Sistem 51950 den açtığı kısa pozisyonu 41300 civarında kapatarak uzuna geçti. Görüşüm, pazartesi yükselişin süreceği yönündedir. Ancak Ayı piyasası bitti demek içinn henüz erken.

EURUSD : 1.4268 den açtığı uzun pozisyonu koruyor. Bunda da yükselişin sürmesi beklenebilir. 1.60 dan 1.39 a soluksuz sayılabilecek düşüşün düzeltmesi geliyor ve gelecektir.

USDCHF : İlginç.ABD deki malum son paketten sonra Cuma günü itibariyle, USD nin karşısında değer kaybettiği tek para birimi. İstikrarsızlık zamanlarında CHF genelde değer kazanır. 1.1225 den gelen sattan sonra, ciddi bir düşüş, Cuma günü önemli bir toparlama (-ki diğer teknik indikatörler bu yükselişi desteklemedi) ve devamında ciddi bir düşüş. Diğer piyasaların orta vadeli yönü hakkında fikir verici olabilir. İzlenmeli

[teo]

Senden tek farkım son geçen günkü tam gider ayak al deyip te senin flat kaldığına ben bir de short girdim sinirden, bu sefer de sinyal doğru çıktı.

sinyale uymayıp long girmemem ciddi hata seninkisi duble hata, long sinyalinde short yapılırmı, geçmiş olsun, biz hala profosyonel olamıyacağız, yaptığımız hatalara bak...

[teo]

Bir kod buldum test edeyim dedim, gözlerime inanamadım neredeyse Bill Gates olmuşuz,

System test


METASTOCK SYSTEM-TESTER CODE FOR SIMULATING TRENDLINE BREAKS

Buy or buy to cover:
zz0:= Zig(Close,7,%);
zz1:= Ref(zz0,-1);
zz2:= Ref(zz0,-2);
tr:= ValueWhen(1,zz0 > zz1 AND zz1 < zz2, zz1);
pk:= ValueWhen(1,zz0 < zz1 AND zz1 > zz2, zz1);
PU:= tr+Abs(tr)*0.05;
PD:= pk-Abs(pk)*0.05;
res:= If(Close >= PU AND zz0 > zz1,1,If(Close <= PD AND zz0 < zz1,-1,0));
res:= If(res<>0,res,ValueWhen(1,res<>0,res));
res=1 and ref(res,-1)=-1

Sell or sell short:
zz0:= Zig(Close,7,%);
zz1:= Ref(zz0,-1);
zz2:= Ref(zz0,-2);
tr:= ValueWhen(1,zz0 > zz1 AND zz1 < zz2, zz1);
pk:= ValueWhen(1,zz0 < zz1 AND zz1 > zz2, zz1);
PU:= tr+Abs(tr)*0.05;
PD:= pk-Abs(pk)*0.05;
res:= If(Close >= PU AND zz0 > zz1,1,If(Close <= PD AND zz0 < zz1,-1,0));
res:= If(res<>0,res,ValueWhen(1,res<>0,res));
res=-1 and ref(res,-1)=1


Ama geleceğe göre zigzag yapıyor, yani internette dolaşan geleceği bilen medyum işi...Yine döndüm gerçek hayata heheh, yaramaz geleceği kimse bilemez ,zigzag hariç...

[teo]

Bollinger Band (BB) divergence indicator, Uyumsuzluk Indikatörü

30 üzeri positiv uyumsuzluk, negatifi söylemiyor tek eksiği,,43600 den sonraki düşüş positiv uyumsuzmuş,bilseydik çarpılmazdık..Neyseki hiç bir şey için geç değildir.

Ms kodumuz...


D1:= Input("PERIOD FOR BB",5,300,40);
PERIOD:= Input("PERIOD FOR FVE",5,80,22);
COEF:=.1;
INTRA:=Log(H)-Log(L);
VINTRA:=Stdev(INTRA,PERIOD);
INTER:=Log(Typical())-Log(Ref(Typical(),-1));
VINTER:=Stdev(INTER,PERIOD);
CUTOFF:=COEF*(VINTER+VINTRA)*C;
MF:=C-(H+L)/2+Typical()-Ref(Typical(),-1);
FVE:=Sum(If(MF>CUTOFF,+V,If(MF<-CUTOFF,-V,0)),PERIOD)/Mov(V,PERIOD,S)/PERIOD*100;
IND:=FVE;
CBOL:= 1+((C-BBandBot(C,D1,S,2))/(BBandTop(C,D1,S,2)-BBandBot(C,D1,S,2)));
INDBOL:=1+((IND-BBandBot(IND,D1,S,2))/(BBandTop(IND,D1,S,2)-BBandBot(IND,D1,S,2)));
DIVERG:=(INDBOL-CBOL)/CBOL*100;
Mov(DIVERG,3,E)

[teo]

Buralardayım sevgili Teo,

Geçen hafta 3 kere ters gapte kaldım, yaralarımı sarıyorum. ...

Aynı sistemi kullanınca beraber çarpılıyoruz, ama sorunu çözdüm artık çarpılmak yok,sıkma canını, msn den akatarayım sana hatamızı,

Geçmişi değiştiremeyiz, geleceğe bakalım, Büyük servet edinmek kolay iş değildir, Yılmak yol, tam gaz ileri, Savaş ne kadar zorsa,zafer o kadar tatlıdır.

40 yıl kar yağar,bir gün av olur,o zaman da çarık yırtık olur.Bizde yakalayamadık bu güzel trendi,

Borsalar duygusallığı, inatçılığı, cesareti ve panik hareketleri asla kabul etmez.

tecrübe yediğim gapların toplamıdır.Bizde tecrübe kazanıyoruz, her şeyin bedeli var.

Ve en önemlisi,Yasadiklarimiz dusuncelerimizin sonucudur.

Bu nedenle olumsuzluk yok, yola devam...

[bull market]

Sn. teo, trend varmı yokmu bilebileceğim birşey arıyorum demiştin, gözüme takılan bir sistem var ama bende ing kıt denecek kadar az, sitenin adresinide veririm ama önce bir grafik örneği atayım, sen bu işin üstesinden gelirsin diye düşündüm, bu haliyle bile işe yarar sanırım.

Grafiğin üzerindeki indikatör al sat veriyor ama, aşağısındakide aslında hala yön ne tarafa olduğunu gösteriyor, böylece stop yapsan ve terse dönsen dahi her an teyid bekliyorsun, teyid gelmezse bir sonraki sat ile tekrar trend yönünde doğru poz alıyorsun, metastoc, mikrosoft exel gibi değişil platformlarda çalışabilen versiyonları var, fakat formüle ulaşmak lazım işte, ulaşıncada bizim piyasada net çalışır hale getirebilecek birisi.

[IMG][/IMG]


http://www.jurikres.com/freebies/mainfree.htm#metastock

Jurik research yanında home tıklayarak siteyi görebilirsin, işmi şimdi benimki saygılar.

[teo]

Hiç Sistemim Yok Diyenler için Zero Lag Ema Cross

INdikator olarak

Avg:=55; {a 55 fixed day average}
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min
(L,haOpen))/4;
TMA1:= Tema(haC,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema(typ(),avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlCl;ZlHa

---------------------------------------
Ea olarak

Buy

Avg:=55; {a 55 fixed day average}
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min
(L,haOpen))/4;
TMA1:= Tema(haC,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema(typ(),avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
cross(ZlCl,ZlHa)

Sell

Avg:=55; {a 55 fixed day average}
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min
(L,haOpen))/4;
TMA1:= Tema(haC,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema(typ(),avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
cross(ZlHa,ZlCl)

--------------------System Tester İçin

BUY ORDER

Avg:=55; {a 55 fixed day average}
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
TMA1:= Tema(haC,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema(typ(),avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
cross(ZlCl,ZlHa) {crossover of the zero-lagging TEMA on the typical price
and the zero-lagging TEMA of the heikin-ashi closing price}

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

SELL SHORT ORDER

Avg:=55; {a 55 fixed day average}
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
TMA1:= Tema(haC,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema(typ(),avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
cross(ZlHa,ZlCl) {crossover of the zero-lagging TEMA on the typical price
and the zero-lagging TEMA of the heikin-ashi closing price}
-----------------------


Performansı gayet güzel

[teo]

Sn. teo, trend varmı yokmu bilebileceğim birşey arıyorum demiştin,

Jurik research yanında home tıklayarak siteyi görebilirsin, işmi şimdi benimki saygılar.

teşekür ederim düşündüğünüz için, vidyaya benziyor,inceleyeyim..

[doom7]

yukarıdakı formulu vop uyarlayabılırsenız belkı ısınıze yarar abı ama sende formul cok dur nede olsa ama ben yınede son kez sana formul teklıf edeyım.saygılar

[doom7]

//+------------------------------------------------------------------+
//| 3_Level_ZZ_Semafor.mq4 |
//+------------------------------------------------------------------+
#property copyright "asystem2000"
#property link "asystem2000@yandex.ru"

//  îñíîâó ğàñ÷åòà çèãçàãà âçÿò àëãîğèòì klot@mail.ru
// Çà ÷òî åìó îãğîìíîå ñïàñèáî

#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 Chocolate
#property indicator_color2 Chocolate
#property indicator_color3 MediumVioletRed
#property indicator_color4 MediumVioletRed
#property indicator_color5 Yellow
#property indicator_color6 Yellow

//---- input parameters
extern double Period1=5;
extern double Period2=13;
extern double Period3=34;
extern string Dev_Step_1="1,3";
extern string Dev_Step_2="8,5";
extern string Dev_Step_3="21,12";
extern int Symbol_1_Kod=140;
extern int Symbol_2_Kod=141;
extern int Symbol_3_Kod=142;

//---- buffers
double FP_BuferUp[];
double FP_BuferDn[];
double NP_BuferUp[];
double NP_BuferDn[];
double HP_BuferUp[];
double HP_BuferDn[];

int F_Period;
int N_Period;
int H_Period;
int Dev1;
int Stp1;
int Dev2;
int Stp2;
int Dev3;
int Stp3;

//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
// --------- Êîğğåêòèğóåì ïåğèîäû äëÿ ïîñòğîåíèÿ ÇèãÇàãîâ
if (Period1>0) F_Period=MathCeil(Period1*Period()); else F_Period=0;
if (Period2>0) N_Period=MathCeil(Period2*Period()); else N_Period=0;
if (Period3>0) H_Period=MathCeil(Period3*Period()); else H_Period=0;

//---- Îáğàáàòûâàåì 1 áóôåğ
if (Period1>0)
{
SetIndexStyle(0,DRAW_ARROW,0,1);
SetIndexArrow(0,Symbol_1_Kod);
SetIndexBuffer(0,FP_BuferUp);
SetIndexEmptyValue(0,0.0);

SetIndexStyle(1,DRAW_ARROW,0,1);
SetIndexArrow(1,Symbol_1_Kod);
SetIndexBuffer(1,FP_BuferDn);
SetIndexEmptyValue(1,0.0);
}

//---- Îáğàáàòûâàåì 2 áóôåğ
if (Period2>0)
{
SetIndexStyle(2,DRAW_ARROW,0,2);
SetIndexArrow(2,Symbol_2_Kod);
SetIndexBuffer(2,NP_BuferUp);
SetIndexEmptyValue(2,0.0);

SetIndexStyle(3,DRAW_ARROW,0,2);
SetIndexArrow(3,Symbol_2_Kod);
SetIndexBuffer(3,NP_BuferDn);
SetIndexEmptyValue(3,0.0);
}
//---- Îáğàáàòûâàåì 3 áóôåğ
if (Period3>0)
{
SetIndexStyle(4,DRAW_ARROW,0,4);
SetIndexArrow(4,Symbol_3_Kod);
SetIndexBuffer(4,HP_BuferUp);
SetIndexEmptyValue(4,0.0);

SetIndexStyle(5,DRAW_ARROW,0,4);
SetIndexArrow(5,Symbol_3_Kod);
SetIndexBuffer(5,HP_BuferDn);
SetIndexEmptyValue(5,0.0);
}
// Îáğàáàòûâàåì çíà÷åíèÿ äåâèàöèé è øàãîâ
int CDev=0;
int CSt=0;
int Mass[];
int C=0;
if (IntFromStr(Dev_Step_1,C, Mass)==1)
{
Stp1=Mass[1];
Dev1=Mass[0];
}

if (IntFromStr(Dev_Step_2,C, Mass)==1)
{
Stp2=Mass[1];
Dev2=Mass[0];
}


if (IntFromStr(Dev_Step_3,C, Mass)==1)
{
Stp3=Mass[1];
Dev3=Mass[0];
}
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----

//----
return(0);
}

//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
if (Period1>0) CountZZ(FP_BuferUp,FP_BuferDn,Period1,Dev1,Stp1);
if (Period2>0) CountZZ(NP_BuferUp,NP_BuferDn,Period2,Dev2,Stp2);
if (Period3>0) CountZZ(HP_BuferUp,HP_BuferDn,Period3,Dev3,Stp3);
return(0);
}
//+------------------------------------------------------------------+
// äîïîëíèòåëüíûå ôóíêöèè
//int Take



//+------------------------------------------------------------------+
//| Ôóíêö ôîğìèğîâàíèÿ ÇèãÇàãà |
//+------------------------------------------------------------------+
int CountZZ( double& ExtMapBuffer[], double& ExtMapBuffer2[], int ExtDepth, int ExtDeviation, int ExtBackstep )
{
int shift, back,lasthighpos,lastlowpos;
double val,res;
double curlow,curhigh,lasthigh,lastlow;

for(shift=Bars-ExtDepth; shift>=0; shift--)
{
val=Low[Lowest(NULL,0,MODE_LOW,ExtDepth,shift)];
if(val==lastlow) val=0.0;
else
{
lastlow=val;
if((Low[shift]-val)>(ExtDeviation*Point)) val=0.0;
else
{
for(back=1; back<=ExtBackstep; back++)
{
res=ExtMapBuffer[shift+back];
if((res!=0)&&(res>val)) ExtMapBuffer[shift+back]=0.0;
}
}
}

ExtMapBuffer[shift]=val;
//--- high
val=High[Highest(NULL,0,MODE_HIGH,ExtDepth,shift)];
if(val==lasthigh) val=0.0;
else
{
lasthigh=val;
if((val-High[shift])>(ExtDeviation*Point)) val=0.0;
else
{
for(back=1; back<=ExtBackstep; back++)
{
res=ExtMapBuffer2[shift+back];
if((res!=0)&&(res<val)) ExtMapBuffer2[shift+back]=0.0;
}
}
}
ExtMapBuffer2[shift]=val;
}
// final cutting
lasthigh=-1; lasthighpos=-1;
lastlow=-1; lastlowpos=-1;

for(shift=Bars-ExtDepth; shift>=0; shift--)
{
curlow=ExtMapBuffer[shift];
curhigh=ExtMapBuffer2[shift];
if((curlow==0)&&(curhigh==0)) continue;
//---
if(curhigh!=0)
{
if(lasthigh>0)
{
if(lasthigh<curhigh) ExtMapBuffer2[lasthighpos]=0;
else ExtMapBuffer2[shift]=0;
}
//---
if(lasthigh<curhigh || lasthigh<0)
{
lasthigh=curhigh;
lasthighpos=shift;
}
lastlow=-1;
}
//----
if(curlow!=0)
{
if(lastlow>0)
{
if(lastlow>curlow) ExtMapBuffer[lastlowpos]=0;
else ExtMapBuffer[shift]=0;
}
//---
if((curlow<lastlow)||(lastlow<0))
{
lastlow=curlow;
lastlowpos=shift;
}
lasthigh=-1;
}
}

for(shift=Bars-1; shift>=0; shift--)
{
if(shift>=Bars-ExtDepth) ExtMapBuffer[shift]=0.0;
else
{
res=ExtMapBuffer2[shift];
if(res!=0.0) ExtMapBuffer2[shift]=res;
}
}
}

int Str2Massive(string VStr, int& M_Count, int& VMass[])
{
int val=StrToInteger( VStr);
if (val>0)
{
M_Count++;
int mc=ArrayResize(VMass,M_Count);
if (mc==0)return(-1);
VMass[M_Count-1]=val;
return(1);
}
else return(0);
}


int IntFromStr(string ValStr,int& M_Count, int& VMass[])
{

if (StringLen(ValStr)==0) return(-1);
string SS=ValStr;
int NP=0;
string CS;
M_Count=0;
ArrayResize(VMass,M_Count);
while (StringLen(SS)>0)
{
NP=StringFind(SS,",");
if (NP>0)
{
CS=StringSubstr(SS,0,NP);
SS=StringSubstr(SS,NP+1,StringLen(SS));
}
else
{
if (StringLen(SS)>0)
{
CS=SS;
SS="";
}
}
if (Str2Massive(CS,M_Count,VMass)==0)
{
return(-2);
}
}
return(1);
}

[doom7]

zigzag nasılsa .saygılar