summaryrefslogtreecommitdiff
path: root/98/CH9/EX9.5/example9_5.sce
blob: e70feb21d63b01e902ed536eabf98c2b752d060e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Chapter 9
//Example 9_5
//PAge 215

clear;clc;

r=2.54/2;
d12=2;
d23=2;
d31=4;

deq=(d12*d23*d31)^(1/3);
printf("Equivalent equilateral spacing = %.3f cm \n\n", deq);

loop_l=(1e-7)*(0.5+2*log(deq*100/r));

printf("Inductance/phase/m = %.2f*10^-7 H \n\n", loop_l*1e7 );
printf(" Inductance/phase/km = %.3f mH \n\n", loop_l*1e6 );