summaryrefslogtreecommitdiff
path: root/1319/CH12/EX12.12/i_12.sce
blob: db2b5b2fb5e4e27ea570a61106850637aced93bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// To Compute the resistor, when operating voltage is altered.

clc;
clear;

V=120;
P=100;

Rd=(V^2)/P;

Vr=80; // Reduced voltage

Ir= Vr/Rd;// Reduced current

Rt=V/Ir; // The Total Resistance required to circulate the reduced current.

Re= Rt-Rd; // External resistance required.

disp('ohms',Re,'The external resistance required to be connected in series to operate at 80V')