3.-4.-5. and 6. DEGREE POLYNOMIAL CURVES

E

elliot

New Member
#1
#1
_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",colorBlack),ParamColor("Lower Chart",colorBlack));
_SECTION_END();

_SECTION_BEGIN("Katsayı Optimizeli 6.ncı Dereceden Polynom'un WMA()'sı Alınmış Deklem");
PG = ParamToggle(" Polynom Gstermek ","hide|show",0);
ACID=Param("Sper İnce Ayar",1,1,180,0.001);
Derece3 = ParamToggle("3.nc Derece Polynom ","hide|show",0);
Derece4 = ParamToggle("4.nc Derece Polynom ","hide|show",0);
Derece5 = ParamToggle("5.nc Derece Polynom ","hide|show",0);
Derece6 = ParamToggle("6.nc Derece Polynom ","hide|show",0);

Shape = ParamToggle(" Okları Gstermek ","hide|show",0);

Katsayi43=(Param("3.Katsayı1",0,-2,30,0.001));
Katsayi53=Param("3.Katsayı2",0,-2,30,0.001);
Katsayi63=Param("3.Katsayı3",0,-2,30,0.001);
Katsayi34=Param("4.Katsayı1",0,-30,30,0.001);
Katsayi44=Param("4.Katsayı2",0,-30,30,0.001);
Katsayi54=Param("4.Katsayı3",0,-30,30,0.001);
Katsayi64=Param("4.Katsayı4",0,-30,30,0.001);
Katsayi25=Param("5.Katsayı1",0,-30,30,0.001);
Katsayi35=Param("5.Katsayı2",0,-30,30,0.001);
Katsayi45=Param("5.Katsayı3",0,-30,30,0.001);
Katsayi55=Param("5.Katsayı4",0,-30,30,0.001);
Katsayi65=Param("5.Katsayı5",0,-30,30,0.001);
Katsayi16=Param("6.Katsayı1",0,-30,30,0.001);
Katsayi26=Param("6.Katsayı2",0,-30,30,0.001);
Katsayi36=Param("6.Katsayı3",0,-30,30,0.001);
Katsayi46=Param("6.Katsayı4",0,-30,30,0.001);
Katsayi56=Param("6.Katsayı5",0,-30,30,0.001);
Katsayi66=Param("6.Katsayı6",0,-30,30,0.001);
Moveto=Param("Sağa Sola Kaydır",1,1,1456,2);
Moveto1=Param("Yukarı Aşağı Kaydır",1,1,1456,2);
if(PG)
{
GfxSelectPen( colorGreen, 4 );
GfxSelectSolidBrush( colorYellow );
GfxRoundRect( 20+Moveto, 30+Moveto1, 300+Moveto, 430+Moveto1, 15, 15 );
GfxSelectPen( colorRed);
GfxSetTextColor( colorBlue );
GfxSetTextAlign( 0 );
GfxSetBkColor( colorYellow );
GfxTextOut( "Sper İnce Ayar : "+ StrFormat("%-3.000d",ACID), 50+Moveto, 35+Moveto1 );

PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
pi=22/7;
Rtd = 180 / Pi;
Dtr = 1 / Rtd;
x=(O+C+H+L)/4;

if(Derece3)
{
Katsayi43=Katsayi43*(ACID*DTR);
Katsayi53=Katsayi53*(ACID*DTR);
Katsayi63=Katsayi63*(ACID*DTR);
y3=Katsayi43*x*exp(3) + Katsayi53*x*exp(2) + Katsayi63*x;
y3m=WMA(x,y3);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y3m <y3m[i-1] && y3m <y3m[i+1]) Lpml=1;
else
Lpml =0;
if (y3m >y3m[i-1] && y3m >y3m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y3m,-30);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y3m,-30);
}


Plot(y3m,"",IIf(y3m>Ref(y3m,-1),colorLime,colorRed),styleLine|styleThick);
GfxTextOut( "3.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi43), 50+Moveto, 60+Moveto1);
GfxTextOut( "3.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi53), 50+Moveto, 80+Moveto1);
GfxTextOut( "3.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi63), 50+Moveto, 100+Moveto1);
}
if(Derece4)
{
Katsayi34=Katsayi34*(ACID*DTR);
Katsayi44=Katsayi44*(ACID*DTR);
Katsayi54=Katsayi54*(ACID*DTR);
Katsayi64=Katsayi64*(ACID*DTR);
y4=Katsayi34*x*exp(4) +Katsayi44*x*exp(3) + Katsayi54*x*exp(2) + Katsayi64*x;
y4m=WMA(x,y4);

for( i = 1 ; i < BarCount-2; i++ )
{
if (y4m <y4m[i-1] && y4m <y4m[i+1]) Lpml=1;
else
Lpml =0;
if (y4m >y4m[i-1] && y4m >y4m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y4m,-40);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y4m,-40);
}

Plot(y4m,"",IIf(y4m>Ref(y4m,-1),colorLime,colorRed),styleLine|styleThick);


GfxTextOut( "4.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi34), 50+Moveto, 120+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi44), 50+Moveto, 140+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi54), 50+Moveto, 160+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi64), 50+Moveto, 180+Moveto1);


}
if(Derece5)
{
Katsayi25=Katsayi25*(ACID*DTR);
Katsayi35=Katsayi35*(ACID*DTR);
Katsayi45=Katsayi45*(ACID*DTR);
Katsayi55=Katsayi55*(ACID*DTR);
Katsayi65=Katsayi65*(ACID*DTR);
y5=Katsayi25*x*exp(5) + Katsayi35*x*exp(4) +Katsayi45*x*exp(3) + Katsayi55*x*exp(2) + Katsayi65*x;
y5m=WMA(x,y5);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y5m <y5m[i-1] && y5m <y5m[i+1]) Lpml=1;
else
Lpml =0;
if (y5m >y5m[i-1] && y5m >y5m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y5m,-50);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y5m,-50);
}

Plot(y5m,"",IIf(y5m>Ref(y5m,-1),colorLime,colorRed),styleLine|styleThick);

GfxTextOut( "5.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi25), 50+Moveto, 200+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi35), 50+Moveto, 220+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi45), 50+Moveto, 240+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi55), 50+Moveto, 260+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-5 : "+ StrFormat("%-3.000d",Katsayi65), 50+Moveto, 280+Moveto1);

}
if(Derece6)
{

Katsayi16=Katsayi16*(ACID*DTR);
Katsayi26=Katsayi26*(ACID*DTR);
Katsayi36=Katsayi36*(ACID*DTR);
Katsayi46=Katsayi46*(ACID*DTR);
Katsayi56=Katsayi56*(ACID*DTR);
Katsayi66=Katsayi66*(ACID*DTR);
y6 =Katsayi16*x*exp(6)+Katsayi26*x*exp(5) +Katsayi36*x*exp(4) + Katsayi46*x*exp(3) + Katsayi56*x*exp(2) + Katsayi66*x;
y6m=WMA(x,y6);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y6m <y6m[i-1] && y6m <y6m[i+1]) Lpml=1;
else
Lpml =0;
if (y6m >y6m[i-1] && y6m >y6m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeHollowCircle,shapeNone),colorRed,H,y6m,0);
PlotShapes(IIf(RD!=0,shapeHollowCircle,shapeNone),colorBrightGreen,L,y6m,0);
}



Plot(y6m,"",IIf(y6m>Ref(y6m,-1),colorYellow,colorRed),styleLine|styleThick);

GfxTextOut( "6.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi16), 50+Moveto, 300+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi26), 50+Moveto, 320+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi36), 50+Moveto, 340+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi46), 50+Moveto, 360+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-5 : "+ StrFormat("%-3.000d",Katsayi56), 50+Moveto, 380+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-6 : "+ StrFormat("%-3.000d",Katsayi66), 50+Moveto, 400+Moveto1);
}

}
_SECTION_END();

_SECTION_BEGIN("Colored Bollinger Bands");
Bg = ParamToggle(" Bollinger gster ","hide|show",0);
pr=Param( "Period",20,0,100,1);
P = ParamField("Price field",-1);
Style = ParamStyle("Style") | styleNoRescale | styleNoLabel |styleDashed;

if(Bg)
{
BBT=BBandTop(P,pr,2);
BBB=BBandBot(P,pr,2);
topcond = (Cross(BBT,C)OR C>BBT)AND Ref(C, -1)> BBT;
botcond = ( Cross(C,BBB))AND Ref(C, -1 < BBB);
bbtcolor = IIf( BBT> Ref (BBT, -1), colorDarkGreen,colorYellow );
bbbcolor = IIf( BBB > Ref (BBB, -1), colorDarkGreen,colorYellow );
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
Plot( BBT, "BBTop" + _PARAM_VALUES(), bbtcolor, styleLine|styleThick);
Plot( BBB, "BBBot" + _PARAM_VALUES(), bbbcolor, styleLine|styleThick );
Buy=botcond;
Sell=topcond ;

}
_SECTION_END();

_SECTION_BEGIN("Hurst Cycle");
#include <PolyFit.afl>
p1 = Param("CMA Period 1", 13, 0, 999, 1);
p2 = Param("CMA Period 2", 25, 0, 999, 1);
p3 = Param("CMA Period 3", 50, 0, 999, 1);
p4 = Param("CMA Period 4", 100, 0, 999, 1);
p5 = Param("CMA Period 5", 200, 0, 999, 1);
p6 = Param("CMA Period 6", 600, 0, 999, 1);
BType = ParamList("Band Type", "Percent|Amount");
Pct1 = Param("Pct or Amt 1", 1.6, 0, 33, 0.05);
Pct2 = Param("Pct or Amt 2", 2.4, 0, 33, 0.05);
Pct3 = Param("Pct or Amt 3", 3.6, 0, 33, 0.05);
Pct4 = Param("Pct or Amt 4", 5.4, 0, 33, 0.05);
Pct5 = Param("Pct or Amt 5", 8.1, 0, 33, 0.05);
Pct6 = Param("Pct or Amt 6",12.0, 0, 33, 0.05);
ePFac = Param("Extrapolation Period Factor", 0.35, 0.10, 5.00, 0.05);
ePOrd = Param("Extrapolation PolyFit Order", 2, 1, 8, 1);
eAuto = Param("Extrapolation Auto Fixup Passes", 5, 0, 9, 1);
eLFac = Param("Extrapolation AF Lag Factor", 0.33, 0, 1, 0.01);
eFFac = Param("Extrapolation AF Factor", 0.25, 0, 1, 0.01);
eFLen = Param("Extrapolation Future Length", 0, 0, 10, 1);
HT = ParamToggle("Hurst Cycle Gstermek ","hide|show",0);
BI = BarIndex();
SVBI = SelectedValue(BI);
LVBI = LastValue(BI);
Data = (H + L) / 2;
Title = EncodeColor(colorWhite) + " Hurst / Millard DE " +
EncodeColor(colorDefault) + " - BI = " + NumToStr(BI, 1.0) + " - CMA Periods =
";


GraphXSpace = 5;



function CMA_DE(Period, Percent, Red, Green, Blue)
{
Pm = int(Period * 2 / 3);
if (Pm % 2 == 0)
Pm = Pm + 1;
Pn = Period - Pm;
if (Pn < 3)
Pn = 3;
if (Pm <= Pn)
Pm = Pn + 2;
if (Pn % 2 == 0)
Pn = Pn + 1;
if (SVBI - (Pm + Pn) * (1 + eLFac + 0.02) > 0)
{
Lag = (Pm - 1) / 2 + (Pn - 1) / 2;
ExtraF = Lag + eFLen;
CMA = Ref(MA(MA(Data, Pm), Pn), Lag);
EndBar = SVBI - Lag;
BegBar = EndBar - round(Period * ePFac) + 1;
if (EndBar - BegBar < 2)
BegBar = EndBar - 2;
CMA = IIf(BI <= SVBI - Lag, CMA, -1e10);
if (BType == "Amount")
{
UBIS = CMA + Percent;
LBIS = CMA - Percent;
}
else
if (BType == "Percent")
{
UBIS = CMA * (1 + Percent / 100);
LBIS = CMA * (1 - Percent / 100);
}
Plot(UBIS, "", ColorRGB(Red, Green, Blue), styleThick);
Plot(LBIS, "", ColorRGB(Red, Green, Blue), styleThick);
if (Red > 0) Red = 254;
if (Green > 0) Green = 254;
if (Blue > 0) Blue = 254;
CMAx = PolyFit(CMA, BegBar, EndBar, ePOrd, 0, ExtraF);
CMAx = IIf(BI >= SVBI - Lag - ExtraF, CMAx, -1e10);
if (BType == "Amount")
{
CMAx = CMAx + CMA[SVBI - Lag] - CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx + Percent;
LBOS = CMAx - Percent;
}
else
{
CMAx = CMAx * CMA[SVBI - Lag] / CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx * (1 + Percent / 100);
LBOS = CMAx * (1 - Percent / 100);
}
k = 0;
for (j = 1; j <= eAuto; j++)
{
k = j;
AdjBar = 0;
for (i = SVBI - ExtraF; i >= SVBI - ExtraF - Lag * eLFac; i--)
{
if (i + ExtraF <= LVBI)
{
if (UBOS < (H[i + ExtraF] + L[i + ExtraF]) / 2)
{
AdjBar = i + ExtraF;
Target = CMAx + (C[i + ExtraF] - CMAx) * eFFac;
}
if (LBOS > (H[i + ExtraF] + L[i + ExtraF]) / 2)
{
AdjBar = i + ExtraF;
Target = CMAx - (CMAx - C[i + ExtraF]) * eFFac;
}
if (AdjBar > 0)
i = 0;
}
}
if (AdjBar > 0)
{
ExtraB = AdjBar - EndBar;
ExtraF = ExtraF - ExtraB;
EndBar = EndBar + ExtraB;
StepSize = (Target - CMA[SVBI - Lag]) / (EndBar - (SVBI -
Lag));
CMA = IIf(BI <= SVBI - Lag, CMA, 0);
for (i = SVBI - Lag + 1; i <= EndBar; i++)
{
CMA = CMA[i - 1] + StepSize;
}
CMAx = PolyFit(CMA, BegBar, EndBar, ePOrd, 0, ExtraF);
CMAx = IIf(BI >= SVBI - Lag - ExtraF, CMAx, -1e10);
if (BType == "Amount")
{
CMAx = CMAx + CMA[SVBI - Lag] - CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx + Percent;
LBOS = CMAx - Percent;
}
else
{
CMAx = CMAx * CMA[SVBI - Lag] / CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx * (1 + Percent / 100);
LBOS = CMAx * (1 - Percent / 100);
}
}
else
j = 999;
}
k = k - 1;
Plot(UBOS, "", ColorRGB(Red, Green, Blue), styleThick, Null, Null,
ExtraF);
Plot(LBOS, "", ColorRGB(Red, Green, Blue), styleThick, Null, Null,
ExtraF);
Title = Title + EncodeColor(ColorRGB(Red, Green, Blue)) +
NumToStr(Period, 1.0) + " (" + NumToStr(Pm, 1.0) + "/" + NumToStr(Pn, 1.0) + ")
" + NumToStr(k, 1.0) + " ";
PlotShapes((BI == SVBI - Lag) * shapeSmallUpTriangle, ColorRGB(Red,
Green, Blue), 0, CMA * (1 - Percent / 100), -15);
PlotShapes((BI == SVBI - Lag) * shapeSmallDownTriangle, ColorRGB(Red,
Green, Blue), 0, CMA * (1 + Percent / 100), -15);
}
return;
}
if(HT)
{
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
if (p1 > 0)
CMA_DE(p1, Pct1, 000, 160, 000);
if (p2 > 0)
CMA_DE(p2, Pct2, 160, 112, 000);
if (p3 > 0)
CMA_DE(p3, Pct3, 160, 000, 000);
if (p4 > 0)
CMA_DE(p4, Pct4, 160, 000, 160);
if (p5 > 0)
CMA_DE(p5, Pct5, 000, 000, 160);
if (p6 > 0)
CMA_DE(p6, Pct6, 0, 160, 160);
}
_SECTION_END();
_SECTION_BEGIN(" DESTEK DİREN");
DDG = ParamToggle("Destek Diren Gstermek ","hide|show",0);
chartflag = ParamToggle("Heikin Ashi","show|hide",1);
xx = Cum(1);
nbar = Param("nbar",5,2,50,1);
if(DDG)
{
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) <= H;
PHighPrice = ValueWhen(PHigh,H);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) >= L;
PLowPrice = ValueWhen(PLow,L);
startval_L = ValueWhen(PLow,L,1);
endval_L = ValueWhen(PLow,L,0);
startbar_L = ValueWhen(PLow,xx,1);
endbar_L = ValueWhen(PLow,xx,0);
aa_L = (endval_L-startval_L)/(endbar_L-startbar_L);
bb_L = startval_L;
trendline_L = aa_L * (xx - startbar_L) + bb_L;
dtrendline_L = trendline_L - Ref(trendline_L,-1);
startval_L_extend = ValueWhen(PLow,L,2);
endval_L_extend = ValueWhen(PLow,L,1);
startbar_L_extend = ValueWhen(PLow,xx,2);
endbar_L_extend = ValueWhen(PLow,xx,1);
aa_L_extend = (endval_L_extend-startval_L_extend)/(endbar_L_extend-startbar_L_extend);
bb_L_extend = startval_L;
trendline_L_extend = aa_L_extend * (xx - startbar_L) + endval_L_extend;
dtrendline_L_extend = trendline_L_extend - Ref(trendline_L_extend,-1);
dtrendline_L_extend = IIf(PLow,Ref(dtrendline_L,-1),dtrendline_L_extend);
startval_L_extend2 = ValueWhen(PLow,L,3);
endval_L_extend2 = ValueWhen(PLow,L,2);
startbar_L_extend2 = ValueWhen(PLow,xx,3);
endbar_L_extend2 = ValueWhen(PLow,xx,2);
aa_L_extend2 = (endval_L_extend2-startval_L_extend2)/(endbar_L_extend2-startbar_L_extend2);
bb_L_extend2 = endval_L_extend2;
trendline_L_extend2 = aa_L_extend2 * (xx - endbar_L_extend2) + endval_L_extend2;
dtrendline_L_extend2 = trendline_L_extend2 - Ref(trendline_L_extend2,-1);
dtrendline_L_extend2 = IIf(PLow,Ref(dtrendline_L_extend,-1),dtrendline_L_extend2);
startval_H = ValueWhen(PHigh,H,1);
endval_H = ValueWhen(PHigh,H,0);
startbar_H = ValueWhen(PHigh,xx,1);
endbar_H = ValueWhen(PHigh,xx,0);
aa_H = (endval_H-startval_H)/(endbar_H-startbar_H);
bb_H = startval_H;
trendline_H = aa_H * (xx - startbar_H) + bb_H;
dtrendline_H = trendline_H - Ref(trendline_H,-1);
startval_H_extend = ValueWhen(PHigh,H,2);
endval_H_extend = ValueWhen(PHigh,H,1);
startbar_H_extend = ValueWhen(PHigh,xx,2);
endbar_H_extend = ValueWhen(PHigh,xx,1);
aa_H_extend = (endval_H_extend-startval_H_extend)/(endbar_H_extend-startbar_H_extend);
bb_H_extend = startval_H;
trendline_H_extend = aa_H_extend * (xx - startbar_H) + endval_H_extend;
dtrendline_H_extend = trendline_H_extend - Ref(trendline_H_extend,-1);
dtrendline_H_extend = IIf(PHigh,Ref(dtrendline_H,-1),dtrendline_H_extend);
startval_H_extend2 = ValueWhen(PHigh,H,3);
endval_H_extend2 = ValueWhen(PHigh,H,2);
startbar_H_extend2 = ValueWhen(PHigh,xx,3);
endbar_H_extend2 = ValueWhen(PHigh,xx,2);
aa_H_extend2 = (endval_H_extend2-startval_H_extend2)/(endbar_H_extend2-startbar_H_extend2);
bb_H_extend2 = endval_H_extend2;
trendline_H_extend2 = aa_H_extend2 * (xx - endbar_H_extend2) + endval_H_extend2;
dtrendline_H_extend2 = trendline_H_extend2 - Ref(trendline_H_extend2,-1);
dtrendline_H_extend2 = IIf(PHigh,Ref(dtrendline_H_extend,-1),dtrendline_H_extend2);
tld = ParamToggle("All trendlines","show|hide",1);
if (tld)
{

trendline_L = IIf(dtrendline_L > 0,trendline_L,Null);
trendline_L_extend = IIf(dtrendline_L_extend > 0,trendline_L_extend,Null);
trendline_L_extend2 = IIf(dtrendline_L_extend2 > 0,trendline_L_extend2,Null);
trendline_H = IIf(dtrendline_H < 0,trendline_H,Null);
trendline_H_extend = IIf(dtrendline_H_extend < 0,trendline_H_extend,Null);
trendline_H_extend2 = IIf(dtrendline_H_extend2 < 0,trendline_H_extend2,Null);
}
trendline_L_extend2 = IIf(BarsSince(Plow) <= nbar,trendline_L_extend2,Null);
trendline_H_extend2 = IIf(BarsSince(PHigh) <= nbar,trendline_H_extend2,Null);
GraphXSpace = 5;
SetChartOptions(0, chartShowDates);
if (chartFlag)
{
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
}
else
{
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorWhite, styleBar);
}
PlotShapes(shapeUpArrow*PLow,colorYellow,0,L,-20);
PlotShapes(shapeDownArrow*PHigh,colorWhite,0,H,-20);

Plot(trendline_L, "", colorLime,styleLine|styleThick);
Plot(IIf(BarsSince(Plow) <= nbar,trendline_L_extend,Null), "", colorLightGrey, styleLine | styleThick);
Plot(IIf(BarsSince(Plow) > nbar,trendline_L_extend,Null), "",colorBrightGreen, styleLine | styleThick);
Plot(IIf(BarsSince(Plow) <= nbar,trendline_L_extend2,Null), "",colorDarkGreen, styleLine| styleThick);
Plot(trendline_H, "", colorRed,styleLine|styleThick);
Plot(IIf(BarsSince(PHigh) <= nbar,trendline_H_extend,Null), "", colorLightGrey, styleLine | styleThick);
Plot(IIf(BarsSince(PHigh) > nbar,trendline_H_extend,Null), "",colorOrange, styleLine | styleThick);
Plot(IIf(BarsSince(PHigh) <= nbar,trendline_H_extend2,Null), "",colorOrange, styleLine | styleThick);

signalFlag = ParamToggle("Possible Signals","show|hide",1);
if (signalFlag)
{
Buy = (!IsEmpty(trendline_H_extend) AND Cross(C,trendline_H_extend) AND BarsSince(PHigh) > nbar) OR
(!IsEmpty(trendline_H_extend2) AND Cross(C,trendline_H_extend2) AND !PHigh) OR
(PHigh AND C > trendline_H_extend2 AND Ref(C,-1) < Ref(trendline_H_extend,-1) AND !IsEmpty(trendline_H_extend) AND !IsEmpty(trendline_H_extend2) );
BuyPrice = C;
Short = (!IsEmpty(trendline_L_extend) AND Cross(trendline_L_extend,C) AND BarsSince(PLow) > nbar) OR
(!IsEmpty(trendline_L_extend2) AND Cross(trendline_L_extend2,C) AND !PLow) OR
(PLow AND C < trendline_L_extend2 AND Ref(C,-1) > Ref(trendline_L_extend,-1) AND !IsEmpty(trendline_L_extend) AND !IsEmpty(trendline_L_extend2));
ShortPrice = C;
Sell = 0;
Cover = 0;

}
_SECTION_END();
_SECTION_BEGIN(" EXPLORE");
AL=(!IsEmpty(trendline_H_extend) AND Cross(C,trendline_H_extend) AND BarsSince(PHigh) > nbar) OR
(!IsEmpty(trendline_H_extend2) AND Cross(C,trendline_H_extend2) AND !PHigh) OR
(PHigh AND C > trendline_H_extend2 AND Ref(C,-1) < Ref(trendline_H_extend,-1) AND !IsEmpty(trendline_H_extend) AND !IsEmpty(trendline_H_extend2) );
BuyPrice = C;
SAT=(!IsEmpty(trendline_L_extend) AND Cross(trendline_L_extend,C) AND BarsSince(PLow) > nbar) OR
(!IsEmpty(trendline_L_extend2) AND Cross(trendline_L_extend2,C) AND !PLow) OR
(PLow AND C < trendline_L_extend2 AND Ref(C,-1) > Ref(trendline_L_extend,-1) AND !IsEmpty(trendline_L_extend) AND !IsEmpty(trendline_L_extend2));
ShortPrice = C;
AL_status=WriteIf(AL,"Alış Yap"," ");
SAT_status=WriteIf(SAT,"Satış Yap"," ");
AL_col=IIf(AL, colorDarkGreen , colorWhite);
SAT_col=IIf(SAT, colorRed,colorWhite);

Filter= AL OR SAT;
AddColumn(C, "KAPANIŞ", 1.2, IIf(C > Ref(C,-1),colorBlue, colorRed));
AddTextColumn(AL_status, "ALIŞ", 1.2, colorWhite, Al_col);
AddTextColumn(SAT_status, "SATIŞ", 1.2, colorWhite, SAT_col);
}
_SECTION_END();
_SECTION_BEGIN("Parabolic Sar");
acc=Param("Acceleration factor",0.02,0.01,0.05,0.01);
af_start=Param("Starting AF value",0.02,0.01,0.05,0.01);
af_max=Param("Maximum AF value",0.2,0.1,0.3,0.01);
Ct=Param("Crossover threshold in %",1,0,3,0.5);
PS = ParamToggle(" Parabolic Sar Gstermek ","hide|show",0);
Ct1=Ct/100;
IAF = acc;
MaxAF = af_max;
psar = Close;
long = 1;
af = af_start;
ep = Low[ 0 ];
hp = High [ 0 ];
lp = Low [ 0 ];
for( i = 2; i < BarCount; i++ )
{
if ( long )
{
psar [ i ] = psar [ i-1 ] + af * ( hp - psar [ i-1 ] );
}
else
{
psar [ i ] = psar [ i-1 ] + af * ( lp - psar [ i-1 ] );
}
reverse = 0;
if ( long )
{
if ( Low [ i ] < psar [ i ] * (1-Ct1) )
{
long = 0; reverse = 1;
psar [ i ] = hp;
lp = Low [ i ];
af = af_start;
}
}
else
{
if ( High [ i ] > psar [ i ] * (1+Ct1) )
{
long = 1; reverse = 1;
psar [ i ] = lp;
hp = High [ i ];
af = af_start;
}
}
if ( reverse == 0 )
{
if ( long )
{
if ( High [ i ] > hp )
{
hp = High [ i ];
af = af + IAF;
if( af > MaxAF ) af = MaxAF;
}

if( Low[ i - 1 ] < psar[ i ] ) psar[ i ] = Low[ i - 1 ];
if( Low[ i - 2 ] < psar[ i ] ) psar[ i ] = Low[ i - 2 ];
}
else
{
if ( Low [ i ] < lp )
{
lp = Low [ i ];
af = af + IAF;
if( af > MaxAF ) af = MaxAF;
}

if( High[ i - 1 ] > psar[ i ] ) psar[ i ] = High[ i - 1 ];
if( High[ i - 2 ] > psar[ i ] ) psar[ i ] = High[ i - 2 ];
}
}
}
if(PS)
{
Plot( psar, _DEFAULT_NAME(), ParamColor( "Color", colorYellow), styleDots | styleNoLine | styleThick );
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
}
_SECTION_END();
 
H

hmsanil

Active Member
#3
#3
elliot said:
_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",colorBlack),ParamColor("Lower Chart",colorBlack));
_SECTION_END();

_SECTION_BEGIN("Katsayı Optimizeli 6.ncı Dereceden Polynom'un WMA()'sı Alınmış Deklem");
PG = ParamToggle(" Polynom Gstermek ","hide|show",0);
ACID=Param("Sper İnce Ayar",1,1,180,0.001);
Derece3 = ParamToggle("3.nc Derece Polynom ","hide|show",0);
Derece4 = ParamToggle("4.nc Derece Polynom ","hide|show",0);
Derece5 = ParamToggle("5.nc Derece Polynom ","hide|show",0);
Derece6 = ParamToggle("6.nc Derece Polynom ","hide|show",0);

Shape = ParamToggle(" Okları Gstermek ","hide|show",0);

Katsayi43=(Param("3.Katsayı1",0,-2,30,0.001));
Katsayi53=Param("3.Katsayı2",0,-2,30,0.001);
Katsayi63=Param("3.Katsayı3",0,-2,30,0.001);
Katsayi34=Param("4.Katsayı1",0,-30,30,0.001);
Katsayi44=Param("4.Katsayı2",0,-30,30,0.001);
Katsayi54=Param("4.Katsayı3",0,-30,30,0.001);
Katsayi64=Param("4.Katsayı4",0,-30,30,0.001);
Katsayi25=Param("5.Katsayı1",0,-30,30,0.001);
Katsayi35=Param("5.Katsayı2",0,-30,30,0.001);
Katsayi45=Param("5.Katsayı3",0,-30,30,0.001);
Katsayi55=Param("5.Katsayı4",0,-30,30,0.001);
Katsayi65=Param("5.Katsayı5",0,-30,30,0.001);
Katsayi16=Param("6.Katsayı1",0,-30,30,0.001);
Katsayi26=Param("6.Katsayı2",0,-30,30,0.001);
Katsayi36=Param("6.Katsayı3",0,-30,30,0.001);
Katsayi46=Param("6.Katsayı4",0,-30,30,0.001);
Katsayi56=Param("6.Katsayı5",0,-30,30,0.001);
Katsayi66=Param("6.Katsayı6",0,-30,30,0.001);
Moveto=Param("Sağa Sola Kaydır",1,1,1456,2);
Moveto1=Param("Yukarı Aşağı Kaydır",1,1,1456,2);
if(PG)
{
GfxSelectPen( colorGreen, 4 );
GfxSelectSolidBrush( colorYellow );
GfxRoundRect( 20+Moveto, 30+Moveto1, 300+Moveto, 430+Moveto1, 15, 15 );
GfxSelectPen( colorRed);
GfxSetTextColor( colorBlue );
GfxSetTextAlign( 0 );
GfxSetBkColor( colorYellow );
GfxTextOut( "Sper İnce Ayar : "+ StrFormat("%-3.000d",ACID), 50+Moveto, 35+Moveto1 );

PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
pi=22/7;
Rtd = 180 / Pi;
Dtr = 1 / Rtd;
x=(O+C+H+L)/4;

if(Derece3)
{
Katsayi43=Katsayi43*(ACID*DTR);
Katsayi53=Katsayi53*(ACID*DTR);
Katsayi63=Katsayi63*(ACID*DTR);
y3=Katsayi43*x*exp(3) + Katsayi53*x*exp(2) + Katsayi63*x;
y3m=WMA(x,y3);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y3m <y3m[i-1] && y3m <y3m[i+1]) Lpml=1;
else
Lpml =0;
if (y3m >y3m[i-1] && y3m >y3m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y3m,-30);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y3m,-30);
}


Plot(y3m,"",IIf(y3m>Ref(y3m,-1),colorLime,colorRed),styleLine|styleThick);
GfxTextOut( "3.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi43), 50+Moveto, 60+Moveto1);
GfxTextOut( "3.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi53), 50+Moveto, 80+Moveto1);
GfxTextOut( "3.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi63), 50+Moveto, 100+Moveto1);
}
if(Derece4)
{
Katsayi34=Katsayi34*(ACID*DTR);
Katsayi44=Katsayi44*(ACID*DTR);
Katsayi54=Katsayi54*(ACID*DTR);
Katsayi64=Katsayi64*(ACID*DTR);
y4=Katsayi34*x*exp(4) +Katsayi44*x*exp(3) + Katsayi54*x*exp(2) + Katsayi64*x;
y4m=WMA(x,y4);

for( i = 1 ; i < BarCount-2; i++ )
{
if (y4m <y4m[i-1] && y4m <y4m[i+1]) Lpml=1;
else
Lpml =0;
if (y4m >y4m[i-1] && y4m >y4m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y4m,-40);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y4m,-40);
}

Plot(y4m,"",IIf(y4m>Ref(y4m,-1),colorLime,colorRed),styleLine|styleThick);


GfxTextOut( "4.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi34), 50+Moveto, 120+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi44), 50+Moveto, 140+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi54), 50+Moveto, 160+Moveto1);
GfxTextOut( "4.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi64), 50+Moveto, 180+Moveto1);


}
if(Derece5)
{
Katsayi25=Katsayi25*(ACID*DTR);
Katsayi35=Katsayi35*(ACID*DTR);
Katsayi45=Katsayi45*(ACID*DTR);
Katsayi55=Katsayi55*(ACID*DTR);
Katsayi65=Katsayi65*(ACID*DTR);
y5=Katsayi25*x*exp(5) + Katsayi35*x*exp(4) +Katsayi45*x*exp(3) + Katsayi55*x*exp(2) + Katsayi65*x;
y5m=WMA(x,y5);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y5m <y5m[i-1] && y5m <y5m[i+1]) Lpml=1;
else
Lpml =0;
if (y5m >y5m[i-1] && y5m >y5m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeDownArrow,shapeNone),colorRed,H,y5m,-50);
PlotShapes(IIf(RD!=0,shapeUpArrow,shapeNone),colorBrightGreen,L,y5m,-50);
}

Plot(y5m,"",IIf(y5m>Ref(y5m,-1),colorLime,colorRed),styleLine|styleThick);

GfxTextOut( "5.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi25), 50+Moveto, 200+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi35), 50+Moveto, 220+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi45), 50+Moveto, 240+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi55), 50+Moveto, 260+Moveto1);
GfxTextOut( "5.nc Derece Katsayı-5 : "+ StrFormat("%-3.000d",Katsayi65), 50+Moveto, 280+Moveto1);

}
if(Derece6)
{

Katsayi16=Katsayi16*(ACID*DTR);
Katsayi26=Katsayi26*(ACID*DTR);
Katsayi36=Katsayi36*(ACID*DTR);
Katsayi46=Katsayi46*(ACID*DTR);
Katsayi56=Katsayi56*(ACID*DTR);
Katsayi66=Katsayi66*(ACID*DTR);
y6 =Katsayi16*x*exp(6)+Katsayi26*x*exp(5) +Katsayi36*x*exp(4) + Katsayi46*x*exp(3) + Katsayi56*x*exp(2) + Katsayi66*x;
y6m=WMA(x,y6);
for( i = 1 ; i < BarCount-2; i++ )
{
if (y6m <y6m[i-1] && y6m <y6m[i+1]) Lpml=1;
else
Lpml =0;
if (y6m >y6m[i-1] && y6m >y6m[i+1]) Lpmh=1;
else
Lpmh =0;
}
GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);
if(Shape)
{
PlotShapes(IIf(GR!=0,shapeHollowCircle,shapeNone),colorRed,H,y6m,0);
PlotShapes(IIf(RD!=0,shapeHollowCircle,shapeNone),colorBrightGreen,L,y6m,0);
}



Plot(y6m,"",IIf(y6m>Ref(y6m,-1),colorYellow,colorRed),styleLine|styleThick);

GfxTextOut( "6.nc Derece Katsayı-1 : "+ StrFormat("%-3.000d",Katsayi16), 50+Moveto, 300+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-2 : "+ StrFormat("%-3.000d",Katsayi26), 50+Moveto, 320+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-3 : "+ StrFormat("%-3.000d",Katsayi36), 50+Moveto, 340+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-4 : "+ StrFormat("%-3.000d",Katsayi46), 50+Moveto, 360+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-5 : "+ StrFormat("%-3.000d",Katsayi56), 50+Moveto, 380+Moveto1);
GfxTextOut( "6.nc Derece Katsayı-6 : "+ StrFormat("%-3.000d",Katsayi66), 50+Moveto, 400+Moveto1);
}

}
_SECTION_END();

_SECTION_BEGIN("Colored Bollinger Bands");
Bg = ParamToggle(" Bollinger gster ","hide|show",0);
pr=Param( "Period",20,0,100,1);
P = ParamField("Price field",-1);
Style = ParamStyle("Style") | styleNoRescale | styleNoLabel |styleDashed;

if(Bg)
{
BBT=BBandTop(P,pr,2);
BBB=BBandBot(P,pr,2);
topcond = (Cross(BBT,C)OR C>BBT)AND Ref(C, -1)> BBT;
botcond = ( Cross(C,BBB))AND Ref(C, -1 < BBB);
bbtcolor = IIf( BBT> Ref (BBT, -1), colorDarkGreen,colorYellow );
bbbcolor = IIf( BBB > Ref (BBB, -1), colorDarkGreen,colorYellow );
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
Plot( BBT, "BBTop" + _PARAM_VALUES(), bbtcolor, styleLine|styleThick);
Plot( BBB, "BBBot" + _PARAM_VALUES(), bbbcolor, styleLine|styleThick );
Buy=botcond;
Sell=topcond ;

}
_SECTION_END();

_SECTION_BEGIN("Hurst Cycle");
#include <PolyFit.afl>
p1 = Param("CMA Period 1", 13, 0, 999, 1);
p2 = Param("CMA Period 2", 25, 0, 999, 1);
p3 = Param("CMA Period 3", 50, 0, 999, 1);
p4 = Param("CMA Period 4", 100, 0, 999, 1);
p5 = Param("CMA Period 5", 200, 0, 999, 1);
p6 = Param("CMA Period 6", 600, 0, 999, 1);
BType = ParamList("Band Type", "Percent|Amount");
Pct1 = Param("Pct or Amt 1", 1.6, 0, 33, 0.05);
Pct2 = Param("Pct or Amt 2", 2.4, 0, 33, 0.05);
Pct3 = Param("Pct or Amt 3", 3.6, 0, 33, 0.05);
Pct4 = Param("Pct or Amt 4", 5.4, 0, 33, 0.05);
Pct5 = Param("Pct or Amt 5", 8.1, 0, 33, 0.05);
Pct6 = Param("Pct or Amt 6",12.0, 0, 33, 0.05);
ePFac = Param("Extrapolation Period Factor", 0.35, 0.10, 5.00, 0.05);
ePOrd = Param("Extrapolation PolyFit Order", 2, 1, 8, 1);
eAuto = Param("Extrapolation Auto Fixup Passes", 5, 0, 9, 1);
eLFac = Param("Extrapolation AF Lag Factor", 0.33, 0, 1, 0.01);
eFFac = Param("Extrapolation AF Factor", 0.25, 0, 1, 0.01);
eFLen = Param("Extrapolation Future Length", 0, 0, 10, 1);
HT = ParamToggle("Hurst Cycle Gstermek ","hide|show",0);
BI = BarIndex();
SVBI = SelectedValue(BI);
LVBI = LastValue(BI);
Data = (H + L) / 2;
Title = EncodeColor(colorWhite) + " Hurst / Millard DE " +
EncodeColor(colorDefault) + " - BI = " + NumToStr(BI, 1.0) + " - CMA Periods =
";


GraphXSpace = 5;



function CMA_DE(Period, Percent, Red, Green, Blue)
{
Pm = int(Period * 2 / 3);
if (Pm % 2 == 0)
Pm = Pm + 1;
Pn = Period - Pm;
if (Pn < 3)
Pn = 3;
if (Pm <= Pn)
Pm = Pn + 2;
if (Pn % 2 == 0)
Pn = Pn + 1;
if (SVBI - (Pm + Pn) * (1 + eLFac + 0.02) > 0)
{
Lag = (Pm - 1) / 2 + (Pn - 1) / 2;
ExtraF = Lag + eFLen;
CMA = Ref(MA(MA(Data, Pm), Pn), Lag);
EndBar = SVBI - Lag;
BegBar = EndBar - round(Period * ePFac) + 1;
if (EndBar - BegBar < 2)
BegBar = EndBar - 2;
CMA = IIf(BI <= SVBI - Lag, CMA, -1e10);
if (BType == "Amount")
{
UBIS = CMA + Percent;
LBIS = CMA - Percent;
}
else
if (BType == "Percent")
{
UBIS = CMA * (1 + Percent / 100);
LBIS = CMA * (1 - Percent / 100);
}
Plot(UBIS, "", ColorRGB(Red, Green, Blue), styleThick);
Plot(LBIS, "", ColorRGB(Red, Green, Blue), styleThick);
if (Red > 0) Red = 254;
if (Green > 0) Green = 254;
if (Blue > 0) Blue = 254;
CMAx = PolyFit(CMA, BegBar, EndBar, ePOrd, 0, ExtraF);
CMAx = IIf(BI >= SVBI - Lag - ExtraF, CMAx, -1e10);
if (BType == "Amount")
{
CMAx = CMAx + CMA[SVBI - Lag] - CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx + Percent;
LBOS = CMAx - Percent;
}
else
{
CMAx = CMAx * CMA[SVBI - Lag] / CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx * (1 + Percent / 100);
LBOS = CMAx * (1 - Percent / 100);
}
k = 0;
for (j = 1; j <= eAuto; j++)
{
k = j;
AdjBar = 0;
for (i = SVBI - ExtraF; i >= SVBI - ExtraF - Lag * eLFac; i--)
{
if (i + ExtraF <= LVBI)
{
if (UBOS < (H[i + ExtraF] + L[i + ExtraF]) / 2)
{
AdjBar = i + ExtraF;
Target = CMAx + (C[i + ExtraF] - CMAx) * eFFac;
}
if (LBOS > (H[i + ExtraF] + L[i + ExtraF]) / 2)
{
AdjBar = i + ExtraF;
Target = CMAx - (CMAx - C[i + ExtraF]) * eFFac;
}
if (AdjBar > 0)
i = 0;
}
}
if (AdjBar > 0)
{
ExtraB = AdjBar - EndBar;
ExtraF = ExtraF - ExtraB;
EndBar = EndBar + ExtraB;
StepSize = (Target - CMA[SVBI - Lag]) / (EndBar - (SVBI -
Lag));
CMA = IIf(BI <= SVBI - Lag, CMA, 0);
for (i = SVBI - Lag + 1; i <= EndBar; i++)
{
CMA = CMA[i - 1] + StepSize;
}
CMAx = PolyFit(CMA, BegBar, EndBar, ePOrd, 0, ExtraF);
CMAx = IIf(BI >= SVBI - Lag - ExtraF, CMAx, -1e10);
if (BType == "Amount")
{
CMAx = CMAx + CMA[SVBI - Lag] - CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx + Percent;
LBOS = CMAx - Percent;
}
else
{
CMAx = CMAx * CMA[SVBI - Lag] / CMAx[SVBI - Lag - ExtraF];
UBOS = CMAx * (1 + Percent / 100);
LBOS = CMAx * (1 - Percent / 100);
}
}
else
j = 999;
}
k = k - 1;
Plot(UBOS, "", ColorRGB(Red, Green, Blue), styleThick, Null, Null,
ExtraF);
Plot(LBOS, "", ColorRGB(Red, Green, Blue), styleThick, Null, Null,
ExtraF);
Title = Title + EncodeColor(ColorRGB(Red, Green, Blue)) +
NumToStr(Period, 1.0) + " (" + NumToStr(Pm, 1.0) + "/" + NumToStr(Pn, 1.0) + ")
" + NumToStr(k, 1.0) + " ";
PlotShapes((BI == SVBI - Lag) * shapeSmallUpTriangle, ColorRGB(Red,
Green, Blue), 0, CMA * (1 - Percent / 100), -15);
PlotShapes((BI == SVBI - Lag) * shapeSmallDownTriangle, ColorRGB(Red,
Green, Blue), 0, CMA * (1 + Percent / 100), -15);
}
return;
}
if(HT)
{
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
if (p1 > 0)
CMA_DE(p1, Pct1, 000, 160, 000);
if (p2 > 0)
CMA_DE(p2, Pct2, 160, 112, 000);
if (p3 > 0)
CMA_DE(p3, Pct3, 160, 000, 000);
if (p4 > 0)
CMA_DE(p4, Pct4, 160, 000, 160);
if (p5 > 0)
CMA_DE(p5, Pct5, 000, 000, 160);
if (p6 > 0)
CMA_DE(p6, Pct6, 0, 160, 160);
}
_SECTION_END();
_SECTION_BEGIN(" DESTEK DİREN");
DDG = ParamToggle("Destek Diren Gstermek ","hide|show",0);
chartflag = ParamToggle("Heikin Ashi","show|hide",1);
xx = Cum(1);
nbar = Param("nbar",5,2,50,1);
if(DDG)
{
PHigh = H > Ref(HHV(H,nbar),-1) AND Ref(HHV(H,nbar),nbar) <= H;
PHighPrice = ValueWhen(PHigh,H);
PLow = L < Ref(LLV(L,nbar),-1) AND Ref(LLV(L,nbar),nbar) >= L;
PLowPrice = ValueWhen(PLow,L);
startval_L = ValueWhen(PLow,L,1);
endval_L = ValueWhen(PLow,L,0);
startbar_L = ValueWhen(PLow,xx,1);
endbar_L = ValueWhen(PLow,xx,0);
aa_L = (endval_L-startval_L)/(endbar_L-startbar_L);
bb_L = startval_L;
trendline_L = aa_L * (xx - startbar_L) + bb_L;
dtrendline_L = trendline_L - Ref(trendline_L,-1);
startval_L_extend = ValueWhen(PLow,L,2);
endval_L_extend = ValueWhen(PLow,L,1);
startbar_L_extend = ValueWhen(PLow,xx,2);
endbar_L_extend = ValueWhen(PLow,xx,1);
aa_L_extend = (endval_L_extend-startval_L_extend)/(endbar_L_extend-startbar_L_extend);
bb_L_extend = startval_L;
trendline_L_extend = aa_L_extend * (xx - startbar_L) + endval_L_extend;
dtrendline_L_extend = trendline_L_extend - Ref(trendline_L_extend,-1);
dtrendline_L_extend = IIf(PLow,Ref(dtrendline_L,-1),dtrendline_L_extend);
startval_L_extend2 = ValueWhen(PLow,L,3);
endval_L_extend2 = ValueWhen(PLow,L,2);
startbar_L_extend2 = ValueWhen(PLow,xx,3);
endbar_L_extend2 = ValueWhen(PLow,xx,2);
aa_L_extend2 = (endval_L_extend2-startval_L_extend2)/(endbar_L_extend2-startbar_L_extend2);
bb_L_extend2 = endval_L_extend2;
trendline_L_extend2 = aa_L_extend2 * (xx - endbar_L_extend2) + endval_L_extend2;
dtrendline_L_extend2 = trendline_L_extend2 - Ref(trendline_L_extend2,-1);
dtrendline_L_extend2 = IIf(PLow,Ref(dtrendline_L_extend,-1),dtrendline_L_extend2);
startval_H = ValueWhen(PHigh,H,1);
endval_H = ValueWhen(PHigh,H,0);
startbar_H = ValueWhen(PHigh,xx,1);
endbar_H = ValueWhen(PHigh,xx,0);
aa_H = (endval_H-startval_H)/(endbar_H-startbar_H);
bb_H = startval_H;
trendline_H = aa_H * (xx - startbar_H) + bb_H;
dtrendline_H = trendline_H - Ref(trendline_H,-1);
startval_H_extend = ValueWhen(PHigh,H,2);
endval_H_extend = ValueWhen(PHigh,H,1);
startbar_H_extend = ValueWhen(PHigh,xx,2);
endbar_H_extend = ValueWhen(PHigh,xx,1);
aa_H_extend = (endval_H_extend-startval_H_extend)/(endbar_H_extend-startbar_H_extend);
bb_H_extend = startval_H;
trendline_H_extend = aa_H_extend * (xx - startbar_H) + endval_H_extend;
dtrendline_H_extend = trendline_H_extend - Ref(trendline_H_extend,-1);
dtrendline_H_extend = IIf(PHigh,Ref(dtrendline_H,-1),dtrendline_H_extend);
startval_H_extend2 = ValueWhen(PHigh,H,3);
endval_H_extend2 = ValueWhen(PHigh,H,2);
startbar_H_extend2 = ValueWhen(PHigh,xx,3);
endbar_H_extend2 = ValueWhen(PHigh,xx,2);
aa_H_extend2 = (endval_H_extend2-startval_H_extend2)/(endbar_H_extend2-startbar_H_extend2);
bb_H_extend2 = endval_H_extend2;
trendline_H_extend2 = aa_H_extend2 * (xx - endbar_H_extend2) + endval_H_extend2;
dtrendline_H_extend2 = trendline_H_extend2 - Ref(trendline_H_extend2,-1);
dtrendline_H_extend2 = IIf(PHigh,Ref(dtrendline_H_extend,-1),dtrendline_H_extend2);
tld = ParamToggle("All trendlines","show|hide",1);
if (tld)
{

trendline_L = IIf(dtrendline_L > 0,trendline_L,Null);
trendline_L_extend = IIf(dtrendline_L_extend > 0,trendline_L_extend,Null);
trendline_L_extend2 = IIf(dtrendline_L_extend2 > 0,trendline_L_extend2,Null);
trendline_H = IIf(dtrendline_H < 0,trendline_H,Null);
trendline_H_extend = IIf(dtrendline_H_extend < 0,trendline_H_extend,Null);
trendline_H_extend2 = IIf(dtrendline_H_extend2 < 0,trendline_H_extend2,Null);
}
trendline_L_extend2 = IIf(BarsSince(Plow) <= nbar,trendline_L_extend2,Null);
trendline_H_extend2 = IIf(BarsSince(PHigh) <= nbar,trendline_H_extend2,Null);
GraphXSpace = 5;
SetChartOptions(0, chartShowDates);
if (chartFlag)
{
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
}
else
{
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorWhite, styleBar);
}
PlotShapes(shapeUpArrow*PLow,colorYellow,0,L,-20);
PlotShapes(shapeDownArrow*PHigh,colorWhite,0,H,-20);

Plot(trendline_L, "", colorLime,styleLine|styleThick);
Plot(IIf(BarsSince(Plow) <= nbar,trendline_L_extend,Null), "", colorLightGrey, styleLine | styleThick);
Plot(IIf(BarsSince(Plow) > nbar,trendline_L_extend,Null), "",colorBrightGreen, styleLine | styleThick);
Plot(IIf(BarsSince(Plow) <= nbar,trendline_L_extend2,Null), "",colorDarkGreen, styleLine| styleThick);
Plot(trendline_H, "", colorRed,styleLine|styleThick);
Plot(IIf(BarsSince(PHigh) <= nbar,trendline_H_extend,Null), "", colorLightGrey, styleLine | styleThick);
Plot(IIf(BarsSince(PHigh) > nbar,trendline_H_extend,Null), "",colorOrange, styleLine | styleThick);
Plot(IIf(BarsSince(PHigh) <= nbar,trendline_H_extend2,Null), "",colorOrange, styleLine | styleThick);

signalFlag = ParamToggle("Possible Signals","show|hide",1);
if (signalFlag)
{
Buy = (!IsEmpty(trendline_H_extend) AND Cross(C,trendline_H_extend) AND BarsSince(PHigh) > nbar) OR
(!IsEmpty(trendline_H_extend2) AND Cross(C,trendline_H_extend2) AND !PHigh) OR
(PHigh AND C > trendline_H_extend2 AND Ref(C,-1) < Ref(trendline_H_extend,-1) AND !IsEmpty(trendline_H_extend) AND !IsEmpty(trendline_H_extend2) );
BuyPrice = C;
Short = (!IsEmpty(trendline_L_extend) AND Cross(trendline_L_extend,C) AND BarsSince(PLow) > nbar) OR
(!IsEmpty(trendline_L_extend2) AND Cross(trendline_L_extend2,C) AND !PLow) OR
(PLow AND C < trendline_L_extend2 AND Ref(C,-1) > Ref(trendline_L_extend,-1) AND !IsEmpty(trendline_L_extend) AND !IsEmpty(trendline_L_extend2));
ShortPrice = C;
Sell = 0;
Cover = 0;

}
_SECTION_END();
_SECTION_BEGIN(" EXPLORE");
AL=(!IsEmpty(trendline_H_extend) AND Cross(C,trendline_H_extend) AND BarsSince(PHigh) > nbar) OR
(!IsEmpty(trendline_H_extend2) AND Cross(C,trendline_H_extend2) AND !PHigh) OR
(PHigh AND C > trendline_H_extend2 AND Ref(C,-1) < Ref(trendline_H_extend,-1) AND !IsEmpty(trendline_H_extend) AND !IsEmpty(trendline_H_extend2) );
BuyPrice = C;
SAT=(!IsEmpty(trendline_L_extend) AND Cross(trendline_L_extend,C) AND BarsSince(PLow) > nbar) OR
(!IsEmpty(trendline_L_extend2) AND Cross(trendline_L_extend2,C) AND !PLow) OR
(PLow AND C < trendline_L_extend2 AND Ref(C,-1) > Ref(trendline_L_extend,-1) AND !IsEmpty(trendline_L_extend) AND !IsEmpty(trendline_L_extend2));
ShortPrice = C;
AL_status=WriteIf(AL,"Alış Yap"," ");
SAT_status=WriteIf(SAT,"Satış Yap"," ");
AL_col=IIf(AL, colorDarkGreen , colorWhite);
SAT_col=IIf(SAT, colorRed,colorWhite);

Filter= AL OR SAT;
AddColumn(C, "KAPANIŞ", 1.2, IIf(C > Ref(C,-1),colorBlue, colorRed));
AddTextColumn(AL_status, "ALIŞ", 1.2, colorWhite, Al_col);
AddTextColumn(SAT_status, "SATIŞ", 1.2, colorWhite, SAT_col);
}
_SECTION_END();
_SECTION_BEGIN("Parabolic Sar");
acc=Param("Acceleration factor",0.02,0.01,0.05,0.01);
af_start=Param("Starting AF value",0.02,0.01,0.05,0.01);
af_max=Param("Maximum AF value",0.2,0.1,0.3,0.01);
Ct=Param("Crossover threshold in %",1,0,3,0.5);
PS = ParamToggle(" Parabolic Sar Gstermek ","hide|show",0);
Ct1=Ct/100;
IAF = acc;
MaxAF = af_max;
psar = Close;
long = 1;
af = af_start;
ep = Low[ 0 ];
hp = High [ 0 ];
lp = Low [ 0 ];
for( i = 2; i < BarCount; i++ )
{
if ( long )
{
psar [ i ] = psar [ i-1 ] + af * ( hp - psar [ i-1 ] );
}
else
{
psar [ i ] = psar [ i-1 ] + af * ( lp - psar [ i-1 ] );
}
reverse = 0;
if ( long )
{
if ( Low [ i ] < psar [ i ] * (1-Ct1) )
{
long = 0; reverse = 1;
psar [ i ] = hp;
lp = Low [ i ];
af = af_start;
}
}
else
{
if ( High [ i ] > psar [ i ] * (1+Ct1) )
{
long = 1; reverse = 1;
psar [ i ] = lp;
hp = High [ i ];
af = af_start;
}
}
if ( reverse == 0 )
{
if ( long )
{
if ( High [ i ] > hp )
{
hp = High [ i ];
af = af + IAF;
if( af > MaxAF ) af = MaxAF;
}

if( Low[ i - 1 ] < psar[ i ] ) psar[ i ] = Low[ i - 1 ];
if( Low[ i - 2 ] < psar[ i ] ) psar[ i ] = Low[ i - 2 ];
}
else
{
if ( Low [ i ] < lp )
{
lp = Low [ i ];
af = af + IAF;
if( af > MaxAF ) af = MaxAF;
}

if( High[ i - 1 ] > psar[ i ] ) psar[ i ] = High[ i - 1 ];
if( High[ i - 2 ] > psar[ i ] ) psar[ i ] = High[ i - 2 ];
}
}
}
if(PS)
{
Plot( psar, _DEFAULT_NAME(), ParamColor( "Color", colorYellow), styleDots | styleNoLine | styleThick );
PlotOHLC(O, H, L, C, "Data", colorWhite, styleBar | styleThick);
}
_SECTION_END();
Click to expand...




Where is the file

#include <PolyFit.afl>
 
E

elliot

New Member
#4
#4
Polyfit.afl

// indicator name is Polyfit.afl copy to ...\Amibroker\include\

// *********************************************************
// *
// * VBS Function for Gaussian Elimination
// *
// * Called by PolyFit ( AFL )
// *
// *********************************************************

EnableScript("VBScript");

<%
function Gaussian_Elimination (GE_Order, GE_N, GE_SumXn, GE_SumYXn)
Dim b(10, 10)
Dim w(10)
Dim Coeff(10)

for i = 1 To 10
Coeff(i) = 0
next

n = GE_Order + 1

for i = 1 to n
for j = 1 to n
if i = 1 AND j = 1 then
b(i, j) = cDBL(GE_N)
else
b(i, j) = cDbl(GE_SumXn(i + j - 2))
end if
next
w(i) = cDbl(GE_SumYXn(i))
next

n1 = n - 1
for i = 1 to n1
big = cDbl(abs(b(i, i)))
q = i
i1 = i + 1

for j = i1 to n
ab = cDbl(abs(b(j, i)))
if (ab >= big) then
big = ab
q = j
end if
next

if (big <> 0.0) then
if (q <> i) then
for j = 1 to n
Temp = cDbl(b(q, j))
b(q, j) = b(i, j)
b(i, j) = Temp
next
Temp = w(i)
w(i) = w(q)
w(q) = Temp
end if
end if

for j = i1 to n
t = cDbl(b(j, i) / b(i, i))
for k = i1 to n
b(j, k) = b(j, k) - t * b(i, k)
next
w(j) = w(j) - t * w(i)
next
next

if (b(n, n) <> 0.0) then

Coeff(n) = w(n) / b(n, n)
i = n - 1

while i > 0
SumY = cDbl(0)
i1 = i + 1
for j = i1 to n
SumY = SumY + b(i, j) * Coeff(j)
next
Coeff(i) = (w(i) - SumY) / b(i, i)
i = i - 1
wend

Gaussian_Elimination = Coeff

end if
end function
%>

// *********************************************************
// *
// * AFL Function for nth Order Polynomial Fit
// * Calls Gaussian_Elimination ( VBS )
// *
// * Y = The array to Fit
// * BegBar = Beg Bar in range to fit
// * EndBar = End Bar in range to fit
// * Order = 1 - 8 = Order of Poly Fit (Integer)
// * ExtraB = Number of Bars to Extrapolate (Backward)
// * ExtraF = Number of Bars to Extrapolate (Forward)
// *
// *********************************************************

function PolyFit(GE_Y, GE_BegBar, GE_EndBar, GE_Order, GE_ExtraB, GE_ExtraF)
{
BI = BarIndex();

GE_N = GE_EndBar - GE_BegBar + 1;
GE_XBegin = -(GE_N - 1) / 2;
GE_X = IIf(BI < GE_BegBar, 0, IIf(BI > GE_EndBar, 0, (GE_XBegin + BI - GE_BegBar)));

GE_X_Max = LastValue(Highest(GE_X));

GE_X = GE_X / GE_X_Max;

X1 = GE_X;
AddColumn(X1, "X1", 1.9);

GE_Y = IIf(BI < GE_BegBar, 0, IIf(BI > GE_EndBar, 0, GE_Y));

GE_SumXn = Cum(0);
GE_SumXn[1] = LastValue(Cum(GE_X));
GE_X2 = GE_X * GE_X; GE_SumXn[2] = LastValue(Cum(GE_X2));
GE_X3 = GE_X * GE_X2; GE_SumXn[3] = LastValue(Cum(GE_X3));
GE_X4 = GE_X * GE_X3; GE_SumXn[4] = LastValue(Cum(GE_X4));
GE_X5 = GE_X * GE_X4; GE_SumXn[5] = LastValue(Cum(GE_X5));
GE_X6 = GE_X * GE_X5; GE_SumXn[6] = LastValue(Cum(GE_X6));
GE_X7 = GE_X * GE_X6; GE_SumXn[7] = LastValue(Cum(GE_X7));
GE_X8 = GE_X * GE_X7; GE_SumXn[8] = LastValue(Cum(GE_X8));
GE_X9 = GE_X * GE_X8; GE_SumXn[9] = LastValue(Cum(GE_X9));
GE_X10 = GE_X * GE_X9; GE_SumXn[10] = LastValue(Cum(GE_X10));
GE_X11 = GE_X * GE_X10; GE_SumXn[11] = LastValue(Cum(GE_X11));
GE_X12 = GE_X * GE_X11; GE_SumXn[12] = LastValue(Cum(GE_X12));
GE_X13 = GE_X * GE_X12; GE_SumXn[13] = LastValue(Cum(GE_X13));
GE_X14 = GE_X * GE_X13; GE_SumXn[14] = LastValue(Cum(GE_X14));
GE_X15 = GE_X * GE_X14; GE_SumXn[15] = LastValue(Cum(GE_X15));
GE_X16 = GE_X * GE_X15; GE_SumXn[16] = LastValue(Cum(GE_X16));

GE_SumYXn = Cum(0);
GE_SumYXn[1] = LastValue(Cum(GE_Y));
GE_YX = GE_Y * GE_X; GE_SumYXn[2] = LastValue(Cum(GE_YX));
GE_YX2 = GE_YX * GE_X; GE_SumYXn[3] = LastValue(Cum(GE_YX2));
GE_YX3 = GE_YX2 * GE_X; GE_SumYXn[4] = LastValue(Cum(GE_YX3));
GE_YX4 = GE_YX3 * GE_X; GE_SumYXn[5] = LastValue(Cum(GE_YX4));
GE_YX5 = GE_YX4 * GE_X; GE_SumYXn[6] = LastValue(Cum(GE_YX5));
GE_YX6 = GE_YX5 * GE_X; GE_SumYXn[7] = LastValue(Cum(GE_YX6));
GE_YX7 = GE_YX6 * GE_X; GE_SumYXn[8] = LastValue(Cum(GE_YX7));
GE_YX8 = GE_YX7 * GE_X; GE_SumYXn[9] = LastValue(Cum(GE_YX8));

GE_Coeff = Cum(0);

GE_VBS = GetScriptObject();
GE_Coeff = GE_VBS.Gaussian_Elimination(GE_Order, GE_N, GE_SumXn, GE_SumYXn);

for (i = 1; i <= GE_Order + 1; i++)
printf(NumToStr(i, 1.0) + " = " + NumToStr(GE_Coeff, 1.9) + "\n");

GE_X = IIf(BI < GE_BegBar - GE_ExtraB - GE_ExtraF, 0, IIf(BI > GE_EndBar, 0, (GE_XBegin + BI - GE_BegBar + GE_ExtraF) / GE_X_Max));

GE_X2 = GE_X * GE_X; GE_X3 = GE_X2 * GE_X; GE_X4 = GE_X3 * GE_X; GE_X5 = GE_X4 * GE_X; GE_X6 = GE_X5 * GE_X;
GE_X7 = GE_X6 * GE_X; GE_X8 = GE_X7 * GE_X; GE_X9 = GE_X8 * GE_X; GE_X10 = GE_X9 * GE_X; GE_X11 = GE_X10 * GE_X;
GE_X12 = GE_X11 * GE_X; GE_X13 = GE_X12 * GE_X; GE_X14 = GE_X13 * GE_X; GE_X15 = GE_X14 * GE_X; GE_X16 = GE_X15 * GE_X;

GE_Yn = IIf(BI < GE_BegBar - GE_ExtraB - GE_ExtraF, -1e10, IIf(BI > GE_EndBar, -1e10,
GE_Coeff[1] +
GE_Coeff[2] * GE_X + GE_Coeff[3] * GE_X2 + GE_Coeff[4] * GE_X3 + GE_Coeff[5] * GE_X4 + GE_Coeff[6] * GE_X5 +
GE_Coeff[7] * GE_X6 + GE_Coeff[8] * GE_X7 + GE_Coeff[9] * GE_X8));

return GE_Yn;
}

// *********************************************************
// *
// * Demo AFL to use PolyFit
// *
// *********************************************************

/*Filter = 1;

BI = BarIndex();
PF_BegBar = BeginValue(BI);
PF_EndBar = EndValue(BI);
PF_Y = (H + L) / 2;
PF_Order = Param("nth Order", 3, 1, 8, 1);
PF_ExtraB = Param("Extrapolate Backwards", 0, 0, 50, 1);
PF_ExtraF = Param("Extrapolate Forwards", 0, 0, 50, 1);

Yn = PolyFit(PF_Y, PF_BegBar, PF_EndBar, PF_Order, PF_ExtraB, PF_ExtraF);

GraphXSpace = 10;

Plot(Yn, "nth Order Polynomial Fit - " + NumToStr(PF_Order, 1.0), IIf(BI > PF_EndBar - PF_ExtraF, colorWhite, IIf(BI < PF_BegBar - PF_ExtraF, colorWhite, colorBrightGreen)), styleThick, Null, Null, PF_ExtraF);
PlotOHLC(O, H, L, C, "Close", colorLightGrey, styleCandle);
*/
 
E

elliot

New Member
#5
#5
shantanujatar said:
do you have a mt4 equivalent of the above one ???
Click to expand...
mt4 equivalent polynomial curve

#property copyright " Analizci "
#property link "www.ortaklar.de"
//----
#property indicator_chart_window
//#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 Red
//---- input parameters
extern int PS=128;
extern int PolinomDerecesi=6;

//---- buffers
//double Uptrend[];
//double Dntrend[];
double ExtMapBuffer[];
//double DntrendSonuc[];
//double UptrendSonuc[];

double ref0 = 0;
double ref1 = 0;
double ref2 = 0;


double determinantS1=0;
double determinantS2=0;
double determinantS3=0;

double determinantSr1=0;
double determinantSr2=0;
double determinantSr3=0;
double determinantSr4=0;

double determinantSr31=0;
double determinantSr32=0;
double determinantSr33=0;
double determinantSr34=0;
double determinantSr35=0;

double determinantSr41=0;
double determinantSr42=0;
double determinantSr43=0;
double determinantSr44=0;
double determinantSr45=0;
double determinantSr46=0;

double determinantSr51=0;
double determinantSr52=0;
double determinantSr53=0;
double determinantSr54=0;
double determinantSr55=0;
double determinantSr56=0;
double determinantSr57=0;

double determinantSr61=0;
double determinantSr62=0;
double determinantSr63=0;
double determinantSr64=0;
double determinantSr65=0;
double determinantSr66=0;
double determinantSr67=0;
double determinantSr68=0;

double X1,x1x1,x1X2,x1x3,X1X4,X1X5,X1X6 ;
double X2,x2x2,x2x3,X2X4,X2X5,X2X6 ;
double x3,x3x3,X3X4,X3X5,X3X6 ;
double X4,X4X4,X4X5,X4X6 ;
double X5,X5X5,X5X6 ;
double X6,X6X6 ;
double Y,yx1,yx2,yx3,yx4,yx5,yx6 ;

//double Derece = PolinomDerecesi;
double Dizi[7][7]; // double Dizi[2][2];
double DetEleman[7][7]; // double DetEleman[2][2];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(1);
SetIndexBuffer(0, ExtMapBuffer);
//ArraySetAsSeries(Uptrend, true);
//SetIndexBuffer(1, Dntrend);
//ArraySetAsSeries(Dntrend, true);
//SetIndexBuffer(2, ExtMapBuffer);
//ArraySetAsSeries(ExtMapBuffer, true);

//SetIndexDrawBegin(2,50);
//----
SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,2);
//SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,2);
//SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,2);

//----
IndicatorShortName("Signal Line("+PS+")");
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}

//+------------------------------------------------------------------+
//| Relative Strength Index |
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
int start()
{

if(PolinomDerecesi<1 )
{
Alert("PolinomDerecesi 1 den kck olamaz!!");
return(0);
}

if( PolinomDerecesi>6 )
{
Alert("PolinomDerecesi 6 den Byk olamaz!!");
return(0);
}

//----

//---- initial zero
int i,k;

//double trend[];

//ArrayResize(trend, Bars);
//ArraySetAsSeries(trend, true);
for(i=PS;i<(Bars+1);i++)
{
X1=0;
yx1=0;
yx2=0;
yx3=0;
yx4=0;
yx5=0;
yx6=0;


Y=0;
x1x1 = 0;
x1X2 = 0;
x2x2 = 0;
x2x3 = 0;
x3x3 = 0;
X1X6 = 0;
X2X6 = 0;
X3X6 = 0;
X4X6 = 0;
X5X6 = 0;
X6X6 = 0;
X2 = 0;
x3 = 0;
X4 = 0;
x1x3 = 0;
X1X4 = 0;
X5 = 0;
X2X4 = 0;
X1X5 = 0;
X6 = 0;
X3X4 = 0;
X2X5 = 0;
X4X4 = 0;
X3X5 = 0;
X4X5 = 0;
X5X5 = 0;

ref0 = 0;
ref1 = 0;
ref2 = 0;

for(k=1;k<=PS;k++)
{

X1 = X1 + MathPow(k,1);
x1x1 = x1x1 + MathPow(k,2);
x1X2 = x1X2 + MathPow(k,3);
x2x2 = x2x2 + MathPow(k,4);
x2x3 = x2x3 + MathPow(k,5);
x3x3 = x3x3 + MathPow(k,6);
X1X6 = X1X6 + MathPow(k,7);
X2X6 = X2X6 + MathPow(k,8);
X3X6 = X3X6 + MathPow(k,9);
X4X6 = X4X6 + MathPow(k,10);
X5X6 = X5X6 + MathPow(k,11);
X6X6 = X6X6 + MathPow(k,12);

Y=Y+Close[Bars-i+PS-k];
yx1=yx1+Close[Bars-i+PS-k]*MathPow(k,1);
yx2=yx2+Close[Bars-i+PS-k]*MathPow(k,2);
yx3=yx3+Close[Bars-i+PS-k]*MathPow(k,3);
yx4=yx4+Close[Bars-i+PS-k]*MathPow(k,4);
yx5=yx5+Close[Bars-i+PS-k]*MathPow(k,5);
yx6=yx6+Close[Bars-i+PS-k]*MathPow(k,6);




}


X2 = x1x1;
x3 = x1X2;
X4 = x2x2;
x1x3 = x2x2;
X1X4 = x2x3;
X5 = x2x3;
X2X4 = x3x3;
X1X5 = x3x3;
X6 = x3x3;
X3X4 = X1X6;
X2X5 = X1X6;
X4X4 = X2X6;
X3X5 = X2X6;
X4X5 = X3X6;
X5X5 = X4X6;
if(PolinomDerecesi==1)
{
DetHesaplaTrend();
ExtMapBuffer[Bars-i] = determinantS2 / determinantS1 + determinantS3 / determinantS1 * (PS);
}
if(PolinomDerecesi==2)
{
DetHesaplaReg2();
ExtMapBuffer[Bars-i] = (determinantSr2 / determinantSr1 + (determinantSr3 / determinantSr1) * PS + (determinantSr4 / determinantSr1) * MathPow(PS,2));
}
if(PolinomDerecesi==3)
{
DetHesaplaReg3();
ExtMapBuffer[Bars-i] = (determinantSr32 / determinantSr31 + determinantSr33 / determinantSr31 * MathPow(PS,1) + determinantSr34 / determinantSr31 * MathPow(PS,2) + determinantSr35 / determinantSr31 * MathPow(PS,3));
}
if(PolinomDerecesi==4)
{
DetHesaplaReg4();
ExtMapBuffer[Bars-i] = (determinantSr42 / determinantSr41 + determinantSr43 / determinantSr41 * MathPow(PS,1) + determinantSr44 / determinantSr41 * MathPow(PS,2) + determinantSr45 / determinantSr41 * MathPow(PS,3) + determinantSr46 / determinantSr41 * MathPow(PS,4));
}
if(PolinomDerecesi==5)
{
DetHesaplaReg5();
ExtMapBuffer[Bars-i] = (determinantSr52 / determinantSr51 + determinantSr53 / determinantSr51 * MathPow(PS,1) + determinantSr54 / determinantSr51 * MathPow(PS,2)+ determinantSr55 / determinantSr51 * MathPow(PS,3) + determinantSr56 / determinantSr51 * MathPow(PS,4) + determinantSr57 / determinantSr51 * MathPow(PS,5));
}
if(PolinomDerecesi==6)
{
DetHesaplaReg6();
ref0 = (determinantSr62 / determinantSr61 + determinantSr63 / determinantSr61 * MathPow(PS,1) + determinantSr64 / determinantSr61 * MathPow(PS,2) + determinantSr65 / determinantSr61 * MathPow(PS,3) + determinantSr66 / determinantSr61 * MathPow(PS,4) + determinantSr67 / determinantSr61 * MathPow(PS,5) + determinantSr68 / determinantSr61 * MathPow(PS,6));
ref1 = (determinantSr62 / determinantSr61 + determinantSr63 / determinantSr61 * MathPow(PS-1,1) + determinantSr64 / determinantSr61 * MathPow(PS-1,2) + determinantSr65 / determinantSr61 * MathPow(PS-1,3) + determinantSr66 / determinantSr61 * MathPow(PS-1,4) + determinantSr67 / determinantSr61 * MathPow(PS-1,5) + determinantSr68 / determinantSr61 * MathPow(PS-1,6));
ref2 = (determinantSr62 / determinantSr61 + determinantSr63 / determinantSr61 * MathPow(PS-2,1) + determinantSr64 / determinantSr61 * MathPow(PS-2,2) + determinantSr65 / determinantSr61 * MathPow(PS-2,3) + determinantSr66 / determinantSr61 * MathPow(PS-2,4) + determinantSr67 / determinantSr61 * MathPow(PS-2,5) + determinantSr68 / determinantSr61 * MathPow(PS-2,6));

ExtMapBuffer[Bars-i] = (determinantSr62 / determinantSr61 + determinantSr63 / determinantSr61 * MathPow(PS,1) + determinantSr64 / determinantSr61 * MathPow(PS,2) + determinantSr65 / determinantSr61 * MathPow(PS,3) + determinantSr66 / determinantSr61 * MathPow(PS,4) + determinantSr67 / determinantSr61 * MathPow(PS,5) + determinantSr68 / determinantSr61 * MathPow(PS,6));
}

}

return(0);

}
//+------------------------------------------------------------------+
double DetHesapla()

{



int DetY ;
int i;
int j;
int listviewSatir;

i = 0;
j = 0;


for(listviewSatir=0;listviewSatir<PolinomDerecesi+1;listviewSatir++)

{



int z;

for(z=0;z<PolinomDerecesi+1;z++)
{
DetEleman[i,j] = Dizi[listviewSatir,z];
//if(don==Bars && z==2 && listviewSatir== 0 && i==0 && j==2 ) Alert(DetEleman[i,j], " " ,X2);
j = j + 1;
}
i = i + 1;
j = 0;
}
double carpan;
double pivot;
int m;
for(m=0;m<PolinomDerecesi+1;m++)
{
for(DetY=m + 1;DetY<PolinomDerecesi+1;DetY++)
{
carpan = -DetEleman[DetY, m] / DetEleman[m, m];
for(z= 0;z<PolinomDerecesi+1;z++)
{
DetEleman[DetY, z] = (carpan * DetEleman[m, z]) + DetEleman[DetY, z];

}
}
}
double Det;
Det = 1;
for(m= 0;m<PolinomDerecesi+1;m++)
{
Det = Det * DetEleman[m, m];
}
double determinantsonucu1 = Det;

return(determinantsonucu1);
}
//+------------------------------------------------------------------+
double DetHesaplaTrend()
{
Dizi[0,0] = PS;
Dizi[0,1] = X1;
Dizi[1,0] = X1;
Dizi[1,1] = x1x1;

determinantS1=DetHesapla();

Dizi[0,0] = Y;
Dizi[0,1] =X1;
Dizi[1,0] = yx1;
Dizi[1,1] = x1x1;


determinantS2=DetHesapla();
Dizi[0,0] = PS;
Dizi[0,1] = Y;
Dizi[1,0] = X1;
Dizi[1,1] = yx1;
determinantS3=DetHesapla();

return(0);
}
//////////////////////////////////////////////////////
double DetHesaplaReg2()
{
Dizi[0,0] = PS;
Dizi[0,1] = X1;
Dizi[0,2] = X2;
Dizi[1,0] = X1;
Dizi[1,1] = x1x1;
Dizi[1,2] = x1X2;
Dizi[2,0] = X2;
Dizi[2,1] = x1X2;
Dizi[2,2] = x2x2;

//--- Determinant1 Hesap Bolumu -----
determinantSr1=DetHesapla();


//'--- Determinant1 Hesap Bolumu Son -----

Dizi[0,0] = Y;
Dizi[0,1] = X1;
Dizi[0,2] = X2;
Dizi[1,0] = yx1;
Dizi[1,1] = x1x1;
Dizi[1,2] = x1X2;
Dizi[2,0] = yx2;
Dizi[2,1] = x1X2;
Dizi[2,2] = x2x2;

//'--- Determinant1 Hesap Bolumu -----
determinantSr2=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----
Dizi[0,0] = PS;
Dizi[0,1] = Y;
Dizi[0,2] = X2;
Dizi[1,0] = X1;
Dizi[1,1] = yx1;
Dizi[1,2] = x1X2;
Dizi[2,0] = X2;
Dizi[2,1] = yx2;
Dizi[2,2] = x2x2;
//'--- Determinant1 Hesap Bolumu -----
determinantSr3=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----
Dizi[0,0] = PS;
Dizi[0,1] = X1;
Dizi[0,2] = Y;
Dizi[1,0] = X1;
Dizi[1,1] = x1x1;
Dizi[1,2] = yx1;
Dizi[2,0] = X2;
Dizi[2,1] = x1X2;
Dizi[2,2] = yx2;
//'--- Determinant1 Hesap Bolumu -----
determinantSr4=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----

return(0);
}

double DetHesaplaReg3()
{

Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;

//'--- Determinant1 Hesap Bolumu -----
determinantSr31=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----

Dizi[0, 0] = Y;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[1, 0] = yx1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[2, 0] = yx2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[3, 0] = yx3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;

//'--- Determinant1 Hesap Bolumu -----
determinantSr32=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----
Dizi[0, 0] = PS;
Dizi[0, 1] = Y;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[1, 0] = X1;
Dizi[1, 1] = yx1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[2, 0] = X2;
Dizi[2, 1] = yx2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[3, 0] = x3;
Dizi[3, 1] = yx3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
//'--- Determinant1 Hesap Bolumu -----
determinantSr33=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = Y;
Dizi[0, 3] = x3;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = yx1;
Dizi[1, 3] = x1x3;
Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = yx2;
Dizi[2, 3] = x2x3;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = yx3;
Dizi[3, 3] = x3x3;
//'--- Determinant1 Hesap Bolumu -----
determinantSr34=DetHesapla();
//'--- Determinant1 Hesap Bolumu Son -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = Y;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = yx1;
Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = yx2;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = yx3;
//'--- Determinant1 Hesap Bolumu -----
determinantSr35=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
return(0);
}

double DetHesaplaReg4()
{

Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;

//'--- Determinant1 Hesap Bolumu -----
determinantSr41=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----

Dizi[0, 0] = Y;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;

Dizi[1, 0] = yx1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;

Dizi[2, 0] = yx2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;

Dizi[3, 0] = yx3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[4, 0] = yx4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;

//'--- Determinant1 Hesap Bolumu -----
determinantSr42=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = Y;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;

Dizi[1, 0] = X1;
Dizi[1, 1] = yx1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;

Dizi[2, 0] = X2;
Dizi[2, 1] = yx2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;

Dizi[3, 0] = x3;
Dizi[3, 1] = yx3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[4, 0] = X4;
Dizi[4, 1] = yx4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;

//'--- Determinant1 Hesap Bolumu -----
determinantSr43=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = Y;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = yx1;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = yx2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = yx3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = yx4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;

//'--- Determinant1 Hesap Bolumu -----
determinantSr44=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = Y;
Dizi[0, 4] = X4;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = yx1;
Dizi[1, 4] = X1X4;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = yx2;
Dizi[2, 4] = X2X4;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = yx3;
Dizi[3, 4] = X3X4;
Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = yx4;
Dizi[4, 4] = X4X4;


//'--- Determinant1 Hesap Bolumu -----
determinantSr45=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----

Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = Y;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = yx1;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = yx2;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = yx3;
Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = yx4;

//'--- Determinant1 Hesap Bolumu -----
determinantSr46=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
return(0);
}

double DetHesaplaReg5()
{


Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;

Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;

//'--- Determinant1 Hesap Bolumu -----
determinantSr51=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----

Dizi[0, 0] = Y;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;

Dizi[1, 0] = yx1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = yx2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = yx3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = yx4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;

Dizi[5, 0] =yx5;
Dizi[5, 1] =X1X5;
Dizi[5, 2] =X2X5;
Dizi[5, 3] =X3X5;
Dizi[5, 4] =X4X5;
Dizi[5, 5] =X5X5;

//'--- Determinant1 Hesap Bolumu -----
determinantSr52=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = Y;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;

Dizi[1, 0] = X1;
Dizi[1, 1] = yx1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = X2;
Dizi[2, 1] = yx2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = x3;
Dizi[3, 1] = yx3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = X4;
Dizi[4, 1] = yx4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;

Dizi[5, 0] =X5;
Dizi[5, 1] =yx5;
Dizi[5, 2] =X2X5;
Dizi[5, 3] =X3X5;
Dizi[5, 4] =X4X5;
Dizi[5, 5] =X5X5;

//'--- Determinant1 Hesap Bolumu -----
determinantSr53=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = Y;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = yx1;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = yx2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = yx3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = yx4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;

Dizi[5, 0] =X5;
Dizi[5, 1] =X1X5;
Dizi[5, 2] =yx5;
Dizi[5, 3] =X3X5;
Dizi[5, 4] =X4X5;
Dizi[5, 5] =X5X5;

//'--- Determinant1 Hesap Bolumu -----
determinantSr54=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = Y;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = yx1;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = yx2;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = yx3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = yx4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] =X4X5;

Dizi[5, 0] =X5;
Dizi[5, 1] =X1X5;
Dizi[5, 2] =X2X5;
Dizi[5, 3] =yx5;
Dizi[5, 4] =X4X5;
Dizi[5, 5] =X5X5;

//'--- Determinant1 Hesap Bolumu -----
determinantSr55=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = Y;
Dizi[0, 5] = X5;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = yx1;
Dizi[1, 5] = X1X5;


Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = yx2;
Dizi[2, 5] = X2X5;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = yx3;
Dizi[3, 5] = X3X5;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = yx4;
Dizi[4, 5] = X4X5;

Dizi[5, 0] =X5;
Dizi[5, 1] =X1X5;
Dizi[5, 2] =X2X5;
Dizi[5, 3] =X3X5;
Dizi[5, 4] =yx5;
Dizi[5, 5] =X5X5;
//'--- Determinant1 Hesap Bolumu -----
determinantSr56=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = Y;

Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = yx1;


Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = yx2;

Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = yx3;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = yx4;

Dizi[5, 0] =X5;
Dizi[5, 1] =X1X5;
Dizi[5, 2] =X2X5;
Dizi[5, 3] =X3X5;
Dizi[5, 4] =X4X5;
Dizi[5, 5] =yx5;
//'--- Determinant1 Hesap Bolumu -----
determinantSr57=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----


return(0);
}


double DetHesaplaReg6()
{
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr61=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----

Dizi[0, 0] = Y;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = yx1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = yx2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = yx3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = yx4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = yx5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = yx6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr62=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = Y;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = yx1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = yx2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = yx3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = yx4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = yx5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = yx6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr63=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = Y;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = yx1;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = yx2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = yx3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = yx4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = yx5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = yx6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr64=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = Y;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = yx1;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = yx2;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = yx3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = yx4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = yx5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = yx6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr65=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = Y;
Dizi[0, 5] = X5;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = yx1;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = yx2;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = yx3;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = yx4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = yx5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = yx6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr66=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = Y;
Dizi[0, 6] = X6;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = yx1;
Dizi[1, 6] = X1X6;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = yx2;
Dizi[2, 6] = X2X6;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = yx3;
Dizi[3, 6] = X3X6;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = yx4;
Dizi[4, 6] = X4X6;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = yx5;
Dizi[5, 6] = X5X6;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = yx6;
Dizi[6, 6] = X6X6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr67=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
Dizi[0, 0] = PS;
Dizi[0, 1] = X1;
Dizi[0, 2] = X2;
Dizi[0, 3] = x3;
Dizi[0, 4] = X4;
Dizi[0, 5] = X5;
Dizi[0, 6] = Y;
Dizi[1, 0] = X1;
Dizi[1, 1] = x1x1;
Dizi[1, 2] = x1X2;
Dizi[1, 3] = x1x3;
Dizi[1, 4] = X1X4;
Dizi[1, 5] = X1X5;
Dizi[1, 6] = yx1;

Dizi[2, 0] = X2;
Dizi[2, 1] = x1X2;
Dizi[2, 2] = x2x2;
Dizi[2, 3] = x2x3;
Dizi[2, 4] = X2X4;
Dizi[2, 5] = X2X5;
Dizi[2, 6] = yx2;
Dizi[3, 0] = x3;
Dizi[3, 1] = x1x3;
Dizi[3, 2] = x2x3;
Dizi[3, 3] = x3x3;
Dizi[3, 4] = X3X4;
Dizi[3, 5] = X3X5;
Dizi[3, 6] = yx3;

Dizi[4, 0] = X4;
Dizi[4, 1] = X1X4;
Dizi[4, 2] = X2X4;
Dizi[4, 3] = X3X4;
Dizi[4, 4] = X4X4;
Dizi[4, 5] = X4X5;
Dizi[4, 6] = yx4;
Dizi[5, 0] = X5;
Dizi[5, 1] = X1X5;
Dizi[5, 2] = X2X5;
Dizi[5, 3] = X3X5;
Dizi[5, 4] = X4X5;
Dizi[5, 5] = X5X5;
Dizi[5, 6] = yx5;

Dizi[6, 0] = X6;
Dizi[6, 1] = X1X6;
Dizi[6, 2] = X2X6;
Dizi[6, 3] = X3X6;
Dizi[6, 4] = X4X6;
Dizi[6, 5] = X5X6;
Dizi[6, 6] = yx6;

//'--- Determinant1 Hesap Bolumu -----
determinantSr68=DetHesapla();
//'--- Determinant1 Hesap Bolumu -----
return(0);
}
 
E

elliot

New Member
#7
#7
After pressing the indicator screen, the screen will be black. Right-clicking with the mouse from the parameters
s show, hide Please be sure to optimize the coefficients of the other indicators are available with the mouse, manually set the indicator. parabolic sar support resistance, etc. If you want one by one they want to hide or review them all at once.
 
E

elliot

New Member
#9
#9
Copy and paste the format function MT4 indicator editine imetatrader build real-time data alone are clogged, while the import is active. variable because there are many series. occupy memory space on the array variables. copy and paste the download process when you turn off real-time data indicator.
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
N JAPAdegreekew Options 0
Dawood Live Nifty signals based on gann degrees linked with NseNow market watch Advanced Trading Strategies 35
T MCA with ME (Computer Science and Engineering) Degree Holders General Chit Chat 0
B Getting engineering degree Introductions 0
C Is there any degree or diplomo or one year course on stock market Beginners Guide 11

Similar threads