summaryrefslogtreecommitdiff
path: root/3793/CH3/EX3.4/exp_3_4.sce
blob: 4bb4f46494c563ba9c19884b6e1a9636b794146c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clear;
clc;

//given parameter
r=1; //radius
d=3
h=300;
p=500;
q=(100*sqrt((6^2)+(5^2)));
l=(2*(10^-7)*log(((2^(1/6))*((d/(.7788*r))^(1/2))*((p/q)^(2/3)))));
L=l*h*1000*1000;
Xl= 2*%pi*50*L*(10^-3);
mprintf(" Inductance = %.3f mH\n",L);
mprintf(" Rectance = %.3f ohm",Xl);