summaryrefslogtreecommitdiff
path: root/3636/CH14/EX14.1/Ex14_1.sce
blob: 1455001b378e0bbd3634b8264936ae5c51a09678 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear;
clc;
Vm=100 //voltage in V
Rf=1*10^3 //resistance in series in ohm
Rl=4*10^3 //load resistance in ohm

//Calculation
Im=Vm/(Rf+Rl)
Idc=Im/%pi
Irms=Im/2

format("e",8)
disp(Im,"(a)Maximum current Im is (A)= ")
format("e",9)
disp(Idc,"(b)dc component of current Idc is (A)=")
disp(Irms,"(c)rms value of current Irms (A)= ")