// Last edited on 2018-10-27 18:05:27 by stolfilocal

// Defines instance 01 of the macro {field}

#include "field.inc"
#include "field_ECR_simple.inc"

#macro field_max(term) 
  #local vmax = 1.0;
  vmax
#end

#macro field(xp,yp,zp,tt, zrad)
  // Big spot in one hemisphere and two smaller ones 
  // later in the other hemisphere.
  
  #local NB = 8;  // Number of elementary blobs.
  #local bctr = array[NB]; // Center of blobs.
  #local brad = array[NB]; // Blob radii in {X,Y}.
  #local bval = array[NB]; // Activity/potential at center of blob.
  
  field_ECR_simple_set_blobs(NB, bctr, brad, bval)
  
  #local uu = field_eval_blobs(xp,yp,zp, NB, bctr, brad, bval, zrad);

  uu
#end