コマンド Translate(x, language=lang, cgopts) は、Maple コードを言語 lang のコードに変換します。言語 lang は、CodeGeneration により理解される言語、つまり、組み込みの言語、または、Add により追加された言語に対応する必要があります。 オプションlanguage=lang が与えられない場合、言語 "default" が使用されます。

- パラメータ x が代数式の場合、その数式に1つの変数を割り当てる形で言語lang の1つの命令文が生成されます。

- パラメータ x が nm=expr の形のリスト(ここで nm は名前、expr は代数式を表す)である場合、x は割り当てられた命令文の列を意味するものとして解釈されます。 この場合、等価な意味を持つ言語 lang の割り当て命令文の列が生成されます。

パラメータ cgopts は、1つまたはそれ以上の CodeGeneration のオプションを含みます。オプションについては、CodeGenerationOptions に記述されています。  

CodeGeneration パッケージは、多数の言語をサポートしています。予め定義された各言語は、 たとえば、CodeGeneration:-C のように対応する変換を行うための関数 CodeGeneration がありますが、予め定義された関数に関して Translate を使用することもできます。しかし、 CodeGeneration 関数が指定した options を利用するように、2つのメソッドが違う出力を行うことに注意して下さい。

CodeGeneration パッケージが Maple のコードを予め定義した言語にどのように変換するかに関する詳細な情報は、CodeGenerationDetails を参照して下さい。

with(CodeGeneration):

Warning, the protected name Matlab has been redefined and
unprotected

Java( proc(x) sin(x)^2-cos(x)^2; end proc);

import java.lang.Math;
class CodeGenerationClass {
  public static double cg (double x)
  {
    return(Math.pow(Math.sin(x), 0.2e1) - Math.pow(Math.cos(x), 0.2e1));
  }
}

Translate( proc(x) sin(x)^2-cos(x)^2; end proc, language="Java" );

import java.lang.Math;
class CodeGenerationClass {
  public static double cg0 (double x)
  {
    return(Math.pow(Math.sin(x), 0.2e1) - Math.pow(Math.cos(x), 0.2e1));
  }
}

LanguageDefinition:-Define("MyLanguage", extend="default",
    SetLanguageAttribute(
        "Procedure_Start" = proc(rettype,pname,params)
            (Printer:-Indent(),"func ",pname," ",params," : ",rettype,";\n")
        end proc,
        "Procedure_End" = proc() (Printer:-Indent(),"end func\n") end proc,
        "Procedure_ParametersInBody" = false,
        "ParameterSequence_Start" = "(",
        "ParameterSequence_End" = ")",
        "ParameterSequence_Delimiter"  = ",",
        "ParameterSequence_MaxOnLine" = 3,
        "Statement_End" = ";",
        "Block_Start" = proc() Printer:-Indent(),"begin\n" end proc,
        "Block_End"   = proc() Printer:-Indent(),"end\n"   end proc
    ),
    AddType(
       'integer' = table(['single' = "integer",   'double'="long"]),
       'numeric' = table(['single' = "real", 'double'="real"])
    ),
    AddFunction( "sqrt", [numeric]::numeric,
        x->Printer:-Print("surd(",x,",2)")
    ),
    AddOperator( Names:-Assignment = ":=" ),
    AddPrintHandler( Names:-Return = proc(x) Printer:-Print("return ",x) end proc)
):
Translate( sqrt(x), language="MyLanguage" );

cg1 := surd(x,2);

Translate( proc(x) x; end proc, language="MyLanguage" );

procedure cg2 (real x) :: real
  return x;
end
end func