MLPutFunction()
This feature is not supported on the Wolfram Cloud.

WSPutFunctionに置き換えられた.

int MLPutFunction(MLINK link,const char *s,int n)
頭部がs という名前の記号によって与えられ,n 個の引数を取る関数を,link で指定されたMathLink 接続に置く.

詳細詳細

  • MLPutFunction()を呼び出した後で,関数の引数を送信するために他のMathLink 関数を呼び出さなければならない.
  • MLPutFunction()はエラーがあると0を返し, 関数が成功すると0以外の値を返す.
  • MLError()を使うと,MLPutFunction()が不成功の場合にエラーコードを引き出すことができる.
  • MLPutFunction()MathLink ヘッダファイルmathlink.hの中で宣言される.

例題例題すべて開くすべて閉じる

  (1)  (1)

#include "mathlink.h"

/* put an Integrate[] expression to a link */

void f(MLINK lp)
{
    if(! MLPutFunction(lp, "Integrate", 2))
        { /* unable to put the function to lp */ }

    if(! MLPutFunction(lp, "Times", 2))
        { /* unable to put the function to lp */ }

    if(! MLPutFunction(lp, "Power", 2))
        { /* unable to put the function to lp */ }

    if(! MLPutSymbol(lp, "x", 1))
        { /* unable to put the symbol to lp */ }

    if( ! MLPutInteger(lp, 2))
        { /* unable to put the integer to lp */ }

    if(! MLPutFunction(lp, "Power", 2))
        { /* unable to put the function to lp */ }

    if(! MLPutFunction(lp, "Sqrt", 1))
        { /* unable to put the function to lp */ }

    if(! MLPutSymbol(lp, "x", 1))
        { /* unable to put the symbol to lp */ }

    if(! MLPutInteger(lp, -1))
        { /* unable to put the integer to lp */ }

    if(! MLPutSymbol(lp, "x", 1))
        { /* unable to put the symbol to lp */ }

    if(! MLEndPacket(lp))
        { /* unable to send the end-of-packet sequence to lp */ }

    if(! MLFlush(lp))
        { /* unable to flush any buffered output data in lp */ }
}