mathcommands.java

计算机代数系统

package net.sf.yacas;


import java.io.*;

class MathCommands
{
  public void AddCommands(LispEnvironment aEnvironment)
  {
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"While");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"Rule");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"MacroRule");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"RulePattern");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"MacroRulePattern");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"FromFile");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"FromString");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"ToFile");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"ToString");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"ToStdout");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"TraceRule");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"Subst");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"LocalSymbols");
    aEnvironment.iBodiedOperators.SetOperator(InfixPrinter.KMaxPrecedence,"BackQuote");
    aEnvironment.iPrefixOperators.SetOperator(0,"`");
    aEnvironment.iPrefixOperators.SetOperator(0,"@");
    aEnvironment.iPrefixOperators.SetOperator(0,"_");
    aEnvironment.iInfixOperators.SetOperator(0,"_");

    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispQuote(),1, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "Hold");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispEval(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Eval");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispWrite(),1, YacasEvaluator.Variable|YacasEvaluator.Function),
         "Write");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispWriteString(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "WriteString");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispFullForm(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "FullForm");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDefaultDirectory(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DefaultDirectory");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDllDirectory(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DllDirectory");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispFromFile(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "FromFile");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispFromString(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "FromString");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispRead(),0, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Read");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispReadToken(),0, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "ReadToken");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispToFile(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "ToFile");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispToString(),1, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "ToString");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispToStdout(),1, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "ToStdout");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLoad(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Load");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispSetVar(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "Set");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispMacroSetVar(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "MacroSet");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispClearVar(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "Clear");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispClearVar(),1, YacasEvaluator.Variable|YacasEvaluator.Function),
         "MacroClear");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNewLocal(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "Local");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNewLocal(),1, YacasEvaluator.Variable|YacasEvaluator.Function),
         "MacroLocal");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispHead(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Head");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNth(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathNth");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispTail(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Tail");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDestructiveReverse(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DestructiveReverse");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLength(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Length");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispList(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "List");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispUnList(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "UnList");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispListify(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Listify");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispConcatenate(),1, YacasEvaluator.Variable|YacasEvaluator.Function),
         "Concat");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispConcatenateStrings(),1, YacasEvaluator.Variable|YacasEvaluator.Function),
         "ConcatStrings");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDelete(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Delete");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDestructiveDelete(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DestructiveDelete");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispInsert(),3, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Insert");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDestructiveInsert(),3, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DestructiveInsert");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispReplace(),3, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Replace");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDestructiveReplace(),3, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "DestructiveReplace");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispAtomize(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Atom");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispStringify(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "String");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispCharString(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "CharString");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispFlatCopy(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "FlatCopy");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispProgBody(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "Prog");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispWhile(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "While");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIf(),2, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "If");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispCheck(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "Check");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispTrapError(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "TrapError");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispGetCoreError(),0, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "GetCoreError");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispPreFix(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Prefix");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispInFix(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Infix");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispPostFix(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Postfix");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispBodied(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Bodied");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispRuleBase(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "RuleBase");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispMacroRuleBase(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MacroRuleBase");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispRuleBaseListed(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "RuleBaseListed");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispMacroRuleBaseListed(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MacroRuleBaseListed");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDefMacroRuleBase(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "DefMacroRuleBase");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDefMacroRuleBaseListed(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "DefMacroRuleBaseListed");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispHoldArg(),2, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "HoldArg");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNewRule(),5, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "Rule");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispMacroNewRule(),5, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MacroRule");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispUnFence(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "UnFence");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispRetract(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Retract");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNot(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathNot");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispNot(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Not");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLazyAnd(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "MathAnd");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLazyAnd(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "And");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLazyOr(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "MathOr");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLazyOr(),1, YacasEvaluator.Variable|YacasEvaluator.Macro),
         "Or");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispEquals(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "Equals");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispEquals(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "=");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispLessThan(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "LessThan");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispGreaterThan(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "GreaterThan");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsFunction(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsFunction");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsAtom(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsAtom");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsNumber(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsNumber");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsInteger(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsInteger");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsList(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsList");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsString(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "IsString");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispIsBound(),1, YacasEvaluator.Fixed|YacasEvaluator.Macro),
         "IsBound");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispMultiply(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathMultiply");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispAdd(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathAdd");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispSubtract(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathSubtract");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispDivide(),2, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathDivide");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispArcCos(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathArcCos");
    aEnvironment.CoreCommands().SetAssociation(
         new YacasEvaluator(new LispArcTan(),1, YacasEvaluator.Fixed|YacasEvaluator.Function),
         "MathArcTan");