summaryrefslogtreecommitdiff
path: root/1319/CH13/EX13.10/ii_10.sce
blob: bb239480598ba83a797c74e5d7b0e22427648926 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Change in Inductance
clc;
clear;

L=120*(10^-3);
N=1000;
mr=75;
Nr=200;
Nc=N-Nr;

// Inductance directly proportional to the product of the square of turns and the relative permeability

Lc= L*((Nc/N)^2)*75;

disp('H',Lc,'The New value of inductance =')