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

setlength(b3,sc1);

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

inc(sc1);

tec:=i+1;

izm2:=true;

//izm1:=true;

end else if a3[sc1-2]=1 then

begin

// продажа

setlength(a3,sc1);

a3[sc1-1]:=2;

setlength(b3,sc1);

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

inc(sc1);

tec:=i+1;

izm2:=true;

//izm1:=true;

end;

predpologen5:=pologen5;

inc(i);

// if then goto Start;

end;

end;

chart4.AxisVisible:=true;

for i:=0 to d-2 do

begin

chart4.Series[1].addXY(i,strtofloat(izm(grafthirt[i])),inttostr(i),clBlue);

end;

for i:=0 to d-2 do