home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / LG_EXE2.ZIP / LOGASF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-03-26  |  3.8 KB  |  135 lines
  1. Program Logasf;
  2. {This program creates an Axis Specification File for log plots.}
  3.  
  4. Var
  5.   ASF_File: Text;
  6.   I,J:      Integer;
  7.   Temp:     Real;
  8.  
  9. Begin
  10.   Assign (ASF_file, 'logx.asf');
  11.   ReWrite(ASF_file);
  12.   Writeln(ASF_File, 'y');       { Redo x axis }
  13.   Writeln(ASF_File, 12);        { labels on x axis.  Note that only some of }
  14.   Writeln(ASF_File, '100000');  { these will be used. }
  15.   Writeln(ASF_file, '5');
  16.   Writeln(ASF_File, '10000');
  17.   Writeln(ASF_File, '4');
  18.   Writeln(ASF_File, '1000');
  19.   Writeln(ASF_File, '3');
  20.   Writeln(ASF_File, '100');
  21.   Writeln(ASF_File, '2');
  22.   Writeln(ASF_File, '10');
  23.   Writeln(ASF_File, '1');
  24.   Writeln(ASF_File, '1');
  25.   Writeln(ASF_File, '0');
  26.   Writeln(ASF_File, '0.1');
  27.   Writeln(ASF_File, '-1');
  28.   Writeln(ASF_File, '0.01');
  29.   Writeln(ASF_File, '-2');
  30.   Writeln(ASF_File, '0.001');
  31.   Writeln(ASF_File, '-3');
  32.   Writeln(ASF_File, '0.00001');
  33.   Writeln(ASF_File, '-4');
  34.   Writeln(ASF_File, '0.000001');
  35.   Writeln(ASF_File, '-5');
  36.   Writeln(ASF_File, '0.0000001');
  37.   Writeln(ASF_File, '-6');
  38.   Writeln(ASF_File, '108'); {tic marks on x axis}
  39.   For I:=-6 to 5 do
  40.     For J:=1 to 9 do
  41.     Begin
  42.       Temp := Exp(ln(10.0)*I) * J;
  43.       Writeln(ASF_File, ln(temp)/ln(10.0):10:6);
  44.     End;
  45.   Writeln(ASF_File, '108'); {grid marks for x axis}
  46.   For I:=-6 to 5 do
  47.     For J:=1 to 9 do
  48.     Begin
  49.       Temp := Exp(ln(10.0)*I) * J;
  50.       Writeln(ASF_File, ln(temp)/ln(10.0));
  51.     End;
  52.  
  53.  
  54.   Writeln(ASF_File, 'n');       { Redo y axis }
  55. (*
  56.   Writeln(ASF_File, 12);        { labels on y axis.  Note that only some of }
  57.   Writeln(ASF_File, '100000');  { these will be used. }
  58.   Writeln(ASF_file, '5');
  59.   Writeln(ASF_File, '10000');
  60.   Writeln(ASF_File, '4');
  61.   Writeln(ASF_File, '1000');
  62.   Writeln(ASF_File, '3');
  63.   Writeln(ASF_File, '100');
  64.   Writeln(ASF_File, '2');
  65.   Writeln(ASF_File, '10');
  66.   Writeln(ASF_File, '1');
  67.   Writeln(ASF_File, '1');
  68.   Writeln(ASF_File, '0');
  69.   Writeln(ASF_File, '0.1');
  70.   Writeln(ASF_File, '-1');
  71.   Writeln(ASF_File, '0.01');
  72.   Writeln(ASF_File, '-2');
  73.   Writeln(ASF_File, '0.001');
  74.   Writeln(ASF_File, '-3');
  75.   Writeln(ASF_File, '0.00001');
  76.   Writeln(ASF_File, '-4');
  77.   Writeln(ASF_File, '0.000001');
  78.   Writeln(ASF_File, '-5');
  79.   Writeln(ASF_File, '0.0000001');
  80.   Writeln(ASF_File, '-6');
  81.   Writeln(ASF_File, '108'); {tic marks on y axis}
  82.   For I:=-6 to 5 do
  83.     For J:=1 to 9 do
  84.     Begin
  85.       Temp := Exp(ln(10.0)*I) * J;
  86.       Writeln(ASF_File, ln(temp)/ln(10.0):10:6);
  87.     End;
  88.   Writeln(ASF_File, '0'); {grid marks for y axis}
  89. *)
  90.  
  91.  
  92.   Writeln(ASF_File, 'n');       { Redo z axis }
  93. (*
  94.   Writeln(ASF_File, 12);        { labels on z axis.  Note that only some of }
  95.   Writeln(ASF_File, '100000');  { these will be used. }
  96.   Writeln(ASF_file, '5');
  97.   Writeln(ASF_File, '10000');
  98.   Writeln(ASF_File, '4');
  99.   Writeln(ASF_File, '1000');
  100.   Writeln(ASF_File, '3');
  101.   Writeln(ASF_File, '100');
  102.   Writeln(ASF_File, '2');
  103.   Writeln(ASF_File, '10');
  104.   Writeln(ASF_File, '1');
  105.   Writeln(ASF_File, '1');
  106.   Writeln(ASF_File, '0');
  107.   Writeln(ASF_File, '0.1');
  108.   Writeln(ASF_File, '-1');
  109.   Writeln(ASF_File, '0.01');
  110.   Writeln(ASF_File, '-2');
  111.   Writeln(ASF_File, '0.001');
  112.   Writeln(ASF_File, '-3');
  113.   Writeln(ASF_File, '0.00001');
  114.   Writeln(ASF_File, '-4');
  115.   Writeln(ASF_File, '0.000001');
  116.   Writeln(ASF_File, '-5');
  117.   Writeln(ASF_File, '0.0000001');
  118.   Writeln(ASF_File, '-6');
  119.   Writeln(ASF_File, '108'); {tic marks on z axis}
  120.   For I:=-6 to 5 do
  121.     For J:=1 to 9 do
  122.     Begin
  123.       Temp := Exp(ln(10.0)*I) * J;
  124.       Writeln(ASF_File, ln(temp)/ln(10.0):10:6);
  125.     End;
  126.   Writeln(ASF_File, '108'); {grid marks for z axis}
  127.   For I:=-6 to 5 do
  128.     For J:=1 to 9 do
  129.     Begin
  130.       Temp := Exp(ln(10.0)*I) * J;
  131.       Writeln(ASF_File, ln(temp)/ln(10.0));
  132.     End;
  133. *)
  134.   Close(ASF_File);
  135. End.