summaryrefslogtreecommitdiff
path: root/3836/CH15/EX15.3/Ex15_3.sce
blob: 64890dd679ab13072a35e8005cec17d4038f2813 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//

//Initialisation
f=100                  //frequency
l=25*10**-3               //Inductance
Vl=5                    //AC Voltage (Sine)

//Calculation
w=2*%pi*f                 //Angular Frequency  
Xl=w*l                 //Reactance
Il=Vl*Xl**-1

//Result
printf("\n Peak Current, IL = %d mA",Il*10**3)