home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / GAUSS.IN < prev    next >
Text File  |  1996-06-04  |  490b  |  31 lines
  1. X=nvar,Z=nvar,Y=nvar?
  2. % Problem with expand:
  3. % fast_starter([4*(~12)+0*3*X+54+Y+4*Z-Y,X+Y-Z+4,Y+2,Y+2],Q)?
  4. fast_starter([4*(~12)+54+Y+4*Z-Y,X+Y-Z+4,Y+2,Y+2],Q),gc?
  5. W=nvar?
  6. feeder((X+6*Y-2*W+Z),Q),gc?
  7.  
  8.  
  9.  
  10.  
  11. create_vars([U,W,X,Y,Z])?
  12. fast_starter([X+Y-Z,4*Y+Z,U-W-Z+8],Q),gc?
  13. feeder(Z-W,Q),gc?
  14. feeder(X+2,Q),gc?
  15.  
  16.  
  17.  
  18.  
  19. create_vars([U,W,X,Y,Z])?
  20. fast_starter([X+Y-Z,4*Y+Z,U-W-Z+8],Q),gc?
  21. feeder(Z+W,Q),gc?
  22.  
  23.  
  24.  
  25. create_vars([U,W,X,Y,Z])?
  26. fast_starter([X+Y-Z,4*Y+Z,U-W-Z+8],Q),gc?
  27. feeder(X+2,Q),gc?
  28.  
  29.  
  30.  
  31.