Wolfram Language™

Comunicação muitos-para-um e muitos-para-muitos

Inicie a escuta em um canal de comunicação de muitos-para-um.

In[1]:=

listener = ChannelListen["master"]

Out[1]=

Envie mensagens para o canal de várias sessões da Wolfram Language, por exemplo, de kernels paralelos na mesma máquina.

In[2]:=

ParallelEvaluate[ChannelSend["master", $KernelID]]

Out[2]=

As mensagens recebidas.

In[3]:=

listener["Message", All]

Out[3]=

Um diagrama de troca das mensagens.

In[4]:=

spikey = ImageCrop@ Import["http://www.wolfram.com/spikey/img/spikey.png"];

In[5]:=

Graph[Table[i \[DirectedEdge] 0, {i, listener["MessageID", All]}], VertexShape -> spikey, VertexSize -> .5]

Out[5]=

Comece a ouvir no mesmo canal em múltiplas sessões de kernels paralelos.

In[6]:=

ParallelEvaluate[l = ChannelListen["all"]]

Out[6]=

Deixe que todos os kernels paralelos enviem seus respectivos IDs para o canal.

In[7]:=

ParallelEvaluate[ChannelSend["all", $KernelID]]

Out[7]=

As mensagens recebidas pelos ouvintes, com seus respectivos IDs de kernels.

In[8]:=

ParallelEvaluate[$KernelID -> l["Message", All]]

Out[8]=

Um diagrama de troca.

In[9]:=

ParallelEvaluate[$KernelID -> l["Message", All]]; Graph[Flatten[Thread /@ %], VertexShape -> spikey, VertexSize -> .5]

Out[9]=