Настройка сетки графика по оси ординат

Настройка сетки графика по оси ординат

{ **** UBPFD *********** by kladovka.net.ru ****
>> Настройка оси
. Имеет смысл при
передаче данных в другие пакеты, использующие графическое
представление данных (например, в Excel).
Зависимости: uses Chart, TeEngine, Math;
Автор: lookin
Copyright: lookin
Дата: 25 декабря 2002 г.
********************************************** }

//для использования в Delphi
procedure CalcAxis(NChart: TChart);
var step,ymx,ymn,rmx,rmn,raz: double;
  i,n,m,d: integer;
begin
 with NChart do begin ymx:=-10000000000; ymn:=10000000000; m:=0; n:=0;
 for i:=0 to SeriesCount-1 do if Series[i].XValues.Count<>0 then begin
 if Series[i].YValues.MaxValue>ymx then ymx:=Series[i].YValues.MaxValue;
 if Series[i].YValues.MinValue<ymn then ymn:=Series[i].YValues.MinValue; end;
 rmx:=ymx; rmn:=ymn;
 while ymn<0 do begin ymn:=ymn+100; ymx:=ymx+100; Inc(m); end; raz:=ymx-ymn;
 while raz<100 do begin ymn:=ymn*10; ymx:=ymx*10; raz:=ymx-ymn; Inc(n); end;
 ymx:=Ceil(ymx); ymn:=Floor(ymn);
 d:=trunc(ymx) div 100; ymx:=(d+1)*100;
 d:=trunc(ymn) div 100; ymn:=d*100; raz:=ymx-ymn; step:=raz/5;
 ymx:=ymx/(Power(10,n))-m*100; ymn:=ymn/(Power(10,n))-m*100;
 step:=step/(Power(10,n)); d:=0;
 for i:=1 to 5 do if (d=0) and (ymn+step*i>rmx) then d:=i;
 if d<>0 then ymx:=ymn+step*d; d:=0;
 for i:=1 to 5 do if (d=0) and (ymn+step*i<rmn) then d:=i;
 if d<>0 then ymn:=ymn+step*d;
 with LeftAxis do begin Automatic:=false; Increment:=step;
 Minimum:=-100000000000; Maximum:=ymx; Minimum:=ymn; end; end;
end;

//для использования в Excel в качестве макроса (Visual Basic)

Function SetAxisRange(CChart As Chart, ByRef AMax As Double, ByRef AMin As Double, ByRef AStep As Double)

Dim Step, RMax, RMin, Max, Min, Raz As Double

Dim I, J, N, M, d As Integer

  Max = -1000000

  Min = 1000000

  For I = 1 To CChart.SeriesCollection.Count

  ReDim VArray(UBound(CChart.SeriesCollection(I).Values))

  VArray = CChart.SeriesCollection(I).Values

  For J = 1 To UBound(VArray)

  If VArray(J) > Max Then Max = VArray(J)

  If VArray(J) < Min Then Min = VArray(J)

   J

   I

  RMax = Max

  RMin = Min

  N = 0

  M = 0

  If Max <> Min Then

  While Min < 0

  Min = Min + 100

  Max = Max + 100

  M = M + 1

  Wend

  Raz = Max - Min

  While Raz < 100

  Min = Min * 10

  Max = Max * 10

  Raz = Max - Min

  N = N + 1

  Wend

  Max = Int(Max) + 1

  Min = Int(Min)

  d = Max \ 100

  Max = (d + 1) * 100

  d = Min \ 100

  Min = d * 100

  Raz = Max - Min

  Step = Raz / 5

  AStep = Step / (10 ^ N)

  AMin = Min / (10 ^ N) - M * 100

  AMax = Max / (10 ^ N) - M * 100

  d = 0

  For I = 1 To 5

  If d = 0 Then

  If (AMin + AStep * I) > RMax Then d = I

  End If

   I

  If d <> 0 Then AMax = AMin + AStep * d

  d = 0

  For I = 1 To 5

  If d = 0 Then

  If (AMin + AStep * I) < RMin Then d = I

  End If

   I

  If d <> 0 Then AMin = AMin + AStep * d

  End If

End Function

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...