home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / bit / listserv / csgl / 1448 < prev    next >
Encoding:
Text File  |  1992-11-10  |  2.9 KB  |  93 lines
  1. Newsgroups: bit.listserv.csg-l
  2. Path: sparky!uunet!usc!sdd.hp.com!spool.mu.edu!tulane!darwin.sura.net!Sirius.dfn.de!solaris.rz.tu-clausthal.de!news!zzwz
  3. From: zzwz@rrzn.uni-hannover.de (Wolfgang Zocher)
  4. Subject: Re: Primer for modelers: draft
  5. Message-ID: <1992Nov11.100607.17235@newsserver.rrzn.uni-hannover.de>
  6. Sender: news@newsserver.rrzn.uni-hannover.de (News Service)
  7. Organization: RRZN
  8. X-Newsreader: Tin 1.1 PL4
  9. References: <01GQY0F9Q842006FKI@VAXF.COLORADO.EDU>
  10. Date: Wed, 11 Nov 1992 10:06:07 GMT
  11. Lines: 80
  12.  
  13. POWERS_W%FLC@VAXF.COLORADO.EDU (William T. Powers) writes:
  14. : 
  15. :                Experimenting with the control paradigm
  16. :                    A primer for computer modelers
  17. :                         DRAFT: William T. Powers
  18. : 
  19.  [ beginning part deleted ...]
  20.  
  21. :  The simplest control system to model on a digital computer is one in
  22. :  which all the functions are simple proportionalities except the
  23. :  output function, which is an integrator. Alternatively, the feedback
  24. :  function or the input function can be made into an integrator;
  25. :  however, only one function should be an integrator and the rest
  26. :  should be proportional multipliers. We will use a design with an
  27. :  integrator in the output function; you can experiment with the other
  28. :  possibilities.
  29.  
  30. Why should there be only one integrator? 
  31.  
  32. ..stuff deleted...
  33.  
  34. :  NOTE: I would appreciate it if programmers versed in BASIC, Pascal,
  35. :  and other languages would write versions of the above program, test
  36. :  them, and transmit them to me for inclusion in an appendix to this
  37. :  primer. Programs should be as generic as possible so as to run on as
  38. :  many computers as possible. I especially need versions for mainframes
  39. :  and workstations. In the future I will simplify the program and make
  40. :  it easier for the user to change parameters from the keyboard. For
  41. :  now, I hope that all programmers and would-be programmers will try
  42. :  the program as it stands and learn from it, even if you have to get
  43. :  some help from a 14-year-old. As this primer evolves I will post
  44. :  revisions and again ask for your help.
  45. :  ------------------------------------------------------------------
  46.  
  47. Here is a PASCAL-Version of your program. It should work on whatever
  48. platform ..
  49.  
  50.  
  51. program control;
  52. const kd = 1.0;
  53.       ki = 1.0;
  54.       ko = 8.0;
  55.       kf = 1.0;
  56.       dt = 0.1;
  57.  
  58. var   sp, sr, se : real;
  59.       qi, qo, qd : real;
  60.       i : integer;
  61.  
  62. begin
  63. (* initialize variables *)
  64.    sp := 0.0;
  65.    sr := 20.0;
  66.    se := 0.0;
  67.    qo := 0.0;
  68.    qi := 0.0;
  69.    qd := 0.0;
  70.  
  71.    for i := 0 to 24 do begin
  72.        if i > 12 then qd := 10.0 else qd := 0.0;
  73.        qi := kf*qo + kd*qd;
  74.        sp := ki*qi;
  75.        se := sr - sp;
  76.        qo := qo + ko*se*dt;
  77.  
  78.        write   ('qd = ',qd:6:2,' qi = ',qi:6:2,' qo = ',qo:6:2);
  79.        writeln (' sp = ',sp:6:2,' sr = ',sr:6:2,' se = ',se:6:2);
  80.    end;
  81.    readln;
  82. end.
  83.  
  84. :  Best,
  85. : 
  86. :  Bill P.
  87.  
  88. --
  89. Wolfgang Zocher
  90. Regionales Rechenzentrum f. Niedersachsen
  91. Schlosswender Strasse 5
  92. 3000 Hannover
  93.