summaryrefslogtreecommitdiff
path: root/887/CH15/EX15.3/15_3.sce
blob: bd8dc2d1604d2beb9843e3a4c7e2b0cf420ecc62 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
//ex15.3
M_r=5000;      //relative permeability
R=10*10^-2;
r=2*10^-2;
N=100;      //number of turns
//complex number 'i' is used as a symbol here
I=2*%i;      //here 'i' represents sin(200*%pi*t), not as a complex number
M_o=4*%pi*10^-7;      //permeability of free space
M=M_r*M_o;      //permeability of the core material
phi=M*N*I*r^2/(2*R);      //flux
FL=N*phi;      //flux linkages
printf(" All the values in the textbook are approximated hence the values in this code differ from those of Textbook")
disp('In the below two values,i represents sin(200*%pi*t)')      //t-time
disp(phi,'flux in webers')
disp(FL,'flux linkages in weber turns')
//differentiating 'λ' with respect to t
disp('In the below answer, i represents cos(200*%pi*t)')
disp(FL*200*%pi,'Voltage induced in the coil in volts')