summaryrefslogtreecommitdiff
path: root/3809/CH5/EX5.4/EX5_4.sce
blob: 0d7a9c429f40d3f386bef1f0e271d1b80b5221bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 5, Example 5.4

clc
//Initialisation'
n=400                           //no of turns
l=200*10**-3                    //mean circumference
pi=3.14                         //pi
uo=4*pi*10**-7                   //dielectric constant
a=30*10**-6                     //area

//Calculation
L=(uo*a*n**2)/l                   //inductance

//Results
printf("Inductance L = %d uH",L*10**6)