American Public Power Association tools




Pay Notebook Creator: Salah Ahmed0
Set Container: Numerical CPU with TINY Memory for 10 Minutes 0
Total0

TOWER GROUNDING RESISTANCE PROGRAM: BURIED STRAIGHT HORIZONTAL WIRE

This program was originally written in Fortran in 1989 by David R. Brown and the American Public Power Association.

{rho: EARTH RESISTIVITY IN OHM-METERS}

{xl: LENGTH OF THE WIRE IN FEET}

{rd: WIRE DIAMETER IN INCHES}

{xd: DEPTH OF THE WIRE IN FEET}

In [2]:
# Click the Blue Plane to preview this as a CrossCompute tool

rho = 10
xl = 10
xd = 10
rd = 10

target_folder = '/tmp'
In [3]:
from os.path import join
output_text_path = join(target_folder, 'buried_str_horizontal_wire.log')
target_text_path = join(target_folder, 'buried_str_horizontal_wire.txt')
In [4]:
from subprocess import run

executable = 'buried_str_horizontal_wire.out'
script = 'buried_str_horizontal_wire.f'

output_text = run([
    'gfortran',
    '-o',
    executable,
    script,])
In [5]:
from os.path import expanduser
from subprocess import check_output, STDOUT
output_text = check_output([
    './buried_str_horizontal_wire.out',
    expanduser(target_text_path),
    str(rho),
    str(xl),
    str(rd),
    str(xd),
], stderr=STDOUT)
with open(output_text_path, 'wb') as output_file:
    output_file.write(output_text)
In [6]:
print('output_text_path = ' + output_text_path)
print('target_text_path = ' + target_text_path)
output_text_path = /tmp/buried_str_horizontal_wire.log
target_text_path = /tmp/buried_str_horizontal_wire.txt