<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <br>
    Hello again,<br>
    <br>
    I changed now from Lazarus 64 Bit to 32 Bit version and there it
    works as expected.<br>
    BR Peter<br>
    <br>
    <br>
    <div class="moz-cite-prefix">Am 13.12.2013 22:18, schrieb Peter
      Thurner:<br>
    </div>
    <blockquote cite="mid:52AB79C2.2010306@gmx.at" type="cite">Hello *,
      <br>
      <br>
      here is an example which I use to try log transform for x-axis:
      <br>
      Can anybody try out please the code below which plots a sin(x)/x
      curve between 1 ... 100 in linear scale.
      <br>
      (please see attached picture).
      <br>
      <br>
      If I apply a log10 transform to the x axis, then I always get a
      "Range Check Error"!
      <br>
      What do I do wrong here?
      <br>
      Thanks in advance for your help.
      <br>
      <br>
      =======================================================
      <br>
      unit Unit1;
      <br>
      <br>
      {$mode objfpc}{$H+}
      <br>
      <br>
      interface
      <br>
      <br>
      uses
      <br>
        Classes, SysUtils, FileUtil, TAGraph, TATransformations,
      TASeries,
      <br>
        TAFuncSeries, TAIntervalSources, Forms, Controls, Graphics,
      Dialogs;
      <br>
      <br>
      type
      <br>
      <br>
        { TForm1 }
      <br>
      <br>
        TForm1 = class(TForm)
      <br>
          Chart1: TChart;
      <br>
          ChartAxisTransformations1: TChartAxisTransformations;
      <br>
          LogarithmAxis: TLogarithmAxisTransform;
      <br>
          SincSeries: TLineSeries;
      <br>
          procedure FormCreate(Sender: TObject);
      <br>
        private
      <br>
          { private declarations }
      <br>
        public
      <br>
          { public declarations }
      <br>
        end;
      <br>
      <br>
      var
      <br>
        Form1: TForm1;
      <br>
      <br>
      implementation
      <br>
      <br>
      {$R *.lfm}
      <br>
      <br>
      { TForm1 }
      <br>
      <br>
      procedure TForm1.FormCreate(Sender: TObject);
      <br>
      const
      <br>
        N = 1000;
      <br>
        MIN = 0.1;
      <br>
        MAX = 100;
      <br>
      var
      <br>
        i: integer;
      <br>
        x: double;
      <br>
      begin
      <br>
        for i := 0 to N - 1 do
      <br>
        begin
      <br>
          x := MIN + (MAX - MIN) * i / (N - 1);
      <br>
          SincSeries.AddXY(x, sin(x)/x);
      <br>
        end;
      <br>
      end;
      <br>
      <br>
      end.
      <br>
      =======================================================
      <br>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">--
_______________________________________________
Lazarus mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus@lists.lazarus.freepascal.org">Lazarus@lists.lazarus.freepascal.org</a>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a>
</pre>
    </blockquote>
    <br>
  </body>
</html>