WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター
GUIKit の例題：GraphEditor

GUIKit の例題：GraphEditor

GUIKitで提供されていた機能は，組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった．

コード
Wolfram Language code: Needs["GUIKit`"]
Wolfram Language code: GraphEdit[expr_] := GUIRunModal[PrepareInterfaceReference[expr]]
Wolfram Language code: GraphEditNonModal[expr_] := GUIRun[PrepareInterfaceReference[expr]]
Wolfram Language code: PrepareInterfaceReference[expr_] := Module[{ref}, ref = GUILoad["Graph/GraphEditor"]; ref @ InvokeMethod[{"graphFrame", "pack"}]; JavaShow[ref @ WidgetReference["graphFrame"]]; ref @ SetPropertyValue[{"graphPanel", "expr"}, CreateGraphExpr[expr]]; ref]
Wolfram Language code: CreateGraphExpr[gr_Graph] := gr
Wolfram Language code: CreateGraphExpr[mat_SparseArray] := ArrayRules[mat]
Wolfram Language code: CreateGraphExpr[mat_ ? MatrixQ] := ArrayRules[mat]
Wolfram Language code: CreateGraphExpr[r : {___Rule}] := r
Wolfram Language code: CreateGraphExpr[x___] := {}

例題

この例題はWolfram言語の機能を既存のサードパーティグラフモデルと編集ライブラリを活用する GUIKit のユーザインターフェース要素で補う利点を示している．GraphEditウィジェットはCombinatorica`でサポートされているGraph式と，SparseArrayおよびArrayRulesを利用する．

グラフ編集キャンバスのユーザインターフェースを使うと以下が可能になる．

  • 新規ノードの作成（Ctrl+クリックまたは右（代替）クリック）
  • 新規の辺の作成（Ctrl+クリックまたはノード内での右（代替）クリック）
  • 選択位置の移動（選択したノードおよび辺をドラッグ）
  • 選択位置の変更 （ドラッグ，クリック，または Shift+クリック）
  • 現行選択ノードおよび辺の削除（DelまたはBackspaceキー）
行列
Wolfram Language code: mat = {{a + b, f[x, x'], 0}, {x, Sqrt[c], (d/e)}}
Wolfram Language code: MatrixForm[mat]
Wolfram Language code: outRules = GraphEdit[mat]
Wolfram Language code: Normal[SparseArray[outRules]] // MatrixForm
疎な配列
Wolfram Language code: mat = SparseArray[{{i_, i_} :> -(1/i), {i_, j_} /; Mod[Abs[i - j], 5] == 1 -> 1}, {6, 6}]
Wolfram Language code: mat // MatrixForm
Wolfram Language code: outRules = GraphEdit[mat]
Wolfram Language code: Normal[SparseArray[outRules]] //MatrixForm
作成
Wolfram Language code: gr = GraphEdit[ Graph[{}, {}, EdgeDirection -> True]]
Wolfram Language code: ShowGraph[gr]

次は表示されたグラフとインタラクトしたりこれに編集を加えたりできるモードレスセッションで実行された別のバージョンである．

Wolfram Language code: ref = GraphEditNonModal[{{a, b, 0}, {0, c, d}}]
Wolfram Language code: ref @ SetPropertyValue[{"graphPanel", "expr"}, ArrayRules[{{e, f, g, n}, {h, i, j, m}}]]
Wolfram Language code: ref @ PropertyValue[{"graphPanel", "expr"}]