Sn. Teo benim foreks şu an çalışmıyor. Müsait anlarda gönderebilir misiniz. Saat başları olsa yeter.
Printable View
Sn. Teo benim foreks şu an çalışmıyor. Müsait anlarda gönderebilir misiniz. Saat başları olsa yeter.
11:30 dahil
VOB - 13.11.2008 09:10:14
----------------------------
Yesterday's PoC: 9 (32,900)
Yesterday's Initial Range: 33,675 - 34,425
Yesterday's Total Range: 32,325 to 34,425
Yesterday's Pva: 32,450 to 33,200
Yesterday's MPVA: 32,638 / 32,825 / 33,013
Yesterday's MRange: 32,850 / 33,375 / 33,900
----------------------------
Today's PoC: 4 (31,950)
Today's Initial Range: 31,550 - 31,950
Today's Total Range: 31,550 to 32,350
Today's Pva: 31,750 to 32,200
Today's MRange: 31,750 / 31,950 / 32,150
Today's MPVA: 31,863 / 31,975 / 32,088
----------------------------
Selling Tail: 32,250 to 32,350
Buying Tail: 31,550 to 31,575
----------------------------
Market Type: Up Variation Day
----------------------------
TPOc Above Zone: 28
TPOc Below Zone: 38
----------------------------
POC Range Area: Equal
----------------------------
Sn. Teo son durum nedir acaba...
15:00 barı dahil
VOB - 13.11.2008 09:10:14
----------------------------
Yesterday's PoC: 9 (32,900)
Yesterday's Initial Range: 33,675 - 34,425
Yesterday's Total Range: 32,325 to 34,425
Yesterday's Pva: 32,450 to 33,200
Yesterday's MPVA: 32,638 / 32,825 / 33,013
Yesterday's MRange: 32,850 / 33,375 / 33,900
----------------------------
Today's PoC: 8 (32,125)
Today's Initial Range: 31,550 - 31,950
Today's Total Range: 31,550 to 32,800
Today's Pva: 31,825 to 32,425
Today's MRange: 31,863 / 32,175 / 32,488
Today's MPVA: 31,975 / 32,125 / 32,275
----------------------------
Selling Tail: 32,700 to 32,800
Buying Tail: 31,550 to 31,575
----------------------------
Market Type: Up Trend Day
----------------------------
TPOc Above Zone: 78
TPOc Below Zone: 84
----------------------------
POC Range Area: Down
----------------------------
Sn. Teo kapanışı alabilir miyim ... Bu arada bu taleplerim size sıkıntı ve zahmet veriyorsa ne olur söyleyin. En istemediğim şey insanlara metazori birşey yaptırmaktır. Ancak sistemi bu hafta itibariyle uyguladığım için karşılaştırma ihtiyacım oluyor...
[QUOTE=özdenil;61881]Sn. Teo kapanışı alabilir miyim ... Bu arada bu taleplerim size sıkıntı ve zahmet veriyorsa ne olur söyleyin. En istemediğim şey insanlara metazori birşey yaptırmaktır. Ancak sistemi bu hafta itibariyle uyguladığım için karşılaştırma ihtiyacım oluyor...[/QUOTE]
rica ederim...
VOB - 13.11.2008 05:18:34
----------------------------
Yesterday's PoC: 9 (32,900)
Yesterday's Initial Range: 33,675 - 34,425
Yesterday's Total Range: 32,325 to 34,425
Yesterday's Pva: 32,450 to 33,200
Yesterday's MPVA: 32,638 / 32,825 / 33,013
Yesterday's MRange: 32,850 / 33,375 / 33,900
----------------------------
Today's PoC: 9 (32,125)
Today's Initial Range: 31,550 - 31,950
Today's Total Range: 31,550 to 33,275
Today's Pva: 31,825 to 32,675
Today's MRange: 31,988 / 32,425 / 32,850
Today's MPVA: 32,038 / 32,25 / 32,463
----------------------------
Selling Tail: 33,050 to 33,275
Buying Tail: 31,550 to 31,575
----------------------------
Market Type: Up Trend Day
----------------------------
TPOc Above Zone: 150
TPOc Below Zone: 92
----------------------------
POC Range Area: Down
----------------------------
Ingilizce bilmeyenler için.
Market Profil Ali Perşembe'nin 4. kitabında ayrıntılı bir şekilde anlatılmış.Bende yeni farkettim, oradan okuyabilirsiniz.
pioner range sizde ne gözüküyor Sn. Teo
[QUOTE=özdenil;62006]pioner range sizde ne gözüküyor Sn. Teo[/QUOTE]
33850-33350 bunu dogru kabul etmek zorundayız.
aşağıdaki dow jones analizi bana ait değildir, eğer doğru ise haftalardır triangle diyen pretcher ekürileri gene kıvırtacak:..:
[IMG]http://i405.photobucket.com/albums/pp131/mozkanm/adsz.png[/IMG]
teo Nickli Üyeden Alıntı Mesajı göster
Arkadaşlar borsada para kazanma yöntemini öğrenmek istiyorum,Ücretli ders vermek isteyen tanıdıklarınız var mı?
İstedikleri parayı vereceğim. ( Makul olmak kaydıyla)
Ama benimde bir şartım var.Teknik analiz ve indikatör anlatmıyacak..
yukarıdakı yazınızı bugun gördum abı gecenlerde sana bu yazıyı yollamıstım ındıkator yok teknık yok mekık de yok her yon sendekı paranın ve olusrutu racagın kademenın ıcınde bu yazıyı dalga gecmeden bırdaha sakın kafayla okursan belkı sana faydası olur hemen sorun su olacaktır pekı sen kazanabılıyormusun dıye onuda yollayacam sana hemde buraya yapıstırcam su an hedef onlınenın yarısmasında aynı sıstem uygulanıyor ve sonuclarını yazacam .ama asagıdakı yazıyı ıyıce okursan ne demek ıstedıgımı anlarsın o kadar emek verıyorsun bu ıslere yınede en sonunda pes edıyorsun abı var bır yerde yanlıslık ama nerde saygılar.savgıler
cok guzel bır soru sayın teo abi kara gecmek mumkunmu..?
bence mumkun abı ama hersey dısıplınden gecıyor sızın market olayı gıbı yukarıdakı yazınızda 50 bın ytl orneklemıssınız bende aynısını yapayım örnek olarak
50 bın para var
vadelınınde 35 bın puan oldugunu varsayarsak kademelendırelım 1 den 10 kadar kedemelendırelım
35 bın puanda vadelının yukarı gıdecek dıye buy edelım ama paranın 5 bın ytl sıyle
herzamankı gıbı muhtemelen yukarı gıtmeyecek 1000 puan gerıledıgını varsayalım kalan 45 bın ytl nın 5 bın ytl sıylede tekrar alım yapalım vadelı oldu 34 bın yıne olmaz yukarı buyuk ıhtımalle 33 bıne ındı dıyelım yanı her 1000 puan lık dususte ana paramızın 5 bın ytl sıyle alım yapıyoruz yukselecek dıye olurya 35 bınden basladık almaya oldu 25 puan vadelı tum parayı bıtırdık bagladık sısteme sımdı 1 den 10 kadar kedemelı alım var elımızde olurya bu vadelı 30 dedıgınde tum zarar cıkmıs olur olmadı 2000 yada 1000 puan yukseldı dıyelım elımızde nasıl yukselecek dıye aldıgımız buy lar 1000 puan artınca kademelı olarak elımızdekını satarsak yanı sankı elımızde 10 tane farklı senet varmıs gıbı davranırsak 10 tanenın ıcınden kara gecenlerı satarsak zarada olanları asla satmadan zararına vermeden bu sekılde ıslemlerle bence ısın ıcınden cıkarız tabı bu ıslemı sıgortalama ıcın de baska bır hesaptan mutlaka kademelı buy yapıldıysa dıger hesaptanda sel edılmelıdır maksat aradakı dalgalanmayı almak rıske gırmeden umarım anlatabılmısımdır.saygılar
yalnız sunuda demem lazım tam olması ıcın bu sıstemı anca parası saglam olan kullanabılır .ben kullanamıyorum o kadar rıske atacak param yok gercek bu benım kullandıgımıda sallamadıgımın göstergesı olarakta resmını yapıstırıyorum
[URL=http://imageshack.us][IMG]http://img122.imageshack.us/img122/9249/77tv9.jpg[/IMG][/URL]
[URL=http://g.imageshack.us/img122/77tv9.jpg/1/][IMG]http://img122.imageshack.us/img122/77tv9.jpg/1/w1001.png[/IMG][/URL]
[URL=http://imageshack.us][IMG]http://img394.imageshack.us/img394/7454/88ut6.jpg[/IMG][/URL]
[URL=http://g.imageshack.us/img394/88ut6.jpg/1/][IMG]http://img394.imageshack.us/img394/88ut6.jpg/1/w1280.png[/IMG][/URL]
[url]http://www.forexformula2008.com/kazananliste.aspx[/url]
teo abı sakın benı yanlıs anlama sana bunu hatırlarsan msn den yuzyuze konusurken anlatmıstım hatırlarsın sadece hatırlatma benımkısı saygılar sevgıler.
[QUOTE=doom7;62306]
yukarıdakı yazınızı bugun gördum abı gecenlerde sana bu yazıyı yollamıstım ındıkator yok teknık yok mekık de yok her yon sendekı paranın ve olusrutu racagın kademenın ıcınde bu yazıyı dalga gecmeden bırdaha sakın kafayla okursan belkı sana faydası olur hemen sorun su olacaktır pekı sen kazanabılıyormusun dıye onuda yollayacam sana hemde buraya yapıstırcam su an hedef onlınenın yarısmasında aynı sıstem uygulanıyor ve sonuclarını yazacam .ama asagıdakı yazıyı ıyıce okursan ne demek ıstedıgımı anlarsın o kadar emek verıyorsun bu ıslere yınede en sonunda pes edıyorsun abı var bır yerde yanlıslık ama nerde saygılar.savgıler[/QUOTE]
rica ederım okuyorum ben her zaman sızı, ama cok dıkkatlı okumam gerekıyor, bıraz dagınık yazıyorsunuz.Netıcede anladım dedıgınızı ama burada tum paranın cok cok az mıktarı ıle yaparsanız ancak mantıklı olur,
Yanı sız aslında 1000 puan dususte ana paranızdan da uzlasma nedenı ıle kaybedecegınız ıcın. Paranızın ancak %1 ıle poz acarsanız ve 1000 puan duserse dayanabılırsınız.10.000 puan dususlerde gorduk cunku...
Burada sorun, sonsuz bır paramız yok...
[QUOTE=doom7;62310]teo abı sakın benı yanlıs anlama sana bunu hatırlarsan msn den yuzyuze konusurken anlatmıstım hatırlarsın sadece hatırlatma benımkısı saygılar sevgıler.[/QUOTE]
hatırlıyorum ama onunda calıstıgını dusunmuyorum.
Su ana kadar tek kazandıran Market profıl oldu benım ıcın...
Bu arada ben pes etmedım, sadece muhabbet olsun dıye yazdım, ama sagolsun dostlarım benım ıcın endıselenıp,yardımcı olmaya calıstılar.
Hepsıne tesekur ederım....
kademe analizi için bu kadar hesaba kitaba gerek var mı sizce.. zaten hangi kademelerde yoğun işlemler olduğunu tahtayı izleyerek de anlıyoruz.. haa bu size ilerde tahta tecrübesi kazandıracaktır o ayrı.. ew analizi için saatlerce etiketlerle uğraşmaya benziyor bence bu da..halbuki etiketlerle uğraşmak yerine grafiğe şöyle bir bakarak nasıl bir dalganın ilerlediği tahmin ederek piyasa analizinde yardımcı olarak kullanılsa abc oturtcam diye uğraşılmasa daha faydalı olurdu ew’de.. bir borsacı dalga yapılarını mutlaka bilmelidir o da ayrı... intikatörler de aynı.. zaten fiyat hareketlerine bakarak piyasanın aşırı satışta yada aşırı alışta olduğunu anlıyoruz.. bunun için intikatöre bakmak yada intikatörün verdiği sinyallere uymak ne derece doğru..
borsada yada vob da kazanmanın sırrı ana yönü bilmekten geçiyor..ana yönü de ne intikatörler gösterir, ne kademe analizi, ne de ew analizleri.. ana yönü bulmakta en büyük yardımcı gösterge ortalamalardır.. hiçbir karmaşık hesaplamalara,sistemlere gerek kalmadan çok basit bir ortalama takibi bile iyi kazandırır.. bazen en basit olan en iyi olandır..(bir beklenti oluştuğunda yada bittiğinde illaki ortalamanın dönmesini beklemek de acemiliktir o da ayrı)
ve piyasa tecrübesi.. piyasayı koklamak denir ya.. birebir haber takibi, piyasanın beklentileri, piyasanın gücü v.s.. bunlarda zamanla kazanılacak beceridir.. mesela geçtiğimiz hafta.. abd seçimlerine bir hafta kala piyasanın bunu satın alacağı aşikardı, orada hiçbir sisteme gerek yoktu.. genelde seçimlere bir hafta kala piyasalar beklenti içine girip yükselmiş, seçim bitince de beklenti bitti olayına girip sert satış yemiştir.. seçimin ertesi günü satış yapıp birkaç gün bu pozisyonu taşımak için hiçbir sisteme ihtiyaç yoktu..sadece satış yap ve fiyat ortalamayı ters yönde kırana kadar pozisyonda otur.. veya bizim akp davasından sonra beklenti bittiği zaman satışa geçmek için herhangi bir göstergeye ihtiyaç yoktu.. veya haftasonu yapılacak G20 toplantısı v.s…
biz hatayı piyasanın her puanını alalım derken yapıyoruz.. her dalgayı yakalayalım derken biz dalgada kayboluyoruz.. gün içi birkaç puan yakalayabilmek için heba oluyoruz.. kaybedilen para yanında psikolojilerde harap oluyor..
mükemmel sistem yok.. ama siz mükemmel sistemi ararken bütün sistemleri bilecek ve bu piyasaya karşı tam donanımlı olacaksınız..
sevgiler…
Ortalamalar hiç bir şeyi bilemezler,Sadece eğer hareket 2000 uzerı olursa kazanırlar, O kazandıklarını da dıger gunler gerı verırler,
Sayın Cbaykus, bır performans yayınlamıstı. Bu ay Net 1000 puan dıye, Topıgınde olacaktı.
Koskaca tum ay 1000 puan teorık olarak getırmıs, Vob gıbı bır kaldıraclı pıyasada, teorık 1000 puanı da kazanamazsınız.Margın call yer ve paranız bıter.
Indıkatorler konusunda cok tutucu degılım, Elbette bır ongoru sunarlar.Ama burada ana sorun , perıyod sorunudur.
Gelelım tecrubeye, bana gore tecrubede sadece kagıt uzerınde kalır.Bu tecrube denılen olay,yasanan olaylardan ornekleme anlamında ıse,bu da vob da sökmez.
Çünkü hiç bir gün birbirine benzemez.Neyin tecrubesı olacak o zaman.
Pıyasalar tamamı ıle yanıltma ve psıkolojı uzerıne oynar.Ters hareketler cok yogundur.
Korele argumanlara bakarsanız , yanılırsınız.
Bızler her zaman py bızım uzerımıze oynuyor dedık, pekı bu dogrumu...Bence bu da dogru degıl.
Market profılden ornek vereyım..Bunun da dogru oldugunu bılmıyoruz gercı ama...
Derkı value area arası ky hakım oldugu alandır. O zaman bu mantıkla yatay pıyasalardan ky sorumludur.Hanı nerde o zaman py.
Nıye yatay pıyasa olusuyor.Cunku o alandan sorumlu oldugu ıcın.Indıkatorle ıslem yapıyor.5 dakıka alıyor,10 dakıka satıyor, 20 dakıka alıyor,vs... 100 puan karı gorunce donuyor gerı verıyor.
Kademeye oynuyor,vs...
Bu nedenle de yatay banddan cıkamıyoruz. Ky ortada cok oldugu surece para kazanılmaz.
Cunku ne yapacagını bılmez,ındıkator esaretındedır.Ufak bır kar gorunce cebe atar.
Yatay pıyasanın gercek sebebı , dusuk perıyod kullanan ky dır.
[QUOTE=teo;62347]Gelelım tecrubeye, bana gore tecrubede sadece kagıt uzerınde kalır.Bu tecrube denılen olay,yasanan olaylardan ornekleme anlamında ıse,bu da vob da sökmez.
Çünkü hiç bir gün birbirine benzemez.Neyin tecrubesı olacak o zaman.
Pıyasalar tamamı ıle yanıltma ve psıkolojı uzerıne oynar.Ters hareketler cok yogundur.
Korele argumanlara bakarsanız , yanılırsınız.
Bızler her zaman py bızım uzerımıze oynuyor dedık, pekı bu dogrumu...Bence bu da dogru degıl.[/QUOTE]
sn. teo, amacım kesinlikle sizi ve sisteminizi eleştirmek değil.. sizin değişik sistemler üzerine azimle araştırma yapıp bunu paylaşmanızı her zaman takdir etmişimdir.. bende çok faydalandım bu paylaşımlarınızdan..
tecrübe konusunda yazdıklarınıza gelince, tecrübeli insan zaten güniçi işlemler yapmaz trende oynar, çünkü bilir ki gün içi çarpılacak.. trendin yönünü de ona gelişen olaylar ve piyasanın genel havası gösterecektir, ortalamalar sadece yardımcı göstergedir.. py gün içi on takla atsa da trendi değiştiremez, onun çarpacağı insanlar gün içi oyunculardır..
''hiç bir gün birbirine benzemez, piyasalar tamamı ile yanıltma ve psikoloji üzerine oynar.Ters hareketler çok yoğundur'' demişsiniz ve çok doğru..
gün içi işlemlerde en tecrübeli insan bile çarpılır.. bugün kazanır, yarın kazandığını geri verir.. ay sonunda ya çok az kardadır yada başabaş çıkar.. güniçi işlem yapmak kumardır.. ben bugün 300-400 puan alayım gece kafam rahat olsun diyenler anca kendini kandırır bence.. ben verim alamadım gün içi işlemlerden.. bugün aldım, yarın verdim.. ve en güzel kazançları trendden yaptım..
ve kademe analizinin de güniçi işlemler için kullanılabilecek bir sistem olduğunu düşündüğümden acizane düşüncelerimi yazdım sadece..
sevgiler..
[QUOTE=jerfin;62351]güniçi işlem yapmak kumardır.. ben bugün 300-400 puan alayım gece kafam rahat olsun diyenler anca kendini kandırır bence.. ben verim alamadım gün içi işlemlerden.. bugün aldım, yarın verdim.. ve en güzel kazançları trendden yaptım..
ve kademe analizinin de güniçi işlemler için kullanılabilecek bir sistem olduğunu düşündüğümden acizane düşüncelerimi yazdım sadece..
sevgiler..[/QUOTE]
Bu tabi, yoğurt yeme şeklidir.Kimi pozisyon trading yapar, kimi day trading, her ikisinin de artıkları eksileri vardır.Kaldıraçlı piyasalarda asla uzun vade oynanmalıdır diye düşünüyorum, kendi fikrim elbette..
S&P de trendde oturamazsınız, çünkü trend yoktur hiç bir zaman...Gün içi trading yapar herkes...
Market Profil bir al /sat sistemi değildir,Sadece piyasanın profilini sunar.Neresi ucuz,neresi pahalı, neresi eder fiyat anlamında...
Bır çeşit hareketli band gibi davranır.Eğer bu yöntemle uzun vade poz almak isterseniz 5 günlük profil kullanılmalıdır.5 günlük vade uzunmudur.Elbette değil.
Market profil kullanmak isteyenlerin gunluk trade yapmaları daha saglıklıdır, katılıyorum...
Uzun vade de amaç, 2000-3000 puan kazanmaksa, gün gelir gunlukte de 2000-3000 kazanılır.Hemde gece riski taşımadan...
Her yiğidin yoğurt yiyişi ile alakalıdır.Hepsine saygımız var.Yeterki para kazanalım...
Ben beceremedim bir türlü...
[quote=teo;62352]
[B]S&P de[/B] trendde oturamazsınız, çünkü [B]trend yoktur hiç bir zaman[/B]...Gün içi trading yapar herkes...
[/quote]
son kararın mı teo, benim grafikler öyle söylemiyor sp de, trendin babası itki kaynıyor her yeri sp nin.
Here is the MetaStock code that appeared in the December 2008 article, "Trading With The Heikin-Ashi Candlestick Oscillator," by Sylvain Vervoort. This includes the code that appeared in the text as well as in the sidebars.
Heikin-Ashi Candlestick Oscillator
"First, I am going to color-code the normal candle chart with the information
from the heikin-ashi chart. A white heikin-ashi candle will paint the normal
candlestick green and a black heikin-ashi candle will paint the normal
candlestick red. The result can be seen in Figure 3. To do this in MetaStock,
we create an expert function and link it to the chart. In the highlights tab
of the expert editor, we first introduce the formula to create a green candle
when the heikin-ashi closing price is greater than or equal to the heikin-ashi
opening price and we link a green color to a positive outcome:
{green candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=haC>=haOpen;
ClHa
We do the same for creating a red candle with this second formula when the
heikin-ashi closing price is smaller than the opening price and we link red
to it.
{red candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=haC < haOpen;
ClHa
...
Let's try some techniques to keep the bars as green as possible during an
uptrend, with little delay at turning points. First, we can eliminate all
single-day reactions by extending a previous green candle by at least one
more bar. In the TWX example, this adds eight more green candles in the
uptrend (Figure 5). To do this, we change the green candle and red candle
formulas as follows:
{green candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=Alert(haC>=haOpen,2);
ClHa
{red candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=Alert(haC < haOpen,2);
ClHa
But a number of red candles are still left that we would like to eliminate
in the uptrend. The second step is to see if the new candle comes after a
green candle, or if it is a white candle (close above open). If it is the
latter, there is no need to change the color because the bars still point
in the direction of the uptrend. In Figure 6 you can see that another two
red candles are eliminated by this second step. The green candle and red
candle formulas have now been changed as follows:
{green candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=Alert(haC>=haOpen,2);
ClHa OR (Ref(ClHa,-1) AND (C>=O OR C>=Ref(C,-1)))
{red candle}
haOpen:=(Ref((O+H+L+C)/4,-1)+PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
ClHa:=Alert(haC < haOpen,2);
ClHa OR (Ref(ClHa,-1) AND (C < O OR C < Ref(C,-1)))
Sidebar: MetaStock Crossover Formula
avg:=34;
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((H+L)/2,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlDif:=ZlCl-ZlHa;
ZlDif
Sidebar: MetaStock and the Last Step
(Note: The MetaStock expert for an uptrend is "_Uptrend_HA")
{green candle}
avg:=34;
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((H+L)/2,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlDif:=ZlCl-ZlHa;
keep1:=Alert(haC>=haOpen,2);
keep2:=ZlDif>=0;
keeping:=(keep1 OR keep2);
keepall:=keeping OR (Ref(keeping,-1) AND (C>=O) OR C>=Ref(C,-1));
keep3:=(Abs(C-O)<(H-L)*.35 AND H>=Ref(L,-1));
utr:=Keepall OR (Ref(keepall,-1) AND keep3);
keep1:=Alert(haC < haOpen,2);
keep2:=ZlDif<0;
keep3:=Abs(C-O)<(H-L)*.35 AND L<=Ref(H,-1);
keeping:=keep1 OR keep2;
keepall:=keeping OR (Ref(keeping,-1) AND (C < O) OR C < Ref(C,-1));
dtr:=If(Keepall OR (Ref(keepall,-1) AND keep3)=1,1,0);
upw:=dtr=0 AND Ref(dtr,-1) AND utr;
dnw:=utr=0 AND Ref(utr,-1) AND dtr;
result:=If(upw,1,If(dnw,0,PREV));
result
{red candle}
avg:=34;
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((H+L)/2,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlDif:=ZlCl-ZlHa;
keep1:=Alert(haC>=haOpen,2);
keep2:=ZlDif>=0;
keeping:=(keep1 OR keep2);
keepall:=keeping OR (Ref(keeping,-1) AND (C>=O) OR C>=Ref(C,-1));
keep3:=(Abs(C-O)<(H-L)*.35 AND H>=Ref(L,-1));
utr:=Keepall OR (Ref(keepall,-1) AND keep3);
keep1:=Alert(haC < haOpen,2);
keep2:=ZlDif<0;
keep3:=Abs(C-O)<(H-L)*.35 AND L<=Ref(H,-1);
keeping:=keep1 OR keep2;
keepall:=keeping OR (Ref(keeping,-1) AND (C < O) OR C < Ref(C,-1));
dtr:=If(Keepall OR (Ref(keepall,-1) AND keep3)=1,1,0);
upw:=dtr=0 AND Ref(dtr,-1) AND utr;
dnw:=utr=0 AND Ref(utr,-1) AND dtr;
result:=If(upw,1,If(dnw,0,PREV));
result=0
Sidebar: The Heikin-Ashi candlestick oscillator (HACO)
{HACO}
avg:=Input("Up TEMA average: ",1,100,34);
avgdn:=Input("Down TEMA Average: ",1,100,34);
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((H+L)/2,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlDif:=ZlCl-ZlHa;
keep1:=Alert(haC>=haOpen,2);
keep2:=ZlDif>=0;
keeping:=(keep1 OR keep2);
keepall:=keeping OR (Ref(keeping,-1) AND (C>=O) OR C>=Ref(C,-1));
keep3:=(Abs(C-O)<(H-L)*.35 AND H>=Ref(L,-1));
utr:=Keepall OR (Ref(keepall,-1) AND keep3);
TMA1:= Tema(haC,avgdn);
TMA2:= Tema(TMA1,avgdn);
Diff:= TMA1 - TMA2;
ZlHa:= TMA1 + Diff;
TMA1:= Tema((H+L)/2,avgdn);
TMA2:= Tema(TMA1,avgdn);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlDif:=ZlCl-ZlHa;
keep1:=Alert(haC < haOpen,2);
keep2:=ZlDif<0;
keep3:=Abs(C-O)<(H-L)*.35 AND L<=Ref(H,-1);
keeping:=keep1 OR keep2;
keepall:=keeping OR (Ref(keeping,-1) AND (C < O) OR C < Ref(C,-1));
dtr:=If(Keepall OR (Ref(keepall,-1) AND keep3)=1,1,0);
upw:=dtr=0 AND Ref(dtr,-1) AND utr;
dnw:=utr=0 AND Ref(utr,-1) AND dtr;
result:=If(upw,1,If(dnw,0,PREV));
result
--Sylvain Vervoort
MetaStock code for the Special K and MA (weekly)
p1:=Input("Enter MA Value",1,500,52);
p2:=Input("Enter MA Value",1,500,26);
(Mov(ROC(C,4,%),4, E)*1)+(Mov(ROC(C,5,%),5, E)*2)+(Mov(ROC(C,6,%),6, E)*3)+(Mov(ROC(C,8,%),6, E)*5)+
(Mov(ROC(C,10,%),10,E)*1)+((Mov(ROC(C,13,%),13,E)*2)+
(Mov(ROC(C,15,%),15,E)*3)+(Mov(ROC(C,20,%),20,E)*4)*1)+
((Mov(ROC(C,39,%),26,E)*1)+(Mov(ROC(C,52,%),26,E)*2)+
(Mov(ROC(C,78,%),26,E)*3)+(Mov(ROC(C,104,%),39,E)*4)*1); Mov(Mov((Mov(ROC(C,4,%),4, E)*1)+(Mov(ROC(C,5,%),5, E)*2)+
(Mov(ROC(C,6,%),6, E)*3)+(Mov(ROC(C,8,%),6, E)*5)+
(Mov(ROC(C,10,%),10,E)*1)+((Mov(ROC(C,13,%),13,E)*2)+
(Mov(ROC(C,15,%),15,E)*3)+(Mov(ROC(C,20,%),20,E)*4)*1)+
((Mov(ROC(C,39,%),26,E)*1)+(Mov(ROC(C,52,%),26,E)*2)+
(Mov(ROC(C,78,%),26,E)*3)+(Mov(ROC(C,104,%),39,E)*4)*1),p1,S),p2,S);
zero:=0;
zero;
MetaStock code for the Special K and MA (daily)
p1:= Input("Enter First MA Time Span",1,500,100);
p2:= Input("Enter First MA Time Span",1,500,100);
(Mov(ROC(C,10,%),10,S)*1)+(Mov(ROC(C,15,%),10,S)*2)+
(Mov(ROC(C,20,%),10,S)*3)+(Mov(ROC(C,30,%),15,S)*4)+
Mov(ROC(C,50,%),50,S)*1+(Mov(ROC(C,65,%),65,S)*2)+
(Mov(ROC(C,75,%),75,S)*3)+(Mov(ROC(C,100,%),100,S)*4)+
(Mov(ROC(C,195,%),130,S)*1)+(Mov(ROC(C,265,%),130,S)*2)+
(Mov(ROC(C,390,%),130,S)*3)+(Mov(ROC(C,530,%),195,S)*4);
Mov(Mov((Mov(ROC(C,10,%),10,S)*1)+(Mov(ROC(C,15,%),10,S)*2)+
(Mov(ROC(C,20,%),10,S)*3)+(Mov(ROC(C,30,%),15,S)*4)+
Mov(ROC(C,50,%),50,S)*1+(Mov(ROC(C,65,%),65,S)*2)+
(Mov(ROC(C,75,%),75,S)*3)+(Mov(ROC(C,100,%),100,S)*4)+
(Mov(ROC(C,195,%),130,S)*1)+(Mov(ROC(C,265,%),130,S)*2)+
(Mov(ROC(C,390,%),130,S)*3)+(Mov(ROC(C,530,%),195,S)*4),p1,S),p2,S);
zero:=0;
zero;
zero:=0;
SIDEBAR: CORONA CHART SIGNAL TO NOISE RATIO TRADESTATION EASYCODE
{by John F. Ehlers copyright (c) 2008
The amplitude of the dominant cycle is normalized to the amplitude of the noise.
Noise is defined as the average daily trading range. The Signal to Noise Ratio
is measured in decibels (dB). Unless the cycle amplitude is at least 3 dB
greater than the noise, the use of cycle-based entries and oscillators should be
avoided because the uncertainty of getting a good entry and exit point during
day can negate any potential profit realized from the cyclic swing. A Signal to
Noise ratio in excess of 6 dB signals a strong cyclic component relative to the
noise.
}
Inputs:
Price((H+L)/2),
LineR(220),
LineG(255),
LineB(255),
FuzzR(0),
FuzzG(190),
FuzzB(190);
Vars:
delta(0.1),
gamma(0),
alpha(0),
beta(0),
N(0),
Period(0),
MaxAmpl(0),
Num(0),
Denom(0),
DC(0),
DomCyc(0),
Color1(0),
Color2(0),
Color3(0),
alpha1(0),
HP(0),
SmoothHP(0),
Avg(0),
Signal(0),
Noise(0),
SNR(0),
Width(0);
Arrays:
I[60](0),
OldI[60](0),
OlderI[60](0),
Q[60](0),
OldQ[60](0),
OlderQ[60](0),
Real[60](0),
OldReal[60](0),
OlderReal[60](0),
Imag[60](0),
OldImag[60](0),
OlderImag[60](0),
Ampl[60](0),
OldAmpl[60](0),
DB[60](0),
OldDB[60](0),
Raster[50](0),
OldRaster[50](0);
alpha1 = (1 - Sine (360 / 30)) / Cosine(360 / 30);
HP = .5*(1 + alpha1)*(Price - Price[1]) + alpha1*HP[1];
SmoothHP = (HP + 2*HP[1] + 3*HP[2] + 3*HP[3] + 2*HP[4] + HP[5]) / 12;
IF CurrentBar < 7 Then SmoothHP = Price - Price[1];
IF CurrentBar = 1 THEN SmoothHP = 0;
delta = -.015*CurrentBar + .5;
If delta < .1 then delta = .1;
If CurrentBar > 12 Then Begin
For N = 12 to 60 Begin
beta = Cosine(720 / N);
gamma = 1 / Cosine(1440*delta / N);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Q[N] = (.5*N / 6.28318)*(SmoothHP - SmoothHP[1]);
I[N] = SmoothHP;
Real[N] = .5*(1 - alpha)*(I[N] - OlderI[N]) + beta*(1 + alpha)*OldReal[N] - alpha*OlderReal[N];
Imag[N] = .5*(1 - alpha)*(Q[N] - OlderQ[N]) + beta*(1 + alpha)*OldImag[N] - alpha*OlderImag[N];
Ampl[N] = (Real[N]*Real[N] + Imag[N]*Imag[N]);
End;
End;
For N = 12 to 60 Begin
OlderI[N] = OldI[N];
OldI[N] = I[N];
OlderQ[N] = OldQ[N];
OldQ[N] = Q[N];
OlderReal[N] = OldReal[N];
OldReal[N] = Real[N];
OlderImag[N] = OldImag[N];
OldImag[N] = Imag[N];
OldAmpl[N] = Ampl[N];
OldDB[N] = DB[N];
End;
For N = 1 to 50 Begin
OldRaster[N] = Raster[N];
End;
MaxAmpl = Ampl[12];
For N = 12 to 60 Begin
If Ampl[N] > MaxAmpl then MaxAmpl = Ampl[N];
End;
For N = 12 to 60 Begin
If MaxAmpl <> 0 AND (Ampl[N] / MaxAmpl) > 0 Then DB[N] = -10*Log(.01 / (1 - .99*Ampl[N] / MaxAmpl)) / Log(10);
DB[N] = .33*DB[N] + .67*OldDB[N];
If DB[N] > 20 then DB[N] = 20;
End;
Num = 0;
Denom = 0;
For N = 12 to 60 Begin
If DB[N] <= 6 Then Begin
Num = Num + N*(20 - DB[N]);
Denom = Denom + (20 - DB[N]);
End;
If Denom <> 0 Then DC = .5*Num / Denom;
End;
DomCyc = Median(DC, 5);
If DomCyc < 6 Then DomCyc = 6;
Avg = .1*Price + .9*Avg[1];
If Avg <> 0 and MaxAmpl > 0 Then Signal = .2*SquareRoot(MaxAmpl) + .9*Signal[1];
If Avg <> 0 and CurrentBar > 5 Then Noise = .1*Median((H-L), 5) + .9*Noise[1];
If Signal <> 0 and Noise <> 0 Then SNR = 20*Log(Signal / Noise) / Log(10) + 3.5;
IF SNR < 1 Then SNR = 0;
If SNR > 11 Then SNR = 10;
SNR = .1*SNR;
Width = -.4*SNR + .2;
If SNR > .5 then Width = 0;
For N = 1 to 50 Begin
Raster[N] = 20;
If N < Round(50*SNR,0) Then Raster[N] = .5*(Power((20*SNR - .4*N)/ Width, .8) + OldRaster[N]);
If N > Round(50*SNR, 0) and (.4*N - 20*SNR) / Width > 1 Then Raster[N] = .5*(Power((-20*SNR + .4*N)/ Width, .8) + OldRaster[N]) ;
If N = Round(50*SNR,0) Then Raster[N] = 0 + .5*OldRaster[N];
If Raster[N] < 0 Then Raster[N] = 0;
If Raster[N] > 20 Then Raster[N] = 20;
If SNR > .5 then Raster[N] = 20;
End;
Plot1(10*SNR+1, "S51", RGB(LineR, LineG, LineB),0,2);
For N = 1 to 50 Begin
IF Raster[N] <= 10 THEN Begin
Color1 = LineR + Raster[N]*(FuzzR - LineR) / 10;
Color2 = LineG + Raster[N]*(FuzzG - LineG) / 10;
Color3 = LineB + Raster[N]*(FuzzB - LineB) / 10;
END;
IF Raster[N] > 10 THEN Begin
Color1 = FuzzR*(2 - Raster[N] / 10);
Color2 = FuzzG*(2 - Raster[N] / 10);
Color3 = FuzzB*(2 - Raster[N] / 10);
END;
//If N = 1 Then Plot1(N, "S1", RGB(Color1, Color2, Color3),Color3,5);
If N = 2 Then Plot2(.2*N+1, "S2", RGB(Color1, Color2, Color3),0,5);
If N = 3 Then Plot3(.2*N+1, "S3", RGB(Color1, Color2, Color3),0,5);
If N = 4 Then Plot4(.2*N+1, "S4", RGB(Color1, Color2, Color3),0,5);
If N = 5 Then Plot5(.2*N+1, "S5", RGB(Color1, Color2, Color3),0,5);
If N = 6 Then Plot6(.2*N+1, "S6", RGB(Color1, Color2, Color3),0,5);
If N = 7 Then Plot7(.2*N+1, "S7", RGB(Color1, Color2, Color3),0,5);
If N = 8 Then Plot8(.2*N+1, "S8", RGB(Color1, Color2, Color3),0,5);
If N = 9 Then Plot9(.2*N+1, "S9", RGB(Color1, Color2, Color3),0,5);
If N = 10 Then Plot10(.2*N+1, "S10", RGB(Color1, Color2, Color3),0,5);
If N = 11 Then Plot11(.2*N+1, "S11", RGB(Color1, Color2, Color3),0,5);
If N = 12 Then Plot12(.2*N+1, "S12", RGB(Color1, Color2, Color3),0,5);
If N = 13 Then Plot13(.2*N+1, "S13", RGB(Color1, Color2, Color3),0,5);
If N = 14 Then Plot14(.2*N+1, "S14", RGB(Color1, Color2, Color3),0,5);
If N = 15 Then Plot15(.2*N+1, "S15", RGB(Color1, Color2, Color3),0,5);
If N = 16 Then Plot16(.2*N+1, "S16", RGB(Color1, Color2, Color3),0,5);
If N = 17 Then Plot17(.2*N+1, "S17", RGB(Color1, Color2, Color3),0,5);
If N = 18 Then Plot18(.2*N+1, "S18", RGB(Color1, Color2, Color3),0,5);
If N = 19 Then Plot19(.2*N+1, "S19", RGB(Color1, Color2, Color3),0,5);
If N = 20 Then Plot20(.2*N+1, "S20", RGB(Color1, Color2, Color3),0,5);
If N = 21 Then Plot21(.2*N+1, "S21", RGB(Color1, Color2, Color3),0,5);
If N = 22 Then Plot22(.2*N+1, "S22", RGB(Color1, Color2, Color3),0,5);
If N = 23 Then Plot23(.2*N+1, "S23", RGB(Color1, Color2, Color3),0,5);
If N = 24 Then Plot24(.2*N+1, "S24", RGB(Color1, Color2, Color3),0,5);
If N = 25 Then Plot25(.2*N+1, "S25", RGB(Color1, Color2, Color3),0,5);
If N = 26 Then Plot26(.2*N+1, "S26", RGB(Color1, Color2, Color3),0,5);
If N = 27 Then Plot27(.2*N+1, "S27", RGB(Color1, Color2, Color3),0,5);
If N = 28 Then Plot28(.2*N+1, "S28", RGB(Color1, Color2, Color3),0,5);
If N = 29 Then Plot29(.2*N+1, "S29", RGB(Color1, Color2, Color3),0,5);
If N = 30 Then Plot30(.2*N+1, "S30", RGB(Color1, Color2, Color3),0,5);
If N = 31 Then Plot31(.2*N+1, "S31", RGB(Color1, Color2, Color3),0,5);
If N = 32 Then Plot32(.2*N+1, "S32", RGB(Color1, Color2, Color3),0,5);
If N = 33 Then Plot33(.2*N+1, "S33", RGB(Color1, Color2, Color3),0,5);
If N = 34 Then Plot34(.2*N+1, "S34", RGB(Color1, Color2, Color3),0,5);
If N = 35 Then Plot35(.2*N+1, "S35", RGB(Color1, Color2, Color3),0,5);
If N = 36 Then Plot36(.2*N+1, "S36", RGB(Color1, Color2, Color3),0,5);
If N = 37 Then Plot37(.2*N+1, "S37", RGB(Color1, Color2, Color3),0,5);
If N = 38 Then Plot38(.2*N+1, "S38", RGB(Color1, Color2, Color3),0,5);
If N = 39 Then Plot39(.2*N+1, "S39", RGB(Color1, Color2, Color3),0,5);
If N = 40 Then Plot40(.2*N+1, "S40", RGB(Color1, Color2, Color3),0,5);
If N = 41 Then Plot41(.2*N+1, "S41", RGB(Color1, Color2, Color3),0,5);
If N = 42 Then Plot42(.2*N+1, "S42", RGB(Color1, Color2, Color3),0,5);
If N = 43 Then Plot43(.2*N+1, "S43", RGB(Color1, Color2, Color3),0,5);
If N = 44 Then Plot44(.2*N+1, "S44", RGB(Color1, Color2, Color3),0,5);
If N = 45 Then Plot45(.2*N+1, "S45", RGB(Color1, Color2, Color3),0,5);
If N = 46 Then Plot46(.2*N+1, "S46", RGB(Color1, Color2, Color3),0,5);
If N = 47 Then Plot47(.2*N+1, "S47", RGB(Color1, Color2, Color3),0,5);
If N = 48 Then Plot48(.2*N+1, "S48", RGB(Color1, Color2, Color3),0,5);
If N = 49 Then Plot49(.2*N+1, "S49", RGB(Color1, Color2, Color3),0,5);
If N = 50 Then Plot50(.2*N+1, "S50", RGB(Color1, Color2, Color3),0,5);
End;
Measuring Cycle Periods" - EasyLanguage code for a dominant cycle tuned bypass filter by John F. Ehlers
EasyLanguage code for a dominant cycle tuned bypass filter
Inputs:
Price((H+L)/2);
Vars:
delta(0.1),
gamma(0),
alpha(0),
beta(0),
N(0),
Period(0),
MaxAmpl(0),
Num(0),
Denom(0),
DC(0),
DomCyc(0),
Color1(0),
Color2(0),
alpha1(0),
HP(0),
SmoothHP(0);
Arrays:
I[50](0),
OldI[50](0),
OlderI[50](0),
Q[50](0),
OldQ[50](0),
OlderQ[50](0),
Real[50](0),
OldReal[50](0),
OlderReal[50](0),
Imag[50](0),
OldImag[50](0),
OlderImag[50](0),
Ampl[50](0),
OldAmpl[50](0),
DB[50](0);
alpha1 = (1 - Sine (360 / 40)) / Cosine(360 / 40);
HP = .5*(1 + alpha1)*(Price - Price[1]) + alpha1*HP[1];
SmoothHP = (HP + 2*HP[1] + 3*HP[2] + 3*HP[3] + 2*HP[4] + HP[5]) / 12;
IF CurrentBar < 7 Then SmoothHP = Price - Price[1];
IF CurrentBar = 1 THEN SmoothHP = 0;
delta = -.015*CurrentBar + .5;
If delta < .15 then delta = .15;
If CurrentBar > 6 Then Begin
For N = 8 to 50 Begin
beta = Cosine(360 / N);
gamma = 1 / Cosine(720*delta / N);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Q[N] = (N / 6.283185)*(SmoothHP - SmoothHP[1]);
I[N] = SmoothHP;
Real[N] = .5*(1 - alpha)*(I[N] - OlderI[N]) + beta*(1 + alpha)*OldReal[N] - alpha*OlderReal[N];
Imag[N] = .5*(1 - alpha)*(Q[N] - OlderQ[N]) + beta*(1 + alpha)*OldImag[N] - alpha*OlderImag[N];
Ampl[N] = (Real[N]*Real[N] + Imag[N]*Imag[N]);
End;
End;
For N = 8 to 50 Begin
OlderI[N] = OldI[N];
OldI[N] = I[N];
OlderQ[N] = OldQ[N];
OldQ[N] = Q[N];
OlderReal[N] = OldReal[N];
OldReal[N] = Real[N];
OlderImag[N] = OldImag[N];
OldImag[N] = Imag[N];
OldAmpl[N] = Ampl[N];
End;
MaxAmpl = Ampl[10];
For N = 8 to 50 Begin
If Ampl[N] > MaxAmpl then MaxAmpl = Ampl[N];
End;
For N = 8 to 50 Begin
IF MaxAmpl <> 0 AND (Ampl[N] / MaxAmpl) > 0 THEN DB[N] = -10*Log(.01 / (1 - .99*Ampl[N] / MaxAmpl)) / Log(10);
If DB[N] > 20 then DB[N] = 20;
End;
Num = 0;
Denom = 0;
For N = 10 to 50 Begin
If DB[N] <= 3 Then Begin
Num = Num + N*(20 - DB[N]);
Denom = Denom + (20 - DB[N]);
End;
If Denom <> 0 Then DC = Num / Denom;
End;
DomCyc = Median(DC, 10);
If DomCyc < 8 Then DomCyc = 20;
beta = Cosine(360 / DomCyc);
gamma = 1 / Cosine(720*delta / DomCyc);
alpha = gamma - SquareRoot(gamma*gamma - 1);
Value1 = .5*(1 - alpha)*(SmoothHP - SmoothHP[1]) + beta*(1 + alpha)*Value1[1] - alpha*Value1[2];
Value2 = (DomCyc / 6.28)*(Value1 - Value1[1]);
Plot1(Value1, "Sine", Red, default, 2);
Plot2(Value2, "Cosine", Cyan, default, 2);
--John F. Ehlers
MetaStock code from "Short-Term Volume And Price Oscillator" by Sylvain Vervoort
PRICE SMOOTHING
If you want to determine the short-term market direction, there shouldn't be any
delay when you smooth the price trend. This you can accomplish using heikin-ashi
recalculated prices and a short-term triple exponential moving average (TEMA).
In MetaStock code, you can do this with the following formula:
haO:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haCl:=((O+H+L+C)/4+haO+Max((O+H+L+C)4,Max(H,
haO))+Min((O+H+L+C)/4,Min(L,haO)))/4;
haC:=Tema(haCl,5);
VOLUME SMOOTHING
But if you take a look at the volume bars on the chart of Dow Chemical in
Figure 8, you can see that determining the short-term volume trend is no simple
task. The first action item is to limit single extreme-volume counts. So you
compare the volume with a medium-term simple moving average of the previous
volume and limit an extreme value to no more than twice the moving average.
In MetaStock code, it can be done this way:
vave:=Ref(Mov(V,40,S),-1);
vmax:=vave*2;
vc:=If(V < vmax,V,vmax);
The second action item is to smooth without creating delays. One of the better
methods of tracking the short-term trend of volume is by linear regression. You
can smooth the linear regression slope with a short-term TEMA average, but the
result will still not be smooth enough. So in the final step we maintain the
previous calculated result over a period of two bars. The final result of this
volume trend smoothing can be seen as a digital value in Figure 8.
In MetaStock code, I did it this way:
vtr:=Tema(LinRegSlope(vc,8),8);
Alert(vtr >= Ref(vtr,-1),2);
SVAPO MetaStock Code (sidebar )
{calculate the heikin-ashi closing average haCl and get the input variables}
haO:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haCl:=((O+H+L+C)/4+haO+Max((O+H+L+C)/4,Max(H,haO))+Min((O+H+L+C)/4,Min(L,haO)))/4;
period:= Input("SVAPO period :", 2, 20, 8);
cutoff:= Input("Minimum % price change :",0,10,1);
{Inputs for standard deviation bands}
devH:= Input("Standard Deviation High :", 0.1, 5, 1.5);
devL:= Input("Standard Deviation Low :", 0.1, 5, 1.3);
stdevper:= Input("Standard Deviation Period :", 1, 200, 100);
{Smooth HaCl closing price}
haC:=Tema(haCl,period/1.6);
{Medium term MA of Volume to limit extremes and division factor}
vave:=Ref(Mov(V,period*5,S),-1);
vmax:=vave*2;
vc:=If(V < vmax,V,vmax);
{Basic volume trend}
vtr:=Tema(LinRegSlope(V,period),period);
{SVAPO result of price and volume}
SVAPO:=Tema(Sum(If(haC>(Ref(haC,-1)*(1+cutoff/1000))
AND Alert(vtr>=Ref(vtr,-1),2), vc, If(haC<(Ref(haC,-1)*(1-cutoff/1000))
AND Alert(vtr>Ref(vtr,-1),2),-vc,0)),period)/(vave+1),period);
devH*Stdev(SVAPO,stdevper);
-devL*Stdev(SVAPO,stdevper);
zeroref:=0;
zeroref;
SVAPO
--Sylvain Vervoort
MetaStock code for "Trading Trendline Breaks, Part 2" by Sylvain Vervoort
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
Important: You cannot use this test in real time. It uses the zigzag
function and this function looks into the future if data is available, as is
the case here. However, for our investigation this is not important. Our aim is
to create buy & sell points on past data that are as close as possible to the
trendline breaks.
MetaStock code for "Building A Trading Template" by Giorgos Siligardos
CALCULATING THE STOPS BARRIER IN METASTOCK
Instructions:
Open the Indicator Builder and create a new indicator named "stops barrier (SB)."
The formula for the indicator is provided below.
To apply the SB indicator, insert the entry date and the minDRR when prompted.
There is an option to plot the SB indicator in realistic or review mode. In
realistic mode, the value of the SB for tomorrow is calculated today and it is
aligned with today's bar. In review mode, the value of SB for tomorrow is
aligned with tomorrow's bar. In other words, the plot of review mode is the plot
of realistic mode shifted forward by one bar. The review mode shows what really
happened and can be used for back-testing the behavior of SB visually.
Figure 1 in the article was created using the SB indicator in review mode.
MetaStock code for the stops barrier (SB):
{Entry Date}
day1:=Input("Entry Day:",1, 32,24);
month1:=Input("Entry Month:",1, 12,6);
year1:=Input("Entry Year:",1990,3000,2005);
date1:= DayOfMonth()=day1 AND Month()=month1 AND Year()=year1;
{Price Target}
target:=Input("Price Target:",0,1000000 ,71);
{Minimum DRR}
minDRR:=Input("Minimum Dynamic Reward/Risk:",0.01,100 ,3);
{Realistic or Review}
shift:=Input("[1] Realistic, [2] Review ",1,2,1);
{Stops Barrier}
SB:=C-(target-C)/minDRR;
ValueWhen(1 ,date1, 1)*If(shift=1, SB, Ref(SB,-1))
--Giorgos Siligardos
MetaStock code for "Two-Point Problem Of The Rate Of Change" by Luoma & Nikkinen
In "Two-Point Problem Of The Rate Of Change," authors Martti Luoma, PhD, and Jussi Nikkinen, PhD, look at a modified version of the rate of change indicator, free of its detracting problem.
METASTOCK CODE FOR RATE OF CHANGE AND ADJUSTED RATE OF CHANGE
roc(DATA ARRAY, PERIODS, DIFF_METHOD)
In our article, we had in mind the formulation:
ROC(close, periods, percent)
In QuickList, it is named "Price Roc." Our new indicator in MetaStock is as follows:
ROCadj = mov(ROC(close, 1, PERCENT), PERIODS, EXPONENTIAL)
-M.L. and J.N.
Sn. Teo cuma gününün kapanış tablosunu alabilir miyim...
[QUOTE=özdenil;62384]Sn. Teo cuma gününün kapanış tablosunu alabilir miyim...[/QUOTE]
VOB - 14.11.2008 05:35:01
----------------------------
Yesterday's PoC: 9 (32,125)
Yesterday's Initial Range: 31,550 - 31,950
Yesterday's Total Range: 31,550 to 33,275
Yesterday's Pva: 31,825 to 32,675
Yesterday's MPVA: 32,038 / 32,25 / 32,463
Yesterday's MRange: 31,981 / 32,413 / 32,844
----------------------------
Today's PoC: 11 (32,950)
Today's Initial Range: 33,175 - 34,000
Today's Total Range: 32,525 to 34,000
Today's Pva: 32,800 to 33,350
Today's MRange: 32,888 / 33,250 / 33,625
Today's MPVA: 32,938 / 33,075 / 33,213
----------------------------
Selling Tail: 33,500 to 34,000
Buying Tail: 32,525
----------------------------
Market Type: Down Variation Day
----------------------------
TPOc Above Zone: 140
TPOc Below Zone: 85
----------------------------
POC Range Area: Down
----------------------------
Market Profil hakkında bir şey daha eklemek istiyorum.
Poc biliyorsunuz en iyi adil fiyat. Bu aynı zamanda destek veya direnc gorevıde gorur.
Yanı pocun altında value alanın alt bandında aldıgınızda tepkı alımı yaparsınız.Uzerınde satarsanız da tepkı satısı yaparsınız.Ama [U]hep hareket yonunde olmak ısteyenler ıcın[/U], Pocun uzerınde short yapılmamalıdır.Altında da long yapılmamalıdır.
Market Profil Hakkında seminer almak isterseniz yurt dışında
[url]http://www.alexandertrading.com/home/index.asp[/url]
Ahmet Kaya Şarkıları,Rapidshare de search yaparken buldum .Sevenlerine...
[URL="http://rapidshare.com/files/164370239/Simge_-_Ahmet_Kaya_Sarkilari_2008.zip"]Simge_-_Ahmet_Kaya_Sarkilari_2008.zip[/URL]
Sermayenin dünyayı nasıl yönettiği ile ilgili Documentary bir film, Türkçe alt yazısı mevcut..
[url]http://rapidshare.com/files/164425476/Zeitgeist_Remastered.part1.rar[/url]
[url]http://rapidshare.com/files/164425935/Zeitgeist_Remastered.part2.rar[/url]
[url]http://rapidshare.com/files/164427140/Zeitgeist_Remastered.part3.rar[/url]
[url]http://rapidshare.com/files/164425929/Zeitgeist_Remastered.part4.rar[/url]
[url]http://rapidshare.com/files/164426040/Zeitgeist_Remastered.part5.rar[/url]
[url]http://rapidshare.com/files/164425644/Zeitgeist_Remastered.part6.rar[/url]
[url]http://rapidshare.com/files/164424376/Zeitgeist_Remastered.part7.rar[/url]
[QUOTE=teo;62404]Sermayenin dünyayı nasıl yönettiği ile ilgili Documentary bir film, Türkçe alt yazısı mevcut..
[url]http://rapidshare.com/files/164425476/Zeitgeist_Remastered.part1.rar[/url]
[url]http://rapidshare.com/files/164425935/Zeitgeist_Remastered.part2.rar[/url]
[url]http://rapidshare.com/files/164427140/Zeitgeist_Remastered.part3.rar[/url]
[url]http://rapidshare.com/files/164425929/Zeitgeist_Remastered.part4.rar[/url]
[url]http://rapidshare.com/files/164426040/Zeitgeist_Remastered.part5.rar[/url]
[url]http://rapidshare.com/files/164425644/Zeitgeist_Remastered.part6.rar[/url]
[url]http://rapidshare.com/files/164424376/Zeitgeist_Remastered.part7.rar[/url][/QUOTE]
Bu filmi seyrettikten sonra matriks ten uyandırılmış gibi hissettim kendimi üüü
Linklerin düzeltilmiş hali..
[URL="http://rapidshare.com/files/164425476/Zeitgeist_Remastered.part1.rar"]Zeitgeist_Remastered.part1.rar[/URL]
[URL="http://rapidshare.com/files/164425935/Zeitgeist_Remastered.part2.rar"]Zeitgeist_Remastered.part2.rar[/URL]
[URL="http://rapidshare.com/files/164427140/Zeitgeist_Remastered.part3.rar"]Zeitgeist_Remastered.part3.rar[/URL]
[URL="http://rapidshare.com/files/164425929/Zeitgeist_Remastered.part4.rar"]Zeitgeist_Remastered.part4.rar[/URL]
[URL="http://rapidshare.com/files/164426040/Zeitgeist_Remastered.part5.rar"]Zeitgeist_Remastered.part5.rar[/URL]
[URL="http://rapidshare.com/files/164425644/Zeitgeist_Remastered.part6.rar"]Zeitgeist_Remastered.part6.rar[/URL]
[URL="http://rapidshare.com/files/164424376/Zeitgeist_Remastered.part7.rar"]Zeitgeist_Remastered.part7.rar[/URL]
Sayın hdioxyde,
Aşağıda bir çeşit hareketli ortalama var.
Daha önceden yapmıştım ama şu an nerede hata yaptığımı bilmiyorum ve system tester'ını (MS) oluşturamıyorum.
İndicator aşağıda...
{Kaufman's Adaptive Moving Average Binary Wave }
Periods := Input("Time Periods",1,1000, 10);
Direction := CLOSE - Ref(CLOSE,-periods);
Volatility := Sum(Abs(ROC(CLOSE,1,$)),periods);
ER := Abs(Direction/Volatility);
FastSC := 2/(2 + 1);
SlowSC := 2/(30 + 1);
SSC := ER * (FastSC - SlowSC) + SlowSC;
Constant := Pwr(SSC,2);
AMA := If(Cum(1) = periods +1, Ref(CLOSE,-1)+ constant * (CLOSE- Ref(CLOSE,-1)),PREV + constant * (CLOSE - PREV));
FilterPercent := Input("Filter Percentage",0,100,15)/100;
Filter := FilterPercent * Std(AMA - Ref(AMA,-1),Periods);
AMALow := If(AMA < Ref(AMA,-1),AMA,PREV);
AMAHigh := If(AMA > Ref(AMA,-1),AMA,PREV);
If(AMA - AMALow > Filter, 1 {Buy Signal},If(AMAHigh - AMA > Filter, -
1 {Sell Signal}, 0 {No_Signal}))
Sn. Teo kapanışı rica ediyorum...