September 22, 1987 11:02:45 am PDT SACExamples.tioga Let's do some examples of SAC-2 computations with CaminoReal. 1. Polynomial Greatest Common Divisors Let's compute the gcd of two polynomials using SAC-2. Put this one into a CaminoReal tool: X Then put this one into a CaminoReal tool: X . Then primary select the first one, copy select the second, hit the "OpPrimary" button, and select "gcd". Watch the file transfers in the Terminal Viewer, and result comes back as: X . Just for fun, let's factor these polynomials (need to use Reduce for this at the moment): X yields: )Ileft"IcenterLblJY57.71739 pt leading 53.9526 pt topLeading 53.9526 pt topIndent 27.76479 pt bottomLeading l==head&&JY57.71739 pt leading 53.9526 pt topLeading 53.9526 pt topIndent 27.76479 pt bottomLeading [[J CharPropsArtwork MeddleExprPostfixU16.4349 pt leading 28.182 pt topLeading 28.182 pt topIndent 12.2529 pt bottomLeading MeddleExpr8CaminoRealExpressionRepresentationVersion1.1 (CMPD $difference {$subtrahend (CMPD $sum {$addend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $sum {$addend (CMPD $sum {$addend (CMPD $difference {$subtrahend (CMPD $negation {$a (CMPD $product {$multiplier (ATOM $integer "91")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "99")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "6")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "89")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "34")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "80")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "20")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "76")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "56")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "54")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "25")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "52")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "86")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "44")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "17")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "33")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "70")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "31")})})})} {$minuend (ATOM $integer "17")}) MeddlePtSize15U16.4349 pt leading 28.182 pt topLeading 28.182 pt topIndent 12.2529 pt bottomLeading JY46.69613 pt leading 37.4999 pt topLeading 37.4999 pt topIndent 33.19622 pt bottomLeading ))JArtwork MeddleExprPostfixW16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading MeddleExpr9CaminoRealExpressionRepresentationVersion1.1 (CMPD $difference {$subtrahend (CMPD $sum {$addend (CMPD $sum {$addend (CMPD $sum {$addend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $negation {$a (CMPD $product {$multiplier (ATOM $integer "16")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "95")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "46")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "84")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "38")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "76")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "88")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "74")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "81")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "72")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "21")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "52")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "91")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "49")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "96")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "25")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "64")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "10")})})})} {$minuend (ATOM $integer "20")}) MeddlePtSize15W16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading JW16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading JArtwork MeddleExprPostfixN11.15 pt leading 22.95 pt topLeading 22.95 pt topIndent 12.2 pt bottomLeading MeddleExprzCaminoRealExpressionRepresentationVersion1.1 (CMPD $sum {$addend (ATOM $variable "X")} {$augend (ATOM $integer "1")}) MeddlePtSize15N11.15 pt leading 22.95 pt topLeading 22.95 pt topIndent 12.2 pt bottomLeading JW16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading YYJArtwork MeddleExprPostfix[20.82431 pt leading 29.82549 pt topLeading 29.82549 pt topIndent 14.99882 pt bottomLeading MeddleExprxCaminoRealExpressionRepresentationVersion1.1 (CMPD $unaryFunction {$f (ATOM $variable "factorize")} {$arg1 (CMPD $difference {$subtrahend (CMPD $sum {$addend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $difference {$subtrahend (CMPD $sum {$addend (CMPD $sum {$addend (CMPD $difference {$subtrahend (CMPD $negation {$a (CMPD $product {$multiplier (ATOM $integer "91")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "99")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "6")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "89")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "34")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "80")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "20")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "76")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "56")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "54")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "25")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "52")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "86")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "44")})})})} {$minuend (CMPD $product {$multiplier (ATOM $integer "17")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "33")})})})} {$augend (CMPD $product {$multiplier (ATOM $integer "70")} {$multiplicand (CMPD $pow {$base (ATOM $variable "X")} {$exponent (ATOM $integer "31")})})})} {$minuend (ATOM $integer "17")})}) MeddlePtSize15[20.82431 pt leading 29.82549 pt topLeading 29.82549 pt topIndent 14.99882 pt bottomLeading JW16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading JW16.4522 pt leading 28.1993 pt topLeading 28.1993 pt topIndent 12.2529 pt bottomLeading J[20.82431 pt leading 29.82549 pt topLeading 29.82549 pt topIndent 14.99882 pt bottomLeading J[28.28012 pt leading 33.62128 pt topLeading 33.62128 pt topIndent 18.65884 pt bottomLeading fJY53.56988 pt leading 41.7858 pt topLeading 41.7858 pt topIndent 35.78408 pt bottomLeading JZ59.3254 pt leading 55.56061 pt topLeading 55.56061 pt topIndent 27.76479 pt bottomLeading JN}