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

memo4.Lines.Add('Число операций с акциями РАО ЕЭС Россия : '+inttostr(chislo+x));

memo4.Lines.Add('В том числе покупок акций : '+inttostr(po));

memo4.Lines.Add('В том числе продаж акций : '+inttostr(pr+x));

memo4.Lines.Add('Сумма капитала в USD на 21 октября 2002 года : '+inttostr(mon));

memo4.Lines.Add('Эффективность метода : '+floattostr(round((mon-nac)*365*100/(nac*658)))+' %');

memo4.Lines.Add('Сумма капитала при рефинансировании в USD на 21 октября 2002 года: '+floattostr(round(ref)) +'');

memo4.Lines.Add('Эффективность рефинансирования '+floattostr(round((ref-nac)*365*100/(nac*658))) +' %');

end

else

begin

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);

memo4.Lines.Add('Общая сумма (в тысячах USD) : '+floattostr(nac));

memo4.Lines.Add('Число операций с акциями РАО ЕЭС Россия : '+inttostr(chislo));

memo4.Lines.Add('В том числе покупок акций : '+inttostr(po));

memo4.Lines.Add('В том числе продаж акций : '+inttostr(pr));

memo4.Lines.Add('Сумма капитала в USD на 21 октября 2002 года : '+floattostr(nac));

memo4.Lines.Add('Эффективность метода : 0%');

memo4.Lines.Add('Сумма капитала при рефинансировании в USD на 21 октября 2002 года: '+floattostr(round(ref)) +'');

memo4.Lines.Add('Эффективность рефинансирования '+floattostr(round((ref-nac)*365*100/(nac*658))) +' %');

end;

end;

процедура вывода графика, построенного методом экспоненциальных скользящих

procedure TForm1.Button8Click(Sender: TObject);

var i,k,sc,sc1,tec,i1 : integer;