summaryrefslogtreecommitdiff
path: root/3775/CH2
diff options
context:
space:
mode:
Diffstat (limited to '3775/CH2')
-rw-r--r--3775/CH2/EX2.1/Ex2_1.sce15
-rw-r--r--3775/CH2/EX2.10/Ex2_10.sce17
-rw-r--r--3775/CH2/EX2.11/Ex2_11.sce15
-rw-r--r--3775/CH2/EX2.12/Ex2_12.sce19
-rw-r--r--3775/CH2/EX2.13/Ex2_13.sce57
-rw-r--r--3775/CH2/EX2.14/Ex2_14.sce41
-rw-r--r--3775/CH2/EX2.15/Ex2_15.sce12
-rw-r--r--3775/CH2/EX2.2/Ex2_2.sce10
-rw-r--r--3775/CH2/EX2.3/Ex2_3.sce18
-rw-r--r--3775/CH2/EX2.4/Ex2_4.sce23
-rw-r--r--3775/CH2/EX2.5/Ex2_5.sce23
-rw-r--r--3775/CH2/EX2.6/Ex2_6.sce21
-rw-r--r--3775/CH2/EX2.7/Ex2_7.sce19
-rw-r--r--3775/CH2/EX2.8/Ex2_8.sce19
-rw-r--r--3775/CH2/EX2.9/Ex2_9.sce17
15 files changed, 326 insertions, 0 deletions
diff --git a/3775/CH2/EX2.1/Ex2_1.sce b/3775/CH2/EX2.1/Ex2_1.sce
new file mode 100644
index 000000000..994b2525e
--- /dev/null
+++ b/3775/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,15 @@
+//Ex 2.1 page 67
+
+clc;
+clear;
+close;
+
+V1=1;//V across SCR
+IG=0;//A
+Ih=2;//mA holding current
+R=50;//ohm
+
+// Applying kirchoff law
+//VA-(IAK*R)-V1=0
+VA=(Ih*10**-3*R)+V1;//V (let IAK=Ih)
+printf('VA = %.2f V',VA)
diff --git a/3775/CH2/EX2.10/Ex2_10.sce b/3775/CH2/EX2.10/Ex2_10.sce
new file mode 100644
index 000000000..d2ef39989
--- /dev/null
+++ b/3775/CH2/EX2.10/Ex2_10.sce
@@ -0,0 +1,17 @@
+//Ex 2.10 page 73
+
+clc;
+clear;
+close;
+
+R=10;// ohm
+L=0.1;// H
+delta_i=20/1000;// A
+Vs=230;// V4
+f=50;// Hz
+theta=45;//degree
+
+delta_t = L*delta_i/Vs; // s
+delta_t = delta_t*10**6;// micro s
+printf('Minimum gate pulse width = %.1f micro s',delta_t)
+
diff --git a/3775/CH2/EX2.11/Ex2_11.sce b/3775/CH2/EX2.11/Ex2_11.sce
new file mode 100644
index 000000000..80b0ca754
--- /dev/null
+++ b/3775/CH2/EX2.11/Ex2_11.sce
@@ -0,0 +1,15 @@
+//Ex 2.11 page 73
+
+clc;
+clear;
+close;
+
+m=3*10**3;// gradient (VG/IG)
+VS=10;// V
+PG=0.012;// W
+// IG = VG/m & PG=VG*IG
+VG=sqrt(PG*m)
+IG=VG/m ; // A
+RS=(VS-VG)/IG/1000;// kohm
+printf('gate source resistance = %.1f kohm',RS)
+
diff --git a/3775/CH2/EX2.12/Ex2_12.sce b/3775/CH2/EX2.12/Ex2_12.sce
new file mode 100644
index 000000000..4d3d55c5c
--- /dev/null
+++ b/3775/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,19 @@
+//Ex 2.12 page 74
+
+clc;
+clear;
+close;
+
+VS=300;// V
+delta_i = 50/1000;// A
+R=60;// ohm
+L=2;// H
+TP=40*10**-6;// s
+
+I1=VS/L*TP;// A (at the end of pulse)
+// as I1 << delta_i
+I2=delta_i;// A (anode current with RL load)
+
+Rdash = VS/(I2-I1)/1000;// kohm
+printf('Value of resistance = %.2f kohm',Rdash)
+
diff --git a/3775/CH2/EX2.13/Ex2_13.sce b/3775/CH2/EX2.13/Ex2_13.sce
new file mode 100644
index 000000000..f329cd717
--- /dev/null
+++ b/3775/CH2/EX2.13/Ex2_13.sce
@@ -0,0 +1,57 @@
+//Ex 2.13 page 74
+
+clc;
+clear;
+close;
+
+Im=50;// A
+
+printf('For half sine wave current : \n')
+// theta=180;// degree
+theta=180;// degree
+Iav=Im/%pi;// A
+Irms=Im/2;// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(i) Average ON State current = %.2f A\n',ITav)
+
+// theta=90;// degree
+theta=90;// degree
+Iav=Im/2/%pi;// A
+Irms=Im/2/sqrt(2);// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(ii) Average ON State current = %.2f A\n',ITav)
+
+// theta=180;// degree
+theta=180;// degree
+Iav=Im*0.0213;// A
+Irms=Im*0.0849;// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(iii) Average ON State current = %.2f A\n',ITav)
+
+printf('\n For rectangular wave current : \n')
+// theta=180;// degree
+theta=180;// degree
+Iav=Im/2;// A
+Irms=Im/sqrt(2);// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(i) Average ON State current = %.2f A\n',ITav)
+
+// theta=90;// degree
+theta=90;// degree
+Iav=Im/4;// A
+Irms=Im/2;// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(ii) Average ON State current = %.2f A\n',ITav)
+
+// theta=180;// degree
+theta=180;// degree
+Iav=Im/12;// A
+Irms=Im/2/sqrt(3);// A
+FF=Irms/Iav;// form factor
+ITav=Im/FF ; // A
+printf('(i) Average ON State current = %.2f A\n',ITav)
diff --git a/3775/CH2/EX2.14/Ex2_14.sce b/3775/CH2/EX2.14/Ex2_14.sce
new file mode 100644
index 000000000..62a65af10
--- /dev/null
+++ b/3775/CH2/EX2.14/Ex2_14.sce
@@ -0,0 +1,41 @@
+//Ex 2.14 page 76
+
+clc;
+clear;
+close;
+
+VS=500;// V
+IP=250;// A
+diBYdt=60;// A/micro-s
+dvaBYdt=200;// V/micro-s
+RL=20;// ohm
+r=0.65;// ohm
+eps=0.65 ;// damping ratio
+
+F=2;// saftety factor
+IP=IP/2;// A
+diBYdt=60/2;// A/micro-s
+dvaBYdt=200/2;// V/micro-s
+L=VS/diBYdt;// uH
+R=L*10**6/VS*dvaBYdt/10**6;// ohm
+printf('Value of L = %.2f uH',L)
+printf('\n Value of R = %.1f ohm',R)
+
+Ip=VS/RL+VS/R;// A
+if Ip > IP then
+ printf('\n Value of Ip = %.1f A is greater than permissible peak current = %.1f A\n change the value of Rs',Ip,IP)
+ Rs=6;//ohm
+end
+Ip=VS/RL+VS/Rs;// A
+Cs=(2*eps/Rs)**2*L;// micro F
+printf('\n Value of C = %.2f micro F',Cs)
+
+//load combination current Cs*dv/dt = Vs/(Rs+RL)
+
+Cs=0.4;// uF (reduced value of Cs)
+Rs=6;//ohm
+dvBYdt = VS/(Rs+RL)/Cs; // V/micro-s
+printf('\n Value of dv/dt = %.1f V micro-s',dvBYdt)
+disp('This is less than the specified max. value. Hence the choice is correct.')
+
+//Answer in the textbook is wrong. In last part RL+Rs = 18 is taken in place of 26
diff --git a/3775/CH2/EX2.15/Ex2_15.sce b/3775/CH2/EX2.15/Ex2_15.sce
new file mode 100644
index 000000000..3288a0a68
--- /dev/null
+++ b/3775/CH2/EX2.15/Ex2_15.sce
@@ -0,0 +1,12 @@
+//Ex 2.15 page 77
+
+clc;
+clear;
+close;
+
+Isb=3000;// A
+f=50;// Hz
+I=sqrt((Isb**2*1/2/f)*f) ;// A
+I2t=I**2/2/f;// sq.A/s
+printf('I2t rating = %d A**2/s',ceil(I2t))
+
diff --git a/3775/CH2/EX2.2/Ex2_2.sce b/3775/CH2/EX2.2/Ex2_2.sce
new file mode 100644
index 000000000..81ea2e9af
--- /dev/null
+++ b/3775/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,10 @@
+//Ex 2.2 page 67
+
+clc;
+clear;
+close;
+
+diBYdt=1000;//A/s (rate of rise of current)
+il=10;//mA (latching current = diBYdt * tp)
+tp=il*10**-3/diBYdt;//s
+printf('Minimum duration of gating pulse = %.f micro s',tp*10**6)
diff --git a/3775/CH2/EX2.3/Ex2_3.sce b/3775/CH2/EX2.3/Ex2_3.sce
new file mode 100644
index 000000000..c0ac9e02f
--- /dev/null
+++ b/3775/CH2/EX2.3/Ex2_3.sce
@@ -0,0 +1,18 @@
+//Ex 2.3 page 68
+
+clc;
+clear;
+close;
+
+m=16;// V/A (gradient)
+t_on=4;// us
+IG=500;// mA
+VS=15;// V
+
+VG=m*IG/1000;// V
+//Load line equation
+//VG=VS-IG*RS
+RS=(VS-VG)/(IG/1000) ;// ohm
+Pg=VS*(IG/1000)**2 ; // W
+printf('Gate power dissipation = %.f W',Pg)
+printf('\n Resistance to be connected = %.f ohm',RS)
diff --git a/3775/CH2/EX2.4/Ex2_4.sce b/3775/CH2/EX2.4/Ex2_4.sce
new file mode 100644
index 000000000..949b80064
--- /dev/null
+++ b/3775/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,23 @@
+//Ex 2.4 page 68
+
+clc;
+clear;
+close;
+
+// VG=0.5+8*IG -- eqn(1)
+f=400; // Hz
+delta=0.1 ; // (Duty Cycle)
+P=0.5;//W
+VS=12;// V
+
+Tp=1/f*10**6;// us
+// P= VG*IG -- eqn(2)
+// solving eqn 1 and 2
+//8*IG*IG**2+0.5*IG-P=0
+p=[8, 0.5, -P] // polynomial for IG
+IG=roots(p) ;// A
+IG=IG(2) ;// A (discarding -ve value)
+VG=0.5+8*IG;// V
+// VS=VG+IG*RS
+RS=(VS-VG)/IG
+printf('Value of resistance to be added in series = %.2f ohm',RS)
diff --git a/3775/CH2/EX2.5/Ex2_5.sce b/3775/CH2/EX2.5/Ex2_5.sce
new file mode 100644
index 000000000..c3511c44a
--- /dev/null
+++ b/3775/CH2/EX2.5/Ex2_5.sce
@@ -0,0 +1,23 @@
+//Ex 2.5 page 69
+
+clc;
+clear;
+close;
+
+// VG=10*IG -- eqn(1)
+PGM=5;// W
+PGav=.5;// W
+VS=12;// V
+Tp=20;// us
+
+// PGM = VG*IG where VG=10*IG
+IG=sqrt(PGM/10);// A
+VG=10*IG;// V
+// During the application of pulse VS = VG+(IG*RS)
+RS=(VS-VG)/IG ;// ohm
+f=PGav/(PGM*Tp*10**-6)/1000;// kHz
+delta=f*1000*Tp*10**-6;// Duty Cycle
+printf('Value of resistance to be connected in series = %.2f ohm',RS)
+printf('\n Triggering frequency = %.2f kHz',f)
+printf('\n Duty Cycle = %.1f ',delta)
+// Note : ans in the textbook is not accurate.
diff --git a/3775/CH2/EX2.6/Ex2_6.sce b/3775/CH2/EX2.6/Ex2_6.sce
new file mode 100644
index 000000000..7da826e21
--- /dev/null
+++ b/3775/CH2/EX2.6/Ex2_6.sce
@@ -0,0 +1,21 @@
+//Ex 2.6 page 70
+
+clc;
+clear;
+close;
+
+VS=3;// kV
+IS=750;// A
+
+VD=800;// V
+ID=175;// A
+dr=30/100;// de-rating factor
+IB=8;//mA
+delQ=30;// u Coulomb
+// dr = 1-IS/np*ID
+np = round(IS/(1-dr)/(ID)) ; // no. of parallel string
+ns = round(VS*1000/(1-dr)/(VD)) ; // no. of series string
+R=(ns*VD-VS*1000)/(ns-1)/(IB/1000)/1000;//kohm
+C=(ns-1)*delQ*10**-6/(ns*VD-VS*1000)
+printf('Value of R = %.2f kohm',R)
+printf('\n Value of C = %.2e F',C)
diff --git a/3775/CH2/EX2.7/Ex2_7.sce b/3775/CH2/EX2.7/Ex2_7.sce
new file mode 100644
index 000000000..517db0b76
--- /dev/null
+++ b/3775/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,19 @@
+//Ex 2.7 page 71
+
+clc;
+clear;
+close;
+
+VS=4;// kV
+IS=800;// A
+
+VD=800;// V
+ID=200;// A
+dr=20/100;// de-rating factor
+// for series connection
+ns = ceil(VS*1000/(1-dr)/(VD)) ; // no. of series string
+// for parallel connection
+np = round(IS/(1-dr)/(ID)) ; // no. of parallel string
+printf('\n no. of series connection = %d',ns)
+printf('\n no. of parallel connection = %d',np)
+
diff --git a/3775/CH2/EX2.8/Ex2_8.sce b/3775/CH2/EX2.8/Ex2_8.sce
new file mode 100644
index 000000000..e8f53b605
--- /dev/null
+++ b/3775/CH2/EX2.8/Ex2_8.sce
@@ -0,0 +1,19 @@
+//Ex 2.8 page 72
+
+clc;
+clear;
+close;
+
+IS1=100;// A
+IS2=150;// A
+vd1=2.1;// V
+vd2=1.75;// V
+I=250;// A
+
+rf1=vd1/IS1;// ohm
+rf2=vd2/IS2;// ohm
+// Equating voltage drops
+// vd1+IS1*re = vd2+IS2*re
+re=(vd1-vd2)/(IS2-IS1)
+printf(' Series resistance = %.3f ohm',re)
+
diff --git a/3775/CH2/EX2.9/Ex2_9.sce b/3775/CH2/EX2.9/Ex2_9.sce
new file mode 100644
index 000000000..2ae72759f
--- /dev/null
+++ b/3775/CH2/EX2.9/Ex2_9.sce
@@ -0,0 +1,17 @@
+//Ex 2.9 page 72
+
+clc;
+clear;
+close;
+
+Vf1=1;// V
+If1=0;//A
+Vf2=1.9;// V
+If2=60;//A
+IT=20*%pi;// A
+// PAV = 1/T*integrate(VT*IT,0,T)*dt = ITAV+0.015*IRMS**2
+ITAV=IT/%pi;//A
+ITRMS=IT/2;// A
+dt=ITAV+0.015*ITRMS**2;// W
+printf('Average power loss = %.1f W',dt)
+
generated by cgit (git 2.34.1) at 2025-01-24 12:15:11 +0000