summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.15/ii_15.sce
blob: b9d85088aaf0c3156c5c0fd07f7c2ba8b311cbdd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
//To Compute the maximum flux set by an coil.

clc;
clear;

L1=0.5;
L2=1;
K=0.8;

N2=1500;

M=K*sqrt(L1*L2);
i1=20;

theta=poly(0,'t');

fact=derivat(theta);// Derivative of the time factor(Linear function of 't').

omega=314;// The Angular Frequency Factor

v2=M*fact*omega*i1;// Maximum Coil 2 Voltage

disp('cos 314t V',v2,'The Voltage Across Coil 2= ')

dflx=v2/N2;

Mxflux=(dflx/omega)*(1/fact);


disp('sin 314t Wb',Mxflux,'The flux setup by Coil 1= ')

disp('Wb',Mxflux,'The Maximum Flux Setup by Coil 1= ')