summaryrefslogtreecommitdiff
path: root/3871/CH11/EX11.4/Ex11_4.sce
blob: f594688cac621aea5f03915dbafc8d3f6859d45c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//===========================================================================
//chapter 11 example 4

clc;
clear all;

//variable declaration
R1    = 0.1;        //standard resistance in Ω
V2    = 0.613;        //voltage drop across standard resistance in V
a    = 100;    
r    = 0.781;        //volt ration box
theta    = 50.48;
theta1    = 12.6;
f        = 50;          //frequency in in HZ

//calculations
I    = V2/R1;        //current through coil in A
V1    = a*r;        //voltage drop across inductive coil in V
theta2 = theta -theta1;
L    = V1*sin(theta2*180/%pi)/(2*%pi*f*I);    //inducatance of coil in H

//result
mprintf("inductance of coil =%3.2f H",L);