Реферат: Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг.

if a3[0]=1 then begin

ak:=ak+round(mon/strtofloat(izm(realn[b3[0]])));

mon:=0;

end

else begin

mon:=round(ak*strtofloat(izm(realn[b3[0]])))+mon;

ak:=0;

end;

for i:=low(a3)+1 to high(a3) do

begin

if (a3[i]=1) and (b3[i]<d) then begin

ak:=round(mon/strtofloat(izm(realn[b3[i]])));

mon:=0;

end;

if (a3[i]=2) and (b3[i]<d) then

begin

mon:=round(ak*strtofloat(izm(realn[b3[i]])));

ak:=0;

end;

end;

if a3[length(a3)-1]=1 then x:=1

else x:=0;

if mon=0 then mon:=round(ak*strtofloat(izm(realn[d-1])));

memo4.Clear;

memo4.Lines.Add('Статистика за период:');

memo4.Lines.Add('1 января 2001 года - 20 октября 2002 года');

memo4.Lines.Add('Анализ проведен для плеч с длинами '+inttostr(plecho1)+' и '+inttostr(plecho2));

memo4.Lines.Add('Начальный капитал (в тысячах USD) : '+edit10.text);

memo4.Lines.Add('Начальное число акций (в тысячах штук) : '+edit11.text);