diff options
Diffstat (limited to '3769/CH13')
35 files changed, 599 insertions, 0 deletions
diff --git a/3769/CH13/EX13.1/Ex13_1.sce b/3769/CH13/EX13.1/Ex13_1.sce new file mode 100644 index 000000000..32cea3448 --- /dev/null +++ b/3769/CH13/EX13.1/Ex13_1.sce @@ -0,0 +1,17 @@ +clear +//Given +I0=141.4 //A +w=314 +t=3*10**-3 //s + +//Calculation +// +f=w/(2*%pi) +T=1/f +I=-I0*t*sin(314*180/3.14) + +//Result +printf("\n (i) The maximum value is %0.3f A",I0) +printf("\n (ii) Frequency is %0.0f Hz",f) +printf("\n (iii) Time period is %0.2f S",T) +printf("\n (iv) The instantaneous value is %0.2f A",I*10**3) diff --git a/3769/CH13/EX13.11/Ex13_11.sce b/3769/CH13/EX13.11/Ex13_11.sce new file mode 100644 index 000000000..0e47985d5 --- /dev/null +++ b/3769/CH13/EX13.11/Ex13_11.sce @@ -0,0 +1,11 @@ +clear +//Given +Xl=220 //ohm +L=0.7 //H + +//Calculation +// +f=Xl/(2*%pi*L) + +//Result +printf("\n Frequency is %0.0f HZ",f) diff --git a/3769/CH13/EX13.12/Ex13_12.sce b/3769/CH13/EX13.12/Ex13_12.sce new file mode 100644 index 000000000..21e52d80c --- /dev/null +++ b/3769/CH13/EX13.12/Ex13_12.sce @@ -0,0 +1,13 @@ +clear +//Given +f=50 //Hz +I=1.4 + +//Calculation +// +E=2*%pi*f*I*2*cos(2*%pi*f) +Ev=E/sqrt(2) + +//Result +printf("\n (i) Potential difference across the coil is %0.0f cos 100*pai*t",E) +printf("\n (ii) r.m.s value of p.d across the coil is %0.1f V",Ev) diff --git a/3769/CH13/EX13.13/Ex13_13.sce b/3769/CH13/EX13.13/Ex13_13.sce new file mode 100644 index 000000000..830ded78d --- /dev/null +++ b/3769/CH13/EX13.13/Ex13_13.sce @@ -0,0 +1,16 @@ +clear +//Given +f=50 //Hz +L=2 +Ev=12 //V +L1=6 + +//Calculation +// +Xl=2*%pi*f*L +Iv=Ev/Xl +Xl1=2*%pi*f*L1 +Iv1=Ev/Xl1 + +//Result +printf("\n Current flows when the inductance is changed to 6 H %0.4f A",Iv1) diff --git a/3769/CH13/EX13.14/Ex13_14.sce b/3769/CH13/EX13.14/Ex13_14.sce new file mode 100644 index 000000000..d5e73f3f8 --- /dev/null +++ b/3769/CH13/EX13.14/Ex13_14.sce @@ -0,0 +1,14 @@ +clear +//Given +Ev=200 //V +I0=0.9 //A +f=50 //Hz + +//Calculation +// +E0=sqrt(2)*Ev +Xl=E0/I0 +L=Xl/(2*%pi*f) + +//Result +printf("\n The value of inductance is %0.0f H",L) diff --git a/3769/CH13/EX13.16/Ex13_16.sce b/3769/CH13/EX13.16/Ex13_16.sce new file mode 100644 index 000000000..6d00a616d --- /dev/null +++ b/3769/CH13/EX13.16/Ex13_16.sce @@ -0,0 +1,13 @@ +clear +//Given +L=1 //H +Xl=3142.0 //ohm + +//Calculation +// +f=Xl/(2*%pi*L) +C=1/(2.0*%pi*f*Xl) + +//Result +printf("\n (i) Value of frequency is %0.0f ohm",f) +printf("\n (ii) Capacity of a condenser is %0.2f micro F",C*10**6) diff --git a/3769/CH13/EX13.17/Ex13_17.sce b/3769/CH13/EX13.17/Ex13_17.sce new file mode 100644 index 000000000..bda77b716 --- /dev/null +++ b/3769/CH13/EX13.17/Ex13_17.sce @@ -0,0 +1,13 @@ +clear +//Given +C=50*10**-6 //F +V=230 //V + +//Calculation +// +q=C*V*sqrt(2) +E=0.5*C*(V*sqrt(2))**2 + +//Result +printf("\n (i) Maximum charge on the capacitor is %0.2f *10**-3 C",q*10**3) +printf("\n (ii) The maximum energy stored in the capacitor is %0.2f J",E) diff --git a/3769/CH13/EX13.18/Ex13_18.sce b/3769/CH13/EX13.18/Ex13_18.sce new file mode 100644 index 000000000..073810e06 --- /dev/null +++ b/3769/CH13/EX13.18/Ex13_18.sce @@ -0,0 +1,13 @@ +clear +//Given +I0=10 //A +w=314 +L=5 + +//Calculation +E=0.5*L*I0**2 +E0=w*L*I0 +C=(E*2)/(E0**2) + +//Result +printf("\n Capacitance of the capacitor is %0.2f micro F",C*10**6) diff --git a/3769/CH13/EX13.19/Ex13_19.sce b/3769/CH13/EX13.19/Ex13_19.sce new file mode 100644 index 000000000..cab83d251 --- /dev/null +++ b/3769/CH13/EX13.19/Ex13_19.sce @@ -0,0 +1,24 @@ +clear +//Given +f=50 +L=31.8*10**-3 //H +R=7.0 //ohm +Ev=230 //V + +//Calculation +// +Xl=2*%pi*f*L +Z=sqrt(R**2+Xl**2) +Iv=Ev/Z +T=Xl/R +a=atan(T)*180/3.14 +a1=cos(a)*3.14/180.0 +P=Iv**2*R +t=55*%pi/(180.0*3.14) + +//Result +printf("\n (i) Circuit current is %0.2f A",Iv) +printf("\n (ii) Phase angle is %0.0f lag",a) +printf("\n (iii) Power factor is %0.3f lag",a1*10**3) +printf("\n (iv) Power consumed is %0.0f W",P) +printf("\n Time lag between voltage maximum and current maximum is %0.2f *10**-3 S",t*10**1) diff --git a/3769/CH13/EX13.20/Ex13_20.sce b/3769/CH13/EX13.20/Ex13_20.sce new file mode 100644 index 000000000..c7d5888e2 --- /dev/null +++ b/3769/CH13/EX13.20/Ex13_20.sce @@ -0,0 +1,19 @@ +clear +//Given +P=400 //W +Ev=250 //V +Iv=2.5 //A +f=50 + +//Calculation +// +a=P/(Ev*Iv) +Z=Ev/Iv +R=Z*a +Xl=sqrt(Z**2-R**2) +L=Xl/(2*%pi*f) + +//Result +printf("\n (i) The power factor is %0.3f lag",a) +printf("\n (ii) Resistance of the coil is %0.3f ohm", R) +printf("\n (iii) Inductance of the coil is %0.3f H",L) diff --git a/3769/CH13/EX13.21/Ex13_21.sce b/3769/CH13/EX13.21/Ex13_21.sce new file mode 100644 index 000000000..a6279c03e --- /dev/null +++ b/3769/CH13/EX13.21/Ex13_21.sce @@ -0,0 +1,20 @@ +clear +//Given +Vr=150 //V +R=75.0 //ohm +f=50 //Hz +L=318*10**-3 //H + +//Calculation +// +Iv=Vr/R +Xl=2*%pi*f*L +Vl=Iv*Xl +Z=sqrt(R**2+Xl**2) +Ev=Iv*Z +a=Xl/R +a1=atan(a)*180/3.14 + +//Result +printf("\n (i) The supply voltage is %0.0f V",Ev) +printf("\n (ii) The phase angle is %0.2f degree lag",a1) diff --git a/3769/CH13/EX13.22/Ex13_22.sce b/3769/CH13/EX13.22/Ex13_22.sce new file mode 100644 index 000000000..227ccfe5b --- /dev/null +++ b/3769/CH13/EX13.22/Ex13_22.sce @@ -0,0 +1,19 @@ +clear +//Given +P=60 //W +Ev=100.0 //V +Ev1=220 //v +f=50 //Hz + +//Calculation +Iv=P/Ev +Vr=Ev1-Ev +R=Vr/Iv + +Vl=sqrt(Ev1**2-Ev**2) +Xl=Vl/Iv +L=Xl/(2*%pi*f) + +//Result +printf("\n (i) The value of non inductive resistance is %0.3f ohm", R) +printf("\n (ii) Pure inductance is %0.2f H",L) diff --git a/3769/CH13/EX13.23/Ex13_23.sce b/3769/CH13/EX13.23/Ex13_23.sce new file mode 100644 index 000000000..2ded68993 --- /dev/null +++ b/3769/CH13/EX13.23/Ex13_23.sce @@ -0,0 +1,22 @@ +clear +//Given +f1=50.0 +L=1 +E=100 //V +I=1.0 //A +Iv=0.5 //A +f=0 +Ev=100.0 //V + +//Calculation +// +Xl=2*%pi*f*L +R=E/I +Z=Ev/Iv +Xl1=sqrt(Z**2-R**2) +L=Xl1/(2.0*%pi*f1) + +//Result +printf("\n The value of resistance is %0.3f ohm",R ) +printf("\n The value of impedence is %0.3f ohm",Z) +printf("\n Inductance of the coil is %0.2f H",L) diff --git a/3769/CH13/EX13.25/Ex13_25.sce b/3769/CH13/EX13.25/Ex13_25.sce new file mode 100644 index 000000000..daef87736 --- /dev/null +++ b/3769/CH13/EX13.25/Ex13_25.sce @@ -0,0 +1,16 @@ +clear +//Given +P=80 //W +V=100.0 //v +V1=200 //V +f=50 //Hz + +//Calculation +// +Iv=P/V +Vc=sqrt(V1**2-V**2) +Xc=Vc/Iv +C=1/(2.0*%pi*f*Xc) + +//Result +printf("\n Capcitance of a capacitor is %0.1f micro F",C*10**6) diff --git a/3769/CH13/EX13.26/Ex13_26.sce b/3769/CH13/EX13.26/Ex13_26.sce new file mode 100644 index 000000000..5d13cb4df --- /dev/null +++ b/3769/CH13/EX13.26/Ex13_26.sce @@ -0,0 +1,16 @@ +clear +//Given +Ev=200 //V +Iv=10.0 +f=50 //Hz + +//Calculation +z=Ev/Iv +R=z*cos(30*3.14/180.0) +Xc=z*sin(30*3.14/180.0) +C=1/(2.0*%pi*f*Xc) + +//Result +printf("\n (i) Value of resistance is %0.2f ohm",R) +printf("\n (ii) Capacitive reactance is %0.0f ohm",Xc) +printf("\n (iii) Capacitance of the circuit is %0.0f micro F",C*10**6) diff --git a/3769/CH13/EX13.27/Ex13_27.sce b/3769/CH13/EX13.27/Ex13_27.sce new file mode 100644 index 000000000..956cb43ec --- /dev/null +++ b/3769/CH13/EX13.27/Ex13_27.sce @@ -0,0 +1,19 @@ +clear +//Given +Iv=5 //A +R=10 //ohm +Ev=60 //V +C=400 //micro F + +//Calculation +// +Vr=Iv*R +Vc=sqrt(Ev**2-Vr**2) +Xc=Vc/Iv +f=1/(2.0*%pi*C*Xc) +a=Vc/Vr +a1=atan(a)*180/3.14 + +//Result +printf("\n The value of supplied frequency is %0.0f Hz",f*10**6) +printf("\n Phase angle between circuit current and supply voltage is %0.1f degree lead",a1) diff --git a/3769/CH13/EX13.28/Ex13_28.sce b/3769/CH13/EX13.28/Ex13_28.sce new file mode 100644 index 000000000..71f5ff422 --- /dev/null +++ b/3769/CH13/EX13.28/Ex13_28.sce @@ -0,0 +1,20 @@ +clear +//Given +R=200 //ohm +C=15*10**-6 //F +Ev=220 //V +f=50 //Hz + +//Calculation +// +Xc=1/(2*%pi*f*C) +Z=sqrt(R**2+Xc**2) +Iv=Ev/Z +Vr=Iv*R +Vc=Iv*Xc +V=Vr+Vc +Vrc=sqrt(Vr**2+Vc**2) + +//Result +printf("\n (a) The current in the circuit is %0.3f A",Iv) +printf("\n (b) Voltage across the resistor and capacitor is %0.3f V",Vrc) diff --git a/3769/CH13/EX13.29/Ex13_29.sce b/3769/CH13/EX13.29/Ex13_29.sce new file mode 100644 index 000000000..10a34dd12 --- /dev/null +++ b/3769/CH13/EX13.29/Ex13_29.sce @@ -0,0 +1,21 @@ +clear +//Given +R1=10.0 //ohm +R2=5.0 //ohm +R3=15 //ohm +Ev=200 + +//Calculation +// +R=R1+R2+R3 +X=R3-(R1+R3) +Z=sqrt(R**2+R1**2) +Iv=Ev/Z +T=X/R +a=-atan(T)*180/3.14 +b=cos(a*3.14/180.0) +P=Iv**2*R +printf("\n (i) Circuit current is %0.2f A",Iv) +printf("\n (ii) Circuit phase angle is %0.2f degree lead",a) +printf("\n (iii)Phase angle between applied voltage and circuit current %0.3f lead",b) +printf("\n (iv)Power consumed is %0.3f W",P) diff --git a/3769/CH13/EX13.3/Ex13_3.sce b/3769/CH13/EX13.3/Ex13_3.sce new file mode 100644 index 000000000..f1e39a37f --- /dev/null +++ b/3769/CH13/EX13.3/Ex13_3.sce @@ -0,0 +1,11 @@ +clear +//Given +E=220 //V + +//Calculation +// +E0=sqrt(2)*E +Emean=2*E0/%pi + +//Result +printf("\n Average e.m.f during a positive half cycle is %0.0f V",Emean) diff --git a/3769/CH13/EX13.30/Ex13_30.sce b/3769/CH13/EX13.30/Ex13_30.sce new file mode 100644 index 000000000..bfa855b46 --- /dev/null +++ b/3769/CH13/EX13.30/Ex13_30.sce @@ -0,0 +1,26 @@ +clear +//Given +F=50 //HZ +L=0.06 +C=6.8 +l=10**6 +R=2.5 +Ev=230 //V + +//Calculation +// +Xl=2*%pi*F*L +Xc=l/(2*%pi*F*C) +Z=sqrt(R**2+(Xl-Xc)**2) +Iv=Ev/Z +a=(Xl-Xc)/R +a2=-atan(a)*180.0/3.14 +P=R/Z +P1=Ev*Iv*P + +//Result +printf("\n (i) Circuit impedence is %0.1f ohm",Z) +printf("\n (ii) Circuit current is %0.3f A",Iv) +printf("\n (iii) Phase angle is %0.1f degree lead",a2) +printf("\n (iv) Power factor is %0.4f lead",P) +printf("\n (v) Power consumed is %0.2f W",P1) diff --git a/3769/CH13/EX13.31/Ex13_31.sce b/3769/CH13/EX13.31/Ex13_31.sce new file mode 100644 index 000000000..9f29ba91a --- /dev/null +++ b/3769/CH13/EX13.31/Ex13_31.sce @@ -0,0 +1,22 @@ +clear +//Given +a=65 //degree +b=20 //degree +w=3000 +L=0.01 +E0=400 //V +I=10 +f=50 + +//calculation +// +a=a-b +Xl=w*L +Z=E0/(I*sqrt(2)) +R=Z/sqrt(2) +Xc=Xl-R +C=1/(w*Xc*10**-6) + +//Result +printf("\n The value of C is %0.1f microF",C) +printf("\n The value of R is %0.3f ohm",R) diff --git a/3769/CH13/EX13.32/Ex13_32.sce b/3769/CH13/EX13.32/Ex13_32.sce new file mode 100644 index 000000000..95af3826a --- /dev/null +++ b/3769/CH13/EX13.32/Ex13_32.sce @@ -0,0 +1,22 @@ +clear +//Given +f=50 //Hz +L=0.03 +R=8 //ohm +Ev=240 //V + +//Calculation +// +Xl=2*%pi*f*L +Z=sqrt(R**2+Xl**2) +Iv=Ev/Z +P=Iv**2*R +a=R/Z +Xc=2*Xl +C=1/(2*%pi*f*Xc) + +//Result +printf("\n (i) The value of current is %0.2f A",Iv) +printf("\n The value of power is %0.0f W",P) +printf("\n Power factor is %0.2f lag",a) +printf("\n (ii) The vaue of capacitance is %0.0f micro F",C*10**6) diff --git a/3769/CH13/EX13.33/Ex13_33.sce b/3769/CH13/EX13.33/Ex13_33.sce new file mode 100644 index 000000000..372dcc8b0 --- /dev/null +++ b/3769/CH13/EX13.33/Ex13_33.sce @@ -0,0 +1,20 @@ +clear +//Given +Vr=65 //V +R=100.0 //ohm +Vl=204 +f=50 //Hz +Vc=415 + +//Calculation +// +Iv=Vr/R +Xl=Vl/Iv +L=Xl/(2*%pi*f) +Xc=Vc/Iv +C=1/(2*%pi*f*Xc) + +//Result +printf("\n (i) Circuit current is %0.3f A", Iv) +printf("\n (ii) Inductance is %0.0f H",L) +printf("\n (iii) The value of capacitance is %0.0f micro F",C*10**6) diff --git a/3769/CH13/EX13.34/Ex13_34.sce b/3769/CH13/EX13.34/Ex13_34.sce new file mode 100644 index 000000000..239a22173 --- /dev/null +++ b/3769/CH13/EX13.34/Ex13_34.sce @@ -0,0 +1,18 @@ +clear +//Given +C=100*10**-12 //F +L=100*10**-6 //H +Ev=10 +R=100.0 //ohm + +//Calculation +// +fr=1/(2*%pi*sqrt(L*C)) +Iv=Ev/R +Vl=Iv*2*%pi*fr*L +Vc=Iv/(2.0*%pi*fr*C) + +//Result +printf("\n (i) Resonant frequency is %0.2f *10**6 HZ",fr*10**-6) +printf("\n (ii) Current at resonance is %0.3f A", Iv) +printf("\n (iii) Voltage across L and C is %0.3f V", Vc) diff --git a/3769/CH13/EX13.35/Ex13_35.sce b/3769/CH13/EX13.35/Ex13_35.sce new file mode 100644 index 000000000..5bf94aefe --- /dev/null +++ b/3769/CH13/EX13.35/Ex13_35.sce @@ -0,0 +1,17 @@ +clear +//Given +f=50 //Hz +L=0.5 +Ev=100 //v +R=4 //ohm + +//Calculation +// +C=1/(4*%pi**2*f**2*L) +Ir=Ev/R +Vr=Ir*2*%pi*f*L +Vc=Ir/(2*%pi*f*C) + +//Result +printf("\n (i) The capacitance is %0.2f micro F",C*10**6) +printf("\n (ii) The voltage across inductance and capacitance is %0.0f V",Vc) diff --git a/3769/CH13/EX13.36/Ex13_36.sce b/3769/CH13/EX13.36/Ex13_36.sce new file mode 100644 index 000000000..13f566a52 --- /dev/null +++ b/3769/CH13/EX13.36/Ex13_36.sce @@ -0,0 +1,17 @@ +clear +//Given +f=50 //Hz +L=0.318 //H +Iv=2.3 +R=100 //ohm + +//Calculation +// +C=1/((2*%pi*f)**2*L) +Vl=Iv*2*%pi*f*C*10**4 +P=Iv**2*R + +//Result +printf("\n (i) The value of capacitor is %0.1f micro F",C*10**6) +printf("\n (ii) Voltage across the inductor is %0.0f V",Vl) +printf("\n (iii)Total power consumed is %0.3f W",P) diff --git a/3769/CH13/EX13.37/Ex13_37.sce b/3769/CH13/EX13.37/Ex13_37.sce new file mode 100644 index 000000000..0e64727cd --- /dev/null +++ b/3769/CH13/EX13.37/Ex13_37.sce @@ -0,0 +1,23 @@ +clear +//Given +E0=283 //V +f=50 //Hz +R=3.0 //ohm +L=25.48*10**-3 //h +C=796*10**-6 //F +Xl=8 + +//Calculation +// +Xc=1/(2*%pi*f*C) +Z=sqrt(R**2+(Xl-Xc)**2) +a=atan(Xc/R)*180/3.14 +Iv=(E0/sqrt(2))/Z +P=Iv**2*R +a1=cos(a*180/3.14) + +//Result +printf("\n (a) The inpedence of the circuit is %0.0f ohm",Z) +printf("\n (b) The phase difference is %0.1f degree",a) +printf("\n (c) The power dissipated is %0.0f W",P) +printf("\n (d) Power factor is %0.1f lag",a1) diff --git a/3769/CH13/EX13.38/Ex13_38.sce b/3769/CH13/EX13.38/Ex13_38.sce new file mode 100644 index 000000000..83675d2b2 --- /dev/null +++ b/3769/CH13/EX13.38/Ex13_38.sce @@ -0,0 +1,18 @@ +clear +//Given +L=25.48*10**-3 //H +C=796*10**-6 +R=3.0 //ohm +E0=283 + +//Calculation +// +fr=1/(2.0*%pi*sqrt(L*C)) +Iv=(E0/sqrt(2))/R +P=Iv**2*R + +//Result +printf("\n (a) Frequency of the source is %0.1f Hz",fr) +printf("\n (b) The value of impedence is %0.3f ohm",R) +printf("\n The value of current is %0.1f A",Iv) +printf("\n The power dissipated is %0.0f W",P) diff --git a/3769/CH13/EX13.39/Ex13_39.sce b/3769/CH13/EX13.39/Ex13_39.sce new file mode 100644 index 000000000..694c2c5ac --- /dev/null +++ b/3769/CH13/EX13.39/Ex13_39.sce @@ -0,0 +1,20 @@ +clear +//Given +C=1200*10**-12 //F +E=500 +L=0.075 //H + +//Calculation +// +q0=C*E +I0=q0/(sqrt(L*C)) +f=1/(2*%pi*sqrt(L*C)) +T=1/f +U=q0**2/(2.0*C) + +//Result +printf("\n (i) The initial charge onthe capcitor is %0.3f c",q0) +printf("\n (ii) The maximum current is %0.0f mA",I0*10**3) +printf("\n (iii) The value of frequency is %0.0f *10**3 Hz",f*10**-3) +printf("\n Time period is %0.0f *10**-5 S",T*10**5) +printf("\n (iv) Total energy is %0.3f *10**-4 J",U*10**4) diff --git a/3769/CH13/EX13.4/Ex13_4.sce b/3769/CH13/EX13.4/Ex13_4.sce new file mode 100644 index 000000000..6844acdf3 --- /dev/null +++ b/3769/CH13/EX13.4/Ex13_4.sce @@ -0,0 +1,10 @@ +clear +//Given +A=2 + +//Calculation +// +I=sqrt(A**2) + +//Result +printf("\n r.m.s Value of current is %0.3f A", I) diff --git a/3769/CH13/EX13.40/Ex13_40.sce b/3769/CH13/EX13.40/Ex13_40.sce new file mode 100644 index 000000000..320140b76 --- /dev/null +++ b/3769/CH13/EX13.40/Ex13_40.sce @@ -0,0 +1,12 @@ +clear +//Given +L=8*10**-6 //H +C=0.02*10**-6 //F +c=3*10**8 + +//Calculation +f=1/(2*%pi*sqrt(L*C)) +w=c/f + +//Result +printf("\n Wavelength is %0.2f *10**2 m",w*10**-2) diff --git a/3769/CH13/EX13.5/Ex13_5.sce b/3769/CH13/EX13.5/Ex13_5.sce new file mode 100644 index 000000000..5a4908420 --- /dev/null +++ b/3769/CH13/EX13.5/Ex13_5.sce @@ -0,0 +1,18 @@ +clear +//Given +I0=120 //A +a=360.0 +b=96 +c=120.0 + +//Calculation +// +t=1/a +I=I0*sin(%pi/3.0) +a1=b/c +a2=asin(a1) +t=a2/(c*%pi) + +//Result +printf("\n (i) Instantaneous value after 1/360 second is %0.2f A",I) +printf("\n (ii) Time taken to reach 96 A for the first time is %0.5f S",t) diff --git a/3769/CH13/EX13.7/Ex13_7.sce b/3769/CH13/EX13.7/Ex13_7.sce new file mode 100644 index 000000000..5d70d2e96 --- /dev/null +++ b/3769/CH13/EX13.7/Ex13_7.sce @@ -0,0 +1,13 @@ +clear +//Given +E0=60 +R=20.0 //ohm + +//Calculation +// +Ev=E0/(sqrt(2)) +Iv=Ev/R + +//Result +printf("\n (i) A.C ammeter will %0.2f A",Iv) +printf("\n (ii) Average value of a.c over one cycle is zero") diff --git a/3769/CH13/EX13.8/Ex13_8.sce b/3769/CH13/EX13.8/Ex13_8.sce new file mode 100644 index 000000000..098d48707 --- /dev/null +++ b/3769/CH13/EX13.8/Ex13_8.sce @@ -0,0 +1,12 @@ +clear +//Given +E0=250 //V +I0=10 //A + +//Calculation +P=E0*I0 +P1=P/2.0 + +//Result +printf("\n (i) Peak power is %0.3f W", P) +printf("\n (ii) Average power is %0.3f W",P1) diff --git a/3769/CH13/EX13.9/Ex13_9.sce b/3769/CH13/EX13.9/Ex13_9.sce new file mode 100644 index 000000000..a6b814803 --- /dev/null +++ b/3769/CH13/EX13.9/Ex13_9.sce @@ -0,0 +1,14 @@ +clear +//Given +Ev=120.0 +P=1000 //W +Ev1=240 + +//Calculation +Iv=P/Ev +I0=sqrt(2)*Iv +R=Ev/Iv +P=Ev1**2/R + +//Result +printf("\n Resistance is %0.3f ohm \nPeak current is %0.3f W",R,P) |