summaryrefslogtreecommitdiff
path: root/2252/CH6/EX6.13/Ex6_13.sce
blob: 91df968866a34058c8431413293151537b5c94b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

V=230//applied voltage
L=60D-3//inductance of coil
f=50 //frequency of supply
Xl=2*%pi*f*L
I=230/Xl
//if frequency is reduced to 20 Hz
Xl=2*%pi*20*L
I1=V/Xl
mprintf("Current through the coil if frequency is reduced to 20 Hz=%f A\n",I1)
//if frequency is increased to 60 Hz
Xl=2*%pi*60*L
I2=V/Xl
mprintf("Current through the coil if frequency is increased to 60 Hz=%f A\n",I2)
//if frequency is increased to 100 Hz
Xl=2*%pi*100*L
I3=V/Xl
mprintf("Current through the coil if frequency is increased to 100 Hz=%f A\n",I3)