Guten Abend Michael,
In[43]:= {#, Head[fmax[#]]} & /@ ToString /@ fmax["Properties"]
Out[43]= {{"CostValue", Integer}, {"EdgeList", List},
{"FlowGraph", Graph}, {"FlowMatrix", SparseArray},
{"FlowTable", OptimumFlowData[<8>, <8>]},
{"FlowValue", Integer}, {"Properties", List},
{"ResidualGraph", OptimumFlowData[<8>, <8>]}, {"VertexList", List}}
in zwei FÀllen bleibt der Head OptimumFlowData[] stehen, darunter der Sie
interessierende; es findet keine Evaluation statt und es lÀsst sich keine
Evaluation erzwingen mit Mma 9.0.1
Mma lÀsst AusdrÌcke stehen, die es nicht evaluieren kann; es mag immerhin trösten, dass "FlowTable" dem System weniger fremd ist als etwa "OttoGiesenheimer"
In[39]:= TableForm[fmax["OttoGiesenheimer"]]During evaluation of In[39]:= OptimumFlowData::nomthd: There is no method OttoGiesenheimer for OptimumFlowData objects. >>
Out[39]//TableForm= OptimumFlowData[<8>, <8>][OttoGiesenheimer]Das System hier ist Windows 7. Wenn Sie den wg. der Anzahl zulÀssiger Zeichen vereinfachten Ausdruck
FindMaximumFlow[
Graph[{"q" \[DirectedEdge] 1, 1 \[DirectedEdge] 2,
2 \[DirectedEdge] 3, 3 \[DirectedEdge] "s"}], "q", "s",
"OptimumFlowData"]["FlowTable"]
beim WolframAlpha eingeben, dann folgt das Bildchen in der Beilage.
Entweder ist "FlowTable" nicht implementiert oder es evaluiert fÃŒr fast
alle Graphen nicht.
Mit den besten GrÃŒssen Udo.On Mon, 11 Feb 2013 15:56:43 +0100, Gamer Michael <Michael.Gamer@XXXXXXX.de> wrote:
n Mathematica 9 kann man den maximalen FluÃ? in einem Netzwerk ja direkt (ohne Combinatorica) bestimmen. Das geht auch alles ganz prima. Was mir nicht gelungen ist, ist die in de Doku angegebene Funktion "FlowTable" aus der Struktur OptimumFlowData abzurufen. Selbst im Mathematica Hilfefile ist hier kein Output angegeben (siehe Bilddatei anbei). Vielleicht kann mir da jemand einen Tip geben, wie ich an die "FlowTable" rankommen kann.
flowtable_wa.JPG
Description: JPEG image
