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

predpologen5 : string;

izm1,izm2 : boolean;

begin

// переменные per5, per13 нужны для фиксации последнего перехода через реальные цены

// если значение 0 - перехода не было

// если значение 1 - переход снизу вверх {продажа}

// если значение 2 - переход сверху вниз (покупка)

tec:=0;

// setlength(vfive,plecho1);

// setlength(vthirt,plecho2);

sc1:=1; i:=0;

graffive[0]:=realn[0];

grafthirt[0]:=realn[0];

//izm1:=false;

While i<d-1 do

begin

five[i]:=realn[i];

thirt[i]:=realn[i];

izm2:=false ;i:=tec;

predpologen5:='pusto';

while (izm2=false) and (i<d-1) do

begin

five[i+1]:=floattostr(strtofloat(izm(five[i]))+(2/(plecho1+1))*(strtofloat(izm(realn[i+1]))-strtofloat(izm(five[i]))));

graffive[i+1]:=five[i+1];

//закончили формирование плеча длиной 5

// начинаем формирование плеча длиной 13

thirt[i+1]:=floattostr(strtofloat(izm(thirt[i]))+(2/(plecho2+1))*(strtofloat(izm(realn[i+1]))-strtofloat(izm(thirt[i]))));

grafthirt[i]:=thirt[i];

if strtofloat(izm(five[i+1]))>strtofloat(izm(thirt[i+1])) then pologen5:='v'