Micex Mapping | 15.11.2017 | Пожар

procedure calc_lider01(form_Height,form_Width:integer);
var i:integer;

begin
for i:=0 to DSRC^.DSindex-1 do begin
TREELIST[i].id_index:=i;

TREELIST[i].SortValue:=0;
if (DSRC^.DSource[i].history_loaded) and (DSRC^.DSource[i].day_volume>0) then
TREELIST[i].SortValue:=((DSRC^.DSource[i].lastprice-DSRC^.DSource[i].CANDLES[DSRC^.DSource[i].size-1].Close)/DSRC^.DSource[i].CANDLES[DSRC^.DSource[i].size-1].Close);
TREELIST[i].Value:=exp(4*LN((LN(DSRC^.DSource[i].day_volume+25000))));

end;
qSortTreeList(TREELIST,0,DSRC^.DSindex-1);

for i:=0 to TREEMAXCOUNT*3 div 2 do begin
TREELIST[i].SortValue:=TREELIST[i].Value;
end;
qSortTreeList(TREELIST,0,TREEMAXCOUNT*3 div 2);

treemap_calc(form_Height,form_Width,1.5);

end;