2.13.6 MathLinkを使ったMathematicaセッション間の通信

Mathematicaセッション間の MathLinkコネクション

セッション A

8000番のポートでリンクをスタートさせる．

In[1]:= link = LinkCreate["8000"]

Out[1]=LinkObject[8000@frog.wolfram.com, 4, 4]

セッション B

8000番ポートのリンクと接続する．

In[1]:=Link = LinkConnect["8000"]

Out[1]=LinkObject["8000@frog.wolfram.com", 4, 4]

セッション A

15!を評価し，リンクにそれを書き込む．

In[2]:=LinkWrite[link, 15!]

セッション B

リンクから読み出すと送信した 15!が得られる．

In[2]:=LinkRead[link]

Out[2]=1307674368000

リンクにデータを書き戻す．

In[3]:=LinkWrite[link, N[%^6]]

セッション A

セッションBで書き込んだデータを読み 出す．

In[3]:=LinkRead[link]

Out[3]=

MathLinkコネクションを使えば， Mathematicaセッション間の中間ファイルを使わないデータ転送が可能になる．

その他の使い道としては，計算の一部を別のセッションに送ることがある．

セッション A

2 + 2を評価せずにリンクに書き込む．

In[4]:=LinkWrite[link, Unevaluated[2 + 2]]

セッション B

リンクから式を読み出し，即座に Holdで包み込む．

In[4]:=LinkRead[link, Hold]

Out[4]=Hold[2 + 2]

式を評価する．

In[5]:=ReleaseHold[%]

Out[5]=4

LinkWriteを呼び出すと，LinkWriteは式を MathLinkコネクションに書き込んだあと，直ちにリターンする．しかし，LinkReadは MathLinkコネクションから式を完全に読み出すまでリターンしない．

読出しが可能かどうかを LinkReadyQ[link]の呼出しで知ることができる．LinkReadyQ が Trueを返したら，安全に LinkReadを呼び出し，式を読み込むことができる． LinkReadyQが Falseを返した場合， LinkReadは読み出すべき式をもう一方の Mathematicaセッションの LinkWriteが書き込むまでブロック する．

セッション A

読まれるべきものがリンク 上にない． LinkReadが呼ばれると，ブロッ クする．

In[5]:=LinkReadyQ[link]

Out[5]=False

セッション B

リンクに式を書く．

In[6]:=LinkWrite[link, x + y]

セッション A

読出しを待っている式がリンク上に存在する．

In[6]:=LinkReadyQ[link]

Out[6]=True

LinkReadをブロックされる恐れなしに呼び出すことができる．

In[7]:=LinkRead[link]

Out[7]=x + y

MathLinkのリンクを設定する方法

コンピュータシステムがサポートしていれば，いかなるプログラム間通信のメカニズムでもMathLinkは利用することができる．並列する Mathematicaセッション間のコネクションを確立するには，インター ネットのTCPポートを利用することが最も一般的である．

ほとんどのコンピュータシステムには利用可能なポートが数千個あり，そのうちのいくつかは標準的なサービスにすでに利用されている．

未使用のポートは MathLinkコネクションに使うことができる．

frog.wolfram.com上のセッション

frog.wolfram.comが使用していないポートを見付ける．

In[8]:=link = LinkCreate[ ]

Out[8]=LinkObject["2981@frog.wolfram.com", 5, 5]

toad.wolfram.com上のセッション

そのポートに接続する．

In[7]:=link = LinkConnect["2981@frog.wolfram.com"]

Out[7]=LinkObject["2981@frog.wolfram.com", 5, 5]

マシン名をリンク上で転送する．

In[8]:=LinkWrite[link, $MachineName]

frog.wolfram.com上のセッション

toadが書いた式を読む．

In[9]:=LinkRead[link]

Out[9]=toad

インターネットのポートを MathLinkコネクションに利用すれば，異なるMathematicaセッション間でのデータ転送を簡単に行うことができる．インターネットのコネクションが転送を実行するマシン間にあればよい．

MathLinkは全くシステムに依存していないため， MathLinkコネクションの両端のコンピュータが同一の種類である必要はない．ただし，実際のリンクでは，コンピュータの機種の違いからくるデータ形式の違い等に対処するために MathLink内で転送処理に対する最適化が図られる．