Re: Particle Swarm Optimization

On Feb 2, 4:19 am, m...@[EMAIL PROTECTED]
 (Marcel Hendrix) wrote:

>
> \ The target function to MAXIMIZE
> : result ( F: x y -- z )
>         FLOCALS| y x |
>         1 +TO funcs
>         x -2e F- FSQR  y -2e F- FSQR F+ FSQRT FNEGATE 3e   F/ FEXP   5e
F*
>         x  2e F- FSQR  y  2e F- FSQR F+ FSQRT FNEGATE 2e   F/ FEXP  15e
F* F+
>         x  2e F- FSQR  y -2e F- FSQR F+ FSQRT FNEGATE 2e   F/ FEXP  12e
F* F+
>         x -2e F- FSQR  y  2e F- FSQR F+ FSQRT FNEGATE 2e   F/ FEXP  -4e
F* F+ ;

// Free Pascal

function result( x, y : real ): real;
  function f( a, b, c, d : real ): real; inline;
  begin
    f := exp( -sqrt( sqr(x - a ) + sqr( y - b ) ) / c ) * d
  end;
begin
  funcs += 1;
  exit(
    f( -2.0, -2.0, 3.0,  5.0 ) +
    f(  2.0,  2.0, 2.0, 15.0 ) +
    f(  2.0, -2.0, 2.0, 12.0 ) +
    f( -2.0,  2.0, 2.0, -4.0 )
  )
end;