unit PotentialU;

{
spoken language: english
programming language: Pascal ( Borland object Pascal )
compiler: VER 140
IDE: Borland Delphi 7.0 personal edition
programming style : obiektowy
programming method : visual (RAD)
target: CPU
library: standard =  VCL
program type : GUI application
licence: GNU GPL
OS: win32 (windows 98 SE
hardware: PC
platform:ix86
author: Adam Majewski
adammaj1- at - o2 - dot - pl
republika.pl/fraktal
walbrzych
poland
2005.12.12
}

interface
uses  graphics, // TColor
sysutils, //FDloatToStr
dialogs, // showmessage
        windows; // GetBValue



Function MSetPotential(Zx,Zy:extended; Iter:integer):extended;

Procedure DrawPotential_M;

implementation
uses Math,  {SameValue,InRange}
     MainFormU, C_PlaneU, AlgorithmDlgU, BitmapU, MappingU, MathU;

//------------------
Function MSetPotential(Zx,Zy:extended; Iter:integer):extended;
// By Fausto Barbuto
// http://spanky.triumf.ca/pub/fractals/code/MSETPOT.CPP
begin
  result:= 0.5 * ln(hypot(Zx,Zy))/IntPower(2, iter);
end;

//--------------------------------
Procedure DrawPotential_M;

  var iteration:integer;
     iY,iX:integer;
     eCy ,eCx:extended; // C:=eCx + eCy*i
     temp:extended;
     Zx,Zy:extended;
     //potential
     dx,dy,
     fac:extended;
     G:extended;  // Green function
     bG:byt