home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ATRE12.ZIP / MULTIPLX.ZIP / ATREE.H next >
Encoding:
Text File  |  1991-07-05  |  9.2 KB  |  171 lines
  1. /*****************************************************************************
  2.  ****                                                                     ****
  3.  **** atree.h                                                             ****
  4.  ****                                                                     ****
  5.  **** Copyright (C) A. Dwelly and W.W. Armstrong, 1990.                   ****
  6.  ****                                                                     ****
  7.  **** All rights reserved.                                                ****
  8.  ****                                                                     ****
  9.  **** This is the include file for the "research" version of the adaptive ****
  10.  **** logic network package based on work done by Prof. W. W. Armstrong   ****
  11.  **** and others in the Department of Computing Science, University of    ****
  12.  **** Alberta, and previous work at the Universite de Montreal, and at    ****
  13.  **** AT&T Bell Laboratories, Holmdel, N. J.  The software demonstrates   ****
  14.  **** that networks consisting of many layers of linear threshold         ****
  15.  **** elements can indeed be effectively trained.                         ****
  16.  ****                                                                     ****
  17.  **** License:                                                            ****
  18.  **** A royalty-free license is granted for the use of this software for  ****
  19.  **** NON-COMMERCIAL PURPOSES ONLY. The software may be copied and        ****
  20.  **** modified provided this notice appears in its entirety and unchanged ****
  21.  **** in all copies, whether changed or not.  Persons modifying the code  ****
  22.  **** are requested to state the date, the changes made and who made them ****
  23.  **** in the modification history.                                        ****
  24.  ****                                                                     ****
  25.  **** Warranty:                                                           ****
  26.  **** No warranty of any kind is provided with this software.             ****
  27.  **** This software is not supported.  Neither the authors, nor the       ****
  28.  **** University of Alberta, its officers, agents, servants or employees  ****
  29.  **** shall be liable or responsible in any way for any damage to         ****
  30.  **** property or direct personal or consequential injury of any nature   ****
  31.  **** whatsoever that may be suffered or sustained by any licensee, user  ****
  32.  **** or any other party as a consequence of the use or disposition of    ****
  33.  **** this software.                                                      ****
  34.  ****                                                                     ****
  35.  **** Patent:                                                             ****
  36.  **** The use of a digital circuit which transmits a signal indicating    ****
  37.  **** heuristic responsibility is protected by U. S. Patent 3,934,231     ****
  38.  **** and others assigned to Dendronic Decisions Limited of Edmonton,     ****
  39.  **** W. W. Armstrong, President.                                         ****
  40.  ****                                                                     **** 
  41.  **** A royalty-free license is granted for the use of this patent to     ****
  42.  **** run this software for NON-COMMERCIAL PURPOSES ONLY and the          ****
  43.  **** extension of this patent license to modified versions of this       ****
  44.  **** software is granted provided the purpose is NON-COMMERCIAL ONLY.    ****
  45.  ****                                                                     ****
  46.  **** Modification history:                                               ****
  47.  ****                                                                     ****
  48.  **** 90.09.05 Initial implementation, A.Dwelly                           ****
  49.  **** 91.04.15 Port to PC and minor bug fixes, R. Manderscheid            ****
  50.  **** 91.05.31 Port to Windows & Windows Extensions, M. Thomas            ****
  51.  ****                                                                     ****
  52.  ****                                                                     ****
  53.  **** References:                                                         ****
  54.  ****                                                                     ****
  55.  **** For technical details see "Experiments using Parsimonious Adaptive  ****
  56.  **** Logic" W. W. Armstrong, Jiandong Liang, Dekang Lin, Scott Reynolds  ****
  57.  **** Tech. Rept. TR 90-30, Department of Computing Science, University   ****
  58.  **** of Alberta, Edmonton, Alberta, Canada T6G 2H1, September 1990.      ****
  59.  ****                                                                     ****
  60.  **** The adaptive algorithm is described in the article "Adaptation      ****
  61.  **** Algorithms for Binary Tree Networks", by W. W. Armstrong and J.     ****
  62.  **** Gecsei, IEEE Trans. on Systems, Man and Cybernetics,                ****
  63.  **** vol. SMC-9, no. 5 (1979), 276 - 285.  In this C-language "research" ****
  64.  **** version, some recently discovered improvements are used.            ****
  65.  **** This version has been written with clarity, not performance,        ****
  66.  **** in mind.                                                            ****
  67.  ****                                                                     ****
  68.  **** Please contact W. W. Armstrong at the above address at U. of A. in  ****
  69.  **** case of questions or problems.  Tel. (403) 492 2374.                ****
  70.  ****                                                                     ****
  71.  *****************************************************************************/
  72.  
  73.  
  74. /*****************************************************************************
  75.  ****                                                                     ****
  76.  **** atree                                                               ****
  77.  ****                                                                     ****
  78.  **** An atree is the fundamental structure used by these routines; it is ****
  79.  **** a binary tree with nodes taking one of four logical functions, AND, ****
  80.  **** OR, LEFT or RIGHT depending on initialization or the training it    ****
  81.  **** has undergone.  The tree is randomly connected to input variables   ****
  82.  **** and their complements.                                              ****
  83.  ****                                                                     ****
  84.  *****************************************************************************/
  85.  
  86. typedef struct atree_strc
  87. {
  88.     /******************************
  89.     * 16 byte data structure
  90.     * allows easy alignment within
  91.     * segments
  92.     *******************************/
  93.  
  94.     char leaf_flag;
  95.     char cmp_flag;
  96.     char seg_flag;
  97.     char function;
  98.     char sig_left;
  99.     char sig_right;
  100.     char cnt_10;
  101.     char cnt_01;
  102.     union l_dec {
  103.         struct atree_strc far *child;
  104.         int leaf;
  105.     } left;
  106.     union r_dec {
  107.         struct atree_strc far *child;
  108.         int leaf;
  109.     } right;
  110. }
  111. atree;
  112.  
  113. typedef atree far *LPATREE;
  114.  
  115. /*****************************************************************************
  116.  ****                                                                     ****
  117.  **** bit_vec                                                             ****
  118.  ****                                                                     ****
  119.  **** A bit_vec is a packed vector of bits, stored in an array of chars.  ****
  120.  *****************************************************************************/
  121.  
  122. typedef struct bit_vec_strc
  123. {
  124.     int len;    /* The length of the vector in bits */
  125.     LPSTR bv;
  126. }
  127. bit_vec;
  128.  
  129. typedef bit_vec far *LPBIT_VEC;
  130.  
  131. /* Import public routines */
  132.  
  133. void FAR PASCAL         Windows_Interrupt(DWORD);
  134. LPATREE FAR PASCAL      atree_create(int, int);
  135. void FAR PASCAL         atree_init(void);
  136. void FAR PASCAL         atree_print(LPATREE, int);
  137. int  FAR PASCAL         atree_size();
  138. LPATREE FAR PASCAL      atree_load();
  139. int  FAR PASCAL         atree_store();
  140. BOOL FAR PASCAL         atree_eval(LPATREE, LPBIT_VEC);
  141. BOOL FAR PASCAL         atree_train(LPATREE, LPBIT_VEC, LPBIT_VEC,int,int,int,int,int);
  142. LPBIT_VEC FAR PASCAL    atree_rand_walk(int, int, int);
  143. void FAR PASCAL         atree_free(LPATREE);
  144.  
  145. int  FAR PASCAL         bv_diff(LPBIT_VEC, LPBIT_VEC);
  146. LPBIT_VEC FAR PASCAL    bv_create(int);
  147. LPBIT_VEC FAR PASCAL    bv_pack(LPSTR, int);
  148. LPBIT_VEC FAR PASCAL    bv_concat(int, LPBIT_VEC FAR *);
  149. LPBIT_VEC FAR PASCAL    bv_copy(LPBIT_VEC);
  150. void FAR PASCAL         bv_set(int,LPBIT_VEC,BOOL);
  151. BOOL FAR PASCAL         bv_extract(int,LPBIT_VEC);
  152. BOOL FAR PASCAL         bv_equal(LPBIT_VEC, LPBIT_VEC);
  153. void FAR PASCAL         bv_free(LPBIT_VEC);
  154. void FAR PASCAL         bv_print(FILE *, LPBIT_VEC);
  155.  
  156. LPSTR FAR PASCAL        WinMem_Malloc(WORD, WORD);
  157. LPSTR FAR PASCAL        WinMem_Free(LPSTR);
  158.  
  159. /* some public Macros */
  160.  
  161. #define MEMCHECK(p) \
  162.         if (p == NULL){ \
  163.                        char szBuffer[50]; \
  164.                        wsprintf(szBuffer,"Could not allocate requested memory");\
  165.                        MessageBox(NULL,szBuffer,"atree",MB_OK | MB_ICONSTOP);\
  166.                        exit(0);\
  167.                       }
  168. #define RANDOM(b) (rand() % (b))
  169. #define Malloc(cb) WinMem_Malloc(LMEM_MOVEABLE, (WORD) cb)
  170. #define Free(p)    WinMem_Free((LPSTR) p)
  171.