diff options
Diffstat (limited to '3836/CH15')
| -rw-r--r-- | 3836/CH15/EX15.1/Ex15_1.sce | 11 | ||||
| -rw-r--r-- | 3836/CH15/EX15.2/Ex15_2.sce | 14 | ||||
| -rw-r--r-- | 3836/CH15/EX15.3/Ex15_3.sce | 16 | ||||
| -rw-r--r-- | 3836/CH15/EX15.4/Ex15_4.sce | 17 | ||||
| -rw-r--r-- | 3836/CH15/EX15.5/Ex15_5.sce | 20 | ||||
| -rw-r--r-- | 3836/CH15/EX15.6/Ex15_6.sce | 21 | ||||
| -rw-r--r-- | 3836/CH15/EX15.7/Ex15_7.sce | 19 |
7 files changed, 118 insertions, 0 deletions
diff --git a/3836/CH15/EX15.1/Ex15_1.sce b/3836/CH15/EX15.1/Ex15_1.sce new file mode 100644 index 000000000..534cd8a5b --- /dev/null +++ b/3836/CH15/EX15.1/Ex15_1.sce @@ -0,0 +1,11 @@ +clear +//Initialisation +w=1000 //Angular Frequency +L=10**-3 //Inductance + +//Calculation +Xl=w*L //Reactance + +//Result +printf("\n Reactance, Xl = %d Ohm",Xl) + diff --git a/3836/CH15/EX15.2/Ex15_2.sce b/3836/CH15/EX15.2/Ex15_2.sce new file mode 100644 index 000000000..1bec40dcf --- /dev/null +++ b/3836/CH15/EX15.2/Ex15_2.sce @@ -0,0 +1,14 @@ +clear +// + +//Initialisation +f=50 //frequency +C=2*10**-6 //Capacitance + +//Calculation +w=2*%pi*f //Angular Frequency +Xc=1/(w*C) //Reactance + +//Result +printf("\n Reactance, Xl = %.2f KOhm",Xc/1000) + diff --git a/3836/CH15/EX15.3/Ex15_3.sce b/3836/CH15/EX15.3/Ex15_3.sce new file mode 100644 index 000000000..64890dd67 --- /dev/null +++ b/3836/CH15/EX15.3/Ex15_3.sce @@ -0,0 +1,16 @@ +clear +// + +//Initialisation +f=100 //frequency +l=25*10**-3 //Inductance +Vl=5 //AC Voltage (Sine) + +//Calculation +w=2*%pi*f //Angular Frequency +Xl=w*l //Reactance +Il=Vl*Xl**-1 + +//Result +printf("\n Peak Current, IL = %d mA",Il*10**3) + diff --git a/3836/CH15/EX15.4/Ex15_4.sce b/3836/CH15/EX15.4/Ex15_4.sce new file mode 100644 index 000000000..2046a1c3e --- /dev/null +++ b/3836/CH15/EX15.4/Ex15_4.sce @@ -0,0 +1,17 @@ +clear +// + +//Initialisation +Ic=2 //sinusoidal Current +C=10*10**-3 //Capacitance +w=25 //Angular Frequency + + + +//Calculation +Xc=1/(w*C) //Reactance +Vc= Ic*Xc //Voltage + +//Result +printf("\n Voltage appear across the capacitor, V = %d V r.m.s",Vc) + diff --git a/3836/CH15/EX15.5/Ex15_5.sce b/3836/CH15/EX15.5/Ex15_5.sce new file mode 100644 index 000000000..23e6779d8 --- /dev/null +++ b/3836/CH15/EX15.5/Ex15_5.sce @@ -0,0 +1,20 @@ +clear +// + +//Initialisation +I=5 //sinusoidal Current +R=10 //Resistance in Ohm +f=50 //Frequency in Hertz +L=0.025 //Inductancec in Henry + + +//Calculation +Vr=I*R //Voltage across resistor +Xl=2*%pi*f*L //Reactance +VL= I*Xl //Voltage across inductor +V=sqrt((Vr**2)+(VL**2)) //total voltage +phi=atan(VL*Vr**-1) //Phase Angle in radians + +//Result +printf("\n (a V = %.1f V",V) +printf("\n (b V = %.2f V",phi*180/%pi) diff --git a/3836/CH15/EX15.6/Ex15_6.sce b/3836/CH15/EX15.6/Ex15_6.sce new file mode 100644 index 000000000..a7dd4d0dc --- /dev/null +++ b/3836/CH15/EX15.6/Ex15_6.sce @@ -0,0 +1,21 @@ +clear +// + +//Initialisation +R=10**4 //Resistance in Ohm +f=10**3 //Frequency in Hertz +C=3*10**-8 //Capacitance in Farad +V=10 //Voltage + +//Calculation +Xc=1/(2*%pi*f*C) //Reactance +a=((10**4)**2)+(5.3*10**3)**2 +I=sqrt((V**2)/a) //Current in Amp +Vr=I*R //Voltage +Vc=Xc*I //Voltage +phi=atan(Vc/Vr) //Phase Angle in radians + +//Result +printf("\n (a) Current, I = %d uA",round(I*10**6)) + +printf("\n (b V = %.2f V",-phi*180/%pi) diff --git a/3836/CH15/EX15.7/Ex15_7.sce b/3836/CH15/EX15.7/Ex15_7.sce new file mode 100644 index 000000000..7663289a5 --- /dev/null +++ b/3836/CH15/EX15.7/Ex15_7.sce @@ -0,0 +1,19 @@ +clear +// + +//Initialisation +I=5 //sinusoidal Current +R=200 //Resistance in Ohm +f=50 //Frequency in Hertz +L=400*10**-3 //Inductancec in Henry +C=50*10**-6 //Capacitance in Henry + +//Calculation +Vr=I*R //Voltage across resistor +Xl=2*%pi*f*L //Reactance +Xc=1/(2*%pi*f*C) //Reactance +i=Xl-Xc + +//Result +printf("\n Z = %d + j %d Ohms",R,i) + |