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

[sonli]

Hocam yazdım ama ben yeni kullanıcıyım. Daha önce matriks kullanmışlığım da yok; biraz Php kodlama bilgim ve hazır indikatörlere bakarak yazdığım için daha basit ve verimli bir yolu olabilir.
Yaşar Erdinç Hoca'nın paylaştığı formül, verilen periyotta bist 100 ve hissenin yüzdesel değişimlerini kıyaslıyor..
Aşağıda vestel grafiğinde multi grafikte ikisine bakmakla, indikatörün çizgilerini inceleyebilirsiniz..

//verilen periyotta yüzdesel hisse fiyatı ile xu100 değişimi
int P = 240; 
var C = Sistem.GrafikFiyatSec("Kapanis");
var Veriler1 = Sistem.GrafikVerileri;
//var i=Sistem.BarSayisi-1;
var Sembol2 = "IMKBX'XU100";
var Veriler2 = Sistem.GrafikVerileriniOku(Sembol2, Sistem.Periyot);
Veriler2 = Sistem.GrafikVerilerindeTarihHizala(Veriler1, Veriler2);
var X = Sistem.GrafikFiyatOku(Veriler2 , "Kapanis");
var rC = Sistem.Ref(C,-P);
var rX = Sistem.Ref(X,-P);
var a = Sistem.Liste(0);
var b = Sistem.Liste(0);

for (int i = 1; i < Sistem.BarSayisi; i++){
   a[i] = ((C[i]-rC[i])/rC[i])*100;
   b[i] = ((X[i]-rX[i])/rX[i])*100;
}

Sistem.Cizgiler[0].Deger = a;
Sistem.Cizgiler[1].Deger = b;
Sistem.Cizgiler[2].Deger = 0; 

Yaşar ERDİNÇ Hoca nın bu formülünü ideal dilinde yazabilir miyiz?


D1:=240;
X1:=(C-REF(C,-D1))/REF(C,-D1)*100;
Y:=security("XU100",C);
X2:=(Y-REF(Y,-D1))/REF(Y,-D1)*100;
C:=IF(X1>X2),1,0);
C