diff options
Diffstat (limited to '3369/CH12/EX12.7/Ex12_7.sce')
| -rwxr-xr-x | 3369/CH12/EX12.7/Ex12_7.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3369/CH12/EX12.7/Ex12_7.sce b/3369/CH12/EX12.7/Ex12_7.sce new file mode 100755 index 000000000..d21a8d60e --- /dev/null +++ b/3369/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,12 @@ +//Chapter 12,Example 7, page 410 +//Determine the induced sheath voltage +clear +clc +D = 15 // cm +rsh = 5.5/2 // Sheath diameter converted to radius in cm +I = 250 // A +E = 2*10^-7*314*I*log(D/rsh)*10^3 +printf("\n Induced sheath voltage per Km = %f V/km",E) +printf("\n If the sheaths are bonded at one end, the voltage between them at the other end = = %f V/km",E*sqrt(3)) + +// Answers may vary due to round off errors. |