powered by
A resistor network corresponding to a squared square
data(SquaredSquare)
Returns a conductance matrix
The nodes are ordered so that the potentials are in increasing order.
# NOT RUN { data(SquaredSquare) resistance(SquaredSquare,1,13) # should be 1 circuit(L=SquaredSquare,currents=c(NA,rep(0,11),1),v=c(0,rep(NA,12)))$potentials # should be in increasing order # }
Run the code above in your browser using DataLab