diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1319/CH1/EX1.15 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '1319/CH1/EX1.15')
| -rw-r--r-- | 1319/CH1/EX1.15/1_15.sce | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/1319/CH1/EX1.15/1_15.sce b/1319/CH1/EX1.15/1_15.sce new file mode 100644 index 000000000..e98294e4d --- /dev/null +++ b/1319/CH1/EX1.15/1_15.sce @@ -0,0 +1,55 @@ +//Determine the current in parallel branches and supply current
+
+clc;
+clear;
+
+Xl=%i*100; // Inductance
+R=10; // Resistance
+V=10;
+Xco=-%i*100;
+
+Q=abs(Xl)/R;
+
+Z0=Q*abs(Xco);
+I0=V/Z0;
+
+Ic=V/Xco;
+Il=V/Xl;
+
+Pi=V*I0; // Power Input
+
+Pc=(I0^2)*10; // Copper Loss
+
+// Frequency reduced to fo/2
+
+Xl1=Xl/2; // New Inductive reactance at half the initial frequency
+Xco1=Xco*2; // New Capacitative reactance at half the initial frequency
+
+Z1=R+Xl1; // Net impedance of the branch containing Resistance and inductor
+
+Znet= Z1*Xco1/(Xco1+Z1); // Net Impedance of the circuit
+
+I1=V/Znet; // Net Current for reduced frequency
+
+ti1=atand(imag(I1)/real(I1)); // Phase Angle
+
+// Frequncy increased to 2fo
+
+Xl2=2*Xl;// New Inductive reactance at double the initial frequency
+Xco2=Xco/2;// New Capacitative reactance at double the initial frequency
+Z2=R+Xl2;// Net impedance of the branch containing resistance and inductor
+
+Zt=Z2*Xco2/(Z2+Xco2);// Net Impedance of the circuit
+
+I2=V/Zt; // Net Current
+
+ti2=atand(imag(I2)/real(I2));
+
+printf('a) The Current flowing in the inductor =')
+disp('mA',Il*1000)
+printf(' The current flowing in the capacitor =')
+disp('mA',Ic*1000)
+printf(' The supply current = %g mA\n \n',I0*1000)
+printf('b) The current for half the intial frequency = %g/_%g mA\n',abs(I1)*1000,ti1)
+printf(' The current for double the intial frequency = %g/_%g mA\n',abs(I2)*1000,ti2)
+
|