Please advise anyone
Code: Select all
Inputs:
IBW72.8(72.8), // %72,8
IBW27.2(27.2), // %27,2
IBW127.2(127.2), // %127,2
IBW161.8(161.8), // %161,8
IBW200(200), // %200
IBW227.2(227.2), // %227,2
IBW261.8(261.8), // %261,8
IBW300(300); // %300
variable:
IBWhigh(0), // high za pondeli a utery
IBWlow(0), // low za pondeli a utery
IBWrange(0),
IBW_72.8(0),
IBW_27.2(0),
IBW_127.2(0),
IBW_161.8(0),
IBW_200(0),
IBW_227.2(0),
IBW_261.8(0),
IBW_300(0),
IBW__127.2(0), // %-127,2
IBW__161.8(0), // %-161,8
IBW__200(0), // %-200
IBW__227.2(0), // %-227,2
IBW__261.8(0), // %-261,8
IBW__300(0), // %-300
IBWhighLine(0),
IBWlowLine(0),
IBW_72.8Line(0),
IBW_27.2Line(0),
IBW_127.2Line(0),
IBW_161.8Line(0),
IBW_200Line(0),
IBW_227.2Line(0),
IBW_261.8Line(0),
IBW_300Line(0),
IBW__127.2Line(0),
IBW__161.8Line(0),
IBW__200Line(0),
IBW__227.2Line(0),
IBW__261.8Line(0),
IBW__300Line(0),
IBWhighText(0),
IBWlowText(0),
IBW_72.8Text(0),
IBW_27.2Text(0),
IBW_127.2Text(0),
IBW_161.8Text(0),
IBW_200Text(0),
IBW_227.2Text(0),
IBW_261.8Text(0),
IBW_300Text(0),
IBW__127.2Text(0),
IBW__161.8Text(0),
IBW__200Text(0),
IBW__227.2Text(0),
IBW__261.8Text(0),
IBW__300Text(0),
y(0);
// podminky zaokrouhlovani na ruznych forex parech
if
symbol="EUR.USD" or
symbol="GBP.USD" or
symbol="USD.CHF" or
symbol="EUR.AUD" or
symbol="GBP.AUD" or
symbol="AUD.CAD" or
symbol="EUR.CAD" or
symbol="GBP.CAD" or
symbol="NZD.CAD" or
symbol="USD.CAD" or
symbol="AUD.CHF" or
symbol="CAD.CHF" or
symbol="EUR.CHF" or
symbol="GBP.CHF" or
symbol="NZD.CHF" or
symbol="EUR.GBP" or
symbol="AUD.NZD" or
symbol="EUR.NZD" or
symbol="GBP.NZD" or
symbol="AUD.USD" or
symbol="NZD.USD" or
symbol="AUD.SGD" or
symbol="EUR.SGD" or
symbol="USD.SGD" then begin
y=4;
end
else begin
y=2;
end;
// definice ze je streda a je treba urit high/low za pondeli a utery, tim zaroven range
if
dayofweek(date)=3 then
begin
IBWhigh=Round(maxlist(HighD(1),HighD(2)),y);
IBWlow=Round(minlist(LowD(1),LowD(2)),y);
IBWrange=IBWhigh-IBWlow;
end;
// vapocet jednotlivych urovni
IBW_72.8=Round(IBWlow+(IBWrange*IBW72.8)/100,y); // %72,8
IBW_27.2=Round(IBWlow+(IBWrange*IBW27.2)/100,y); // %27,2
IBW_127.2=Round(IBWlow+(IBWrange*IBW127.2)/100,y); // %127,2
IBW_161.8=Round(IBWlow+(IBWrange*IBW161.8)/100,y); // %161,8
IBW_200=Round(IBWlow+(IBWrange*IBW200)/100,y); // %200
IBW_227.2=Round(IBWlow+(IBWrange*IBW227.2)/100,y); // %227,2
IBW_261.8=Round(IBWlow+(IBWrange*IBW261.8)/100,y); // %261,8
IBW_300=Round(IBWlow+(IBWrange*IBW300)/100,y); // %300
IBW__127.2=Round(IBWhigh-(IBWrange*IBW127.2)/100,y); // %-127,2
IBW__161.8=Round(IBWhigh-(IBWrange*IBW161.8)/100,y); // %-161,8
IBW__200=Round(IBWhigh-(IBWrange*IBW200)/100,y); // %-200
IBW__227.2=Round(IBWhigh-(IBWrange*IBW227.2)/100,y); // %-227,2
IBW__261.8=Round(IBWhigh-(IBWrange*IBW261.8)/100,y); // %-261,8
IBW__300=Round(IBWhigh-(IBWrange*IBW300)/100,y); // %-300
/// nejvyssi high za pondeli a utery
IBWhighLine=tl_new(d[1],t[1],IBWhigh,d,t+30,IBWhigh);
tl_setcolor(IBWhighLine,green);
IBWhighText=text_new(d,t+30,IBWhigh,"IBW High ("+numtostr(IBWhigh,y)+")");
Text_SetStyle(IBWhighText, 0, 1 ) ;
Text_SetColor(IBWhighText,green);
/// nejnizsi low za pondeli a utery
IBWlowLine=tl_new(d[1],t[1],IBWlow,d,t+30,IBWlow);
tl_setcolor(IBWlowLine,red);
IBWlowText=text_new(d,t+30,IBWlow,"IBW Low ("+numtostr(IBWlow,y)+")");
Text_SetStyle(IBWlowText, 0, 1 ) ;
Text_SetColor(IBWlowText,red);
/// uroven %72.8
IBW_72.8Line=tl_new(d[1],t[1],IBW_72.8,d,t+30,IBW_72.8);
tl_setcolor(IBW_72.8Line,RGB(255,255,0));
TL_setstyle(IBW_72.8Line,3);
IBW_72.8Text=text_new(d,t+30,IBW_72.8,"IBW %72.8 ("+numtostr(IBW_72.8,y)+")");
Text_SetStyle(IBW_72.8Text, 0, 1 ) ;
Text_SetColor(IBW_72.8Text,RGB(255,255,0));
/// uroven %27.2
IBW_27.2Line=tl_new(d[1],t[1],IBW_27.2,d,t+30,IBW_27.2);
tl_setcolor(IBW_27.2Line,RGB(131,111,255));
TL_setstyle(IBW_27.2Line,3);
IBW_27.2Text=text_new(d,t+30,IBW_27.2,"IBW %72.8 ("+numtostr(IBW_27.2,y)+")");
Text_SetStyle(IBW_27.2Text, 0, 1 ) ;
Text_SetColor(IBW_27.2Text,RGB(131,111,255));
/// uroven %127.2
IBW_127.2Line=tl_new(d[1],t[1],IBW_127.2,d,t+30,IBW_127.2);
tl_setcolor(IBW_127.2Line,RGB(192,255,255));
TL_setstyle(IBW_127.2Line,3);
IBW_127.2Text=text_new(d,t+30,IBW_127.2,"IBW %127.2 ("+numtostr(IBW_127.2,y)+")");
Text_SetStyle(IBW_127.2Text, 0, 1 ) ;
Text_SetColor(IBW_127.2Text,RGB(192,255,255));
/// uroven %161.8
IBW_161.8Line=tl_new(d[1],t[1],IBW_161.8,d,t+30,IBW_161.8);
tl_setcolor(IBW_161.8Line,RGB(192,255,255));
TL_setstyle(IBW_161.8Line,3);
IBW_161.8Text=text_new(d,t+30,IBW_161.8,"IBW %161.8 ("+numtostr(IBW_161.8,y)+")");
Text_SetStyle(IBW_161.8Text, 0, 1 ) ;
Text_SetColor(IBW_161.8Text,RGB(192,255,255));
/// uroven %200
IBW_200Line=tl_new(d[1],t[1],IBW_200,d,t+30,IBW_200);
tl_setcolor(IBW_200Line,RGB(255,192,203));
TL_setstyle(IBW_200Line,3);
IBW_200Text=text_new(d,t+30,IBW_200,"IBW %200 ("+numtostr(IBW_200,y)+")");
Text_SetStyle(IBW_200Text, 0, 1 ) ;
Text_SetColor(IBW_200Text,RGB(255,192,203));
/// uroven %227.2
IBW_227.2Line=tl_new(d[1],t[1],IBW_227.2,d,t+30,IBW_227.2);
tl_setcolor(IBW_227.2Line,RGB(192,255,255));
TL_setstyle(IBW_227.2Line,3);
IBW_227.2Text=text_new(d,t+30,IBW_227.2,"IBW %227.2 ("+numtostr(IBW_227.2,y)+")");
Text_SetStyle(IBW_227.2Text, 0, 1 ) ;
Text_SetColor(IBW_227.2Text,RGB(192,255,255));
/// uroven %261.8
IBW_261.8Line=tl_new(d[1],t[1],IBW_261.8,d,t+30,IBW_261.8);
tl_setcolor(IBW_261.8Line,RGB(192,255,255));
TL_setstyle(IBW_261.8Line,3);
IBW_261.8Text=text_new(d,t+30,IBW_261.8,"IBW %261.8 ("+numtostr(IBW_261.8,y)+")");
Text_SetStyle(IBW_261.8Text, 0, 1 ) ;
Text_SetColor(IBW_261.8Text,RGB(192,255,255));
/// uroven %300
IBW_300Line=tl_new(d[1],t[1],IBW_300,d,t+30,IBW_300);
tl_setcolor(IBW_300Line,RGB(165,42,0));
TL_setstyle(IBW_300Line,3);
IBW_300Text=text_new(d,t+30,IBW_300,"IBW %300 ("+numtostr(IBW_300,y)+")");
Text_SetStyle(IBW_300Text, 0, 1 ) ;
Text_SetColor(IBW_300Text,RGB(165,42,0));
/// uroven %-127.2
IBW__127.2Line=tl_new(d[1],t[1],IBW__127.2,d,t+30,IBW__127.2);
tl_setcolor(IBW__127.2Line,RGB(192,255,255));
TL_setstyle(IBW__127.2Line,3);
IBW__127.2Text=text_new(d,t+30,IBW__127.2,"IBW %-127.2 ("+numtostr(IBW__127.2,y)+")");
Text_SetStyle(IBW__127.2Text, 0, 1 ) ;
Text_SetColor(IBW__127.2Text,RGB(192,255,255));
/// uroven %-161.8
IBW__161.8Line=tl_new(d[1],t[1],IBW__161.8,d,t+30,IBW__161.8);
tl_setcolor(IBW__161.8Line,RGB(192,255,255));
TL_setstyle(IBW__161.8Line,3);
IBW__161.8Text=text_new(d,t+30,IBW__161.8,"IBW %-161.8 ("+numtostr(IBW__161.8,y)+")");
Text_SetStyle(IBW__161.8Text, 0, 1 ) ;
Text_SetColor(IBW__161.8Text,RGB(192,255,255));
/// uroven %-200
IBW__200Line=tl_new(d[1],t[1],IBW__200,d,t+30,IBW__200);
tl_setcolor(IBW__200Line,RGB(255,192,203));
TL_setstyle(IBW__200Line,3);
IBW__200Text=text_new(d,t+30,IBW__200,"IBW %-200 ("+numtostr(IBW__200,y)+")");
Text_SetStyle(IBW__200Text, 0, 1 ) ;
Text_SetColor(IBW__200Text,RGB(255,192,203));
/// uroven %-227.2
IBW__227.2Line=tl_new(d[1],t[1],IBW__227.2,d,t+30,IBW__227.2);
tl_setcolor(IBW__227.2Line,RGB(192,255,255));
TL_setstyle(IBW__227.2Line,3);
IBW__227.2Text=text_new(d,t+30,IBW__227.2,"IBW %-227.2 ("+numtostr(IBW__227.2,y)+")");
Text_SetStyle(IBW__227.2Text, 0, 1 ) ;
Text_SetColor(IBW__227.2Text,RGB(192,255,255));
/// uroven %-261.8
IBW__261.8Line=tl_new(d[1],t[1],IBW__261.8,d,t+30,IBW__261.8);
tl_setcolor(IBW__261.8Line,RGB(192,255,255));
TL_setstyle(IBW__261.8Line,3);
IBW__261.8Text=text_new(d,t+30,IBW__261.8,"IBW %-261.8 ("+numtostr(IBW__261.8,y)+")");
Text_SetStyle(IBW__261.8Text, 0, 1 ) ;
Text_SetColor(IBW__261.8Text,RGB(192,255,255));
/// uroven %-300
IBW__300Line=tl_new(d[1],t[1],IBW__300,d,t+30,IBW__300);
tl_setcolor(IBW__300Line,RGB(165,42,0));
TL_setstyle(IBW__300Line,3);
IBW__300Text=text_new(d,t+30,IBW__300,"IBW %-300 ("+numtostr(IBW__300,y)+")");
Text_SetStyle(IBW__300Text, 0, 1 ) ;
Text_SetColor(IBW__300Text,RGB(165,42,0));
// smazani starych popisek urovni
if
IBWhighText<>IBWhighText[1] then
begin
text_delete(IBWhighText[1]);
text_delete(IBWlowText[1]);
text_delete(IBW_72.8Text[1]);
text_delete(IBW_27.2Text[1]);
text_delete(IBW_127.2Text[1]);
text_delete(IBW_161.8Text[1]);
text_delete(IBW_200Text[1]);
text_delete(IBW_227.2Text[1]);
text_delete(IBW_261.8Text[1]);
text_delete(IBW_300Text[1]);
text_delete(IBW__127.2Text[1]);
text_delete(IBW__161.8Text[1]);
text_delete(IBW__200Text[1]);
text_delete(IBW__227.2Text[1]);
text_delete(IBW__261.8Text[1]);
text_delete(IBW__300Text[1]);
end;