summaryrefslogtreecommitdiff
path: root/1370/CH2/EX2.32/example2_32.sce
blob: da7f97cfcf402b737ce9a1e62047c86f8a9370c8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//example2.32
clc
disp("V=250 V, (R_a)=0.3 ohm, (I_L)=20 A, (R_sh)=200 ohm")
s=250/200
disp(s,"I_sh(in A)=V/(R_sh)=")
a=20-1.25
disp(a,"I_a(in A)=(I_L)-(I_sh)=")
b=250-(18.75*0.3)
format(8)
disp(b,"E_b(in V)=V-[(I_a)(R_a)]=")
m=244.375*18.75
format(10)
disp(m,"P_m(in W)=[(E_b)*(I_a)]=")