Metastock la ilgili herşey

[netkit]

Hayırlı Pazarlar
inşallah yanlış yere sormuyorumdur bu kodu matrikse çevirmeye çalıştım ama malesef beni aştı yardımcı olabilirmisiniz?

_SECTION_BEGIN("Heiken Ashi Smoothed");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),ParamColor("BgBottom", colorBlack),ParamColor("Titleblock",colorLightGrey ));
SetChartOptions(0,chartShowArrows|chartShowDates);
GraphXSpace=5;

p=Param("Period",6,2,30,1);
Om=MA(O,p);
hm=MA(H,p);
lm=MA(L,p);
Cm=MA(C,p);

HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );

res=HHV(Hm,4);
sup=LLV(Lm,4);
tsl=IIf(ValueWhen(IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0))!=0,IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0)),1)==1,sup,res);

Plot(tsl, _DEFAULT_NAME(), colorWhite, styleStaircase);
Buy = Cross(C,res) ;
Sell = Cross(sup,C) ;
Short=Sell;
Cover=Buy;
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(Buy*shapeUpArrow,colorYellow, 0, Low,Offset =-12);
PlotShapes(Sell*shapeDownArrow,colorYellow, 0, High, Offset =-12);

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

Filter=Buy OR Sell;
AddColumn(Buy,"Buy",1.0);
AddColumn(Sell,"Sell",1.0);

_SECTION_END();

Candlecolor=IIf(Haclose>Haopen,colorGreen,colorRed );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), candlecolor, styleCandle | styleNoLabel );
//Plot( C, "Close", Candlecolor , styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

[uufuk]

Hayırlı Pazarlar
inşallah yanlış yere sormuyorumdur bu kodu matrikse çevirmeye çalıştım ama malesef beni aştı yardımcı olabilirmisiniz?

_SECTION_BEGIN("Heiken Ashi Smoothed");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),ParamColor("BgBottom", colorBlack),ParamColor("Titleblock",colorLightGrey ));
SetChartOptions(0,chartShowArrows|chartShowDates);
GraphXSpace=5;

p=Param("Period",6,2,30,1);
Om=MA(O,p);
hm=MA(H,p);
lm=MA(L,p);
Cm=MA(C,p);

HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );

res=HHV(Hm,4);
sup=LLV(Lm,4);
tsl=IIf(ValueWhen(IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0))!=0,IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0)),1)==1,sup,res);

Plot(tsl, _DEFAULT_NAME(), colorWhite, styleStaircase);
Buy = Cross(C,res) ;
Sell = Cross(sup,C) ;
Short=Sell;
Cover=Buy;
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(Buy*shapeUpArrow,colorYellow, 0, Low,Offset =-12);
PlotShapes(Sell*shapeDownArrow,colorYellow, 0, High, Offset =-12);

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

Filter=Buy OR Sell;
AddColumn(Buy,"Buy",1.0);
AddColumn(Sell,"Sell",1.0);

_SECTION_END();

Candlecolor=IIf(Haclose>Haopen,colorGreen,colorRed );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), candlecolor, styleCandle | styleNoLabel );
//Plot( C, "Close", Candlecolor , styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

Matriksde indikatorlerin MUM gösterimi yoktur,dolayısıyla süssüz sade olarak formulun cevrimi aşagıdadır..

p:=6;  hm:=Mov(H,p,s);  lm:=Mov(L,p,s);  
res:=HHV(hm,4);     sup:=LLV(lm,4);
tsl:=If(ValueWhen(1,If(C>Ref(res,-1),1,If(C<Ref(sup,-1),-1,0))<>0,If(C>Ref(res,-1),1,If(C<Ref(sup,-1),-1,0)))=1,sup,res); 
tsl

Heriki grafikde son gün resmedilmişdir..

[netkit]

Çok teşekkür ederim peki ideal de kullanabilirmiyim?

[uufuk]

Çok teşekkür ederim peki ideal de kullanabilirmiyim?

İdael C# dilinde vakıf degilim,idealci dostlardan yardım iste..Cevirirlerse kullanabilirsin...

[feridunabi]

Bist30 veya bist100 için 5 dk’lık ve 15 dk’lık tarihsel ( çok eskiye dönük) veri nereden bulabilirim.


Tapatalk kullanarak iPhone aracılığıyla gönderildi

[Sunay]

Herkese iyi günler.

SVE_StopLongMod_Trail_ATR_Date

{SVE_StopLongMod_Trail_ATR_Date}
InpMonth:=Input("Month",1,12,1);
InpDay:=Input("Day",1,31,1);
InpYear:=Input("Year",1800,2050,2009);
InitStop:=Input("Initial Stop Price",0.1,10000,10);
period:=Input("ATR period :",1,100,5);
atrfact:=Input("ATR multiplication :",1,10,3.5);
HiLo:=If(H-L<1.5*Mov(H-L,period,S),H-L, 1.5*Mov(H-L,period,S));
Href:=If(L<=Ref(H,-1),H-Ref(C,-1),(H-Ref(C,-1))-(L-Ref(H,-1))/2);
Lref:=If(H>=Ref(L,-1),Ref(C,-1)-L,(Ref(C,-1)-L)-(Ref(L,-1)-H)/2);
diff1:=Max(HiLo,Href);
diff2:=Max(diff1,Lref);
atrmod:=Wilders(diff2,period);
loss:=atrfact*atrmod;
Entry:= InpYear=Year() AND InpMonth=Month() AND InpDay=DayOfMonth();
StopLong:=ExtFml( "AdvancedStop.StopLong", Entry,InitStop,0,C-Loss,0,0,0,0);
StopLong


Bu formülün; "AdvancedStop.StopLong" bölümünde şu hatayı veriyor: This DLL does not exist in the MSX DLL folder.
Bunu nasıl çözebilirim?
Saygılar.

Formülü aldığım site: http://stocata.org/metastock/stop_trail_modatr.html

[flexy]

Herkese iyi günler.

SVE_StopLongMod_Trail_ATR_Date

{SVE_StopLongMod_Trail_ATR_Date}
InpMonth:=Input("Month",1,12,1);
InpDay:=Input("Day",1,31,1);
InpYear:=Input("Year",1800,2050,2009);
InitStop:=Input("Initial Stop Price",0.1,10000,10);
period:=Input("ATR period :",1,100,5);
atrfact:=Input("ATR multiplication :",1,10,3.5);
HiLo:=If(H-L<1.5*Mov(H-L,period,S),H-L, 1.5*Mov(H-L,period,S));
Href:=If(L<=Ref(H,-1),H-Ref(C,-1),(H-Ref(C,-1))-(L-Ref(H,-1))/2);
Lref:=If(H>=Ref(L,-1),Ref(C,-1)-L,(Ref(C,-1)-L)-(Ref(L,-1)-H)/2);
diff1:=Max(HiLo,Href);
diff2:=Max(diff1,Lref);
atrmod:=Wilders(diff2,period);
loss:=atrfact*atrmod;
Entry:= InpYear=Year() AND InpMonth=Month() AND InpDay=DayOfMonth();
StopLong:=ExtFml( "AdvancedStop.StopLong", Entry,InitStop,0,C-Loss,0,0,0,0);
StopLong


Bu formülün; "AdvancedStop.StopLong" bölümünde şu hatayı veriyor: This DLL does not exist in the MSX DLL folder.
Bunu nasıl çözebilirim?
Saygılar.

Formülü aldığım site: http://stocata.org/metastock/stop_trail_modatr.html

http://www.tradernexus.com/advanceds...ancedstop.html adresinde sayfanın en altında download bölümünden metastock versiyonunuza uygun dll dosyasını indirip MetaStock\External Function DLLs\ klasörüne atmanız gerekli.

[Sunay]

[QUOTE=flexy;2611796]http://www.tradernexus.com/advanceds...ancedstop.html adresinde sayfanın en altında download bölümünden metastock versiyonunuza uygun dll dosyasını indirip MetaStock\External Function DLLs\

Çok teşekkürler.