Prolog "visualize"

         
/**
         
 * Warranty & Liability
         
 * To the extent permitted by applicable law and unless explicitly
         
 * otherwise agreed upon, XLOG Technologies AG makes no warranties
         
 * regarding the provided information. XLOG Technologies AG assumes
         
 * no liability that any problems might be solved with the information
         
 * provided by XLOG Technologies AG.
         
 *
         
 * Rights & License
         
 * All industrial property rights regarding the information - copyright
         
 * and patent rights in particular - are the sole property of XLOG
         
 * Technologies AG. If the company was not the originator of some
         
 * excerpts, XLOG Technologies AG has at least obtained the right to
         
 * reproduce, change and translate the information.
         
 *
         
 * Reproduction is restricted to the whole unaltered document. Reproduction
         
 * of the information is only allowed for non-commercial uses. Selling,
         
 * giving away or letting of the execution of the library is prohibited.
         
 * The library can be distributed as part of your applications and libraries
         
 * for execution provided this comment remains unchanged.
         
 *
         
 * Restrictions
         
 * Only to be distributed with programs that add significant and primary
         
 * functionality to the library. Not to be distributed with additional
         
 * software intended to replace any components of the library.
         
 *
         
 * Trademarks
         
 * Jekejeke is a registered trademark of XLOG Technologies AG.
         
 */
         

         
:- ensure_loaded(library(edge/noise)).
         
:- ensure_loaded(library(tester/plot)).
         
:- ensure_loaded(library(misc/react)).
         

         
/***************************************************************/
         
/* Visualize                                                   */
         
/***************************************************************/
         

         
% noise_train2(+List, +Atom, +Integer, +Integer, +List, -List, -List)
         
noise_train2(E, Z, N, I, T, B) :-
         
   noise_recon(N, E, Z, S, C),
         
   plot_begin([height(50),width(50),minx(0),maxx(100),miny(0),maxy(15),mark('')]),
         
   sys_noise_improve2(I, N, E, Z, S, C, S, T, B),
         
   plot_end.
         

         
% sys_noise_improve2(+Integer, +Integer, +List, +Atom, +Integer, +List, +List, -List, -List)
         
sys_noise_improve2(0, _, E, _, S, _, _, S, E) :- !.
         
sys_noise_improve2(_, _, E, _, 0, _, _, 0, E) :- !.
         
sys_noise_improve2(I, N, E, Z, S, C, _, R, G) :-
         
   sys_noise_blame(E, Z, S, C, F),
         
   J is I-1,
         
   noise_recon(N, F, Z, T, D),
         
   noise_visual(I, S, J, T),
         
   sys_noise_improve2(J, N, F, Z, T, D, T, R, G).
         

         
% noise_visual(+List)
         
noise_visual(I, S, J, T) :-
         
   I2 is 100-I,
         
   J2 is 100-J,
         
   plot_add([[I2,S],[J2,T]], [height(50),width(50),minx(0),maxx(100),miny(0),maxy(15),mark('')]).