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

if (pologen5='v') and (predpologen5='n') then

// покупка

if sc1=1 then begin

setlength(a3,sc1);

a3[sc1-1]:=1;

setlength(b3,sc1);

b3[sc1-1]:=i+2;

inc(sc1);

tec:=i+1;

izm2:=true;

// izm1:=true;

end

else if a3[sc1-2]=2 then

begin

// покупка

setlength(a3,sc1);

a3[sc1-1]:=1;

setlength(b3,sc1);

b3[sc1-1]:=i+2;

inc(sc1);

tec:=i+1;

izm2:=true;

// izm1:=true;

end;

if (pologen5='n') and (predpologen5='v') then

if sc1=1 then

begin

// продажа

setlength(a3,sc1);