Artifact 609096295bcc4341243a8ee85d01633822aab5a35bcc8c7392868ea25478fdef:

• Executable file r37/packages/algint/maninp.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 686) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/packages/algint/maninp.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 686) [annotate] [blame] [check-ins using]

MODULE MANINP;

% Author: James H. Davenport.

FLUID '(INTVAR);

SYMBOLIC PROCEDURE FINDMANINPARM PLACES;
BEGIN
  SCALAR SQRTS,VARS,U;
  SQRTS:=SQRTSINPLACES PLACES;
LOOP:
  IF NULL SQRTS THEN RETURN NIL;
  VARS:=GETVARIABLES SIMP ARGOF CAR SQRTS;
INNERLOOP:
  IF NULL VARS
    THEN <<
      SQRTS:=CDR SQRTS;
      GO TO LOOP >>;
  U:=CAR VARS;
  VARS:=CDR VARS;
  IF U EQ INTVAR
    THEN GO TO INNERLOOP;
  IF ATOM U
    THEN RETURN U;
  IF CAR U EQ 'SQRT
    THEN << U:=SIMP ARGOF U;
            VARS:=VARSINSF(NUMR U,VARSINSF(DENR U,VARS));
            GO TO INNERLOOP >>;
  INTERR "Unrecognised differentiation candidate"
  END;

ENDMODULE;

END;