diff options
Diffstat (limited to '1733')
172 files changed, 2349 insertions, 0 deletions
diff --git a/1733/CH1/EX1.1/1_1.sce b/1733/CH1/EX1.1/1_1.sce new file mode 100755 index 000000000..3894da82b --- /dev/null +++ b/1733/CH1/EX1.1/1_1.sce @@ -0,0 +1,7 @@ +//1.1
+clc;
+Ic=8*10^-3;
+//let dv/dt =A
+A=190*10^6;
+C=Ic/A*10^12;
+printf("Equivalent capacitance of depletion layer = %.1f uF", C)
\ No newline at end of file diff --git a/1733/CH1/EX1.10/1_10.sce b/1733/CH1/EX1.10/1_10.sce new file mode 100755 index 000000000..5b54ceebd --- /dev/null +++ b/1733/CH1/EX1.10/1_10.sce @@ -0,0 +1,18 @@ +//1.10
+clc;
+disp('If the thyristor is fired at 60 degree')
+Irms=(0.8405*((%pi-%pi*60/180)-sin(2*%pi)/2+sin(2*%pi*60/180)/2))^0.5;
+R=100;
+P=Irms^2*R;
+printf("Power supplied to load=%.0f W",P)
+disp('If the thyristor is fired at 45 degree')
+Irms=(0.8405*((%pi-%pi*45/180)-sin(2*%pi)/2+sin(2*%pi*45/180)/2))^0.5;
+R=100;
+P=Irms^2*R;
+printf("Power supplied to load=%.1f W",P)
+disp('If the thyristor is fired at 60 degree')
+Iavg=3.25/(2*%pi)*(-cos(%pi)+cos(%pi*60/180))
+printf("Average Current=%.3f A",Iavg)
+disp('If the thyristor is fired at 45 degree')
+Iavg=3.25/(2*%pi)*(-cos(%pi)+cos(%pi*45/180))
+printf("Average Current=%.3f A",Iavg)
\ No newline at end of file diff --git a/1733/CH1/EX1.11/1_11.sce b/1733/CH1/EX1.11/1_11.sce new file mode 100755 index 000000000..ecc6c1004 --- /dev/null +++ b/1733/CH1/EX1.11/1_11.sce @@ -0,0 +1,13 @@ +//1.11
+clc;
+//when conduction period is 2*pi
+amplitude=200;
+pd=1.8;
+power_loss_average= amplitude*pd*2*%pi/(2*%pi);
+printf("power loss average when conduction period is 2*pi= %.0f W",power_loss_average)
+
+//when conduction period is pi
+amplitude=400;
+pd=1.9;
+power_loss_average= amplitude*pd*%pi/(2*%pi);
+printf("\npower loss average when conduction period is pi= %.0f W",power_loss_average)
diff --git a/1733/CH1/EX1.12/1_12.sce b/1733/CH1/EX1.12/1_12.sce new file mode 100755 index 000000000..e27055f4a --- /dev/null +++ b/1733/CH1/EX1.12/1_12.sce @@ -0,0 +1,10 @@ +//1.12
+clc;
+P_loss_peak=6;
+Ig=0.763;
+Vg=1+9*Ig;
+Rg=(11-9*Ig)/Ig;
+printf("\nResistance to be connected in series=%.3f ohm", Rg)
+duty=0.3;
+P_loss_average=P_loss_peak*duty;
+printf("\nAverage power loss =%.1f W", P_loss_average)
\ No newline at end of file diff --git a/1733/CH1/EX1.13/1_13.sce b/1733/CH1/EX1.13/1_13.sce new file mode 100755 index 000000000..36d6305b3 --- /dev/null +++ b/1733/CH1/EX1.13/1_13.sce @@ -0,0 +1,13 @@ +//1.13
+clc;
+disp('when current is constant 20A')
+It=20;
+Vt=0.9+0.02*It;
+P_dissipation=Vt*It;
+printf("Power dissipation=%.0f W",P_dissipation)
+disp('when current is constant 20A for one half cycle in each full cycle')
+P_dissipation=Vt*It/2;
+printf("Power dissipation=%.0f W",P_dissipation)
+disp('when current is constant 20A for one third cycle in each full cycle')
+P_dissipation=Vt*It/3;
+printf("Power dissipation=%.2f W",P_dissipation)
\ No newline at end of file diff --git a/1733/CH1/EX1.14/1_14.sce b/1733/CH1/EX1.14/1_14.sce new file mode 100755 index 000000000..6f19f89d0 --- /dev/null +++ b/1733/CH1/EX1.14/1_14.sce @@ -0,0 +1,10 @@ +//1.14
+clc;
+Isub=2000;
+T=10*10^-3;
+t=5*10^-3;
+I=(Isub^2*t/T)^0.5;
+printf("one cycle surge current rating=%.1f A", I)
+//a=I^2t
+a=I^2*T;
+printf("\nI^2t=%.1f A^2Sec", a)
\ No newline at end of file diff --git a/1733/CH1/EX1.15/1_15.sce b/1733/CH1/EX1.15/1_15.sce new file mode 100755 index 000000000..e6aef6d74 --- /dev/null +++ b/1733/CH1/EX1.15/1_15.sce @@ -0,0 +1,12 @@ +//1.15
+clc;
+P=0.3;
+Vs=12;
+disp('Since load line has a slope of -100V/A, the source resistance for the gate is 100 ohm')
+Rs=100;
+// since Vs=Vg+Ig*Rs
+// on solving Ig=35.5 mA
+Ig=35.5*10^-3;
+printf("\nGate current=%.4f A",Ig)
+Vg=P/Ig;
+printf("\nGate voltage=%.2f V",Vg)
\ No newline at end of file diff --git a/1733/CH1/EX1.16/1_16.sce b/1733/CH1/EX1.16/1_16.sce new file mode 100755 index 000000000..73f054c8a --- /dev/null +++ b/1733/CH1/EX1.16/1_16.sce @@ -0,0 +1,12 @@ +//1.16
+clc;
+l=0.2;
+w=0.01;
+d=0.01;
+the_cond=220;
+the_res=l/(the_cond*w*d);
+printf("Thermal resistance = %.3f degree C/W", the_res)
+T1=30;
+P=3;
+T2=P*the_res+T1;
+printf("\nTemperature of the surface = %.2f degree C", T2)
diff --git a/1733/CH1/EX1.17/1_17.sce b/1733/CH1/EX1.17/1_17.sce new file mode 100755 index 000000000..668a9d19d --- /dev/null +++ b/1733/CH1/EX1.17/1_17.sce @@ -0,0 +1,9 @@ +//1.17
+clc;
+l=2*10^-3;
+A=12*10^-4;
+the_cond=220;
+the_res=l/(the_cond*A);
+T=4; //T=T2-T1
+P=T/the_res;
+printf("Maximum loss which can be handled by module= %.2f W", P)
\ No newline at end of file diff --git a/1733/CH1/EX1.18/1_18.sce b/1733/CH1/EX1.18/1_18.sce new file mode 100755 index 000000000..76d6957d2 --- /dev/null +++ b/1733/CH1/EX1.18/1_18.sce @@ -0,0 +1,9 @@ +//1.18
+clc;
+T2=125;
+T1=50;
+T=T2-T1;
+P=30;
+Total_the_res=T/P;
+the_res=Total_the_res-1-0.3;
+printf("Thermal resistance of heat sink= %.1f degree C/W", the_res)
\ No newline at end of file diff --git a/1733/CH1/EX1.19/1_19.sce b/1733/CH1/EX1.19/1_19.sce new file mode 100755 index 000000000..77a294e0a --- /dev/null +++ b/1733/CH1/EX1.19/1_19.sce @@ -0,0 +1,21 @@ +//1.19
+clc;
+T=1/50;
+V=32;
+Vp=0.63*V+0.5;
+C=0.4*10^-6;
+Ip=10*10^-6;
+Rmax=(V-Vp)/Ip;
+printf("Rmax=%.0f ohm", Rmax)
+Vv=3.5;
+Iv=10*10^-3;
+Rmin=(V-Vv)/Iv;
+printf("\nRmin=%.0f ohm", Rmin)
+R=T/(C*log(1/(1-0.63)));
+printf("\nR=%.0f ohm", R)
+disp('since the value of R is between Rmin and Rmax so the value is suitable')
+R4=50*10^-6/C;
+printf("\nR4=%.0f ohm", R4)
+R3=10^4/(0.63*V);
+printf("\nR3=%.0f ohm", R3)
+
diff --git a/1733/CH1/EX1.2/1_2.sce b/1733/CH1/EX1.2/1_2.sce new file mode 100755 index 000000000..5c8f8384a --- /dev/null +++ b/1733/CH1/EX1.2/1_2.sce @@ -0,0 +1,17 @@ +//1.2
+clc;
+disp('When thyristor is not conducting there is no current through it')
+disp('so Vo=20V')
+VG=0.75;
+IG=7*10^-3;
+RG=2000;
+Vs=VG+IG*RG;
+printf("Voltage required to Turn On The thyristor = %.2f V", Vs)
+R= 200;
+VR=5*10^-3*R;
+printf("/nVoltage drop across R = %.0f V", VR)
+disp('Hence Vcc should be reduced to less than 1V')
+Vconduct=0.7;
+Vreq=VR+Vconduct;
+printf("Voltage required = %.1f V", Vreq)
+disp('Hence Vcc should be reduced to less than 1.7V')
diff --git a/1733/CH1/EX1.20/1_20.sce b/1733/CH1/EX1.20/1_20.sce new file mode 100755 index 000000000..526b00b2d --- /dev/null +++ b/1733/CH1/EX1.20/1_20.sce @@ -0,0 +1,14 @@ +//1.20
+clc;
+T=.5*10^-3;
+V=10;
+Vp=0.6*V+0.5;
+Ip=5*10^-3;
+Rmax=(V-Vp)/Ip;
+printf("Rmax=%.0f ohm", Rmax)
+C=1*10^-6;
+R=T/(C*log(1/(1-0.6)));
+printf("\nR=%.1f ohm", R)
+disp('since the value of R is less than Rmax so the value is suitable')
+
+
diff --git a/1733/CH1/EX1.21/1_21.sce b/1733/CH1/EX1.21/1_21.sce new file mode 100755 index 000000000..a63ec7633 --- /dev/null +++ b/1733/CH1/EX1.21/1_21.sce @@ -0,0 +1,7 @@ +//1.21
+clc;
+R=0.8;
+L=10*10^-6;
+C=50*10^-6;
+t0=10^6*%pi/((1/(L*C))-(R^2/(4*L^2)))^0.5;
+printf("Time of conduction of thyristor= %.2f us", t0)
\ No newline at end of file diff --git a/1733/CH1/EX1.22/1_22.sce b/1733/CH1/EX1.22/1_22.sce new file mode 100755 index 000000000..47d1ef452 --- /dev/null +++ b/1733/CH1/EX1.22/1_22.sce @@ -0,0 +1,13 @@ +//1.22
+clc;
+Ip=16;
+V=90;
+// C/L=(Ip/V)^2; (i)
+// Assume that circuit is reverse biased for one-fourth period of resonant circuit. thus
+//%pi/2*(L*C)^0.5=40*10^-6; (ii)
+// on solving (i) and (ii)
+C=4.527*10^-6;
+L=C/(Ip/V)^2*10^6;
+C=4.527*10^-6*10^6;
+printf("C=%.3f uF",C)
+printf("\nL=%.2f uH",L)
\ No newline at end of file diff --git a/1733/CH1/EX1.23/1_23.sce b/1733/CH1/EX1.23/1_23.sce new file mode 100755 index 000000000..555525c12 --- /dev/null +++ b/1733/CH1/EX1.23/1_23.sce @@ -0,0 +1,7 @@ +//1.23
+clc;
+t_off=50*10^-6;
+R1=10;
+a=log(2);
+C=t_off/(a*R1)*10^6;
+printf("The value of C= %.2f uF",C)
\ No newline at end of file diff --git a/1733/CH1/EX1.24/1_24.sce b/1733/CH1/EX1.24/1_24.sce new file mode 100755 index 000000000..79dc3a850 --- /dev/null +++ b/1733/CH1/EX1.24/1_24.sce @@ -0,0 +1,15 @@ +//1.24
+clc;
+Vc=100;
+IL=40;
+t_off=40*10^-6*1.5;
+C=IL*t_off/Vc;
+printf("The value of capacitor= %.6f F",C)
+//L>(VC^2*C/IL^2);
+//IC_peak=Vc*(C/L)^0.5;
+//IC_peak should be less than maximum load current so if L=2*10^-4
+L=2*10^-4;
+IC_peak=Vc*(C/L)^0.5;
+printf("\nPeak capacitor current= %.2f A",IC_peak)
+disp('Since the peak capacitor current less than maximum load current 40 A so L=2*10^-4 and C=24uF')
+
diff --git a/1733/CH1/EX1.25/1_25.sce b/1733/CH1/EX1.25/1_25.sce new file mode 100755 index 000000000..ab27e8330 --- /dev/null +++ b/1733/CH1/EX1.25/1_25.sce @@ -0,0 +1,12 @@ +//1.25
+clc;
+L=0.1*10^-3;
+Vc=100;
+C=10*10^-6;
+IL=10;
+t_off=Vc*C/IL*10^6;
+printf("Commutation time= %.0f us",t_off)
+disp('The commutation time of the thyristor is more than the turn off time of the main thyristor i.e. 25us and is thus sufficient to commutate the main thyristor')
+IC_peak= Vc*(C/L)^0.5;
+printf("Peak capacitor current= %.2f A",IC_peak)
+disp('The maximum current rating of the thyristor should be more than 31.62A')
diff --git a/1733/CH1/EX1.26/1_26.sce b/1733/CH1/EX1.26/1_26.sce new file mode 100755 index 000000000..39346b159 --- /dev/null +++ b/1733/CH1/EX1.26/1_26.sce @@ -0,0 +1,11 @@ +//1.26
+clc;
+Vm=230*2^0.5;
+L=0.2*10^-3;
+//a=dv/dt
+a=25*10^6;
+sig=0.65;
+C=(1/(2*L))*(0.564*Vm/a)^2*10^9;
+R=2*sig*(L/(C*10^-9))^0.5;
+printf("The value of capacitor= %.2f nF",C)
+printf("\nThe value of Resistor= %.1f Ohm",R)
diff --git a/1733/CH1/EX1.27/1_27.sce b/1733/CH1/EX1.27/1_27.sce new file mode 100755 index 000000000..7dbb1c1e9 --- /dev/null +++ b/1733/CH1/EX1.27/1_27.sce @@ -0,0 +1,13 @@ +//1.27
+clc;
+f=2000;
+V=300;
+RL=10;
+//a=dv/dt
+a=100*10^6;
+R=300/100;
+C=(0.632*V*RL)/(a*(R+RL)^2)*10^6;
+printf("The value of capacitor= %.3f uF",C)
+Power_Loss_snubber=0.5*C*10^-6*V^2*f;
+printf("\nSnubber Power Loss= %.2f W",Power_Loss_snubber)
+disp('All the energy stored in the capacitance C is dissipated in resistance R. Hence power Rating of R is 10.1W')
\ No newline at end of file diff --git a/1733/CH1/EX1.28/1_28.sce b/1733/CH1/EX1.28/1_28.sce new file mode 100755 index 000000000..77b3f8dd2 --- /dev/null +++ b/1733/CH1/EX1.28/1_28.sce @@ -0,0 +1,12 @@ +//1.28
+clc;
+C=6*10^-6;
+R=4;
+V=300;
+L=6*10^-6;
+b_max=V/L*10^-6; // b=di/dt
+printf("The maximum permissible value of di/dt = %.0f MA/s",b_max)
+Isc=V/R;
+//a=dv/dt
+a=((R*b_max*10^6)+(Isc/C))*10^-6;
+printf("\nThe maximum permissible value of dv/dt = %.1f MV/s",a)
\ No newline at end of file diff --git a/1733/CH1/EX1.29/1_29.sce b/1733/CH1/EX1.29/1_29.sce new file mode 100755 index 000000000..5693a0a88 --- /dev/null +++ b/1733/CH1/EX1.29/1_29.sce @@ -0,0 +1,14 @@ +//1.29
+clc;
+Im=750;
+De=0.25;
+It=175;
+np=(Im/It)/(1-De);
+printf("np = %.2f ",np)
+disp('so the no. of thyristors in parallel are 6')
+Vs=3000;
+De=0.25;
+Vd=800;
+ns=(Vs/Vd)/(1-De);
+printf("ns = %.2f ",ns)
+disp('so the no. of thyristors in series are 5')
\ No newline at end of file diff --git a/1733/CH1/EX1.3/1_3.sce b/1733/CH1/EX1.3/1_3.sce new file mode 100755 index 000000000..aaf8e8919 --- /dev/null +++ b/1733/CH1/EX1.3/1_3.sce @@ -0,0 +1,10 @@ +//1.3
+clc;
+P_loss_avg=0.6;
+P_loss_conduction=0.6*2*%pi/%pi;
+Ig=0.314;
+printf("Ig=%.3f A", Ig)
+Vg=1+9*Ig;
+printf("\nVg=%.3f V", Vg)
+Rg=(24-9*Ig)/Ig;
+printf("\nResistance to be connected in series=%.2f ohm", Rg)
\ No newline at end of file diff --git a/1733/CH1/EX1.30/1_30.sce b/1733/CH1/EX1.30/1_30.sce new file mode 100755 index 000000000..8c2b5340b --- /dev/null +++ b/1733/CH1/EX1.30/1_30.sce @@ -0,0 +1,11 @@ +//1.30
+clc;
+ns=5;
+Vd=800;
+Vs=3000;
+Ib=8*10^-3;
+dQ=30*10^-6;
+R=(ns*Vd-Vs)/((ns-1)*Ib)
+C=((ns-1)*dQ)/(ns*Vd-Vs)*10^6;
+printf("The value of resistance = %.2f ohm ",R)
+printf("\nThe value of capacitance = %.2f uF ",C)
\ No newline at end of file diff --git a/1733/CH1/EX1.31/1_31.sce b/1733/CH1/EX1.31/1_31.sce new file mode 100755 index 000000000..ed49fd7c5 --- /dev/null +++ b/1733/CH1/EX1.31/1_31.sce @@ -0,0 +1,4 @@ +//1.31
+clc;
+R=(1.5-1.2)/100;
+printf(" The value of resistance to be connected in series= %.3f ohm",R)
\ No newline at end of file diff --git a/1733/CH1/EX1.32/1_32.sce b/1733/CH1/EX1.32/1_32.sce new file mode 100755 index 000000000..ab43377fc --- /dev/null +++ b/1733/CH1/EX1.32/1_32.sce @@ -0,0 +1,17 @@ +//1.32
+clc;
+ns=12;
+Vd=800;
+V=16000;
+Ib=10*10^-3;
+dQ=150*10^-6;
+C=0.5*10^-6;
+R=56*10^3;
+Vd=(V+(ns-1)*R*Ib)/ns;
+printf("maximum steady state voltage rating of each thyristor = %.2f V",Vd)
+De=1-(V/(ns*Vd));
+printf("\nSteady state voltage derating = %.3f ",De)
+Vd=(V+(ns-1)*(dQ/C))/ns;
+printf("\nmaximum transient state voltage rating of each thyristor = %.2f V",Vd)
+De=1-(V/(ns*Vd));
+printf("\ntransient state voltage derating = %.3f ",De)
\ No newline at end of file diff --git a/1733/CH1/EX1.33/1_33.sce b/1733/CH1/EX1.33/1_33.sce new file mode 100755 index 000000000..4087a6512 --- /dev/null +++ b/1733/CH1/EX1.33/1_33.sce @@ -0,0 +1,14 @@ +//1.33
+clc;
+Im=1000;
+De=0.14;
+It=75;
+np=(Im/It)/(1-De);
+printf("np = %.2f ",np)
+disp('so the no. of thyristors in parallel are 16')
+Vs=7500;
+De=0.14;
+Vd=500;
+ns=(Vs/Vd)/(1-De);
+printf("ns = %.2f ",ns)
+disp('so the no. of thyristors in series are 18')
\ No newline at end of file diff --git a/1733/CH1/EX1.34/1_34.sce b/1733/CH1/EX1.34/1_34.sce new file mode 100755 index 000000000..e4aa1ba0b --- /dev/null +++ b/1733/CH1/EX1.34/1_34.sce @@ -0,0 +1,9 @@ +//1.34
+clc;
+trr=2.5*10^-6;
+//b=di/dt
+b=35*10^6;
+Qrr=0.5*trr^2*b*10^6;
+printf(" Stored charge= %.3f uC",Qrr)
+Irr=(2*Qrr*10^-6*b)^0.5;
+printf(" Peak reverse current= %.1f A",Irr)
\ No newline at end of file diff --git a/1733/CH1/EX1.4/1_4.sce b/1733/CH1/EX1.4/1_4.sce new file mode 100755 index 000000000..07f70ddc8 --- /dev/null +++ b/1733/CH1/EX1.4/1_4.sce @@ -0,0 +1,8 @@ +//1.4
+clc;
+V=100;
+L=10;
+i=80*10^-3;
+t=i*L/V*10^3;
+printf("t= %.0f ms", t)
+disp('So the width of the pulse should be more than 8 ms')
\ No newline at end of file diff --git a/1733/CH1/EX1.5/1_5.sce b/1733/CH1/EX1.5/1_5.sce new file mode 100755 index 000000000..d05258d38 --- /dev/null +++ b/1733/CH1/EX1.5/1_5.sce @@ -0,0 +1,8 @@ +//1.5
+clc;
+V=100;
+R=10;
+i=50*10^-3;
+t=-0.5*log(1-((i*R/V)))*10^3
+printf("t= %.1f ms", t)
+disp('So the minimum width of the gate pulse is 2.5 ms')
\ No newline at end of file diff --git a/1733/CH1/EX1.6/1_6.sce b/1733/CH1/EX1.6/1_6.sce new file mode 100755 index 000000000..f361bf09d --- /dev/null +++ b/1733/CH1/EX1.6/1_6.sce @@ -0,0 +1,13 @@ +//1.6
+clc;
+V=90;
+R=25;
+t=40*10^-6;
+L=0.5;
+i=(V/R)*(1-exp(-R*t/L))
+iL=40*10^-3;
+printf("The circuit current is= %.4f A", i)
+disp('Since the circuit current is less than latching current of 40mA so thyristor will not turn ON')
+R=V/(iL-i);
+printf("R= %.0f Ohm", R)
+disp('R should be less than 2743 ohm')
\ No newline at end of file diff --git a/1733/CH1/EX1.7/1_7.sce b/1733/CH1/EX1.7/1_7.sce new file mode 100755 index 000000000..b1742830d --- /dev/null +++ b/1733/CH1/EX1.7/1_7.sce @@ -0,0 +1,12 @@ +//1.7
+clc;
+V=100;
+R=20;
+t=50*10^-6;
+L=0.5;
+i=(V/R)*(1-exp(-R*t/L))
+iH=50*10^-3;
+printf("The circuit current is= %.5f A", i)
+disp('Since the circuit current is less than holding current of 50mA so thyristor will turn OFF')
+R=V/(iH-i);
+printf("Maximum value of R= %.3f Ohm", R)
diff --git a/1733/CH1/EX1.8/1_8.sce b/1733/CH1/EX1.8/1_8.sce new file mode 100755 index 000000000..42a320659 --- /dev/null +++ b/1733/CH1/EX1.8/1_8.sce @@ -0,0 +1,3 @@ +//1.8
+clc;
+disp('A negative gate current cannot turn off a thyristor. This is due to the reason that cathode region is much bigger in area than gate region')
\ No newline at end of file diff --git a/1733/CH1/EX1.9/1_9.sce b/1733/CH1/EX1.9/1_9.sce new file mode 100755 index 000000000..b5476cbb7 --- /dev/null +++ b/1733/CH1/EX1.9/1_9.sce @@ -0,0 +1,10 @@ +//1.9
+clc;
+I=120;
+gama=180;
+th=360;
+I_rms=I*(gama/th)^0.5;
+printf("The RMS value of current= %.2f A",I_rms)
+I_avg=I*(gama/th);
+Form_factor=I_rms/I_avg;
+printf("\nForm factor= %.3f A",Form_factor)
\ No newline at end of file diff --git a/1733/CH2/EX2.10/2_10.sce b/1733/CH2/EX2.10/2_10.sce new file mode 100755 index 000000000..624136d11 --- /dev/null +++ b/1733/CH2/EX2.10/2_10.sce @@ -0,0 +1,15 @@ +//2.10
+clc;
+Vdc=100;
+Vm=(Vdc+1.7)*%pi/(2*cosd(30));
+Vrms_sec=Vm/2^0.5;
+Vrms_pri=230;
+Turn_ratio=Vrms_pri/Vrms_sec;
+printf("\nTurn Ratio = %.2f ", Turn_ratio)
+Ip=15;
+Irms_sec=(Ip^2/2)^0.5;
+Trans_rating=2*Vrms_sec*Irms_sec;
+printf("\nTransformer rating = %.2f VA", Trans_rating)
+PIV=2*Vm;
+printf("\nPIV = %.2f V", PIV)
+printf("\nRMS value of thyristor current = %.2f A", Irms_sec)
diff --git a/1733/CH2/EX2.11/2_11.sce b/1733/CH2/EX2.11/2_11.sce new file mode 100755 index 000000000..b865b5850 --- /dev/null +++ b/1733/CH2/EX2.11/2_11.sce @@ -0,0 +1,11 @@ +//2.11
+clc;
+Idc=50;
+Vdc=10*1000/Idc;
+Vm=200*%pi/2;
+PIV_central_tap=2*Vm;
+V_rating_central_tap =2*PIV_central_tap;
+printf("The rated voltage of full wave central tap transformer rectifier = %.2f V", V_rating_central_tap )
+PIV_bridge=Vm;
+V_rating_bridge=2*PIV_bridge;
+printf("\nThe rated voltage of full wave bridge rectifier = %.2f V", V_rating_bridge )
\ No newline at end of file diff --git a/1733/CH2/EX2.12/2_12.sce b/1733/CH2/EX2.12/2_12.sce new file mode 100755 index 000000000..c8189a1c7 --- /dev/null +++ b/1733/CH2/EX2.12/2_12.sce @@ -0,0 +1,10 @@ +//2.12
+clc;
+Vm=230*2^0.5;
+Vrms=(800/1000*230^2)^0.5;
+printf("Output Voltage = %.2f V", Vrms )
+//Vrms=Vm*((%pi-alph)/(2*%pi)+sind(2*alph)/(4*%pi))^0.5 on solving
+alph=61;
+printf("\nFiring angle = %.0f degree", alph )
+I=800/Vrms;
+printf("\nLoad current = %.2f A", I )
\ No newline at end of file diff --git a/1733/CH2/EX2.13/2_13.sce b/1733/CH2/EX2.13/2_13.sce new file mode 100755 index 000000000..b3f31ac4d --- /dev/null +++ b/1733/CH2/EX2.13/2_13.sce @@ -0,0 +1,16 @@ +//2.13
+clc;
+disp('For Mid point converter')
+Vm=800/(2*2.5);
+alph=0;
+Vo=Vm/(%pi)*(1+cosd(alph));
+Idc=30/2.5;
+Pdc=Idc*Vo;
+printf("Average output power = %.2f W", Pdc )
+disp('For bridge converter')
+Vm=800/(2.5);
+alph=0;
+Vo=Vm/(%pi)*(1+cosd(alph));
+Idc=30/2.5;
+Pdc=Idc*Vo;
+printf("Average output power = %.2f W", Pdc )
\ No newline at end of file diff --git a/1733/CH2/EX2.14/2_14.sce b/1733/CH2/EX2.14/2_14.sce new file mode 100755 index 000000000..efc57476d --- /dev/null +++ b/1733/CH2/EX2.14/2_14.sce @@ -0,0 +1,9 @@ +//2.14
+clc;
+Vm=230*2^0.5;
+alph=30;
+Vo=Vm/(2*%pi)*(3+cosd(alph));
+Idc=Vo/10;
+printf("dc output voltage = %.1f V", Vo )
+Pdc=Idc*Vo;
+printf("\ndc power = %.2f W", Pdc )
diff --git a/1733/CH2/EX2.15/2_15.sce b/1733/CH2/EX2.15/2_15.sce new file mode 100755 index 000000000..b281ac419 --- /dev/null +++ b/1733/CH2/EX2.15/2_15.sce @@ -0,0 +1,8 @@ +//2.15
+clc;
+Vm=230*2^0.5;
+Vo=2*Vm/%pi;
+Idc=Vo/10;
+printf("dc output voltage = %.2f V", Vo )
+Pdc=Idc*Vo;
+printf("\ndc power = %.2f W", Pdc )
diff --git a/1733/CH2/EX2.16/2_16.sce b/1733/CH2/EX2.16/2_16.sce new file mode 100755 index 000000000..28f7ec8f4 --- /dev/null +++ b/1733/CH2/EX2.16/2_16.sce @@ -0,0 +1,17 @@ +//
+clc;
+disp('If E=100 V')
+Vm=230*2^0.5;
+E=100;
+R=0.5;
+Io=15;
+alph=acosd((E+15*0.5)*%pi/(2*Vm));
+printf("Firing Angle = %.2f degree", alph)
+pf=(100*15+15^2*0.5)/(230*15);
+printf("\nPower factor = %.3f lagging", pf)
+disp('If E=-100 V')
+E=-100;
+alph=acosd((E+15*0.5)*%pi/(2*Vm));
+printf("\nFiring Angle when E is -100 = %.2f W", alph)
+pf=(100*15-15^2*0.5)/(230*15);
+printf("\nPower factor = %.3f lagging", pf)
\ No newline at end of file diff --git a/1733/CH2/EX2.17/2_17.sce b/1733/CH2/EX2.17/2_17.sce new file mode 100755 index 000000000..f00a696fa --- /dev/null +++ b/1733/CH2/EX2.17/2_17.sce @@ -0,0 +1,6 @@ +//2.17
+clc;
+Vm=230*2^0.5;
+alph=40;
+Io=((2*Vm/%pi*cosd(alph))-50)/5;
+printf("Average value of load current = %.2f A", Io)
\ No newline at end of file diff --git a/1733/CH2/EX2.18/2_18.sce b/1733/CH2/EX2.18/2_18.sce new file mode 100755 index 000000000..fcb43bd20 --- /dev/null +++ b/1733/CH2/EX2.18/2_18.sce @@ -0,0 +1,15 @@ +//2.18
+clc;
+Vdc=100;
+Vm=(Vdc+2*1.7)*%pi/(2*cosd(30));
+Vrms_sec=Vm/2^0.5;
+Vrms_pri=230;
+Turn_ratio=Vrms_pri/Vrms_sec;
+printf("\nTurn Ratio = %.2f ", Turn_ratio)
+Irms_sec=15/2^0.5;
+Ip=15;
+Trans_rating=Vrms_sec*Ip;
+printf("\nTransformer rating = %.2f VA", Trans_rating)
+PIV=Vm;
+printf("\nPIV = %.2f V", PIV)
+printf("\nRMS value of thyristor current = %.2f A", Irms_sec)
diff --git a/1733/CH2/EX2.19/2_19.sce b/1733/CH2/EX2.19/2_19.sce new file mode 100755 index 000000000..7651a7527 --- /dev/null +++ b/1733/CH2/EX2.19/2_19.sce @@ -0,0 +1,9 @@ +//2.19
+clc;
+Vm=230*2^0.5;
+Vdc=Vm/%pi*(1+cosd(90));
+printf("dc value of voltage = %.2f V", Vdc)
+Vrms=230*((1/%pi)*(%pi-(%pi/2)+sin(%pi)/2))^0.5;
+printf("\n RMS value of voltage= %.2f V", Vrms)
+form_factor=Vrms/Vdc;
+printf("\nForm factor = %.2f ", form_factor)
diff --git a/1733/CH2/EX2.20/2_20.sce b/1733/CH2/EX2.20/2_20.sce new file mode 100755 index 000000000..4314cd827 --- /dev/null +++ b/1733/CH2/EX2.20/2_20.sce @@ -0,0 +1,15 @@ +//2.20
+clc;
+Vm=230*2^0.5;
+Vdc=Vm/%pi*(1+cosd(90));
+printf("dc value of voltage = %.2f V", Vdc)
+Vrms=230*((1/%pi)*(%pi-(%pi/2)+sin(%pi)/2))^0.5;
+printf("\n RMS value of voltage= %.2f V", Vrms)
+Is=(1-(%pi/2)/%pi)^0.5;
+Is1=2/%pi*2^0.5*cos(%pi/4);
+HF=((Is/Is1)^2-1)^0.5;
+printf("\n Harmonic factor= %.3f ", HF)
+Displacement_factor=cos(-%pi/4);
+printf("\n Displacement factor= %.4f ", Displacement_factor)
+Power_factor=Is1/Is*cos(-%pi/4);
+printf("\n Power factor= %.4f lagging", Power_factor)
\ No newline at end of file diff --git a/1733/CH2/EX2.21/2_21.sci b/1733/CH2/EX2.21/2_21.sci new file mode 100755 index 000000000..7e0033ffc --- /dev/null +++ b/1733/CH2/EX2.21/2_21.sci @@ -0,0 +1,15 @@ +//2.21
+clc;
+Vm=230*2^0.5;
+Vdc=2*Vm/%pi*cosd(60);
+printf("dc value of voltage = %.2f V", Vdc)
+Vrms=230;
+printf("\n RMS value of voltage= %.2f V", Vrms)
+Is1=2*2^0.5/%pi;
+Is=1;
+HF=((Is/Is1)^2-1)^0.5;
+printf("\n Harmonic factor= %.3f ", HF)
+Displacement_factor=cos(-%pi/3);
+printf("\n Displacement factor= %.1f ", Displacement_factor)
+Power_factor=Is1/Is*cos(-%pi/3);
+printf("\n Power factor= %.2f lagging", Power_factor)
\ No newline at end of file diff --git a/1733/CH2/EX2.22/2_22.sce b/1733/CH2/EX2.22/2_22.sce new file mode 100755 index 000000000..a8c16e14b --- /dev/null +++ b/1733/CH2/EX2.22/2_22.sce @@ -0,0 +1,35 @@ +//2.22
+clc;
+Vm=230*2^0.5;
+Vdc=2*Vm/%pi*cosd(30);
+R=Vdc/4;
+printf("dc value of voltage = %.1f V", Vdc)
+IL=4;
+I=2*2^0.5/%pi*IL;
+P_input_active=230*I*cosd(30);
+printf("\n Active input power= %.2f W", P_input_active)
+P_input_reactive=230*I*sind(30);
+printf("\n reactive input power= %.2f Vars", P_input_reactive)
+P_input_appearent=230*I;
+printf("\n Active input power= %.2f VA", P_input_appearent)
+
+disp('When freewheeling diode is present')
+Vm=230*2^0.5;
+Vdc=Vm/%pi*(1+cosd(30));
+printf("dc value of voltage = %.1f V", Vdc)
+IL=Vdc/R;
+I=2*2^0.5/%pi*IL*cosd(15);
+P_input_active=230*I*cosd(15);
+printf("\n Active input power= %.2f W", P_input_active)
+P_input_reactive=230*I*sind(15);
+printf("\n reactive input power= %.2f Vars", P_input_reactive)
+P_input_appearent=230*I;
+printf("\n Active input power= %.2f VA", P_input_appearent)
+disp('When Th3 get open circuit')
+Vdc=230/(2^0.5*%pi)*(1+cosd(30));
+printf("dc value of voltage = %.3f V", Vdc)
+Idc=Vdc/R;
+printf("\nAverage dc output current = %.2f A", Idc)
+
+
+
diff --git a/1733/CH2/EX2.23/2_23.sce b/1733/CH2/EX2.23/2_23.sce new file mode 100755 index 000000000..4e23be7bf --- /dev/null +++ b/1733/CH2/EX2.23/2_23.sce @@ -0,0 +1,21 @@ +//2.23
+clc;
+Vm=230*2^0.5;
+Vdc=2*Vm/%pi*cosd(30);
+printf("dc value of voltage = %.1f V", Vdc)
+Irms=10;
+I=10;
+printf("\n RMS value of current= %.0f A", Irms)
+Is1=2*2^0.5/%pi*I;
+printf("\n Fundamental component of input current= %.0f A", Is1)
+Is=10;
+HF=((Is/Is1)^2-1)^0.5;
+printf("\n Harmonic factor= %.3f ", HF)
+Displacement_factor=cosd(-30);
+printf("\n Displacement factor= %.3f ", Displacement_factor)
+Power_factor=Is1/Is*cos(-%pi/6);
+printf("\n Power factor= %.3f lagging", Power_factor)
+Out_rms=230;
+Form_factor=Out_rms/Vdc;
+Ripple_factor=(Form_factor^2-1)^0.5;
+printf("\n Ripple factor= %.3f ", Ripple_factor)
\ No newline at end of file diff --git a/1733/CH2/EX2.24/2_24.sce b/1733/CH2/EX2.24/2_24.sce new file mode 100755 index 000000000..5355060d4 --- /dev/null +++ b/1733/CH2/EX2.24/2_24.sce @@ -0,0 +1,14 @@ +//2.24
+clc;
+Vm=230*2^0.5;
+alph1=60;
+alph2=120;
+w=100*%pi;
+L=50*10^-3;
+wt=2*%pi;
+R=15;
+Ip_circulating=2*Vm/(w*L)*(cos(wt)-cosd(alph1));
+printf("\n Peak circulating current= %.1f A",Ip_circulating)
+Ip_load=Vm/R;
+Ip_converter1=Ip_circulating+Ip_load;
+printf("\n Peak current of converter 1= %.2f A", Ip_converter1)
\ No newline at end of file diff --git a/1733/CH2/EX2.25/2_25.sce b/1733/CH2/EX2.25/2_25.sce new file mode 100755 index 000000000..bdd8795dc --- /dev/null +++ b/1733/CH2/EX2.25/2_25.sce @@ -0,0 +1,14 @@ +//2.25
+clc;
+Vm=230*2^0.5;
+alph1=30;
+alph2=150;
+w=100*%pi;
+wt=2*%pi;
+R=10;
+Ip_circulating=10.2;
+L=2*Vm/(w*Ip_circulating)*(cos(wt)-cosd(alph1));
+printf("\n Inductance of current limiting Reactor= %.4f H",L)
+Ip_load=Vm/R;
+Ip_converter1=Ip_circulating+Ip_load;
+printf("\n Peak current of converter 1= %.2f A", Ip_converter1)
\ No newline at end of file diff --git a/1733/CH2/EX2.26/2_26.sce b/1733/CH2/EX2.26/2_26.sce new file mode 100755 index 000000000..c7097df77 --- /dev/null +++ b/1733/CH2/EX2.26/2_26.sce @@ -0,0 +1,15 @@ +//2.26
+clc;
+Vm=230*2^0.5;
+alph1=45;
+alph2=135;
+w=100*%pi;
+wt=2*%pi;
+R=10;
+Ip_circulating=11.5;
+L=2*Vm/(w*Ip_circulating)*(cos(wt)-cosd(alph1));
+printf("\n Inductance of current limiting Reactor= %.4f H",L)
+Ip_converter1=39.7;
+Ip_load= Ip_converter1-Ip_circulating ;
+R=Vm/Ip_load;
+printf("\n Load resistance= %.3f ohm", R)
\ No newline at end of file diff --git a/1733/CH2/EX2.27/2_27.sce b/1733/CH2/EX2.27/2_27.sce new file mode 100755 index 000000000..8861a389e --- /dev/null +++ b/1733/CH2/EX2.27/2_27.sce @@ -0,0 +1,22 @@ +//2.27
+clc;
+Vm=400*2^0.5/3^0.5;
+Vdc=360;
+alph=acosd(Vdc*%pi/(3*3^0.5*Vm));
+printf("Firing Angle = %.1f degree", alph)
+VL=400;
+IL=200;
+S=3^0.5*VL*IL;
+printf("\nApparent Power = %.0f VA",S)
+P=S*cosd(alph);
+printf("\nActive Power = %.1f W",P)
+Q=(S^2-P^2)^0.5;
+printf("\nReactive Power = %.1f VA",Q)
+disp('When AC line voltage is 440V')
+V=440;
+alph=acosd(Vdc*%pi/(3*2^0.5*V));
+printf("Firing Angle = %.1f degree", alph)
+disp('When AC line voltage is 360V')
+V=360;
+alph=acosd(Vdc*%pi/(3*2^0.5*V));
+printf("Firing Angle = %.1f degree", alph)
diff --git a/1733/CH2/EX2.28/2_28.sce b/1733/CH2/EX2.28/2_28.sce new file mode 100755 index 000000000..704b9f7f3 --- /dev/null +++ b/1733/CH2/EX2.28/2_28.sce @@ -0,0 +1,15 @@ +//2,28
+clc;
+Vm=2^0.5*400/3^0.5;
+Vdc=3*3^0.5*Vm/%pi*cos(%pi/3);
+Idc=150;
+Pdc=Vdc*Idc;
+printf("Output Power = %.1f W", Pdc)
+Iavg_thy=Idc/3;
+printf("\nAverage thyristor current = %.0f A", Iavg_thy)
+Irms_thy=Idc*(2/6)^0.5;
+printf("\nRMS value of thyristor current = %.1f A", Irms_thy)
+Ip_thy=Idc;
+printf("\nPeak current through thyristor = %.0f A", Ip_thy)
+PIV=2^0.5*400;
+printf("\nPeak inverse voltage = %.1f V", PIV)
diff --git a/1733/CH2/EX2.29/2_29.sce b/1733/CH2/EX2.29/2_29.sce new file mode 100755 index 000000000..eb79cc46a --- /dev/null +++ b/1733/CH2/EX2.29/2_29.sce @@ -0,0 +1,6 @@ +//2.29
+clc;
+Vm=400*2^0.5/3^0.5;
+Vrms=(400*100)^0.5;
+alph=acosd(((Vrms/(Vm*3^0.5))^2-0.5)/(3*3^0.5/(4*%pi)))/2;
+printf("Firing angle = %.2f degree", alph)
\ No newline at end of file diff --git a/1733/CH2/EX2.3/2_3.sce b/1733/CH2/EX2.3/2_3.sce new file mode 100755 index 000000000..a735acc43 --- /dev/null +++ b/1733/CH2/EX2.3/2_3.sce @@ -0,0 +1,21 @@ +//2.3
+clc;
+Vp_sec=230*2^0.5/4;
+alph=asind(12/Vp_sec);
+alph1=180-alph;
+//the diode will conduct from 8.89 degree to 171.51degree
+Angle_conduction=alph1-alph;
+printf("Conduction Angle = %.2f degree", Angle_conduction)
+Idc=4;
+R=1/(2*Idc*%pi)*(2*Vp_sec*cosd(alph)+(2*12*alph*%pi/180)-12*%pi);
+printf("\nResistance = %.2f ohm", R)
+Irms=((1/(2*%pi*R^2))*(((Vp_sec^2/2+12^2)*(%pi-2*alph*%pi/180))+(Vp_sec^2/2*sind(2*alph))-(4*Vp_sec*12*cosd(alph))))^0.5;
+P_rating=Irms^2*R;
+printf("\nPower rating of resistor = %.2f W", P_rating)
+Pdc=12*Idc;
+t_charging=150/Pdc;
+printf("\nCharging time = %.3f h", t_charging)
+Rectifier_efficiency= Pdc/(Pdc+Irms^2*R);
+printf("\nRectifier efficiency = %.2f ", Rectifier_efficiency)
+PIV=Vp_sec+12;
+printf("\nPIV = %.3f V",PIV)
\ No newline at end of file diff --git a/1733/CH2/EX2.30/2_30.sce b/1733/CH2/EX2.30/2_30.sce new file mode 100755 index 000000000..00c990727 --- /dev/null +++ b/1733/CH2/EX2.30/2_30.sce @@ -0,0 +1,14 @@ +//2.30
+clc;
+Vm=415*2^0.5/3^0.5;
+Vdc=460;
+Idc=200;
+alph=acosd(Vdc*%pi/(3*3^0.5*Vm));
+printf("Firing Angle = %.2f degree", alph)
+Pdc=Vdc*Idc;
+printf("\ndc Power = %.2f W", Pdc)
+Iac=Idc*(120/180)^0.5;
+printf("\nAC line current = %.2f A", Iac)
+Ip=Idc;
+Irms_thy=Ip*(120/360)^0.5;
+printf(" \nRMS thyristor current = %.1f A", Irms_thy)
diff --git a/1733/CH2/EX2.31/2_31.sce b/1733/CH2/EX2.31/2_31.sce new file mode 100755 index 000000000..0ebeeea5a --- /dev/null +++ b/1733/CH2/EX2.31/2_31.sce @@ -0,0 +1,29 @@ +//2.31
+clc;
+Vm=400*2^0.5/3^0.5;
+alph=0;
+Vdc_max=3*3^0.5*Vm/(2*%pi)*(1+cosd(alph));
+Vdc=0.5*Vdc_max;
+alph=acosd((Vdc/(3*3^0.5*Vm/(2*%pi)))-1)
+printf("Firing Angle = %.2f degree", alph)
+R=10;
+Idc=Vdc/R;
+disp('For discontinious load')
+Vrms=(3^0.5*Vm)*((3/(4*%pi))*(%pi-(%pi/2)+0.5*sin(%pi)))^0.5;
+printf("\nRMS value of voltage = %.2f V", Vrms)
+Irms=Vrms/R;
+printf("\nRMS value of current = %.2f A", Irms)
+I_avg=Idc/3;
+printf("\nAverage value of thyristor current = %.2f A", I_avg)
+I_rms=Irms/3^0.5;
+printf("\nRMS value of thyristor current = %.2f A", I_rms)
+efficiency=Vdc*Idc/(Vrms*Irms);
+printf("\nRectification efficiency = %.3f A", efficiency)
+Irms_line_current=Irms*(120/180)^0.5;
+VA_input=3*400/3^0.5*Irms_line_current;
+TUF=Vdc*Idc/VA_input;
+printf("\nTransformer utilization factor = %.2f ", TUF)
+output_power_active=Irms^2*R;
+input_power_active=output_power_active;
+pf_input=input_power_active/VA_input;
+printf("\ninput power factor = %.2f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH2/EX2.32/2_32.sce b/1733/CH2/EX2.32/2_32.sce new file mode 100755 index 000000000..6a9579473 --- /dev/null +++ b/1733/CH2/EX2.32/2_32.sce @@ -0,0 +1,29 @@ +//2.31
+clc;
+Vm=400*2^0.5/3^0.5;
+alph=0;
+Vdc_max=3*3^0.5*Vm/(%pi)*cosd(alph);
+Vdc=0.5*Vdc_max;
+alph=acosd(0.5);
+printf("Firing Angle = %.2f degree", alph)
+R=10;
+Idc=Vdc/R;
+disp('For discontinious load')
+Vrms=(3^0.5*Vm)*(3*3^0.5/(4*%pi)*cosd(2*alph)+0.5)^0.5;
+printf("\nRMS value of voltage = %.2f V", Vrms)
+Irms=Vrms/R;
+printf("\nRMS value of current = %.2f A", Irms)
+I_avg=Idc/3;
+printf("\nAverage value of thyristor current = %.2f A", I_avg)
+I_rms=Irms/3^0.5;
+printf("\nRMS value of thyristor current = %.2f A", I_rms)
+efficiency=Vdc*Idc/(Vrms*Irms);
+printf("\nRectification efficiency = %.3f A", efficiency)
+Irms_line_current=Irms*(120/180)^0.5;
+VA_input=3*400/3^0.5*Irms_line_current;
+TUF=Vdc*Idc/VA_input;
+printf("\nTransformer utilization factor = %.2f ", TUF)
+output_power_active=Irms^2*R;
+input_power_active=output_power_active;
+pf_input=input_power_active/VA_input;
+printf("\ninput power factor = %.2f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH2/EX2.33/2_33.sce b/1733/CH2/EX2.33/2_33.sce new file mode 100755 index 000000000..870790eb5 --- /dev/null +++ b/1733/CH2/EX2.33/2_33.sce @@ -0,0 +1,21 @@ +//2.33
+clc;
+Vm=326.56;
+f=50;
+Ls=0.2*10^-3;
+Io=200;
+w=2*%pi*f;
+a=3*w*Ls*Io/%pi;
+b=3*3^0.5*Vm/%pi;
+disp('For firing angle 20 degree')
+alph=20;
+Angle_overlap= acosd((b*cosd(alph)-a)/b)-alph;
+printf("Overlap angle= %.1f degree", Angle_overlap)
+disp('For firing angle 30 degree')
+alph=30;
+Angle_overlap= acosd((b*cosd(alph)-a)/b)-alph;
+printf("Overlap angle= %.2f degree", Angle_overlap)
+disp('For firing angle 60 degree')
+alph=60;
+Angle_overlap= acosd((b*cosd(alph)-a)/b)-alph;
+printf("Overlap angle= %.4f degree", Angle_overlap)
\ No newline at end of file diff --git a/1733/CH2/EX2.34/2_34.sci b/1733/CH2/EX2.34/2_34.sci new file mode 100755 index 000000000..44213c93c --- /dev/null +++ b/1733/CH2/EX2.34/2_34.sci @@ -0,0 +1,23 @@ +//2.34
+clc;
+Vm=400*2^0.5/3^0.5;
+f=50;
+w=2*%pi*f;
+L=60*10^-3;
+alph=0;
+disp('Circulating current at wt=0')
+wt=0;
+ir=3*Vm/(w*L)*(sind(wt-30)-sind(alph))
+printf("Circulating current at wt 0 is= %.3f A", ir)
+disp('Circulating current at wt=30')
+wt=30;
+ir=3*Vm/(w*L)*(sind(wt-30)-sind(alph))
+printf("Circulating current at wt 30 is= %.3f A", ir)
+disp('Circulating current at wt=90')
+wt=90;
+ir=3*Vm/(w*L)*(sind(wt-30)-sind(alph))
+printf("Circulating current at wt 90 is= %.3f A", ir)
+disp('Maximum Circulating current will occur at wt=120')
+wt=120;
+ir=3*Vm/(w*L)*(sind(wt-30)-sind(alph))
+printf("Maximum Circulating current is= %.3f A", ir)
\ No newline at end of file diff --git a/1733/CH2/EX2.35/2_35.sce b/1733/CH2/EX2.35/2_35.sce new file mode 100755 index 000000000..35a3b7efc --- /dev/null +++ b/1733/CH2/EX2.35/2_35.sce @@ -0,0 +1,8 @@ +//2.35
+clc;
+Vm=400*2^0.5/3^0.5;
+f=50;
+w=2*%pi*f;
+ir=42;
+L=3*Vm/(w*ir)*(sind(120-30)-sind(0))
+printf("Inductance= %.3f H", L)
\ No newline at end of file diff --git a/1733/CH2/EX2.4/2_4.sce b/1733/CH2/EX2.4/2_4.sce new file mode 100755 index 000000000..0c9fa4905 --- /dev/null +++ b/1733/CH2/EX2.4/2_4.sce @@ -0,0 +1,26 @@ +//2.4
+clc;
+Vm=100;
+R=5;
+Idc=2*Vm/(%pi*R);
+printf("\nIdc = %.3f A",Idc)
+Vdc=Idc*R;
+printf("\nVdc = %.3f V",Vdc)
+Irms=0.707*Vm/R;
+printf("\nIrms = %.3f A",Irms)
+Vrms=Irms*R;
+printf("\nVrms = %.3f V",Vrms)
+Pdc=Idc^2*R;
+printf("\nPdc = %.3f W",Pdc)
+Pac=Irms^2*R;
+printf("\nPac = %.3f W",Pac)
+FF=Vrms/Vdc;
+printf("\nFF = %.3f ",FF)
+RF=(FF^2-1)^0.5;
+printf("\nRF = %.3f ",RF)
+TUF=0.5732;
+printf("\nTUF = %.3f ",TUF)
+PIV=2*Vm;
+printf("\nPIV = %.0f V",PIV)
+CF=0.707;
+printf("\nCF = %.3f ",CF)
\ No newline at end of file diff --git a/1733/CH2/EX2.5/2_5.sce b/1733/CH2/EX2.5/2_5.sce new file mode 100755 index 000000000..bb62d01a0 --- /dev/null +++ b/1733/CH2/EX2.5/2_5.sce @@ -0,0 +1,13 @@ +//2.5
+clc;
+Vm=400;
+alpha=30;
+R=50;
+Vdc=(Vm/(2*%pi))*(1+cosd(alpha));
+printf("Average Load voltage = %.1f V", Vdc)
+Load_current_average=Vdc/R;
+printf("\nAverage Load current = %.3f A", Load_current_average)
+V=400*(((%pi-(%pi/6))/(4*%pi))+(sind(60)/(8*%pi)))^0.5;
+printf("\nRMS voltage = %.1f V", V)
+RMS_current=V/R;
+printf("\nRMS current = %.3f A", RMS_current)
\ No newline at end of file diff --git a/1733/CH2/EX2.6/2_6.sce b/1733/CH2/EX2.6/2_6.sce new file mode 100755 index 000000000..c5a1a89ab --- /dev/null +++ b/1733/CH2/EX2.6/2_6.sce @@ -0,0 +1,4 @@ +//2.6
+clc;
+current_average=(1/(2*%pi))*(-10*cos(5*%pi/6)+10*cos(%pi/6)-(5*5*%pi/6)+(5*%pi/6));
+printf("\nAverage current = %.3f A", current_average)
\ No newline at end of file diff --git a/1733/CH2/EX2.7/2_7.sce b/1733/CH2/EX2.7/2_7.sce new file mode 100755 index 000000000..491b85b60 --- /dev/null +++ b/1733/CH2/EX2.7/2_7.sce @@ -0,0 +1,7 @@ +//2.7
+clc;
+// the thyristor will conduct when instantenous value of source emf is more than the back emf i.e. 2^0.5*100sin wt=55.5
+wt1=asind(55.5/(2^0.5*110));
+wt2=180-wt1;
+current_average=(1/(2*%pi))*(-15.554*(cosd(wt2)-cosd(wt1))-5.55*(2.7768-0.3684));
+printf("\nAverage current = %.2f A", current_average)
\ No newline at end of file diff --git a/1733/CH2/EX2.8/2_8.sce b/1733/CH2/EX2.8/2_8.sce new file mode 100755 index 000000000..a3752689e --- /dev/null +++ b/1733/CH2/EX2.8/2_8.sce @@ -0,0 +1,20 @@ +//2.8
+clc;
+Vm=230*2^0.5;
+Vdc=(Vm/(2*%pi))*(1+cosd(90));
+Idc=Vdc/15;
+Vrms=Vm*(((%pi-(%pi/2))/(4*%pi))+(sin(2*%pi)/(8*%pi)))^0.5;
+Irms=Vrms/15;
+Pdc=Vdc*Idc;
+Pac=Vrms*Irms;
+Rec_effi=Pdc/Pac;
+Form_factor=Vrms/Vdc;
+printf("\n Form Factor = %.1f ", Form_factor)
+ripple_factor=(Form_factor^2-1)^0.5;
+printf("\n Ripple Factor = %.1f ", ripple_factor)
+VA_rating=230*7.66;
+printf("\n VA rating = %.1f VA", VA_rating)
+TUF=Pdc/VA_rating;
+printf("\n TUF = %.3f ", Form_factor)
+PIV=Vm;
+printf("\n PIV = %.1f V", PIV)
\ No newline at end of file diff --git a/1733/CH2/EX2.9/2_9.sce b/1733/CH2/EX2.9/2_9.sce new file mode 100755 index 000000000..d75d2adb9 --- /dev/null +++ b/1733/CH2/EX2.9/2_9.sce @@ -0,0 +1,11 @@ +//2.9
+clc;
+Vm=150*2^0.5;
+Vdc=(Vm/(%pi))*(1+cosd(45));
+R=30;
+Load_current_average=Vdc/R;
+printf("\nAverage Load current = %.2f A", Load_current_average)
+Vrms=Vm*(((%pi-(%pi/4))/(2*%pi))+(sind(90)/(4*%pi)))^0.5;
+printf("\nRMS voltage = %.1f V", Vrms)
+RMS_current=Vrms/R;
+printf("\nRMS current = %.3f A", RMS_current)
\ No newline at end of file diff --git a/1733/CH3/EX3.1/3_1.sce b/1733/CH3/EX3.1/3_1.sce new file mode 100755 index 000000000..652a1d847 --- /dev/null +++ b/1733/CH3/EX3.1/3_1.sce @@ -0,0 +1,12 @@ +//3.1
+clc;
+R=80;
+L=8*10^-3;
+C=1.2*10^-6;
+a=R^2;
+b=4*L/C;
+printf("R^2 = %.0f ", a)
+printf("4*L/C = %.0f ", b)
+disp('since R^2<4L/C it will work as series inverter')
+fmax=(1/(L*C)-(R^2/(4*L^2)))^0.5;
+printf("Maximum frequency = %.2f rad/sec", fmax)
\ No newline at end of file diff --git a/1733/CH3/EX3.10/3_10.sce b/1733/CH3/EX3.10/3_10.sce new file mode 100755 index 000000000..6c5de3ea5 --- /dev/null +++ b/1733/CH3/EX3.10/3_10.sce @@ -0,0 +1,11 @@ +//3.10
+clc;
+Ip_load=400/(2*10);
+Irms_load=(Ip_load^2*2/3)^0.5;
+printf("RMS value of the load current = %.2f A", Irms_load)
+Po=Irms_load^2*10*3;
+printf("\nOutput power = %.2f W", Po)
+Iavg_thy=Ip_load/3;
+printf("\nAverage thyristor current = %.2f A", Iavg_thy)
+Irms_thy=(Ip_load^2/3)^0.5;
+printf("\nRMS value thyristor current = %.2f A", Irms_thy)
diff --git a/1733/CH3/EX3.11/3_11.sce b/1733/CH3/EX3.11/3_11.sce new file mode 100755 index 000000000..0867352f1 --- /dev/null +++ b/1733/CH3/EX3.11/3_11.sce @@ -0,0 +1,15 @@ +//3.11
+clc;
+R=10;
+RL=R+R/2;
+i1=400/15;
+i2=i1;
+i3=i1;
+Irms_load=(1/(2*%pi)*(i1^2*2*%pi/3+(i1/2)^2*4*%pi/3))^0.5;
+printf("RMS value of the load current = %.3f A", Irms_load)
+Po=i1^2*R*3;
+printf("\nOutput power = %.2f W", Po)
+Iavg_thy=1/(2*%pi)*(i1*%pi/3+(i1/2*2*%pi/3));
+printf("\nAverage thyristor current = %.2f A", Iavg_thy)
+Irms_thy= (1/(2*%pi)*(i1^2*%pi/3+(i1/2)^2*2*%pi/3))^0.5;
+printf("\nRMS value thyristor current = %.2f A", Irms_thy)
diff --git a/1733/CH3/EX3.12/3_12.sce b/1733/CH3/EX3.12/3_12.sce new file mode 100755 index 000000000..c5da1002c --- /dev/null +++ b/1733/CH3/EX3.12/3_12.sce @@ -0,0 +1,9 @@ +//3.12
+clc;
+R=10;
+RL=R+R/2;
+i1=450/15;
+Irms_load=(1/(2*%pi)*(i1^2*2*%pi/3+(i1/2)^2*4*%pi/3))^0.5;
+printf("RMS value of the load current = %.2f A", Irms_load)
+Irms_thy= (1/(2*%pi)*(i1^2*%pi/3+(i1/2)^2*2*%pi/3))^0.5;
+printf("\nRMS value thyristor current = %.0f A", Irms_thy)
diff --git a/1733/CH3/EX3.13/3_13.sce b/1733/CH3/EX3.13/3_13.sce new file mode 100755 index 000000000..0e08fec60 --- /dev/null +++ b/1733/CH3/EX3.13/3_13.sce @@ -0,0 +1,10 @@ +//3.13
+clc;
+Vdc=200;
+VL=Vdc*(5*30/180)^0.5;
+printf("RMS value of the output voltage = %.2f V", VL)
+Vdc=220;
+delta=(VL/Vdc)^2*180/5;
+printf("\nPulse width = %.2f degree", delta)
+V=VL/((5*33/180)^0.5);
+printf("\nMaximum possible input voltage = %.2f V", V)
\ No newline at end of file diff --git a/1733/CH3/EX3.14/3_14.sce b/1733/CH3/EX3.14/3_14.sce new file mode 100755 index 000000000..5be62ffe6 --- /dev/null +++ b/1733/CH3/EX3.14/3_14.sce @@ -0,0 +1,6 @@ +//3.14
+clc;
+Vdc=200;
+delta=120;
+VL=Vdc*(delta/180)^0.5;
+printf("RMS value of the output voltage = %.1f V", VL)
\ No newline at end of file diff --git a/1733/CH3/EX3.15/3_15.sce b/1733/CH3/EX3.15/3_15.sce new file mode 100755 index 000000000..1d4eeec79 --- /dev/null +++ b/1733/CH3/EX3.15/3_15.sce @@ -0,0 +1,5 @@ +//3.15
+clc;
+Vdc=150;
+VL=Vdc*(20/180+60/180+20/180)^0.5;
+printf("RMS value of the output voltage = %.2f V", VL)
\ No newline at end of file diff --git a/1733/CH3/EX3.2/3_2.sce b/1733/CH3/EX3.2/3_2.sce new file mode 100755 index 000000000..f51746844 --- /dev/null +++ b/1733/CH3/EX3.2/3_2.sce @@ -0,0 +1,7 @@ +//3.2
+clc;
+f=1416.16;
+T=1/f;
+Toff=14*10^-6;
+fo=1/(T+2*Toff);
+printf("output frequency = %.1f Hz", fo)
\ No newline at end of file diff --git a/1733/CH3/EX3.3/3_3.sce b/1733/CH3/EX3.3/3_3.sce new file mode 100755 index 000000000..43ac28f1a --- /dev/null +++ b/1733/CH3/EX3.3/3_3.sce @@ -0,0 +1,16 @@ +//3.3
+clc;
+R=4;
+L=50*10^-6;
+C=6*10^-6;
+a=R^2;
+b=4*L/C;
+wr=(1/(L*C)-(R^2/(4*L^2)))^0.5;
+fr=wr/(2*%pi);
+Tr=1/fr;
+fo=6000;
+wo=2*%pi*fo;
+toff=%pi*(1/wo-1/wr);
+printf("Avialable circuit turn off time = %.8f sec", toff)
+fmax=1/(2*(%pi/wr+6*10^-6));
+printf("\nMaximum frequency = %.1f Hz", fmax)
\ No newline at end of file diff --git a/1733/CH3/EX3.4/3_4.sce b/1733/CH3/EX3.4/3_4.sce new file mode 100755 index 000000000..118155563 --- /dev/null +++ b/1733/CH3/EX3.4/3_4.sce @@ -0,0 +1,16 @@ +//3.4
+clc;
+tq=50*10^-6;
+Vin=40;
+Vo=230;
+IL=2;
+IL_ref=2*Vo/Vin;
+// C/L=(IL-ref/Vin)^2; (i)
+// Assume that circuit is reverse biased for one-fourth period of resonant circuit. thus
+//%pi/3*(L*C)^0.5=50*10^-6; (ii)
+// on solving (i) and (ii)
+C=13.73*10^-6;
+L=C/(IL_ref/Vin)^2*10^6;
+C=13.73*10^-6*10^6;
+printf("C=%.3f uF",C)
+printf("\nL=%.2f uH",L)
\ No newline at end of file diff --git a/1733/CH3/EX3.5/3_5.sce b/1733/CH3/EX3.5/3_5.sce new file mode 100755 index 000000000..d5f8da097 --- /dev/null +++ b/1733/CH3/EX3.5/3_5.sce @@ -0,0 +1,16 @@ +//3.5
+clc;
+V=30;
+Vrms1=2*V/(2^0.5*%pi);
+printf("RMS value of fundamental component of input voltage = %.1f V", Vrms1)
+VL=V/2;
+R=3;
+Pout=VL^2/R;
+printf("\nOutput Power = %.0f W", Pout)
+Ip_thy=VL/R;
+printf("\nPeak current in each thyristor = %.0f A", Ip_thy)
+Iavg=Ip_thy/2;
+printf("\naverage current in each thyristor = %.1f A", Iavg)
+PIV=2*VL;
+printf("\nPeak reverse blocking voltahe = %.0f V", PIV)
+
diff --git a/1733/CH3/EX3.6/3_6.sce b/1733/CH3/EX3.6/3_6.sce new file mode 100755 index 000000000..cde46711f --- /dev/null +++ b/1733/CH3/EX3.6/3_6.sce @@ -0,0 +1,16 @@ +//3.6
+clc;
+V=30;
+Vrms1=4*V/(2^0.5*%pi);
+printf("RMS value of fundamental component of input voltage = %.1f V", Vrms1)
+VL=V;
+R=3;
+Pout=VL^2/R;
+printf("\nOutput Power = %.0f W", Pout)
+Ip_thy=VL/R;
+printf("\nPeak current in each thyristor = %.0f A", Ip_thy)
+Iavg=Ip_thy/2;
+printf("\naverage current in each thyristor = %.1f A", Iavg)
+PIV=VL;
+printf("\nPeak reverse blocking voltahe = %.0f V", PIV)
+
diff --git a/1733/CH3/EX3.7/3_7.sce b/1733/CH3/EX3.7/3_7.sce new file mode 100755 index 000000000..dc7bec7c3 --- /dev/null +++ b/1733/CH3/EX3.7/3_7.sce @@ -0,0 +1,21 @@ +//3.7
+clc;
+R=10;
+V=200;
+IL_rms_funda=9.28/2^0.5;
+printf("RMS value of fundamental component of load current=%.2f A", IL_rms_funda)
+IL_peak=(9.28^2+6.55^2+1.89^2+0.895^2+0.525^2);
+printf("\nPeak value of load current=%.2f A", IL_peak)
+Irms_harmonic=(11.56^2-9.28^2)^0.5/2^0.5;
+printf("\nRMS harmonic current=%.3f A",Irms_harmonic)
+TMH=(11.56^2-9.28^2)^0.5/9.28;
+printf("\nTotal harmonic distortion=%.3f",TMH)
+IL_rms=11.56/2^0.5;
+Po=IL_rms^2*R;
+printf("\nTotal output power=%.1f W",Po)
+Po_funda=IL_rms_funda^2*R;
+printf("\nFundamental Component of power=%.3f W",Po_funda)
+Iavg=Po/V;
+printf("\nAverage input current=%.4f A",Iavg)
+Ip_thy=11.56;
+printf("\nPeak thyristor current=%.2f A", Ip_thy)
diff --git a/1733/CH3/EX3.8/3_8.sci b/1733/CH3/EX3.8/3_8.sci new file mode 100755 index 000000000..60ded6d67 --- /dev/null +++ b/1733/CH3/EX3.8/3_8.sci @@ -0,0 +1,10 @@ +//3.8
+clc;
+toff=12*1.5*10^-6;
+f=4000;
+wt=2*%pi*f*toff;
+Xl=10;
+R=2;
+Xc=R*tan(wt)+Xl;
+C=1/(2*%pi*f*Xc)*10^6;
+printf("Value of C for proper load commutation = %.2f uF", C)
\ No newline at end of file diff --git a/1733/CH3/EX3.9/3_9.sce b/1733/CH3/EX3.9/3_9.sce new file mode 100755 index 000000000..a0c3cf538 --- /dev/null +++ b/1733/CH3/EX3.9/3_9.sce @@ -0,0 +1,8 @@ +//3.9
+clc;
+I1=6.84;
+I3=0.881;
+I5=0.32;
+I7=0.165;
+Ip=(I1^2+I3^2+I5^2+I7^2)^0.5;
+printf("Peak value of load current=%.2f A", Ip)
\ No newline at end of file diff --git a/1733/CH4/EX4.1/4_1.sce b/1733/CH4/EX4.1/4_1.sce new file mode 100755 index 000000000..625cf5ef5 --- /dev/null +++ b/1733/CH4/EX4.1/4_1.sce @@ -0,0 +1,10 @@ +//4.1
+clc;
+f=1000;
+T=1/f;
+Vav=150;
+V=230;
+Ton=(Vav/V)*T;
+printf("Period of conduction = %.6f sec", Ton)
+Toff=T-Ton;
+printf("\nPeriod of blocking = %.6f sec", Toff)
\ No newline at end of file diff --git a/1733/CH4/EX4.10/4_10.sce b/1733/CH4/EX4.10/4_10.sce new file mode 100755 index 000000000..5e282029f --- /dev/null +++ b/1733/CH4/EX4.10/4_10.sce @@ -0,0 +1,7 @@ +//4.10
+clc;
+Ton=25*10^-3;
+Toff=10*10^-3;
+V=230;
+VL=V*Ton/(Ton+Toff);
+printf("\nAverage value of Load voltage = %.3f V", VL)
\ No newline at end of file diff --git a/1733/CH4/EX4.11/4_11.sce b/1733/CH4/EX4.11/4_11.sce new file mode 100755 index 000000000..1fbd33668 --- /dev/null +++ b/1733/CH4/EX4.11/4_11.sce @@ -0,0 +1,16 @@ +//4.11
+clc;
+V=100;
+R=0.5;
+L=1*10^-3;
+T=3*10^-3;
+Duty_cycle=0.3333;
+E=0;
+Imax=V/R*((1-exp(-Duty_cycle*T*R/L))/(1-exp(-T*R/L)))-E/R;
+printf("\nImax = %.2f A", Imax)
+Imin=V/R*((exp(Duty_cycle*T*R/L)-1)/(exp(T*R/L)-1))-E/R;
+printf("\nImin = %.1f A", Imin)
+IL_avg=(Imax+Imin)/2;
+printf("\nAverage Load current = %.1f A", IL_avg)
+Vavg=Duty_cycle*V;
+printf("\nAverage Load Voltage = %.2f V", Vavg)
\ No newline at end of file diff --git a/1733/CH4/EX4.12/4_12.sce b/1733/CH4/EX4.12/4_12.sce new file mode 100755 index 000000000..3b0f635e0 --- /dev/null +++ b/1733/CH4/EX4.12/4_12.sce @@ -0,0 +1,14 @@ +//4.12
+clc;
+V=100;
+R=0.2;
+L=0.8*10^-3;
+T=2.4*10^-3;
+Duty_cycle=1/2.4;
+E=0;
+Imax=V/R*((1-exp(-Duty_cycle*T*R/L))/(1-exp(-T*R/L)))-E/R;
+printf("\nImax = %.2f A", Imax)
+Imin=V/R*((exp(Duty_cycle*T*R/L)-1)/(exp(T*R/L)-1))-E/R;
+printf("\nImin = %.2f A", Imin)
+Vavg=Duty_cycle*V;
+printf("\nAverage output Voltage = %.2f V", Vavg)
\ No newline at end of file diff --git a/1733/CH4/EX4.13/4_13.sce b/1733/CH4/EX4.13/4_13.sce new file mode 100755 index 000000000..a9b372645 --- /dev/null +++ b/1733/CH4/EX4.13/4_13.sce @@ -0,0 +1,7 @@ +//4.13
+clc;
+V=500;
+f=400;
+I=10;
+L=V/(4*f*I);
+printf("Series inductance = %.5f H", L)
\ No newline at end of file diff --git a/1733/CH4/EX4.14/4_14.sce b/1733/CH4/EX4.14/4_14.sce new file mode 100755 index 000000000..c0171b67b --- /dev/null +++ b/1733/CH4/EX4.14/4_14.sce @@ -0,0 +1,17 @@ +//4.14
+clc;
+Motor_output=300*735.5/1000;
+efficiency=0.9;
+Motor_input=Motor_output/efficiency;
+Vdc=800;
+Rated_current=Motor_input*1000/800;
+R=0.1;
+L=100*10^-3;
+T=1/400;
+emf=Vdc-Rated_current*0.1;
+Duty_cycle=0.2;
+emf_n=Duty_cycle*Vdc-Rated_current*0.1;
+N=900/(emf/emf_n);
+printf("\nSpeed of motor = %.2f rpm", N)
+dia=(Vdc-Duty_cycle*Vdc)/L*Duty_cycle*T;
+printf("\nCurrent swing = %.1f A", dia)
\ No newline at end of file diff --git a/1733/CH4/EX4.15/4_15.sce b/1733/CH4/EX4.15/4_15.sce new file mode 100755 index 000000000..8049d71b7 --- /dev/null +++ b/1733/CH4/EX4.15/4_15.sce @@ -0,0 +1,12 @@ +//4.15
+clc;
+Vc=200;
+Im=60;
+toff=15*10^-6;
+C1=toff*Im/Vc;
+C=5*10^-6*10^6;
+printf("\nCapacitance = %.0f uF", C)
+Ipc=Im*1.5-Im;
+L=C/(Ipc/Vc)^2*10^6;
+printf("\nInductance = %.1f uH", L)
+
diff --git a/1733/CH4/EX4.16/4_16.sce b/1733/CH4/EX4.16/4_16.sce new file mode 100755 index 000000000..4b72ee70a --- /dev/null +++ b/1733/CH4/EX4.16/4_16.sce @@ -0,0 +1,7 @@ +//4.16
+clc;
+Vav=250;
+V=200;
+Toff=0.6*10^-3;
+Ton=(Vav/V)*Toff-Toff;
+printf("Period of conduction = %.5f sec", Ton)
\ No newline at end of file diff --git a/1733/CH4/EX4.17/4_17.sce b/1733/CH4/EX4.17/4_17.sce new file mode 100755 index 000000000..34cacea82 --- /dev/null +++ b/1733/CH4/EX4.17/4_17.sce @@ -0,0 +1,7 @@ +//4.16
+clc;
+Vav=250;
+V=150;
+Toff=1*10^-3;
+Ton=(Vav/V)*Toff-Toff;
+printf("Period of conduction = %.6f sec", Ton)
\ No newline at end of file diff --git a/1733/CH4/EX4.2/4_2.sce b/1733/CH4/EX4.2/4_2.sce new file mode 100755 index 000000000..532e271db --- /dev/null +++ b/1733/CH4/EX4.2/4_2.sce @@ -0,0 +1,10 @@ +//4.2
+clc;
+f=500;
+T=1/f;
+Vav=15*(0.06+0.03)+100;
+V=200;
+Ton=(Vav/V)*T;
+printf("Period of conduction = %.7f sec", Ton)
+Toff=T-Ton;
+printf("\nPeriod of blocking = %.7f sec", Toff)
\ No newline at end of file diff --git a/1733/CH4/EX4.3/4_3.sce b/1733/CH4/EX4.3/4_3.sce new file mode 100755 index 000000000..1844de8c0 --- /dev/null +++ b/1733/CH4/EX4.3/4_3.sce @@ -0,0 +1,12 @@ +//4.3
+clc;
+Vs=240;
+emf_800=Vs-20*0.5;
+emf_600=230*600/800;
+Vav=emf_600+20*0.5;
+Duty_cycle=Vav/Vs;
+printf("Duty cycle when motor develop the rated torque = %.4f ", Duty_cycle)
+//when motor develop half of the rated torque
+Vav=emf_600+10*0.5;
+Duty_cycle=Vav/Vs;
+printf("\nDuty cycle when motor develop half of the rated torque = %.4f ", Duty_cycle)
\ No newline at end of file diff --git a/1733/CH4/EX4.4/4_4.sce b/1733/CH4/EX4.4/4_4.sce new file mode 100755 index 000000000..a86e0d709 --- /dev/null +++ b/1733/CH4/EX4.4/4_4.sce @@ -0,0 +1,18 @@ +//4.4
+clc;
+Duty_cycle=0.4;
+Vs=200;
+Vd=2;
+Vav=Duty_cycle*(Vs-Vd);
+printf("Average output voltage = %.1f V", Vav)
+VL=Duty_cycle^0.5*(Vs-Vd);
+printf("\nRMS output voltage = %.3f V", VL)
+R=8;
+Po=VL^2/R;
+Pi=Duty_cycle*Vs*(Vs-Vd)/R;
+Chopper_efficiency=Po/Pi*100;
+printf("\nChopper efficiency = %.0f percent", Chopper_efficiency)
+Rin=R/Duty_cycle;
+printf("\nInput resistance = %.0f Ohm", Rin)
+V1=126.05/2^0.5;
+printf("\nRMS value of fundamental component = %.3f V", V1)
\ No newline at end of file diff --git a/1733/CH4/EX4.5/4_5.sce b/1733/CH4/EX4.5/4_5.sce new file mode 100755 index 000000000..1214053bd --- /dev/null +++ b/1733/CH4/EX4.5/4_5.sce @@ -0,0 +1,12 @@ +//4.5
+clc;
+Duty_cycle=0.25;
+V=400;
+Vav=Duty_cycle*V;
+Vn=V-Vav;
+L=0.05;
+di=10;
+Ton=L*di/Vn;
+T=Ton/Duty_cycle;
+f=1/T;
+printf("\nChopper frequency = %.0f Hz", f)
diff --git a/1733/CH4/EX4.6/4_6.sce b/1733/CH4/EX4.6/4_6.sce new file mode 100755 index 000000000..3940877c0 --- /dev/null +++ b/1733/CH4/EX4.6/4_6.sce @@ -0,0 +1,23 @@ +//4.6
+clc;
+V=200;
+R=4;
+L=6*10^-3;
+f=1000;
+T=1/f;
+Duty_cycle=0.5;
+E=0;
+Imax=V/R*((1-exp(-Duty_cycle*T*R/L))/(1-exp(-T*R/L)))-E/R;
+printf("\nImax = %.2f A", Imax)
+Imin=V/R*((exp(Duty_cycle*T*R/L)-1)/(exp(T*R/L)-1))-E/R;
+printf("\nImin = %.2f A", Imin)
+Maximum_ripple=V/(R*f*L);
+printf("\nMaximum ripple = %.2f A", Maximum_ripple)
+IL_avg=(Imax+Imin)/2;
+printf("\nAverage Load current = %.0f A", IL_avg)
+iL=(Imin^2+(Imax-Imin)^2/3+Imin*(Imax-Imin))^0.5;
+printf("\nRMS value of Load current = %.2f A", iL)
+Iavg=0.5*IL_avg;
+printf("\nAverage value of input current = %.2f A", Iavg)
+Irms=Duty_cycle^0.5*iL;
+printf("\nRMS value of input current = %.3f A", Irms)
\ No newline at end of file diff --git a/1733/CH4/EX4.7/4_7.sce b/1733/CH4/EX4.7/4_7.sce new file mode 100755 index 000000000..33f74f128 --- /dev/null +++ b/1733/CH4/EX4.7/4_7.sce @@ -0,0 +1,9 @@ +//4.7
+clc;
+V=300;
+E=0;
+R=5;
+f=250;
+Id=0.2*30;
+L=V/(4*f*Id);
+printf("Load inductance = %.3f H", L)
\ No newline at end of file diff --git a/1733/CH4/EX4.8/4_8.sce b/1733/CH4/EX4.8/4_8.sce new file mode 100755 index 000000000..9c2463b6f --- /dev/null +++ b/1733/CH4/EX4.8/4_8.sce @@ -0,0 +1,13 @@ +//4.8
+clc;
+V=200;
+E=100;
+R=0.5;
+t=2*10^-3;
+L=16*10^-3;
+Imin=10;
+i=(V-E)/R*(1-exp(-R*t/L))+Imin*exp(-R*t/L);
+printf("Current at the instant of turn off thyristor = %.2f A", i)
+t=5*10^-3;
+i_5=i*exp(-R*t/L);
+printf("\nCurrent after 5ms of turn off thyristor = %.2f A", i_5)
\ No newline at end of file diff --git a/1733/CH4/EX4.9/4_9.sce b/1733/CH4/EX4.9/4_9.sce new file mode 100755 index 000000000..100c14cd0 --- /dev/null +++ b/1733/CH4/EX4.9/4_9.sce @@ -0,0 +1,11 @@ +//4.9
+clc;
+emf=220;
+duty_cycle=0.6;
+Vi=220*duty_cycle;
+Ra=1;
+I=20;
+emf_back=Vi-I*Ra;
+N_no_load=1000;
+N=emf_back*N_no_load/emf;
+printf("\nSpeed of motor = %.1f rpm", N)
diff --git a/1733/CH5/EX5.1/5_1.sce b/1733/CH5/EX5.1/5_1.sce new file mode 100755 index 000000000..c3ad289c6 --- /dev/null +++ b/1733/CH5/EX5.1/5_1.sce @@ -0,0 +1,21 @@ +//5.1
+clc;
+Vin=150;R=8;
+duty_cycle=36/(36+64);
+VL=Vin*duty_cycle^0.5;
+printf("RMS output voltage=%.0f V", VL)
+Po=VL^2/R;
+printf("\nPower output =%.1f W", Po)
+ // since losses are neglected
+ Pi=Po;
+printf("\nPower Input =%.1f W", Pi)
+Irms_load=VL/R;
+Irms_input=11.25;
+VA_input=Irms_input*Vin;
+pf_input=Po/VA_input;
+printf(" \nInput Power factor =%.1f lagging", pf_input)
+Ip_thy=2^0.5*Vin/R;
+Iavg_thy=duty_cycle*Ip_thy/%pi;
+printf("\nAverage thyristor Current =%.3f A", Iavg_thy)
+Irms_thy=Ip_thy*duty_cycle^0.5/2;
+printf("\nRMS thyristor Current =%.3f A", Irms_thy)
\ No newline at end of file diff --git a/1733/CH5/EX5.10/5_10.sce b/1733/CH5/EX5.10/5_10.sce new file mode 100755 index 000000000..edadfaf2a --- /dev/null +++ b/1733/CH5/EX5.10/5_10.sce @@ -0,0 +1,15 @@ +//5.10
+clc;
+V=415;
+P=20*10^3;
+disp('For Triacs')
+I_line=P/(3^0.5*V);
+Irms=I_line*1.5;
+printf("RMS current rating of each triac=%.2f A", Irms)
+Vrms=1.5*V;
+printf("\nRMS Voltage rating of each triac=%.2f V", Vrms)
+disp('For reverse connected thyristors')
+Irms_thy=1.5*I_line/2^0.5;
+printf("RMS current rating of each thyristor=%.2f A", Irms_thy)
+Vrms_thy=1.5*V;
+printf("\nRMS voltage rating of each thyristor=%.2f V", Vrms_thy)
\ No newline at end of file diff --git a/1733/CH5/EX5.11/5_11.sce b/1733/CH5/EX5.11/5_11.sce new file mode 100755 index 000000000..80d993287 --- /dev/null +++ b/1733/CH5/EX5.11/5_11.sce @@ -0,0 +1,13 @@ +//5.11
+clc;
+R=15;
+Vrms_input_phase=415/3^0.5;
+VL=3^0.5*2^0.5*Vrms_input_phase*(1/(%pi)*(%pi/6-30*%pi/(180*4)+sind(60)/8))^0.5;
+printf("\nRMS value of output voltage per phase=%.2f V", VL)
+Po=3*VL^2/R;
+printf("\nPower output =%.1f W", Po)
+I_line=VL/R;
+printf("\nLine Current =%.2f A", I_line)
+VA_input=3*Vrms_input_phase*I_line;
+pf_input=Po/VA_input;
+printf("\nInput Power Factor =%.3f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH5/EX5.12/5_12.sce b/1733/CH5/EX5.12/5_12.sce new file mode 100755 index 000000000..15a9147e3 --- /dev/null +++ b/1733/CH5/EX5.12/5_12.sce @@ -0,0 +1,13 @@ +//5.12
+clc;
+R=15;
+Vrms_input_phase=415/3^0.5;
+VL=3^0.5*2^0.5*Vrms_input_phase*(1/(%pi)*(%pi/6-60*%pi/(180*4)+sind(120)/8))^0.5;
+printf("\nRMS value of output voltage per phase=%.2f V", VL)
+Po=3*VL^2/R;
+printf("\nPower output =%.1f W", Po)
+I_line=VL/R;
+printf("\nLine Current =%.2f A", I_line)
+VA_input=3*Vrms_input_phase*I_line;
+pf_input=Po/VA_input;
+printf("\nInput Power Factor =%.3f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH5/EX5.2/5_2.sce b/1733/CH5/EX5.2/5_2.sce new file mode 100755 index 000000000..bbe59b943 --- /dev/null +++ b/1733/CH5/EX5.2/5_2.sce @@ -0,0 +1,21 @@ +//5.2
+clc;
+Vm=2^0.5*150;
+alph=60;
+R=8;
+Vin=150;
+Vavg_out=Vm*(cosd(alph)-1)/(2*%pi);
+printf("Average output voltage =%.2f V", Vavg_out)
+disp('The average output voltage is negative only a part of positive half cycle appears at the output whereas the whole negative half cycle appears at the output')
+VL=Vm*(1/(4*%pi)*(2*%pi-60*%pi/180+sind(120)/2))^0.5;
+printf("\nRMS output voltage =%.2f V", VL)
+Po=VL^2/R;
+printf("\nPower output =%.1f W", Po)
+Iin=VL/R;
+VA_input=Iin*Vin;
+pf_input=Po/VA_input;
+printf(" \nInput Power factor =%.2f lagging", pf_input)
+Iavg_out=Vavg_out/R;
+Iavg_input=Iavg_out;
+printf(" \nAverage input current =%.2f A", Iavg_input)
+disp('The average input current is negative because input current during positive half cycle is less than during negative half cycle ')
\ No newline at end of file diff --git a/1733/CH5/EX5.3/5_3.sce b/1733/CH5/EX5.3/5_3.sce new file mode 100755 index 000000000..b128c3d71 --- /dev/null +++ b/1733/CH5/EX5.3/5_3.sce @@ -0,0 +1,21 @@ +//5.3
+clc;
+Vin=150;
+Vm=2^0.5*Vin;
+alph=60;
+R=8;
+Vavg_out=Vm*(cosd(alph)+1)/(%pi);
+printf("Average output voltage over half cycle =%.2f V", Vavg_out)
+VL=Vm*(1/(2*%pi)*(%pi-60*%pi/180+sind(120)/2))^0.5;
+printf("\nRMS output voltage =%.2f V", VL)
+Po=VL^2/R;
+printf("\nPower output =%.1f W", Po)
+Iin=VL/R;
+VA_input=Iin*Vin;
+pf_input=Po/VA_input;
+printf(" \nInput Power factor =%.1f lagging", pf_input)
+
+Iavg_thy=Vm*(1+cosd(alph))/(2*%pi*R);
+printf("\nAverage thyristor Current =%.2f A", Iavg_thy)
+Irms_thy=Vm/(2*R)*(1/(%pi)*(%pi-%pi/3+sind(120)/2))^0.5;
+printf("\nRMS thyristor Current =%.3f A", Irms_thy)
diff --git a/1733/CH5/EX5.4/5_4.sce b/1733/CH5/EX5.4/5_4.sce new file mode 100755 index 000000000..b0b4f7cbd --- /dev/null +++ b/1733/CH5/EX5.4/5_4.sce @@ -0,0 +1,21 @@ +//5.4
+clc;
+Vin=120;
+Vm=2^0.5*Vin;
+alph=90;
+R=10;
+
+VL=Vm*(1/(2*%pi)*(%pi-90*%pi/180+sind(180)/2))^0.5;
+printf("\nRMS output voltage =%.2f V", VL)
+Po=VL^2/R;
+IL=VL/R;
+VA_input=IL*Vin;
+pf_input=Po/VA_input;
+printf(" \nInput Power factor =%.3f lagging", pf_input)
+
+Iavg_thy=Vm*(1+cosd(alph))/(2*%pi*R);
+printf("\nAverage thyristor Current =%.2f A", Iavg_thy)
+Irms_thy=IL/2^0.5;
+printf("\nRMS thyristor Current =%.3f A", Irms_thy)
+Irms_load=VL/R;
+printf("\nRMS Load Current =%.3f A", Irms_load)
diff --git a/1733/CH5/EX5.5/5_5.sce b/1733/CH5/EX5.5/5_5.sce new file mode 100755 index 000000000..c6402f57a --- /dev/null +++ b/1733/CH5/EX5.5/5_5.sce @@ -0,0 +1,10 @@ +//5.5
+clc;
+Vin=110;
+Vm=2^0.5*Vin;
+alph=60;
+R=400;
+VL=Vm*(1/(2*%pi)*(%pi-60*%pi/180+sind(120)/2))^0.5;
+printf("\nRMS output voltage =%.2f V", VL)
+Po=VL^2/R;
+printf("\nPower output =%.2f W", Po)
\ No newline at end of file diff --git a/1733/CH5/EX5.6/5_6.sce b/1733/CH5/EX5.6/5_6.sce new file mode 100755 index 000000000..6d323a922 --- /dev/null +++ b/1733/CH5/EX5.6/5_6.sce @@ -0,0 +1,12 @@ +//5.6
+clc;
+disp('When the power delivered is 80% we have')
+//0.8=1/(%pi)*(%pi-alph+sin(2*alph)/2)
+//on solving
+alph=60.5;
+printf("Firing angle=%.1f degree",alph)
+disp('When the power delivered is 30% we have')
+//0.3=1/(%pi)*(%pi-alph+sin(2*alph)/2)
+//on solving
+alph=108.6;
+printf("Firing angle=%.1f degree",alph)
\ No newline at end of file diff --git a/1733/CH5/EX5.7/5_7.sce b/1733/CH5/EX5.7/5_7.sce new file mode 100755 index 000000000..886da3e7e --- /dev/null +++ b/1733/CH5/EX5.7/5_7.sce @@ -0,0 +1,12 @@ +//5.7
+clc;
+f=50;
+Vin=150;
+w=2*%pi*f;
+L=22*10^-3;R=4;
+th=atand(w*L/R);
+Beta=180+th;
+printf("Conduction angle of thyristor=%.0f degree",Beta)
+Vm=2^0.5*Vin;
+VL=Vm*(1/(2*%pi)*(%pi++sind(120)/2-sind(2*240)/2))^0.5;
+printf("\nRMS output Voltage=%.0f V", VL)
\ No newline at end of file diff --git a/1733/CH5/EX5.8/5_8.sce b/1733/CH5/EX5.8/5_8.sce new file mode 100755 index 000000000..2d15940be --- /dev/null +++ b/1733/CH5/EX5.8/5_8.sce @@ -0,0 +1,17 @@ +//5.8
+clc;
+f=50;
+Vin=230;
+w=2*%pi*f;
+L=20*10^-3;R=5;
+th=atand(R/(w*L));
+printf("Firing angle=%.2f degree",th)
+disp('Therefore, Range of firing angle is 38.51 degree to 180 degree')
+Beta=180;
+printf("Conduction angle of thyristor=%.0f degree",Beta)
+IL=Vin/((R^2+w^2*L^2))^0.5;
+printf(" \nRMS load current =%.2f A", IL)
+Po=IL^2*R;
+printf(" \nPower Output =%.2f W", Po)
+pf_input=Po/(Vin*IL);
+printf(" \nInput Power factor =%.3f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH6/EX6.1/6_1.sce b/1733/CH6/EX6.1/6_1.sce new file mode 100755 index 000000000..f29fe7c48 --- /dev/null +++ b/1733/CH6/EX6.1/6_1.sce @@ -0,0 +1,14 @@ +//6.1
+clc;
+Vo_max=250;
+Vm=Vo_max*%pi*2^0.5/(3*sin(%pi/3));
+Vrms=Vm/2^0.5;
+printf("RMS value of input voltage =%.1f V", Vrms)
+I=50;
+Irms=I*2^0.5/3^0.5;
+PIV=3^0.5*Vm;
+Irms_input=(I^2/3)^0.5;
+Po=Vo_max*I*0.8;
+Pi_per_phase=1/3*Po;
+pf_input=Pi_per_phase/(Irms_input*Vrms)
+printf("\nInput power factor =%.3f lagging", pf_input)
\ No newline at end of file diff --git a/1733/CH6/EX6.2/6_2.sce b/1733/CH6/EX6.2/6_2.sce new file mode 100755 index 000000000..bb7203675 --- /dev/null +++ b/1733/CH6/EX6.2/6_2.sce @@ -0,0 +1,9 @@ +//6.2
+clc;
+Vo_max=250;
+alph=30;
+Vo=Vo_max*cosd(alph);
+printf("RMS value of output voltage for firing angle 30 degree =%.1f V", Vo)
+alph=45;
+Vo=Vo_max*cosd(alph);
+printf("\nRMS value of output voltage for firing angle 45 degree =%.2f V", Vo)
\ No newline at end of file diff --git a/1733/CH6/EX6.3/6_3.sce b/1733/CH6/EX6.3/6_3.sce new file mode 100755 index 000000000..47bf46eaf --- /dev/null +++ b/1733/CH6/EX6.3/6_3.sce @@ -0,0 +1,9 @@ +//6.3
+clc;
+Vrms=230;
+alph=0;
+Vo=6*2^0.5*Vrms/(%pi*2^0.5)*sin(%pi/6)*cosd(alph);
+printf("RMS value of output voltage for firing angle 0 degree =%.2f V", Vo)
+alph=30;
+Vo=6*2^0.5*Vrms/(%pi*2^0.5)*sin(%pi/6)*cosd(alph);
+printf("\nRMS value of output voltage for firing angle 30 degree =%.1f V", Vo)
\ No newline at end of file diff --git a/1733/CH7/EX7.1/7_1.sce b/1733/CH7/EX7.1/7_1.sce new file mode 100755 index 000000000..e6f7a62e7 --- /dev/null +++ b/1733/CH7/EX7.1/7_1.sce @@ -0,0 +1,6 @@ +//7.1
+clc;
+Vzb=14.8;
+Vt=0.85;
+V=Vzb+Vt;
+printf("The value of Voltage which will turn On the crowbar=%.2f V",V)
diff --git a/1733/CH7/EX7.10/7_10.sce b/1733/CH7/EX7.10/7_10.sce new file mode 100755 index 000000000..2ba645a08 --- /dev/null +++ b/1733/CH7/EX7.10/7_10.sce @@ -0,0 +1,17 @@ +//7.10
+clc;
+Vm=230*2^0.5;
+Vf=2*Vm/%pi;
+alph_a=%pi/4;
+Va=(2*Vm/%pi)*cos(alph_a);
+Rf=200;
+If=Vf/Rf;
+Kt=1.1;
+Ia=50;
+T=Ia*(Kt*If);
+printf("Torque of motor=%.3f Nm", T)
+Ra=0.25;
+Vb=Va-Ia*Ra-2;
+w=Vb/(Kt*If);
+N=w*60/(2*%pi);
+printf("\nSpeed of motor=%.1f rpm", N)
\ No newline at end of file diff --git a/1733/CH7/EX7.11/7_11.sce b/1733/CH7/EX7.11/7_11.sce new file mode 100755 index 000000000..2c713b887 --- /dev/null +++ b/1733/CH7/EX7.11/7_11.sce @@ -0,0 +1,14 @@ +//7.11
+clc;
+Vm=675*2^0.5;
+Ia1=30;
+N1=350;
+N2=500;
+Ia2=Ia1*N2/N1;
+printf("Armature current of the semi converter=%.2f A",Ia2)
+Va1=(1+cos(90.5*%pi/180))*Vm/%pi;
+Eb1=Va1-Ia1*(0.22+0.22);
+Eb2=Eb1*Ia2*N2/(Ia1*N1);
+Va2=Eb2+Ia2*(0.22+0.22);
+alph_a=acosd(Va2*%pi/Vm-1);
+printf("\nFiring angle of the semi converter=%.2f degree",alph_a)
diff --git a/1733/CH7/EX7.12/7_12.sce b/1733/CH7/EX7.12/7_12.sce new file mode 100755 index 000000000..cb3ebecf0 --- /dev/null +++ b/1733/CH7/EX7.12/7_12.sce @@ -0,0 +1,11 @@ +//7.12
+clc;
+Vm=230*2^0.5;
+Eg=-131.9
+Ia=50;
+Ra=0.25;
+Va=Eg+Ia*Ra+2;
+alph_a=acosd(Va*%pi/(2*Vm))
+printf("Firing angle of converter in the armature circuit=%.2f degree",alph_a)
+Po=abs(Va*Ia);
+printf("\npower back to source=%.3f W",Po)
\ No newline at end of file diff --git a/1733/CH7/EX7.13/7_13.sce b/1733/CH7/EX7.13/7_13.sce new file mode 100755 index 000000000..cacd76b30 --- /dev/null +++ b/1733/CH7/EX7.13/7_13.sce @@ -0,0 +1,14 @@ +//7.13
+clc;
+Vm=400*2^0.5/(3^0.5);
+Vf=3*3^0.5*Vm/%pi;
+Rf=250;
+If=Vf/Rf;
+Kt=1.33;
+Ia=50;
+w=2*%pi*1200/60;
+Vb=Kt*w*If;
+Ra=0.3;
+Va=Vb+Ia*Ra;
+alph_a=acosd(Va/Vf);
+printf("Firing angle of converter in the armature circuit=%.3f degree",alph_a)
diff --git a/1733/CH7/EX7.14/7_14.sce b/1733/CH7/EX7.14/7_14.sce new file mode 100755 index 000000000..3bf9dcb35 --- /dev/null +++ b/1733/CH7/EX7.14/7_14.sce @@ -0,0 +1,16 @@ +//7.14
+clc;
+V=500;
+Ia=200;
+Ra=0.1;
+Pi=V*Ia*0.5;
+printf("Input power=%.0f W", Pi)
+Va=0.5*500;
+Eb=Va-Ia*Ra;
+If=2;
+Kt=1.4;
+w=Eb/(Kt*If)
+N=w*60/(2*%pi)
+printf("\nSpeed=%.2f rpm", N)
+T=Kt*If*Ia;
+printf("\nTorque=%.0f N-m", T)
\ No newline at end of file diff --git a/1733/CH7/EX7.15/7_15.sce b/1733/CH7/EX7.15/7_15.sce new file mode 100755 index 000000000..cfa9afc87 --- /dev/null +++ b/1733/CH7/EX7.15/7_15.sce @@ -0,0 +1,16 @@ +//7.15
+clc;
+Rb=7.5;
+Ra=0.1;
+Kt=1.4;
+Ia=120;
+If=1.6;
+Duty_cycle=0.35;
+Vavg=Rb*Ia*(1-Duty_cycle);
+printf("Average voltage across chopper=%.0f V", Vavg)
+Pb=Rb*Ia^2*(1-Duty_cycle);
+printf("\nPower dissipated in breaking resistance=%.0f W", Pb)
+Eb=Vavg+Ia*Ra;
+w=Eb/(Kt*If);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
\ No newline at end of file diff --git a/1733/CH7/EX7.16/7_16.sce b/1733/CH7/EX7.16/7_16.sce new file mode 100755 index 000000000..d3edc33cf --- /dev/null +++ b/1733/CH7/EX7.16/7_16.sce @@ -0,0 +1,55 @@ +//7.16
+clc;
+Vm=220*2^0.5;
+alph=90;
+Va=3*3^0.5*Vm*(1+cosd(alph))/(2*%pi);
+Kt=2;
+Ra=0.72;
+disp('For armature current of 5A')
+Ia=5;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
+disp('For armature current of 10A')
+Ia=10;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
+disp('For armature current of 20A')
+Ia=20;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
+disp('For armature current of 30A')
+Ia=30;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
+disp('For armature current of 50A')
+Ia=50;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
+disp('For armature current of 60A')
+Ia=60;
+T=Ia*Kt;
+printf("\nTorque=%.2f N-m", T)
+Eb=Va-Ia*Ra;
+w=Eb/(Kt);
+N=w*60/(2*%pi);
+printf("\nSpeed=%.2f rpm", N)
diff --git a/1733/CH7/EX7.17/7_17.sce b/1733/CH7/EX7.17/7_17.sce new file mode 100755 index 000000000..1ce6f11c1 --- /dev/null +++ b/1733/CH7/EX7.17/7_17.sce @@ -0,0 +1,16 @@ +//7.17
+clc;
+Vm=400*2^0.5;
+alph=30;
+Vavg=3*3^0.5*Vm/(2*%pi*3^0.5)*(1+cosd(alph));
+I=5;
+R=0.1;
+Eb=Vavg-I*R;
+N=Eb/0.3;
+printf("Speed at no load=%.0f rpm",N)
+N=1600;
+Eb=N*0.3;
+I=50;
+V=Eb+I*R;
+alph=acosd(3^0.5*2*%pi*V/(Vm*3*3^0.5)-1)
+printf("\nFiring angle =%.2f degree",alph)
\ No newline at end of file diff --git a/1733/CH7/EX7.18/7_18.sce b/1733/CH7/EX7.18/7_18.sce new file mode 100755 index 000000000..e9c2637e6 --- /dev/null +++ b/1733/CH7/EX7.18/7_18.sce @@ -0,0 +1,9 @@ +//7.18
+clc;
+Vdc=2*2^0.5*230/%pi;
+TL=25;
+Kt=0.25;
+Ia=(TL/Kt)^0.5;
+w=(Vdc-1.5*Ia)/(Kt*Ia);
+N=w*60/(2*%pi);
+printf("Motor speed=%.2f rpm",N)
\ No newline at end of file diff --git a/1733/CH7/EX7.19/7_19.sce b/1733/CH7/EX7.19/7_19.sce new file mode 100755 index 000000000..c3fe038aa --- /dev/null +++ b/1733/CH7/EX7.19/7_19.sce @@ -0,0 +1,21 @@ +//7.19;
+clc;
+p=4
+f=50;
+ns=2*f*60/p;
+TL_1300=40*(1300/1440)^2;
+printf("Load torque=%.2f Nm",TL_1300)
+n=1300;
+s=(ns-n)/ns;
+r2s=0.08*2^2; // in book r2'=r2s
+x2s=0.12*2^2;
+I2s=(TL_1300*2*%pi*s*25/(3*r2s))^0.5;
+I2=2*I2s;
+printf("\nRotor current=%.2f A",I2)
+r1=0.64;
+x1=1.1;
+V1=I2s*((r1+r2s/s)^2+(x1+x2s)^2)^0.5;
+Vstator=3^0.5*V1;
+printf("\nStator applied voltage=%.1f V",Vstator)
+
+
diff --git a/1733/CH7/EX7.2/7_2.sce b/1733/CH7/EX7.2/7_2.sce new file mode 100755 index 000000000..af876369b --- /dev/null +++ b/1733/CH7/EX7.2/7_2.sce @@ -0,0 +1,9 @@ +//7.2
+clc;
+Rth=50*15/(50+15);
+I=20*10^-3;
+Vzb=14.8;
+Vt=0.85;
+V=Rth*I;// Voltage drop across the thevenin's resistance
+Vi=V+Vzb+Vt;
+printf("The value of input voltage Vi=%.3f V",Vi)
diff --git a/1733/CH7/EX7.20/7_20.sce b/1733/CH7/EX7.20/7_20.sce new file mode 100755 index 000000000..1140c135e --- /dev/null +++ b/1733/CH7/EX7.20/7_20.sce @@ -0,0 +1,25 @@ +//7.20
+clc;
+r2s=0.32;
+r1=0.64;
+x2s=0.48;
+x1=1.1;
+s=r2s/(r1^2+(x1+x2s)^2)^0.5;
+printf("\nSlip=%.4f ",s)
+V1=400/3^0.5;
+Tmax=1.5*V1^2/(2*%pi*25)*(1/(r1+(r1^2+(x1+x2s)^2)^0.5))
+printf("\nMaximum Torque=%.2f Nm",Tmax)
+n=25*(1-s);
+N=n*60;
+printf("\nSpeed=%.2f rpm",N)
+disp('at 25 Hz')
+x1=0.55;
+x2s=0.24;
+s=r2s/(r1^2+(x1+x2s)^2)^0.5;
+printf("\nSlip=%.4f ",s)
+V1=0.5*400/3^0.5;
+Tmax=1.5*V1^2/(2*%pi*12.5)*(1/(r1+(r1^2+(x1+x2s)^2)^0.5))
+printf("\nMaximum Torque=%.2f Nm",Tmax)
+n=12.5*(1-s);
+N=n*60;
+printf("\nSpeed=%.3f rpm",N)
\ No newline at end of file diff --git a/1733/CH7/EX7.21/7_21.sce b/1733/CH7/EX7.21/7_21.sce new file mode 100755 index 000000000..c2baa8ee2 --- /dev/null +++ b/1733/CH7/EX7.21/7_21.sce @@ -0,0 +1,17 @@ +//7.21
+clc;
+r2s=0.32;
+r1=0.64;
+x2s=0.48;
+x1=1.1;
+
+V1=400/3^0.5;
+Tstarting=3*V1^2*r2s/(2*%pi*25)*(1/((r1+r2s)^2+(x1+x2s)^2))
+printf("\nStarting Torque=%.2f Nm",Tstarting)
+
+disp('at 25 Hz')
+x1=0.55;
+x2s=0.24;
+V1=0.5*400/3^0.5;
+Tstarting=3*V1^2*r2s/(2*%pi*12.5)*(1/((r1+r2s)^2+(x1+x2s)^2))
+printf("\nStarting Torque=%.2f Nm",Tstarting)
\ No newline at end of file diff --git a/1733/CH7/EX7.3/7_3.sce b/1733/CH7/EX7.3/7_3.sce new file mode 100755 index 000000000..729a08357 --- /dev/null +++ b/1733/CH7/EX7.3/7_3.sce @@ -0,0 +1,11 @@ +//7.3
+clc;
+V=200;
+I=4*10^-3;
+R=V/I;
+printf("Resistance=%.0f ohm", R)
+Vc=0;
+RL=V/10;
+tq=15*10^-6;
+C=tq/(RL *log(2))*10^6;
+printf("\nCapacitance=%.3f uF", C)
\ No newline at end of file diff --git a/1733/CH7/EX7.4/7_4.sce b/1733/CH7/EX7.4/7_4.sce new file mode 100755 index 000000000..b72e98ad9 --- /dev/null +++ b/1733/CH7/EX7.4/7_4.sce @@ -0,0 +1,23 @@ +//7.4
+clc;
+V=230;
+R=60;
+Po_max=V^2/R;
+disp('When power output is 400')
+Po=400;
+Duty_cycle=Po/Po_max;
+printf("Duty cycle=%.4f", Duty_cycle)
+Ton=0.4537;
+T=1;
+Toff=1-Ton;
+Ratio=Ton/Toff;
+printf("\nRatio of Ton and Toff when power output is 400=%.4f", Ratio)
+disp('When power output is 700')
+Po=700;
+Duty_cycle=Po/Po_max;
+printf("Duty cycle=%.4f", Duty_cycle)
+Ton=0.794;
+T=1;
+Toff=1-Ton;
+Ratio=Ton/Toff;
+printf("\nRatio of Ton and Toff when power output is 700=%.4f", Ratio)
\ No newline at end of file diff --git a/1733/CH7/EX7.5/7_5.sce b/1733/CH7/EX7.5/7_5.sce new file mode 100755 index 000000000..827403a28 --- /dev/null +++ b/1733/CH7/EX7.5/7_5.sce @@ -0,0 +1,9 @@ +// 7.5
+clc;
+V=230;
+Ton=12;
+Toff=19;
+Duty_cycle=Ton/(Ton+Toff);
+printf("Duty cycle=%.4f", Duty_cycle)
+Vrms_output=V*Duty_cycle^0.5;
+printf("\nRMS output voltage=%.1f V", Vrms_output)
diff --git a/1733/CH7/EX7.6/7_6.sce b/1733/CH7/EX7.6/7_6.sce new file mode 100755 index 000000000..bdff7dbaf --- /dev/null +++ b/1733/CH7/EX7.6/7_6.sce @@ -0,0 +1,14 @@ +//7.6
+clc;
+Vin=230;
+Vm=2^0.5*Vin;
+alph=90;
+R=50;
+VL=Vm*(1/(2*%pi)*(%pi-90*%pi/180+sind(180)/2))^0.5;
+Po=VL^2/R;
+printf("Power supplied when firing angle is 90 degree =%.2f W", Po)
+alph=120;
+R=50;
+VL=Vm*(1/(2*%pi)*(%pi-120*%pi/180+sind(240)/2))^0.5;
+Po=VL^2/R;
+printf("\nPower supplied when firing angle is 120 degree =%.2f W", Po)
\ No newline at end of file diff --git a/1733/CH7/EX7.7/7_7.sce b/1733/CH7/EX7.7/7_7.sce new file mode 100755 index 000000000..cc03360f7 --- /dev/null +++ b/1733/CH7/EX7.7/7_7.sce @@ -0,0 +1,17 @@ +//7.7
+clc;
+V=230;
+R=10;
+Pmax=V^2/R;
+P=2645;
+VL=(P*R)^2;
+//VL=Vm*(1/(2*%pi)*(%pi-alph*%pi/180+sind(2*alph)/2))^0.5;
+//on solving
+alph=90;
+printf("Firing angle when 2645 W Power is supplied =%.0f degree", alph)
+P=1587;
+VL=(P*R)^2;
+//VL=Vm*(1/(2*%pi)*(%pi-alph*%pi/180+sind(2*alph)/2))^0.5;
+//on solving
+alph=108.6;
+printf("\nFiring angle when 2645 W Power is supplied =%.1f degree", alph)
\ No newline at end of file diff --git a/1733/CH7/EX7.8/7_8.sce b/1733/CH7/EX7.8/7_8.sce new file mode 100755 index 000000000..97452ceb8 --- /dev/null +++ b/1733/CH7/EX7.8/7_8.sce @@ -0,0 +1,14 @@ +//7.8
+clc;
+disp('For triac')
+P=20000;
+V=400;
+I=P/(V*3^0.5);
+printf("Current rating of traic=%.2f A",I)
+PIV=2^0.5*V;
+printf("\nPIV of traic=%.2f V",PIV)
+disp('When two thyristors are connected in antiparallel')
+I=I/2^0.5; //since each thyristor will conduct for half cycle
+printf("Current rating =%.2f A",I)
+PIV=2^0.5*V;
+printf("\nPIV =%.2f V",PIV)
\ No newline at end of file diff --git a/1733/CH7/EX7.9/7_9.sce b/1733/CH7/EX7.9/7_9.sce new file mode 100755 index 000000000..a00a6027d --- /dev/null +++ b/1733/CH7/EX7.9/7_9.sce @@ -0,0 +1,20 @@ +//7.9
+clc;
+Vm=230*2^0.5;
+Vf=2*Vm/%pi;
+Rf=200;
+If=Vf/Rf;
+T=50;
+Kt=0.8;
+Ia=T/(Kt*If);
+w=2*%pi*900/60;
+Vb=Kt*w*If;
+Ra=0.3;
+Va=Vb+Ia*Ra;
+alph_a=acosd(Va*%pi/Vm-1)
+printf("Firing angle of converter in the armature circuit=%.3f degree",alph_a)
+Po_a=Va*Ia;
+Iin=Ia*((%pi-alph_a*%pi/180)/%pi)^0.5;
+VA_input=Iin*230;
+pf=Po_a/VA_input;
+printf("\npower factor of converter in the armature circuit=%.3f lagging",pf)
diff --git a/1733/CH8/EX8.1/8_1.sce b/1733/CH8/EX8.1/8_1.sce new file mode 100755 index 000000000..21301c163 --- /dev/null +++ b/1733/CH8/EX8.1/8_1.sce @@ -0,0 +1,11 @@ +//8.1
+clc;
+Vcc=12;
+Re=3.8*10^3;
+Rc=4.1*10^3;
+Ie=(Vcc-0.7)/Re*10^3;
+printf("Ie=%3f mA",Ie)
+Ic=0.5*Ie;
+printf("\nIc=%3f mA",Ic)
+Vo=Vcc-Ic*Rc*10^-3;
+printf("\nVo=%1f V",Vo)
\ No newline at end of file diff --git a/1733/CH8/EX8.10/8_10.sce b/1733/CH8/EX8.10/8_10.sce new file mode 100755 index 000000000..db4f9a4ae --- /dev/null +++ b/1733/CH8/EX8.10/8_10.sce @@ -0,0 +1,10 @@ +//8.10
+clc;
+f=10*10^3;
+Vp=10;
+Initial_slope_of_sine_wa=2*%pi*f*Vp*10^-6;
+printf("Initial slope of sine wave= %.3f V/us", Initial_slope_of_sine_wa)
+disp('Since slew rate of the amplifier is 0.5V/us, so slew rate distortion will occur')
+Sr=0.5*10^6;
+Vp=Sr/(2*%pi*f);
+printf("Amplitude of the input signal=%.2f V",Vp)
diff --git a/1733/CH8/EX8.11/8_11.sce b/1733/CH8/EX8.11/8_11.sce new file mode 100755 index 000000000..0172dd042 --- /dev/null +++ b/1733/CH8/EX8.11/8_11.sce @@ -0,0 +1,16 @@ +//8.11
+clc;
+Rf=100*10^3;
+R1=1000;
+Gain=-Rf/R1;
+printf("Closed loop gain=%.0f", Gain)
+Av=100000;
+Zo=75;
+f_unity=10^6;
+beta=R1/(R1+Rf);
+Z_closed=Zo/(1+Av*beta);
+printf("\nClosed loop output impedance=%.6f ohm", Z_closed)
+closed_loop_upper_cut_f=f_unity*beta;
+printf("\nClosed loop upper cutoff frequency=%.0f Hz", closed_loop_upper_cut_f)
+closed_loop_input_impe=1000;
+printf("\nClosed loop input impedance=%.0f ohm", closed_loop_input_impe)
\ No newline at end of file diff --git a/1733/CH8/EX8.12/8_12.sce b/1733/CH8/EX8.12/8_12.sce new file mode 100755 index 000000000..ac5d7a45b --- /dev/null +++ b/1733/CH8/EX8.12/8_12.sce @@ -0,0 +1,16 @@ +//8.12
+clc;
+R2=100*10^3;
+R1=100;
+Zin=2*10^6;
+Zo=75;
+Gain=(R1+R2)/R1;
+printf("Closed loop voltage gain=%.0f", Gain)
+Av=100000;
+
+beta=R1/(R1+R2);
+Z_closed=Zin*(1+Av*beta)*10^-6;
+printf("\nClosed loop input impedance=%.1f mega-ohm", Z_closed)
+
+closed_loop_output_impe=Zo/(1+Av*beta);
+printf("\nClosed loop output impedance=%.3f ohm", closed_loop_output_impe)
\ No newline at end of file diff --git a/1733/CH8/EX8.13/8_13.sce b/1733/CH8/EX8.13/8_13.sce new file mode 100755 index 000000000..9697a2c38 --- /dev/null +++ b/1733/CH8/EX8.13/8_13.sce @@ -0,0 +1,22 @@ +//8.13
+clc;
+R1=1000;
+R2=100000;
+Avf=(R1+R2)/R1;
+printf("Closed loop gain=%.0f", Avf)
+beta=R1/(R1+R2);
+f_unity=1000000;
+f2=f_unity*beta;
+printf("\nUpper cut off frequency=%.0f Hz", f2)
+disp('Critical frequencies')
+C1=10^-6;
+R3=150*10^3;
+fc=1/(2*%pi*R3*C1);
+printf("\nCritical frequency when R is 150 Kohm=%.3f Hz", fc)
+R3=15*10^3;
+fc=1/(2*%pi*R3*C1);
+printf("\nCritical frequency when R is 15 Kohm=%.2f Hz", fc)
+R3=1*10^3;
+fc=1/(2*%pi*R3*C1);
+printf("\nCritical frequency when R is 1 Kohm=%.2f Hz", fc)
+disp('The lower cutt off frequency is the highest of the above three critical frequencies i.e.159.15 Hz')
\ No newline at end of file diff --git a/1733/CH8/EX8.14/8_14.sce b/1733/CH8/EX8.14/8_14.sce new file mode 100755 index 000000000..e762e3710 --- /dev/null +++ b/1733/CH8/EX8.14/8_14.sce @@ -0,0 +1,11 @@ +//8.14
+clc;
+Rf=50*10^3;
+R1=10*10^3;
+R2=R1;
+R3=R1;
+V1=0.5;
+V2=1.5;
+V3=0.2;
+Vo=-Rf*((V1/R1)+(V3/R3)+(V2/R2));
+printf("Output voltage=%.0f V",Vo)
diff --git a/1733/CH8/EX8.17/8_17.sce b/1733/CH8/EX8.17/8_17.sce new file mode 100755 index 000000000..f5b16eeb6 --- /dev/null +++ b/1733/CH8/EX8.17/8_17.sce @@ -0,0 +1,8 @@ +//8.17
+clc;
+R1=50*10^3;
+R=10*10^3;
+Vs1=4.5;
+Vs2=5;
+Vo=R1/R*(Vs2-Vs1);
+printf("Output voltage=%.1f V", Vo)
\ No newline at end of file diff --git a/1733/CH8/EX8.18/8_18.sce b/1733/CH8/EX8.18/8_18.sce new file mode 100755 index 000000000..a8068a4b1 --- /dev/null +++ b/1733/CH8/EX8.18/8_18.sce @@ -0,0 +1,6 @@ +//8.18
+clc;
+Vcom=0.5*(2+2);
+Acom=5*10^-3/Vcom;
+CMRR=20*log10(50/Acom);
+printf("CMRR=%.2f dB",CMRR)
\ No newline at end of file diff --git a/1733/CH8/EX8.2/8_2.sce b/1733/CH8/EX8.2/8_2.sce new file mode 100755 index 000000000..62c340397 --- /dev/null +++ b/1733/CH8/EX8.2/8_2.sce @@ -0,0 +1,22 @@ +//8.2
+clc;
+Vcc=12;
+Re=1*10^6;
+Rc=1*10^6;
+Ie=(Vcc-0.7)/Re*10^3;
+re=25*2/Ie;
+printf("re=%.0f ohm",re)
+Vgd=Rc/(2*re);
+printf("\nVoltage gain for the differential input=%.1f ",Vgd)
+Vi=2.1*10^-3;
+Vo_Ac=Vgd*Vi;
+printf("\nAC output voltage=%.4f V",Vo_Ac)
+Beta=75;
+Zi=2*Beta*re;
+printf("\nInput impedance=%.0f ohm",Zi)
+Rc=1*10^6;
+RE=10^6;
+CMG=Rc/(re+2*RE);
+printf("\nCommon mode gain=%.3f ",CMG)
+CMRR=Vgd/CMG;
+printf("\nCommon mode rejection ratio=%.2f ",CMRR)
diff --git a/1733/CH8/EX8.21/8_21.sce b/1733/CH8/EX8.21/8_21.sce new file mode 100755 index 000000000..6156a53be --- /dev/null +++ b/1733/CH8/EX8.21/8_21.sce @@ -0,0 +1,15 @@ +//8.21
+clc;
+R2=5.6*10^3;
+R1=1*10^3;
+Avf=1+R2/R1;
+printf("Mid band Gain=%.2f", Avf)
+Vin=1.6;
+Vo=Avf*Vin;
+printf("\nOutput voltage=%.3f mV", Vo)
+R=1000;
+C=0.001*10^-6;
+fc=1/(2*%pi*R*C);
+printf("\nCutt off frequency=%.2f Hz", fc)
+Gain=0.707*Avf;
+printf("\nGain=%.3f", Gain)
diff --git a/1733/CH8/EX8.22/8_22.sce b/1733/CH8/EX8.22/8_22.sce new file mode 100755 index 000000000..959896209 --- /dev/null +++ b/1733/CH8/EX8.22/8_22.sce @@ -0,0 +1,15 @@ +//8.22
+clc;
+R2=5.6*10^3;
+R1=10*10^3;
+Avf=1+R2/R1;
+printf("Mid band Gain=%.2f", Avf)
+Vin=1.1;
+Vo=Avf*Vin;
+printf("\nOutput voltage=%.3f mV", Vo)
+R=10000;
+C=0.001*10^-6;
+fc=1/(2*%pi*R*C);
+printf("\nCutt off frequency=%.2f Hz", fc)
+Vo=0.707*Avf;
+printf("\nOutput voltage=%.3f mV", Vo)
diff --git a/1733/CH8/EX8.3/8_3.sce b/1733/CH8/EX8.3/8_3.sce new file mode 100755 index 000000000..f1fd855b3 --- /dev/null +++ b/1733/CH8/EX8.3/8_3.sce @@ -0,0 +1,11 @@ +//8.3
+clc;
+open_loop_gain=100000;
+FF=0.01;
+Closed_loop_gain=open_loop_gain/(1+open_loop_gain*FF);
+printf("Closed loop gain=%.1f",Closed_loop_gain)
+Vi=2*10^-3;
+output=Vi*Closed_loop_gain;
+printf("\nOutput=%.4f V",output)
+Error_voltage=output/open_loop_gain*10^6;
+printf("\nError voltage=%.3f uV",Error_voltage)
\ No newline at end of file diff --git a/1733/CH8/EX8.4/8_4.sce b/1733/CH8/EX8.4/8_4.sce new file mode 100755 index 000000000..807a5baae --- /dev/null +++ b/1733/CH8/EX8.4/8_4.sce @@ -0,0 +1,11 @@ +//8.4
+clc;
+open_loop_gain=15000;
+FF=0.01;
+Closed_loop_gain=open_loop_gain/(1+open_loop_gain*FF);
+printf("Closed loop gain=%.3f",Closed_loop_gain)
+Vi=2*10^-3;
+output=Vi*Closed_loop_gain;
+printf("\nOutput=%.4f V",output)
+Error_voltage=output/open_loop_gain*10^6;
+printf("\nError voltage=%.3f uV",Error_voltage)
\ No newline at end of file diff --git a/1733/CH8/EX8.5/8_5.sce b/1733/CH8/EX8.5/8_5.sce new file mode 100755 index 000000000..10b09974a --- /dev/null +++ b/1733/CH8/EX8.5/8_5.sce @@ -0,0 +1,10 @@ +//8.5
+clc;
+Av=100000;
+beta=0.01;
+Zi=2*10^6;
+Closed_loop_input_imped=Zi*(1+Av*beta)*10^-6;
+printf("Closed loop input impedance=%.0f Mega-ohm",Closed_loop_input_imped)
+Zo=75;
+Closed_loop_output_imped=Zo/(1+Av*beta);
+printf("\nClosed loop output impedance=%.4f ohm",Closed_loop_output_imped)
\ No newline at end of file diff --git a/1733/CH8/EX8.6/8_6.sce b/1733/CH8/EX8.6/8_6.sce new file mode 100755 index 000000000..9e43585c1 --- /dev/null +++ b/1733/CH8/EX8.6/8_6.sce @@ -0,0 +1,8 @@ +//8.6
+clc;
+Av=100000;
+beta=0.001;
+Closed_loop_gain=Av/(1+Av*beta);
+printf("\nClosed loop gain=%.1f ",Closed_loop_gain)
+Desensitivity=(1+Av*beta);
+printf("\nDesensitivity=%.0f",Desensitivity)
\ No newline at end of file diff --git a/1733/CH8/EX8.7/8_7.sce b/1733/CH8/EX8.7/8_7.sce new file mode 100755 index 000000000..eaea5c70d --- /dev/null +++ b/1733/CH8/EX8.7/8_7.sce @@ -0,0 +1,24 @@ +//8.7
+clc;
+f_unity=10^6;
+Av=100000;
+open_loop_upper_cutoff_f=f_unity/Av;
+printf("open loop upper cutoff frequency=%.0f Hz", open_loop_upper_cutoff_f)
+disp('when beta=0.001')
+beta=0.001;
+Closed_loop_gain=Av/(1+Av*beta);
+printf("\nClosed loop gain=%.1f ",Closed_loop_gain)
+upper_cutoff_frequency=f_unity/Closed_loop_gain;
+printf("\nUpper cutoff frequency=%.0f Hz", upper_cutoff_frequency)
+disp('when beta=0.01')
+beta=0.01;
+Closed_loop_gain=Av/(1+Av*beta);
+printf("\nClosed loop gain=%.1f ",Closed_loop_gain)
+upper_cutoff_frequency=f_unity/Closed_loop_gain;
+printf("\nUpper cutoff frequency=%.0f Hz", upper_cutoff_frequency)
+disp('when beta=0.1')
+beta=0.1;
+Closed_loop_gain=Av/(1+Av*beta);
+printf("\nClosed loop gain=%.3f ",Closed_loop_gain)
+upper_cutoff_frequency=f_unity/Closed_loop_gain;
+printf("\nUpper cutoff frequency=%.0f Hz", upper_cutoff_frequency)
diff --git a/1733/CH8/EX8.8/8_8.sce b/1733/CH8/EX8.8/8_8.sce new file mode 100755 index 000000000..c666abc0a --- /dev/null +++ b/1733/CH8/EX8.8/8_8.sce @@ -0,0 +1,6 @@ +//8.8
+clc;
+Imax=10*10^-6;
+C=4000*10^-12;
+Slew_rate=Imax/C;
+printf("Slew rate=%.0f V/s", Slew_rate)
\ No newline at end of file diff --git a/1733/CH8/EX8.9/8_9.sce b/1733/CH8/EX8.9/8_9.sce new file mode 100755 index 000000000..e91b0c665 --- /dev/null +++ b/1733/CH8/EX8.9/8_9.sce @@ -0,0 +1,7 @@ +//8.9
+clc;
+f=10*10^3;
+Vp=6
+Initial_slope_of_sine_wa=2*%pi*f*Vp*10^-6;
+printf("Initial slope of sine wave= %.5f V/us", Initial_slope_of_sine_wa)
+disp('Since slew rate of the amplifier is 0.4V/us, there is no slew rate distortion')
diff --git a/1733/CH9/EX9.1/9_1.sce b/1733/CH9/EX9.1/9_1.sce new file mode 100755 index 000000000..cc5dc8084 --- /dev/null +++ b/1733/CH9/EX9.1/9_1.sce @@ -0,0 +1,6 @@ +//9.1
+clc;
+x=10;
+disp('The binary number is')
+a=dec2bin(x);
+disp('',a)
\ No newline at end of file diff --git a/1733/CH9/EX9.10/9_10.sce b/1733/CH9/EX9.10/9_10.sce new file mode 100755 index 000000000..087e06234 --- /dev/null +++ b/1733/CH9/EX9.10/9_10.sce @@ -0,0 +1,15 @@ +//9.10
+clc;
+c=24;
+xc= bitcmp (c ,8);
+A=xc+1;
+B=16;
+Ans=A+B;
+a=dec2bin(Ans)
+disp(a)
+disp('Since the MSB is 1 so the number is negative and equal to -8')
+
+Ans=A-B;
+a=dec2bin(Ans)
+disp(a)
+disp('Since the MSB is 1 so the number is negative and equal to -40')
\ No newline at end of file diff --git a/1733/CH9/EX9.11/9_11.sce b/1733/CH9/EX9.11/9_11.sce new file mode 100755 index 000000000..57ee2fad2 --- /dev/null +++ b/1733/CH9/EX9.11/9_11.sce @@ -0,0 +1,16 @@ +//9.11
+clc;
+c=60;
+xc= bitcmp (c ,8);
+A=xc+1;
+d=28;
+xd= bitcmp (d ,8);
+B=xd+1;
+Ans=B+A;
+a=dec2bin(Ans)
+disp(a)
+disp('Since the MSB is 1 so the number is negative and equal to -88')
+Ans=B-A;
+a=dec2bin(Ans,8)
+disp(a)
+disp('Since the MSB is 0 so the number is positive and equal to +32')
\ No newline at end of file diff --git a/1733/CH9/EX9.12/9_12.sce b/1733/CH9/EX9.12/9_12.sce new file mode 100755 index 000000000..8bda2fe42 --- /dev/null +++ b/1733/CH9/EX9.12/9_12.sce @@ -0,0 +1,26 @@ +// 9.12
+clc;
+q =0;
+b =0;
+s =0;
+a =0.6875; // accepting the decimal input from user
+d = modulo (a ,1) ;
+a = floor ( a ) ;
+while (a >0)
+x = modulo (a ,2) ;
+b = b + (10^ q ) * x ;
+ a = a /2;
+ a = floor ( a ) ;
+ q = q +1;
+ end
+ for i =1:10
+ // for fractional part
+d = d *2;
+ q = floor ( d ) ;
+ s = s + q /(10^ i ) ;
+ if d >=1 then
+ d =d -1;
+ end
+end
+m=b+s;
+printf("Equivalent binary number=%.4f",m)
diff --git a/1733/CH9/EX9.13/9_13.sce b/1733/CH9/EX9.13/9_13.sce new file mode 100755 index 000000000..1246d90d2 --- /dev/null +++ b/1733/CH9/EX9.13/9_13.sce @@ -0,0 +1,26 @@ +// 9.13
+clc;
+q =0;
+b =0;
+s =0;
+a =0.634; // accepting the decimal input from user
+d = modulo (a ,1) ;
+a = floor ( a ) ;
+while (a >0)
+x = modulo (a ,2) ;
+b = b + (10^ q ) * x ;
+ a = a /2;
+ a = floor ( a ) ;
+ q = q +1;
+ end
+ for i =1:10
+ // for fractional part
+d = d *2;
+ q = floor ( d ) ;
+ s = s + q /(10^ i ) ;
+ if d >=1 then
+ d =d -1;
+ end
+end
+m=b+s;
+printf("Equivalent binary number=%.7f",m)
diff --git a/1733/CH9/EX9.14/9_14.sce b/1733/CH9/EX9.14/9_14.sce new file mode 100755 index 000000000..b3d27729d --- /dev/null +++ b/1733/CH9/EX9.14/9_14.sce @@ -0,0 +1,27 @@ +// 9.14
+clc;
+clear;
+q =0;
+b =0;
+s =0;
+a =39.12; // accepting the decimal input from user
+d = modulo (a ,1) ;
+a = floor ( a ) ;
+while (a >0)
+x = modulo (a ,2) ;
+b = b + (10^ q ) * x ;
+ a = a /2;
+ a = floor ( a ) ;
+ q = q +1;
+ end
+ for i =1:10
+ // for fractional part
+d = d *2;
+ q = floor ( d ) ;
+ s = s + q /(10^ i ) ;
+ if d >=1 then
+ d =d -1;
+ end
+end
+m=b+s;
+printf("Equivalent binary number=%.7f",m)
diff --git a/1733/CH9/EX9.15/9_15.sce b/1733/CH9/EX9.15/9_15.sce new file mode 100755 index 000000000..3bf47433b --- /dev/null +++ b/1733/CH9/EX9.15/9_15.sce @@ -0,0 +1,10 @@ +//9.15
+clc;
+a='1011010101';
+d=bin2dec(a);
+c='100011010';
+b=bin2dec(c);
+e=d+b;
+f=dec2bin(e);
+disp('addition of binary numbers =')
+disp(f)
\ No newline at end of file diff --git a/1733/CH9/EX9.16/9_16.sce b/1733/CH9/EX9.16/9_16.sce new file mode 100755 index 000000000..71c94eac5 --- /dev/null +++ b/1733/CH9/EX9.16/9_16.sce @@ -0,0 +1,38 @@ +//9.16
+clc;
+p =1;
+ q =1;
+ z =0;
+ b =0;
+ w =0;
+ f =0;
+bin =11001.001011; // binary input
+d = modulo (bin ,1) ;
+d= d *10^10;
+ a = floor ( bin ) ;
+ while (a >0)
+ r = modulo (a ,10) ;
+ b(1,q) = r ;
+ a=a /10;
+ a= floor ( a ) ;
+ q = q +1;
+ end
+ for m =1: q -1
+ c=m -1;
+ f=f+b(1,m) *(2^ c);
+ end
+ while (d >0)
+ e = modulo (d ,2)
+ w (1 , p ) = e
+ d = d /10;
+ d = floor ( d )
+ p = p +1;
+ end
+ for n =1: p -1
+ z = z + w (1 , n ) *(0.5) ^(11 - n ) ;
+ end
+ z = z *10000;
+ z = round ( z ) ;
+ z = z /10000;
+ x=f+z;
+ printf("Equivalent decimal number=%.6f",x)
\ No newline at end of file diff --git a/1733/CH9/EX9.17/9_17.sce b/1733/CH9/EX9.17/9_17.sce new file mode 100755 index 000000000..c1449b713 --- /dev/null +++ b/1733/CH9/EX9.17/9_17.sce @@ -0,0 +1,6 @@ +//9.17
+clc;
+a='8A3';
+disp('The decimal no. is')
+x=hex2dec(a);
+disp('',x)
diff --git a/1733/CH9/EX9.18/9_18.sce b/1733/CH9/EX9.18/9_18.sce new file mode 100755 index 000000000..4629b2d50 --- /dev/null +++ b/1733/CH9/EX9.18/9_18.sce @@ -0,0 +1,6 @@ +//9.18
+clc;
+a=268;
+disp('The hexa decimal no. is')
+x=dec2hex(a);
+disp('',x)
diff --git a/1733/CH9/EX9.19/9_19.sce b/1733/CH9/EX9.19/9_19.sce new file mode 100755 index 000000000..6e8883b52 --- /dev/null +++ b/1733/CH9/EX9.19/9_19.sce @@ -0,0 +1,6 @@ +//9.19
+clc;
+a=5741;
+disp('The hexa decimal no. is')
+x=dec2hex(a);
+disp('',x)
diff --git a/1733/CH9/EX9.2/9_2.sce b/1733/CH9/EX9.2/9_2.sce new file mode 100755 index 000000000..dbe96a851 --- /dev/null +++ b/1733/CH9/EX9.2/9_2.sce @@ -0,0 +1,6 @@ +//9.2
+clc;
+x=25;
+disp('The binary number is')
+a=dec2bin(x);
+disp('',a)
\ No newline at end of file diff --git a/1733/CH9/EX9.20/9_20.sce b/1733/CH9/EX9.20/9_20.sce new file mode 100755 index 000000000..85d004c43 --- /dev/null +++ b/1733/CH9/EX9.20/9_20.sce @@ -0,0 +1,6 @@ +//9.20
+clc;
+a='D70';
+disp('The decimal no. is')
+x=hex2dec(a);
+disp('',x)
diff --git a/1733/CH9/EX9.3/9_3.sce b/1733/CH9/EX9.3/9_3.sce new file mode 100755 index 000000000..07a7638b6 --- /dev/null +++ b/1733/CH9/EX9.3/9_3.sce @@ -0,0 +1,6 @@ +//9.3
+clc;
+a='101110';
+disp('The decimal no. is')
+x=bin2dec(a);
+disp('',x)
diff --git a/1733/CH9/EX9.4/9_4.sce b/1733/CH9/EX9.4/9_4.sce new file mode 100755 index 000000000..38ad63aa7 --- /dev/null +++ b/1733/CH9/EX9.4/9_4.sce @@ -0,0 +1,10 @@ +//9.4
+clc;
+x=15;
+disp('The binary number of decimal 15 is')
+a=dec2bin(x);
+disp('',a)
+x=31;
+disp('The binary number of decimal 31 is')
+a=dec2bin(x);
+disp('',a)
\ No newline at end of file diff --git a/1733/CH9/EX9.5/9_5.sci b/1733/CH9/EX9.5/9_5.sci new file mode 100755 index 000000000..6fcb642c2 --- /dev/null +++ b/1733/CH9/EX9.5/9_5.sci @@ -0,0 +1,11 @@ +//9.5
+clc;
+a='11001';
+b=bin2dec(a);
+c='10001';
+f=bin2dec(c);
+d=b-f;
+s=dec2bin(d);
+disp('Subtraction of two binary numbers=')
+disp(s)
+
diff --git a/1733/CH9/EX9.6/9_6.sci b/1733/CH9/EX9.6/9_6.sci new file mode 100755 index 000000000..4d90c1e5a --- /dev/null +++ b/1733/CH9/EX9.6/9_6.sci @@ -0,0 +1,11 @@ +//9.6
+clc;
+a='1010';
+b=bin2dec(a);
+c='0111';
+f=bin2dec(c);
+d=b-f;
+s=dec2bin(d);
+disp('Subtraction of two binary numbers=')
+disp(s)
+
diff --git a/1733/CH9/EX9.7/9_7.sce b/1733/CH9/EX9.7/9_7.sce new file mode 100755 index 000000000..65ffc5b89 --- /dev/null +++ b/1733/CH9/EX9.7/9_7.sce @@ -0,0 +1,12 @@ +//9.7
+clc;
+a=8;
+b=dec2bin(a);
+disp(b)
+disp('The 16 bit signed binary number of +8=0000 0000 0000 1000')
+disp('The 16 bit signed binary number of -8=1000 0000 0000 1000')
+a=165;
+b=dec2bin(a);
+disp(b)
+disp('The 16 bit signed binary number of +165=0000 0000 1010 0101')
+disp('The 16 bit signed binary number of -165=1000 0000 1010 0101')
diff --git a/1733/CH9/EX9.8/9_8.sce b/1733/CH9/EX9.8/9_8.sce new file mode 100755 index 000000000..2f01e1cbf --- /dev/null +++ b/1733/CH9/EX9.8/9_8.sce @@ -0,0 +1,21 @@ +//9.8
+clc;
+a='0001 1111';
+disp(a)
+disp('Since the MSB is 0 so this is a positive number and its 2 s complement representation is')
+b=bin2dec(a);
+disp(b)
+a='1110 0101';
+disp(a)
+disp('Since the MSB is 1 so this is a negative number and its 2 s complement representation is')
+c=bin2dec(a);
+xc= bitcmp (c ,8);
+b=xc+1;
+disp(b)
+a='1111 0111';
+disp(a)
+disp('Since the MSB is 1 so this is a negative number and its 2 s complement representation is')
+c=bin2dec(a);
+xc= bitcmp (c ,8);
+b=xc+1;
+disp(b)
\ No newline at end of file diff --git a/1733/CH9/EX9.9/9_9.sce b/1733/CH9/EX9.9/9_9.sce new file mode 100755 index 000000000..956646f9e --- /dev/null +++ b/1733/CH9/EX9.9/9_9.sce @@ -0,0 +1,8 @@ +//9.9
+clc;
+disp('The largest 8 bit positive number is +127 and is represented in binary as')
+a='0111 1111';
+disp(a)
+disp('The largest 8 bit negative number is -128 and is represented in binary as')
+a='1000 0000';
+disp(a)
|