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

Описание программы. Программа написана на языке программирования Delphi. Версия 5.0. Имеет дружественный интерфейс, который очень прост в управлении.

Для построения графика выберите вкладку с названием соответствующего метода и нажмите кнопку с названием Построить график.

После чего для анализа перейдите на вкладку Анализ методов. И нажмите на кнопку Результат. Все выходные данные находятся в окошечке справа. На вкладке Дополнительно осуществляется выбор длина окна, также приведены гиперссылки на сайты с котировками акций httpwww.rts.ru и Банка России httpwww.cbr.ru и график ставки рефинансирования 5. Листинг Процедура вывода результатов procedure TForm1.Button11ClickSender TObject var i, chislo, pr, po, x integer ak integer число акций на руках mon integer деньги в наших руках nac, n1,n2,n3,ref double begin try mon1000strtointedit10.text ak1000strtointedit11.text except showmessageПри вводе была допущена ошибка edit10.text100 edit11.text10 exit end if mon0 and ak0 then begin showmessageТак не интересно exit end nacroundakstrtofloatizmrealn0mon n1nac28.20.25463365 n2nac0.2328.2120365 n3nac28.20.2175365 refnacn1n2n331.6 chislolengtha3 pr0 po0 if lengtha3 0 then begin for ilowa3 to higha3 do if a3i1 then incpo else incpr if a301 then begin akakroundmonstrtofloatizmrealnb30 mon0 end else begin monroundakstrtofloatizmrealnb30mon ak0 end for ilowa31 to higha3 do begin if a3i1 and b3i d then begin akroundmonstrtofloatizmrealnb3i mon0 end if a3i2 and b3i d then begin monroundakstrtofloatizmrealnb3i ak0 end end if a3lengtha3-11 then x1 else x0 if mon0 then monroundakstrtofloatizmrealnd-1 memo4.Clear memo4.Lines. AddСтатистика за период memo4.Lines. Add1 января 2001 года - 20 октября 2002 года memo4.Lines. AddАнализ проведен для плеч с длинами inttostrplecho1 и inttostrplecho2 memo4.Lines. AddНачальный капитал в тысячах USD edit10.text memo4.Lines. AddНачальное число акций в тысячах штук edit11.text memo4.Lines. AddОбщая сумма в тысячах USD floattostrnac memo4.Lines. AddЧисло операций с акциями РАО ЕЭС Россия inttostrchislox memo4.Lines. AddВ том числе покупок акций inttostrpo memo4.Lines. AddВ том числе продаж акций inttostrprx memo4.Lines. AddСумма капитала в USD на 21 октября 2002 года inttostrmon memo4.Lines. AddЭффективность метода floattostrroundmon-nac365100nac658 memo4.Lines. AddСумма капитала при рефинансировании в USD на 21 октября 2002 года floattostrroundref memo4.Lines. AddЭффективность рефинансирования floattostrroundref-nac365100nac658 end else begin memo4.Clear memo4.Lines. AddСтатистика за период memo4.Lines. Add1 января 2001 года - 20 октября 2002 года memo4.Lines. AddАнализ проведен для плеч с длинами inttostrplecho1 и inttostrplecho2 memo4.Lines. AddНачальный капитал в тысячах USD edit10.text memo4.Lines. AddНачальное число акций в тысячах штук edit11.text memo4.Lines. AddОбщая сумма в тысячах USD floattostrnac memo4.Lines. AddЧисло операций с акциями РАО ЕЭС Россия inttostrchislo memo4.Lines. AddВ том числе покупок акций inttostrpo memo4.Lines. AddВ том числе продаж акций inttostrpr memo4.Lines. AddСумма капитала в USD на 21 октября 2002 года floattostrnac memo4.Lines. AddЭффективность метода 0 memo4.Lines. AddСумма капитала при рефинансировании в USD на 21 октября 2002 года floattostrroundref memo4.Lines. AddЭффективность рефинансирования floattostrroundref-nac365100nac658 end end процедура вывода графика, построенного методом экспоненциальных скользящих procedure TForm1.Button8ClickSender TObject var i, k,sc, sc1,tec, i1 integer pologen5 string predpologen5 string izm1,izm2 boolean begin переменные per5, per13 нужны для фиксации последнего перехода через реальные цены если значение 0 - перехода не было если значение 1 - переход снизу вверх продажа если значение 2 - переход сверху вниз покупка tec0 setlengthvfive, plecho1 setlengthvthirt, plecho2 sc11 i0 graffive0realn0 grafthirt0realn0 izm1false While i d-1 do begin fiveirealni thirtirealni izm2false itec predpologen5pusto while izm2false and i d-1 do begin fivei1floattostrstrtofloatizmfivei2plech o11strtofloatizmrealni1-strtofloatizmfiv ei graffivei1fivei1 закончили формирование плеча длиной 5 начинаем формирование плеча длиной 13 thirti1floattostrstrtofloatizmthirti2ple cho21strtofloatizmrealni1-strtofloatizmt hirti grafthirtithirti if strtofloatizmfivei1 strtofloatizmthirti1 then pologen5v else pologen5n if pologen5v and predpologen5n then покупка if sc11 then begin setlengtha3,sc1 a3sc1-11 setlengthb3,sc1 b3sc1-1i2 incsc1 teci1 izm2true izm1true end else if a3sc1-22 then begin покупка setlengtha3,sc1 a3sc1-11 setlengthb3,sc1 b3sc1-1i2 incsc1 teci1 izm2true izm1true end if pologen5n and predpologen5v then if sc11 then begin продажа setlengtha3,sc1 a3sc1-12 setlengthb3,sc1 b3sc1-1i2 incsc1 teci1 izm2true izm1true end else if a3sc1-21 then begin продажа setlengtha3,sc1 a3sc1-12 setlengthb3,sc1 b3sc1-1i2 incsc1 teci1 izm2true izm1true end predpologen5pologen5 inci if then goto Start end end chart4.AxisVisibletrue for i0 to d-2 do begin chart4.Series1.addXYi, strtofloatizmgraft hirti, inttostri, clBlue end for i0 to d-2 do begin chart4.Series2.addXYi, strtofloatizmrealn i, inttostri, clRed end for i0 to d-2 do begin chart4.Series0.addXYi, strtofloatizmgraff ivei, inttostri, clGreen end for sc0 to lengtha3-1 do if a3sc1 then chart4.Series3.AddXYb3sc-1,strtofloatizm realnb3sc-1,inttostri, clBlack else chart4.Series3.AddXYb3sc-1,strtofloatizm realnb3sc-1,inttostri, clYellow if alengtha-12 then chart1.Series3.AddXYd-3,strtofloatizmrea lnd-3,00,clYellow button8.Enabledfalse button11.Enabledtrue end 6. Результаты При первоначальном капитале 100 тысяч USD и наличии 10 тысяч акций Получены следующие эффективности методов Экспериментальный 1 Длина оконЭффективность 5,13235,858,1322 Экспериментальный 2 Длина оконЭффективность 5,1315,8-48,135 СС Длина оконЭффективность 5,1305,808,130 ЭСС Длина оконЭффективность 5,13175,8188,135 При вложении средств в банк получена эффективность 22. 8. Ставка рефинансирования 9. ПериодСтавка01012001-040820022504092002- 080620022308072002-1020200221 Курс USD 1 ЯНВАРЯ 2001 Г. -28.2 РУБ 20 ОКТЯБРЯ 2002 Г- 31.6 РУБ.