summaryrefslogtreecommitdiff
path: root/343/CH2/EX2.65/ex2_65.sce
blob: 7c8d3fca3c93a765debbe52147aca43e00173b69 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc 
R=30;              //Assigning values to parameters
I=5;
V=110;
f=50;
I1=V/R;
I2=sqrt(I^2-I1^2);
Xc=V/I2;
C=1/(2*%pi*f*Xc);
disp("Farads",C,"Unknown capacitance when total current drawn is 5 A");
Inew=4;
I2new=sqrt(Inew^2-I1^2);
Xc=V/I2new;
f=1/(2*%pi*C*Xc);
disp("hertz",f,"Frequency when total current drawn is 4 A");