2003-03-28 00:00:21 -05:00
|
|
|
#!/usr/local/bin/ruby
|
2015-12-16 00:31:54 -05:00
|
|
|
# frozen_string_literal: false
|
2003-03-28 00:00:21 -05:00
|
|
|
|
|
|
|
#
|
|
|
|
# nlsolve.rb
|
|
|
|
# An example for solving nonlinear algebraic equation system.
|
|
|
|
#
|
|
|
|
|
|
|
|
require "bigdecimal"
|
2005-02-18 12:31:14 -05:00
|
|
|
require "bigdecimal/newton"
|
2003-03-28 00:00:21 -05:00
|
|
|
include Newton
|
|
|
|
|
2013-06-13 10:44:25 -04:00
|
|
|
class Function # :nodoc: all
|
2003-03-28 00:00:21 -05:00
|
|
|
def initialize()
|
2018-12-05 06:30:24 -05:00
|
|
|
@zero = BigDecimal("0.0")
|
|
|
|
@one = BigDecimal("1.0")
|
|
|
|
@two = BigDecimal("2.0")
|
|
|
|
@ten = BigDecimal("10.0")
|
|
|
|
@eps = BigDecimal("1.0e-16")
|
2003-03-28 00:00:21 -05:00
|
|
|
end
|
|
|
|
def zero;@zero;end
|
|
|
|
def one ;@one ;end
|
|
|
|
def two ;@two ;end
|
|
|
|
def ten ;@ten ;end
|
|
|
|
def eps ;@eps ;end
|
|
|
|
def values(x) # <= defines functions solved
|
|
|
|
f = []
|
|
|
|
f1 = x[0]*x[0] + x[1]*x[1] - @two # f1 = x**2 + y**2 - 2 => 0
|
|
|
|
f2 = x[0] - x[1] # f2 = x - y => 0
|
|
|
|
f <<= f1
|
|
|
|
f <<= f2
|
|
|
|
f
|
|
|
|
end
|
|
|
|
end
|
2014-01-02 10:10:13 -05:00
|
|
|
|
|
|
|
f = BigDecimal.limit(100)
|
|
|
|
f = Function.new
|
|
|
|
x = [f.zero,f.zero] # Initial values
|
|
|
|
n = nlsolve(f,x)
|
|
|
|
p x
|