Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
PeterBurbery`UndirectedGraphs`
ReliabilityPolynomial  |
|
| | ||||
|
| | ||||
Details and Options
Examples
(1)
Basic Examples
(1)
Compute the reliability polynomial for the Petersen graph:
In[1]:=
 | ReliabilityPolynomial |
Out[1]=
-1+9p.+45+155+390+696+704
9
(-1+p.)
2
p.
3
p.
4
p.
5
p.
6
p.
Compute the reliability polynomial for the Pappus graph:
In[2]:=
| ReliabilityPolynomial |
Out[2]=
-1+17p.+153+951+4512+17136+53238+135555+276147+415493+356509
17
(-1+p.)
2
p.
3
p.
4
p.
5
p.
6
p.
7
p.
8
p.
9
p.
10
p.
Compute the reliability polynomial over the indeterminate ℓ:
In[3]:=
| ReliabilityPolynomial |
Out[3]=
-(1+17ℓ+153+951+4512+17136+53238+135555+276147+415493+356509)
17
(-1+ℓ)
2
ℓ
3
ℓ
4
ℓ
5
ℓ
6
ℓ
7
ℓ
8
ℓ
9
ℓ
10
ℓ
Make two tests to compare this function to GraphData.
In[4]:=
tests=TableWithinput=input,output=FullSimplify[GraphData[input,"ReliabilityPolynomial"][p.]],TestCreateFullSimplify@
[GraphData[input]],output,TestIDAutomatic,{input,{"PetersenGraph","PappusGraph"}}
 | ReliabilityPolynomial |
Out[4]=
TestObject
,TestObject
 |  |
|
| |
|
Run the tests:
In[5]:=
TestReport[tests]
Out[5]=
TestReportObject
|  |
|
Echo the outputs of the tests:
In[6]:=
TestReport[tests,HandlerFunctions"TestEvaluated"Echo]
»
EventTestEvaluated,EventIDf039b039-eaf9-4de5-b521-16b5be1744c7,TestObjectTestObject
,OutcomeSuccess
|  |
|
»
EventTestEvaluated,EventIDf1bae610-adb0-4085-96c8-2642d030bd75,TestObjectTestObject
,OutcomeSuccess
| |
|
Out[6]=
TestReportObject
| |
|
 |
|
 |
|
""