コンテキストパスのエイリアスを作成しますか？

Question

私はs'Graphとc'GraphをSystem'GraphとCombinatorica'Graph（とCombinatoricaと競合する他の機能）を参照することができるようにしたいと思いますか？サイモンのアイデア後

は、以下の

{Set @@ {ToExpression["c" <> Last[StringSplit[#, "`"]]], 
     ToExpression[#]}} & /@ Names["Combinatorica`*"]; 
{Set @@ {ToExpression["s" <> Last[StringSplit[#, "`"]]], 
     ToExpression[#]}} & /@ Names["System`*"]; 

今cCompleteGraph[5]とsCompleteGraph[5]リターンCombinatoricaと今後の参考のために、それぞれ

更新月8日 Systemグラフを動作しているようですが、これは私が終わった方法がありますGraphUtilities,Combinatoricaと組み込みのグラフ機能を一緒に使用します。これは、すべての呼び出しでCombinatoricaを$ContextPathに追加するので、Graphのようなすべてのcombinatorica関数をcGraphに再マッピングし、$Postを変更して、各評価でContextPathからGraphUtilitiesとCombinatoricaを削除する必要があります。

要約すると、各セッションの開始時に以下のコードを実行します。もちろん

$PreRead = # /. {str_String :> 
    StringReplace[ 
     str, {RegularExpression["^s`(.*)"] :> "System`" <> "$1", 
     RegularExpression["^c`(.*)"] :> "Combinatorica`" <> "$1"}]} & 

、これは非常に低いレベルで働いているので、取る：Combinatoricaのfuncは今cfuncで、GraphUtilitiesのfuncがちょうどfunc

Needs["Combinatorica`"]; 
combNames = Names["Combinatorica`*"]; 
{Set @@ {ToExpression["c" <> Last[StringSplit[#, "`"]]], 
     ToExpression[#]}} & /@ Names["Combinatorica`*"]; 
Needs["GraphUtilities`"]; 
$ContextPath = DeleteCases[$ContextPath, "Combinatorica`"]; 
$Post = ($ContextPath = 
    DeleteCases[$ContextPath, 
     "Combinatorica`" | "GraphUtilities`"]; #) &; 

Answer 1

何かのようにGraphUtilities'func、および内蔵のFUNCされていますお手入れ。