/*
  talserie.conf
  """
  See ~/R/me/talserie.txt
  in which this sequence of numbers is analysed
  1.74369 1.57483 1.40299 1.23749 1.08657 0.95934 0.85755 0.77850 0.71739 0.66865 0.53873 0.45803 0.37487 0.31905 0.25126 0.21060 
  """

  * With approx 0.1
    [program = C / (A / B),res = 0.165852863187588,count = 7]
    [program = B / (A / C),res = 0.165852863187588,count = 6]
    [program = (A + sqrt(0) / C) / -5 + B,res = 0.18745,count = 6]
    [program = C * C / B,res = 0.176519780307251,count = 1]
    [program = C - C / 9,res = 0.1872,count = 1]
    [program = C - log(log(3)),res = 0.116552172383301,count = 1]

    resultMap = [0.18745 = 1,0.1872 = 1,0.176519780307251 = 1,0.165852863187588 = 1,0.165852863187588 = 1,0.116552172383301 = 1]

  * With approx 0.05 (100 generations)
    [program = C - B / 8,res = 0.1791925,count = 91]
    [program = C / 8 * 7,res = 0.184275,count = 77]
    [program = C - C + C - B / 8,res = 0.1791925,count = 69]
    [program = C / 8 + (C / -4 + C),res = 0.184275,count = 49]
    [program = C - C / 8,res = 0.184275,count = 28]
    [program = C * 7 / 8,res = 0.184275,count = 27]
    [program = 7 * (C / 8),res = 0.184275,count = 24]
    [program = C + C / -8,res = 0.184275,count = 12]
    [program = exp(log(C) * C) / -9 + C,res = 0.130565391915196,count = 2]

    resultMap = [0.184275 = 6,0.1791925 = 2,0.130565391915196 = 1]



*/
data(talserie,Data,Vars,Unknown,Ops,Constants,MaxSize,Params) :-
  Seq = [1.74369,1.57483,1.40299,1.23749,1.08657,0.95934,0.85755,0.77850,0.71739,0.66865,0.53873,0.45803,0.37487,0.31905,0.25126,0.21060],
  make_seq(Seq,3,Data,Unknown,Vars),
    % Ops = [*,+,-,/, mod,/\,\/,if_then_else,!=,==],
  Ops = [*,+,-,/, exp,log,sqrt],
  Constants = -10..10,
  MaxSize = 5,
  % Params = new_map([approx=0.1,num_gens=30]).
  Params = new_map([approx=0.05,num_gens=100]).
  % Params = new_map([approx=0.01,num_gens=500]).