Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
PeterBurbery`UndirectedGraphs`
ResistanceMatrix  |
|
| | ||||
Examples
(1)
Basic Examples
(1)
Obtain the resistance matrix of the Petersen graph:
In[1]:=
 | ResistanceMatrix |
Out[1]=
SparseArray
 |  |
|
The resistance matrix of the Pappus graph:
In[2]:=
| ResistanceMatrix |
Out[2]=
SparseArray
|  |
|
Verify these are the same as GraphData's resistance matrices.
Create two tests:
In[3]:=
tests=TableWith{input=input,output=GraphData[input,"ResistanceMatrix"]},TestCreate
[GraphData[input]],output,TestIDAutomatic,{input,{"PetersenGraph","PappusGraph"}}
 | ResistanceMatrix |
Out[3]=
TestObject
,TestObject
|  |
|
| |
|
Run the tests:
In[4]:=
TestReport[tests]
Out[4]=
TestReportObject
|  |
|
Run the tests and echo the intermediate results:
In[5]:=
TestReport[tests,HandlerFunctions"TestEvaluated"Echo]
»
EventTestEvaluated,EventID517098df-b6ce-4d04-ac4e-c5ed11ea1cee,TestObjectTestObject
,OutcomeSuccess
 | |
|
»
EventTestEvaluated,EventID32f978e9-fa4b-493b-982d-ef41f2ab5db0,TestObjectTestObject
,OutcomeSuccess
| |
|
Out[5]=
TestReportObject
|  |
|
 |
|
 |
|
""