In[]:=
SetOptions[EvaluationNotebook[],AutoGeneratedPackageAutomatic]
​
In[]:=
BeginPackage["WpTools`"]​​​​documentrule::usage="documentrule[rule] gives documentation about rule, rule number if exists, (1)";​​​​Begin["`Private`"]​​documentrule[r_Rule]:=​​PrintRulePlot
[◼]
WolframModel
[r],VertexLabelsAutomatic,"RulePartsAspectRatio"0.5;​​Print
[◼]
WolframModel
[r,Automatic,3]["StatesPlotsList",VertexLabelsAutomatic];​​(*​​Print
[◼]
WolframModel
[r,Automatic,<|"MaxEvents"6|>,"EventsStatesPlotsList"];​​Print
[◼]
WolframModel
[r,Automatic,7]["StatesPlotsList",ImageSizeTiny]​​*);​​If[FailureQ[#],Nothing,Print[#]]&@
[◼]
WolframModelData
[r]​​​​End[]​​​​EndPackage[]
Out[]=
WpTools`
Out[]=
WpTools`Private`
Out[]=
WpTools`Private`
​
​
In[]:=
?documentrule
Out[]=
Symbol
documentrule[rule] gives documentation about rule, rule number if exists, (1)
In[]:=
documentrule[{{1,2}}{{2,3},{3,1}}]
Join
:Incompatible elements in JoinSetReplace$0$2$116`setSubstitutionSystem$cpp`PackagePrivate`decodeExpressions[LibraryFunction[C:\Users\Chris\AppData\Roaming\WolframDesktop\Paclets\Repository\SetReplace-0.3.33\LibraryResources\Windows-x86-64\libSetReplace.dll,setExpressions,{Integer},{Integer,1}][LibraryFunctionError[LIBRARY_FUNCTION_ERROR,6]]],AtomLists77LibraryFunction
Function name: setExpressions
Argument count: 1
[20[LIBR…ERROR,6]][…s],3,1 cannot be joined.
SetReplace$0$2$116`WolframModelEvolutionObject
::corrupt
:WolframModelEvolutionObject does not have a correct format. Use WolframModel for construction.
​
[◼]
WolframModel
[{{1,2}}{{2,3},{3,1}},Automatic,3][StatesPlotsList,VertexLabelsAutomatic]
wm686
Out[]=
{Null}