module CAS

# File lib/functions/fnc-base.rb, line 512
def self.abs(x)
  CAS::Abs.new x
end

# File lib/functions/fnc-trig.rb, line 319
def acos(x)
  CAS::Acos.new x
end

# File lib/functions/fnc-trig.rb, line 161
def asin(x)
  CAS::Asin.new x
end

# File lib/functions/fnc-trig.rb, line 484
def atan(x)
  CAS::Atan.new x
end

# File lib/functions/fnc-box-conditions.rb, line 287
def box(x, a, b, type=:closed)
  case type
  when :closed
    return CAS::BoxConditionClosed.new(x, a, b)
  when :open
    return CAS::BoxConditionOpen.new(x, a, b)
  when :upper_closed
    return CAS::BoxConditionUpperClosed.new(x, a, b)
  when :lower_closed
    return CAS::BoxConditionLowerClosed.new(x, a, b)
  else
    raise CAS::CASError, "Unknown box condition type"
  end
end

# File lib/numbers/constants.rb, line 108
def self.const(*val)
  #(val = [val]) if val.size == 1
  ret = []
  val.each do |n|
    ret << (NumericToConst[n] ? NumericToConst[n] : CAS::Constant.new(n))
  end
  return (ret.size == 1 ? ret[0] : ret)
end

# File lib/functions/fnc-trig.rb, line 247
def self.cos(x)
  CAS::Cos.new x
end

# File lib/numbers/functions.rb, line 189
def declare(name, *xs)
  xs.flatten!
  CAS::Function.new(name, xs)
end

# File lib/functions/fnc-conditions.rb, line 300
def self.equal(x, y)
  CAS::Equal.new(x, y)
end

# File lib/functions/fnc-trsc.rb, line 92
def self.exp(x)
  CAS::Exp.new x
end

# File lib/Mr.CAS/graphviz.rb, line 125
def self.export_dot(fl, op)
  CAS::Help.assert(fl, String)
  CAS::Help.assert(op, CAS::Op)

  File.open(fl, "w") do |f| f.puts CAS.to_dot(op) end
  return op
end

# File lib/functions/fnc-conditions.rb, line 305
def self.greater(x, y)
  CAS::Greater.new(x, y)
end

# File lib/functions/fnc-conditions.rb, line 310
def self.greater_equal(x, y)
  CAS::GreaterEqual.new(x, y)
end

# File lib/functions/fnc-base.rb, line 427
def self.invert(x)
  CAS::Invert.new x
end

# File lib/functions/fnc-trsc.rb, line 187
def ln(x)
  CAS::Ln.new x
end

# File lib/functions/fnc-piecewise.rb, line 174
def self.max(x, y)
  CAS::Max.new(x, y)
end

# File lib/functions/fnc-piecewise.rb, line 183
def self.min(x, y)
  CAS::Min.new(x, y, CAS::smaller_equal(x, y))
end

# File lib/functions/fnc-base.rb, line 170
def self.pow(x, y)
  CAS::Pow.new x, y
end

# File lib/functions/fnc-trig.rb, line 84
def self.sin(x)
  CAS::Sin.new x
end

# File lib/functions/fnc-conditions.rb, line 315
def self.smaller(x, y)
  CAS::Smaller.new(x, y)
end

# File lib/functions/fnc-conditions.rb, line 320
def self.smaller_equal(x, y)
  CAS::SmallerEqual.new(x, y)
end

# File lib/functions/fnc-base.rb, line 342
def self.sqrt(x)
  CAS::Sqrt.new x
end

# File lib/functions/fnc-trig.rb, line 405
def self.tan(x)
  CAS::Tan.new x
end

# File lib/Mr.CAS/graphviz.rb, line 84
def self.to_dot(op)
  CAS::Help.assert(op, CAS::Op)
  string = op.dot_graph
  labels = ""

  dot_subs_hash = {
    "Sum"                => "+",
    "Diff"               => "-",
    "Prod"               => "×",
    "Div"                => "÷",
    "Sqrt"               => "√(∙)",
    "Abs"                => "|∙|",
    "Invert"             => "-(∙)",
    "Exp"                => "exp(∙)",
    "Log"                => "log(∙)",
    "Pow"                => "(∙)^(∙)",
    "ZERO_CONSTANT"      => "0",
    "ONE_CONSTANT"       => "1",
    "TWO_CONSTANT"       => "2",
    "PI_CONSTANT"        => "π",
    "INFINITY_CONSTANT"  => "∞",
    "E_CONSTANT"         => "e",
    "MINUS_ONE_CONSTANT" => "-1"
  }

  lab = {}
  string.scan(/\w+\_\d+/) do |m|
    if m =~ /(\w+)\_\d+/
      lab[m] = dot_subs_hash[$1] || $1
    end
  end
  lab.each { |k, v| labels += "  #{k} [label=\"#{v}\"]\n" }

  return "digraph Op {\n  #{string}#{labels}}"
end

# File lib/numbers/variables.rb, line 194
def self.vars(*name)
  (return CAS::Variable.new(name[0])) if name.size == 1
  ret = []
  name.each do |n|
    ret << CAS::Variable.new(n)
  end
  return ret
end