Resistor mesh: Difference between revisions
Content added Content deleted
Line 1,273: | Line 1,273: | ||
{{works with|Mathematica|8.0}} |
{{works with|Mathematica|8.0}} |
||
<break> |
|||
⚫ | |||
⚫ | |||
<lang mathematica>resistanceGraph[g_, prec_:$MachinePrecision]:= |
<lang mathematica>resistanceGraph[g_, prec_:$MachinePrecision]:= |
||
Line 1,303: | Line 1,305: | ||
{{works with|Mathematica|9.0}} |
{{works with|Mathematica|9.0}} |
||
Alternative implementation using <b>GridGraph</b>. |
Alternative implementation using <b>GridGraph</b>. |
||
<break> |
|||
<lang mathematica>graphresistor[g_, a_, b_] := |
<lang mathematica>graphresistor[g_, a_, b_] := |
||
LinearSolve[ |
LinearSolve[ |