path: root/1067/CH18/EX18.1/18_1.sce

clc;
clear;
P=2000e3;
V=400;
r=.4;
z=V^2/(r*P);
mprintf("the value of z=%f ohm",z);