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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат на тему, новые рефераты
| Добавил(а) на сайт: Evlogij.

S - первоначальный капитал

K - количество торговых сессий

3. Описание программы

Программа написана на языке программирования Delphi.Версия 5.0. Имеет дружественный интерфейс, который очень прост в управлении. Для построения графика выберите вкладку с названием соответствующего метода и нажмите кнопку с названием "Построить график". После чего для анализа перейдите на вкладку "Анализ методов". И нажмите на кнопку "Результат".Все выходные данные находятся в окошечке справа. На вкладке "Дополнительно" осуществляется выбор (длина) окна, также приведены гиперссылки на сайты с котировками акций (http://www.rts.ru) и Банка России (http://www.cbr.ru) и график ставки рефинансирования.

.

5. Листинг
Процедура вывода результатов

procedure TForm1.Button11Click(Sender: TObject); var i,chislo,pr,po,x : integer; ak : integer; // число акций на руках mon : integer; // деньги в наших руках nac,n1,n2,n3,ref : double; begin try mon:=1000*strtoint(edit10.text); ak:=1000*strtoint(edit11.text); except showmessage('При вводе была допущена ошибка'); edit10.text:='100'; edit11.text:='10'; exit; end; if (mon=0) and (ak=0) then begin showmessage('Так не интересно'); exit; end; nac:=round(ak*strtofloat(izm(realn[0])))+mon; n1:=nac*28.2*0.25*463/365; n2:=nac*0.23*28.2*120/365; n3:=nac*28.2*0.21*75/365; ref:=nac+(n1+n2+n3)/31.6; chislo:=length(a3); pr:=0; po:=0; if length(a3)>0 then begin for i:=low(a3) to high(a3) do if a3[i]=1 then inc(po) else inc(pr); 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]