Resistor mesh: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations.) |
m (→{{header|REXX}}: reverted to faster IF comparison.) |
||
Line 1,161: | Line 1,161: | ||
do i=1 for high; im=i - 1; ip=i + 1 |
do i=1 for high; im=i - 1; ip=i + 1 |
||
do j=1 for wide; jm=j - 1; jp=j + 1; n=0; v=0 |
do j=1 for wide; jm=j - 1; jp=j + 1; n=0; v=0 |
||
if i |
if i\==1 then do; v=v + @.im.j; n=n + 1; end |
||
if j |
if j\==1 then do; v=v + @.i.jm; n=n + 1; end |
||
if i<high then do; v=v + @.ip.j; n=n + 1; end |
if i<high then do; v=v + @.ip.j; n=n + 1; end |
||
if j<wide then do; v=v + @.i.jp; n=n + 1; end |
if j<wide then do; v=v + @.i.jp; n=n + 1; end |