summaryrefslogtreecommitdiff
path: root/3809/CH6/EX6.3/EX6_3.sce
blob: 95a436f9516f05ac6a3fbdd21a02225061ff6a17 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 6, Example 6.3
clc
//Initialisation
pi=3.14                       //pi
f=100                          //frequency in hertz
L=25*10**-3                    //inductance in henry
vl=5                           //peak voltage

//Calculation
w=2*pi*f                       //angular frequency
Xl=w*L                         //inductive reactance
il=vl/Xl                       //peak current

//Results
printf("Peak Current, IL = %d mA",il*1000)