İDEAL veri terminalinde /Sistem/İndikatör/Robot

[eyupatis]

merhaba aşağıda mt4 kullandığım RSIOMA v2HHLSX indikatörünü idealdata ya çevirebilirmisiniz.



//+--------------------------------------------------------------------------------+
//| RSIOMA v2HHLSX |
//| Kalenzo - fxtsd.com |
//| Hornet(i-RSI)2007, FxTSD.com; MetaQuotes Software Corp. ik |
//| Hist & Levels 20/80;30/70 CrossSig web: http://www.fxservice.eu |
//| Rsioma/MaRsioma X sig email: [email protected] |
//| |
//| The base for this indicator was orginal RSI attached with Metatrader |
//| ^^ removed ^^ |-< Hornet |
//+--------------------------------------------------------------------------------+
#property copyright "Copyright © 2007, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net/"
//----
#property indicator_separate_window
#property indicator_minimum -20
#property indicator_maximum 120
#property indicator_buffers 7
//----
#property indicator_color1 Blue
#property indicator_color2 Red
#property indicator_color3 Green
#property indicator_color4 Magenta
#property indicator_color5 DodgerBlue
#property indicator_color6 BlueViolet
#property indicator_color7 SlateBlue //RoyalBlue
//#property indicator_color8 MediumSlateBlue
#property indicator_width1 2
#property indicator_width4 2
#property indicator_width5 2
#property indicator_width7 2
#property indicator_level1 100
#property indicator_level2 80
//#property indicator_level3 70
#property indicator_level4 50
//#property indicator_level5 30
#property indicator_level6 20
#property indicator_level7 0
#property indicator_levelcolor SlateGray
//---- input parameters
extern int RSIOMA =14;
extern int RSIOMA_MODE =MODE_EMA;
extern int RSIOMA_PRICE =PRICE_CLOSE;
extern int Ma_RSIOMA =21,
Ma_RSIOMA_MODE =MODE_EMA;
extern double BuyTrigger =80.00;
extern double SellTrigger =20.00;
extern color BuyTriggerColor =DodgerBlue;
extern color SellTriggerColor=Magenta;
extern double MainTrendLong =70.00;
extern double MainTrendShort =30.00;
extern color MainTrendLongColor =Red;
extern color MainTrendShortColor =Green;
extern double MajorTrend =50;
extern color marsiomaXSigColor =SlateBlue;
//extern color marsiomaXdnSigColor = MediumSlateBlue;
//---- buffers
double RSIBuffer[];
double MABuffer1[];
double bdn[],bup[];
double sdn[],sup[];
double marsioma[];
double marsiomaXSig[];
//double marsiomaXdnSig[];
string short_name;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
short_name=StringConcatenate("RSIOMA(",RSIOMA,")") ;
IndicatorBuffers(8);
SetIndexBuffer(0,RSIBuffer);
SetIndexBuffer(2,bup);
SetIndexBuffer(1,bdn);
SetIndexBuffer(3,sdn);//Magnet
SetIndexBuffer(4,sup);//DodgerBlue
SetIndexBuffer(5,marsioma);
SetIndexBuffer(6,marsiomaXSig);
// SetIndexBuffer(7,marsiomaXdnSig);
SetIndexBuffer(7,MABuffer1);
SetIndexStyle(0,DRAW_LINE);
SetIndexStyle(2,DRAW_HISTOGRAM);
SetIndexStyle(1,DRAW_HISTOGRAM);
SetIndexStyle(3,DRAW_HISTOGRAM);
SetIndexStyle(4,DRAW_HISTOGRAM);
SetIndexStyle(5,DRAW_LINE);
SetIndexStyle(6,DRAW_ARROW);
// SetIndexStyle(7,DRAW_ARROW);
SetIndexArrow(6,159);//85,88,251(x),252';108,158,159(dot);161,162(crcl);1 10,167(sq);176-179('scope');11-113,250(hlwSq)
// SetIndexArrow(7,159);
// SetIndexEmptyValue(6,EMPTY_VALUE);
// SetIndexEmptyValue(7,EMPTY_VALUE);
SetIndexLabel(0,"Rsioma");
SetIndexLabel(5,"MaRsioma");
SetIndexLabel(1,"TrendDn");
SetIndexLabel(2,"TrendUp");
SetIndexLabel(6,"Up/DnXsig");
IndicatorShortName(short_name);
SetIndexDrawBegin(0,RSIOMA);
SetIndexDrawBegin(1,RSIOMA);
SetIndexDrawBegin(2,RSIOMA);
SetIndexDrawBegin(3,RSIOMA);
SetIndexDrawBegin(4,RSIOMA);
SetIndexDrawBegin(5,RSIOMA);
SetIndexDrawBegin(6,RSIOMA);
SetIndexDrawBegin(7,RSIOMA);
//----
drawLine(BuyTrigger,"BuyTrigger", BuyTriggerColor);
drawLine(SellTrigger,"SellTrigger", SellTriggerColor );
drawLine(MainTrendLong,"MainTrendLong", MainTrendLongColor );
drawLine(MainTrendShort,"MainTrendShort",MainTrend ShortColor );
return(0);
}
//+------------------------------------------------------------------+
//| Relative Strength Index |
//+------------------------------------------------------------------+
int start()
{
int i, ii;
int counted_bars=IndicatorCounted();
double rel,negative,positive;
//----
if(Bars<=RSIOMA) return(0);
//---- initial zero
if(counted_bars<1)
for(i=1;i<=RSIOMA;i++) {RSIBuffer[Bars-i]=0.0;}
//----
ii=Bars-RSIOMA-1;
if(counted_bars>=RSIOMA) ii=Bars-counted_bars-1;
i=ii;
while(i>=0)
{ MABuffer1[i]=iMA(Symbol(),0,RSIOMA,0,RSIOMA_MODE,RSIOMA_PRICE, i);
i--; }
i=ii;
while(i>=0)
{ RSIBuffer[i]=iRSIOnArray(MABuffer1,0,RSIOMA,i);
if(RSIBuffer[i]>50) bup[i]=6;
if(RSIBuffer[i]<50) bdn[i]=-6;
if(RSIBuffer[i] > MainTrendLong) bup[i]=12;
if(RSIBuffer[i] < MainTrendShort) bdn[i]=-12;
if(RSIBuffer[i]<20 && RSIBuffer[i]>RSIBuffer[i+1]) sup[i]=-3;
if(RSIBuffer[i]>80 && RSIBuffer[i]<RSIBuffer[i+1]) sdn[i]=4;
if(RSIBuffer[i]>20 && RSIBuffer[i+1]<=20) sup[i]=5;
if(RSIBuffer[i+1]>=80 && RSIBuffer[i]<80) sdn[i]=-5;
if(RSIBuffer[i+1]<=MainTrendShort && RSIBuffer[i]>MainTrendShort) sup[i]=12;
if(RSIBuffer[i]<MainTrendLong && RSIBuffer[i+1]>=MainTrendLong) sdn[i]=-12;
i--; }
i=ii;
while(i>=0)
{ marsioma[i]=iMAOnArray(RSIBuffer,0,Ma_RSIOMA,0,Ma_RSIOMA_MODE ,i);
marsiomaXSig[i]=EMPTY_VALUE;
//marsiomaXdnSig[i] = EMPTY_VALUE;
if(RSIBuffer[i+1]<=marsioma[i+1]&&RSIBuffer[i]>marsioma[i]) marsiomaXSig[i]=-8;
if(RSIBuffer[i+1]>=marsioma[i+1]&&RSIBuffer[i]<marsioma[i]) marsiomaXSig[i]=8;
i--;}
//----
return(0);
}
//+------------------------------------------------------------------+
void drawLine(double lvl,string name, color Col )
{
ObjectDelete(name);
ObjectCreate(name, OBJ_HLINE, WindowFind(short_name), Time[0], lvl,Time[0], lvl);
ObjectSet(name, OBJPROP_STYLE, STYLE_DOT);
ObjectSet(name, OBJPROP_COLOR, Col);
ObjectSet(name,OBJPROP_WIDTH,1);
}
//+------------------------------------------------------------------+

[eyupatis]

Trend Magic İndikatörü by kivancozbilgic idealdata karşılığı varmıdır


Kod:
period:=input("CCI period",1,500,20);
coeff:=input("ATR Multiplier",1,20,1);
AP:=input("ATR Period",1,500,5);
thisCCI := CCI(period);
lastCCI := Ref(thisCCI,-1);
upT:=L-ATR(AP)*coeff;
downT:=H+ATR(AP)*coeff;
MagicTrend:=If(thisCCI>=0,If(upT<PREV,PREV,upT),If (downT>PREV,PREV,downT));
MagicTrend

[bymehmet]

Trend Magic İndikatörü by kivancozbilgic idealdata karşılığı varmıdır


Kod:
period:=input("CCI period",1,500,20);
coeff:=input("ATR Multiplier",1,20,1);
AP:=input("ATR Period",1,500,5);
thisCCI := CCI(period);
lastCCI := Ref(thisCCI,-1);
upT:=L-ATR(AP)*coeff;
downT:=H+ATR(AP)*coeff;
MagicTrend:=If(thisCCI>=0,If(upT<PREV,PREV,upT),If (downT>PREV,PREV,downT));
MagicTrend

var v = Sistem.GrafikVerileri;
var c = Sistem.GrafikFiyatOku(v, "Kapanis");
var h = Sistem.GrafikFiyatOku(v, "Yuksek");
var l = Sistem.GrafikFiyatOku(v, "Dusuk");

var pd = 20;
var coeff = 1f;
var atrPd = 5;

var cci = Sistem.CommodityChannelIndex(pd);
var atr = Sistem.AverageTrueRange(atrPd);
var tm = Sistem.Liste(0);
for (int i = 1; i < v.Count; i++)
{
float atrCoeff = atr[i] * coeff;
float upT = l[i] - atrCoeff;
float dnT = h[i] + atrCoeff;
tm[i] = cci[i] >= 0 ? upT < tm[i - 1] ? tm[i - 1] : upT : dnT > tm[i - 1] ? tm[i - 1] : dnT;
}
Sistem.Cizgiler[0].Deger = tm;

[yuvaz]

var c = Sistem.GrafikFiyatSec("Kapanis");
var ind = Sistem.TimeSeriesForecast(Sistem.TOMA(c, 13, 1.7), 6);
Sistem.Cizgiler[0].Deger = ind;

Teşekkür ederim

[eyupatis]

var v = Sistem.GrafikVerileri;
var c = Sistem.GrafikFiyatOku(v, "Kapanis");
var h = Sistem.GrafikFiyatOku(v, "Yuksek");
var l = Sistem.GrafikFiyatOku(v, "Dusuk");

var pd = 20;
var coeff = 1f;
var atrPd = 5;

var cci = Sistem.CommodityChannelIndex(pd);
var atr = Sistem.AverageTrueRange(atrPd);
var tm = Sistem.Liste(0);
for (int i = 1; i < v.Count; i++)
{
float atrCoeff = atr[i] * coeff;
float upT = l[i] - atrCoeff;
float dnT = h[i] + atrCoeff;
tm[i] = cci[i] >= 0 ? upT < tm[i - 1] ? tm[i - 1] : upT : dnT > tm[i - 1] ? tm[i - 1] : dnT;
}
Sistem.Cizgiler[0].Deger = tm;

Teşekkür ederim

[eyupatis]

merhaba
linkteki indikatörün idealdatada karşılığı varmıdır?

https://tr.tradingview.com/script/030PfBUQ-RSI-of-MAs/

[eyupatis]

merhaba
solarwinds 0>4 bar arasında al vermiş trend magic 0>4 arsında al vermiş böyle bir sorgulama tasarladım fakat bazı hisselerde hatalı sorgular geliyor.

formülde hatalı yer varmıdır.




// solarwinds

var sw1 = Sistem.GrafikVerileri;
int count = sw1.Count;
int period = 35;
var hh = Sistem.HHV(period);
var ll = Sistem.LLV(period);
var price = Sistem.GrafikFiyatSec("OrtaNokta");
var val1 = Sistem.Liste(count);
var val2 = Sistem.Liste(count);
var sol = Sistem.Liste(count);
for (int sw = 1; sw < count; sw++)
{
val1[sw] = hh[sw] == ll[sw] ? val1[sw - 1] : 0.66f * ((price[sw] - ll[sw]) / (hh[sw] - ll[sw]) - 0.5f) + 0.67f * val1[sw - 1];
val2[sw] = val1[sw] > .99f ? .999f : val1[sw] < -.99f ? -.999f : val1[sw];
sol[sw] = .5f * (float)(Math.Log((1 + val2[sw]) / Math.Max(1 - val2[sw], .001f))) + .5f * sol[sw - 1];
}

///trendmagic
var tv = Sistem.GrafikVerileri;
var tc = Sistem.GrafikFiyatOku(tv, "Kapanis");
var th = Sistem.GrafikFiyatOku(tv, "Yuksek");
var tl = Sistem.GrafikFiyatOku(tv, "Dusuk");

var tpd = 34;
var tcoeff = 1f;
var tatrPd = 5;

var tcci = Sistem.CommodityChannelIndex(tpd);
var tatr = Sistem.AverageTrueRange(tatrPd);
var tm = Sistem.Liste(0);
for (int ti = 1; ti < tv.Count; ti++)
{
float tatrCoeff = tatr[ti] * tcoeff;
float tupT = tl[ti] - tatrCoeff;
float tdnT = th[ti] + tatrCoeff;
tm[ti] = tcci[ti] >= 0 ? tupT < tm[ti - 1] ? tm[ti - 1] : tupT : tdnT > tm[ti - 1] ? tm[ti - 1] : tdnT;
}
Sistem.SorguBaslik[0] = "Fiyat";
Sistem.SorguBaslik[1] = "Bar Geçmiş solar";
Sistem.SorguBaslik[2] = "Bar Geçmiş trend";
Sistem.SorguBaslik[3] = "TrendMagic";
Sistem.SorguBaslik[4] = "Solarwinds";
Sistem.SorguBaslik[5] = "Son Hacim";
Sistem.SorguBaslik[6] = "OrtHacim";
Sistem.SorguBaslik[7] = "V/OrtV";

Sistem.SorguOndalik[0] = 2;
Sistem.SorguOndalik[1] = 0;
Sistem.SorguOndalik[2] = 0;
Sistem.SorguOndalik[3] = 2;
Sistem.SorguOndalik[4] = 2;
Sistem.SorguOndalik[5] = 0;
Sistem.SorguOndalik[6] = 0;
Sistem.SorguOndalik[7] = 2;

Sistem.SorguSutunHizala[0] = "ORTA";
Sistem.SorguSutunHizala[1] = "ORTA";
Sistem.SorguSutunHizala[2] = "ORTA";
Sistem.SorguSutunHizala[3] = "ORTA";
Sistem.SorguSutunHizala[4] = "ORTA";
Sistem.SorguSutunHizala[5] = "ORTA";
Sistem.SorguSutunHizala[6] = "ORTA";
Sistem.SorguSutunHizala[7] = "ORTA";

Sistem.SorguAciklamaGenislik = 70;
Sistem.SorguSutunGenislik[0] = 60;
Sistem.SorguSutunGenislik[1] = 60;
Sistem.SorguSutunGenislik[2] = 60;
Sistem.SorguSutunGenislik[3] = 60;
Sistem.SorguSutunGenislik[4] = 60;
Sistem.SorguSutunGenislik[5] = 60;
Sistem.SorguSutunGenislik[6] = 60;
Sistem.SorguSutunGenislik[7] = 60;

var C = Sistem.GrafikFiyatSec("Kapanis");
var Veriler = Sistem.GrafikVerileri;
var V = Sistem.GrafikFiyatOku(Veriler, "Hacim");
var Vort = Sistem.MA(5, "Simple", "Hacim"); //son 5 periyot hacim ortalaması
var solar = Sistem.Liste(0);
var trend= Sistem.Liste(0);
for (int si = 1; si < Sistem.BarSayisi; si++)
{
solar[si] = (sol[si-1] < 0 && sol[si] > 0 ) ? 0 : solar[si-1] + 1;
}

for (int tri = 1; tri < Sistem.BarSayisi; tri++)
{
trend[tri] = (tm[tri-1] > C[tri-1] && tm[tri] < C[tri] ) ? 0 : trend[tri-1] + 1;
}

var x = Sistem.BarSayisi-1;
if (solar[x] > 0 && solar[x] < 4)
if (trend[x] > 0 && trend[x] < 4)
{
Sistem.SorguDeger[0] = C[x];
Sistem.SorguDeger[1] = solar[x];
Sistem.SorguDeger[2] = trend[x];
Sistem.SorguDeger[3] = tm[x];
Sistem.SorguDeger[4] = sol[x];
Sistem.SorguDeger[5] = V[x];
Sistem.SorguDeger[6] = Vort[x];
Sistem.SorguDeger[7] = (V[x]/Vort[x]);
if(sol[x] > 0 && tm[x] < C[x])

Sistem.SorguAciklama = "Alış Yönü";

Sistem.SorguEkle();
}

[Genghis]

Selamlar, Grid bot mantığında çalışacak ağırlıklı ortalama maliyet altına düştüğünde alım sayısını farklı satış sayısı farklı girebileceğim, belirlenen belli bir yüzdeliğin üzerinde ise satış rakamını farklı alış rakamını farklı girmek istediğim bir sistem nasıl oluşturulabilir?