Resistor mesh: Difference between revisions

m
→‎{{header|REXX}}: reverted to faster IF comparison.
m (→‎{{header|REXX}}: added/changed comments and whitespace, changed indentations.)
m (→‎{{header|REXX}}: reverted to faster IF comparison.)
Line 1,161:
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
if i> \==1 then do; v=v + @.im.j; n=n + 1; end
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 j<wide then do; v=v + @.i.jp; n=n + 1; end