home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / misc / b186_1 / Source / c / iatop < prev    next >
Text File  |  1987-09-27  |  7KB  |  153 lines
  1. /*
  2.  
  3.        This file is part of the PDP software package.
  4.          
  5.        Copyright 1987 by James L. McClelland and David E. Rumelhart.
  6.        
  7.        Please refer to licensing information in the file license.txt,
  8.        which is in the same directory with this source file and is
  9.        included here by reference.
  10. */
  11.  
  12.  
  13. /* file: iatop.c
  14.  
  15.     User interface for the ia program.
  16.     
  17.     First version implemented by Elliot Jaffe.
  18.     
  19.     Date of last revision:  8-12-87/JLM.
  20. */
  21.  
  22. #include "general.h"
  23. #include "cs.h"
  24. #include "variable.h"
  25. #include "command.h"
  26. #include "ia.h"
  27.  
  28. char *Prompt = "ia: ";
  29. char *Default_step_string = "cycle";
  30.  
  31. newstart() {
  32.     random_seed = rand();
  33.     reset();
  34. }
  35.  
  36. reset() {
  37.     zarrays();
  38.     update_out_values();
  39.     clear_display();
  40.     update_display();
  41. }
  42.  
  43. init_system()
  44. {
  45.    int trial(),reset(),cycle(), printout(), get_disp_list(),
  46.        oword_list(),oletter_list(),clear_list(),fc();
  47.  
  48.    Display_level = 1;
  49.  
  50.    (void)install_command("trial",trial, BASEMENU, (int *)NULL);
  51.    (void)install_command("fcspec",fc, BASEMENU, (int *)NULL);
  52.    (void)install_command("reset",reset, BASEMENU, (int *)NULL);
  53.    (void)install_command("newstart",newstart, BASEMENU, (int *)NULL);
  54.    (void)install_command("cycle",cycle, BASEMENU, (int *)NULL);
  55.    (void)install_command("print",printout, BASEMENU, (int *)NULL);
  56.  
  57.    (void)install_command("dlist",get_disp_list, GETMENU, (int *)NULL);
  58.    (void)install_var("wthresh",Float,(int *)& dthresh[W],0,0,DISPLAYOPTIONS);
  59.    (void)install_var("lthresh",Float,(int *)& dthresh[L],0,0,DISPLAYOPTIONS);
  60.  
  61.    (void)install_var("ncycles",Int, (int *)& ncycles,0,0, SETPCMENU);
  62.    (void)install_var("comprp",Int, (int *)& compute_resprob,0,0, SETMODEMENU);
  63.    
  64.    (void)install_command("alpha/", do_command,SETPARAMMENU, (int *)AlphaMenu);
  65.    (void)install_var("f->l",Float,(int *)& a[1], 0,0, AlphaMenu);
  66.    (void)install_var("l->w",Float,(int *)& a[4], 0,0, AlphaMenu);
  67.    (void)install_var("w->l",Float,(int *)& a[5], 0,0, AlphaMenu);
  68.  
  69.    (void)install_command("beta/", do_command, SETPARAMMENU, (int *)BetaMenu);
  70.    (void)install_var("letter",Float,(int *)& b[3], 0,0, BetaMenu);
  71.    (void)install_var("word",Float,(int *)& b[6], 0,0, BetaMenu);
  72.  
  73.    (void)install_command("gamma/", do_command, SETPARAMMENU,(int *)GammaMenu);
  74.    (void)install_var("f->l",Float,(int *)& g[1], 0,0, GammaMenu);
  75.    (void)install_var("l->l",Float,(int *)& g[3], 0,0, GammaMenu);
  76.    (void)install_var("l->w",Float,(int *)& g[4], 0,0, GammaMenu);
  77.    (void)install_var("w->l",Float,(int *)& g[5], 0,0, GammaMenu);
  78.    (void)install_var("w->w",Float,(int *)& g[6], 0,0, GammaMenu);
  79.  
  80.    (void)install_command("thresh/",do_command,SETPARAMMENU,(int *)ThreshMenu);
  81.    (void)install_var("letter",Float,(int *)& t[3], 0,0, ThreshMenu);
  82.    (void)install_var("w->l",Float,(int *)& t[6], 0,0, ThreshMenu);
  83.    (void)install_var("w->w",Float,(int *)& t[6], 0,0, ThreshMenu);
  84.  
  85.    (void)install_command("max/", do_command, SETPARAMMENU, (int *)MaxMenu);
  86.    (void)install_var("letter",Float,(int *)& max[3], 0,0, MaxMenu);
  87.    (void)install_var("word",Float,(int *)& max[6], 0,0, MaxMenu);
  88.  
  89.    (void)install_command("min/", do_command, SETPARAMMENU, (int *)MinMenu);
  90.    (void)install_var("letter",Float,(int *)& min[3], 0,0, MinMenu);
  91.    (void)install_var("word",Float,(int *)& min[6], 0,0, MinMenu);
  92.  
  93.    (void)install_command("rest/", do_command, SETPARAMMENU, (int *)RestMenu);
  94.    (void)install_var("letter",Float,(int *)& rest[3], 0,0, RestMenu);
  95.    (void)install_var("word",Float,(int *)& rest[6], 0,0, RestMenu);
  96.  
  97.    (void)install_command("oscale/",do_command,SETPARAMMENU,(int*)OscaleMenu);
  98.    (void)install_var("letter",Float,(int *)& oscale[3], 0,0, OscaleMenu);
  99.    (void)install_var("word",Float,(int *)& oscale[6], 0,0, OscaleMenu);
  100.  
  101.    (void)install_command("fdprob/",do_command,SETPARAMMENU,(int *)ProbMenu);
  102.    (void)install_var("f0",Float,(int *)& fdprob[0], 0,0, ProbMenu);
  103.    (void)install_var("f1",Float,(int *)& fdprob[1], 0,0, ProbMenu);
  104.    (void)install_var("f2",Float,(int *)& fdprob[2], 0,0, ProbMenu);
  105.    (void)install_var("f3",Float,(int *)& fdprob[3], 0,0, ProbMenu);
  106.    (void)install_var("f4",Float,(int *)& fdprob[4], 0,0, ProbMenu);
  107.    (void)install_var("f5",Float,(int *)& fdprob[5], 0,0, ProbMenu);
  108.    (void)install_var("f6",Float,(int *)& fdprob[6], 0,0, ProbMenu);
  109.  
  110.    (void)install_command("estr/",do_command,SETPARAMMENU,(int *)EstrMenu);
  111.    (void)install_var("p0",Float,(int *)& estr[0], 0,0, EstrMenu);
  112.    (void)install_var("p1",Float,(int *)& estr[1], 0,0, EstrMenu);
  113.    (void)install_var("p2",Float,(int *)& estr[2], 0,0, EstrMenu);
  114.    (void)install_var("p3",Float,(int *)& estr[3], 0,0, EstrMenu);
  115.    
  116.    (void)install_var("fgain",Float,(int *)& fgain, 0,0, SETPARAMMENU);
  117.    (void)install_var("orate",Float,(int *)& outrate, 0,0, SETPARAMMENU);
  118.  
  119.    (void)install_var("cycleno",Int,(int *)& cycleno, 0,0, SETSVMENU);
  120.    (void)install_var("nwords",Int,(int *)& tally, 0,0, NOMENU);
  121.    (void)install_var("awords",Float,(int *)& prsum, 0,0, NOMENU);
  122.    (void)install_var("nlpos0",Int,(int *)& tal[0], 0,0,NOMENU);
  123.    (void)install_var("nlpos1",Int,(int *)& tal[1], 0,0,NOMENU);
  124.    (void)install_var("nlpos2",Int,(int *)& tal[2], 0,0,NOMENU);
  125.    (void)install_var("nlpos3",Int,(int *)& tal[3], 0,0,NOMENU);
  126.    (void)install_var("alpos0",Float,(int *)& prsm[0], 0,0,NOMENU);
  127.    (void)install_var("alpos1",Float,(int *)& prsm[1], 0,0,NOMENU);
  128.    (void)install_var("alpos2",Float,(int *)& prsm[2], 0,0,NOMENU);
  129.    (void)install_var("alpos3",Float,(int *)& prsm[3], 0,0,NOMENU);
  130.    (void)install_var("fcpos",Int,(int *)& fc_pos, 0,0,NOMENU);
  131.    (void)install_var("fcmax",Float,(int *)& fc_max, 0,0,NOMENU);
  132.    (void)install_var("trial",Vstring,(int *)trial_history, 0,0,NOMENU);
  133.    (void)install_var("dwp",Vstring,(int *)disp_word_ptr,0,0,NOMENU);
  134.    (void)install_var("dwa",Vfloat,(int *)disp_word_act,0,0,NOMENU);
  135.    (void)install_var("dwr",Vfloat,(int *)disp_word_rpr,0,0,NOMENU);
  136.    (void)install_var("dlp0",Vstring,(int *)disp_let_ptr[0],0,0,NOMENU);
  137.    (void)install_var("dla0",Vfloat,(int *)disp_let_act[0],0,0,NOMENU); 
  138.    (void)install_var("dlr0",Vfloat,(int *)disp_let_rpr[0],0,0,NOMENU);
  139.    (void)install_var("dlp1",Vstring,(int *)disp_let_ptr[1],0,0,NOMENU);
  140.    (void)install_var("dla1",Vfloat,(int *)disp_let_act[1],0,0,NOMENU);
  141.    (void)install_var("dlr1",Vfloat,(int *)disp_let_rpr[1],0,0,NOMENU);
  142.    (void)install_var("dlp2",Vstring,(int *)disp_let_ptr[2],0,0,NOMENU);
  143.    (void)install_var("dla2",Vfloat,(int *)disp_let_act[2],0,0,NOMENU);
  144.    (void)install_var("dlr2",Vfloat,(int *)disp_let_rpr[2],0,0,NOMENU);
  145.    (void)install_var("dlp3",Vstring,(int *)disp_let_ptr[3],0,0,NOMENU);
  146.    (void)install_var("dla3",Vfloat,(int *)disp_let_act[3],0,0,NOMENU);
  147.    (void)install_var("dlr3",Vfloat,(int *)disp_let_rpr[3],0,0,NOMENU);
  148.    (void)install_var("dfp",Vstring,(int *)disp_fc_ptr,2,0,NOMENU);
  149.    (void)install_var("dfa",Vfloat,(int *)disp_fc_act,2,0,NOMENU);
  150.    (void)install_var("dfr",Vfloat,(int *)disp_fc_rpr,2,0,NOMENU);
  151.     zarrays();
  152. }
  153.