initial commit / add all books

6 files changed, 78 insertions, 0 deletions

diff --git a/135/CH13/EX13.1/EX1.sce b/135/CH13/EX13.1/EX1.sce
new file mode 100755
index 000000000..37e5c821b
--- /dev/null
+++ b/135/CH13/EX13.1/EX1.sce
@@ -0,0 +1,18 @@
+// Example 13.1: dc input power, ac output power, Efficiency

+clc, clear

+Ib=5e-3; // Base current in amperes

+// From Fig. 13.8

+RB=1.5e3; // in ohms

+RC=16; // in ohms

+bta=40;

+VCC=18; // in volts

+VBE=0.7; // in volts

+IBQ=(VCC-VBE)/RB; // in amperes

+ICQ=bta*IBQ; // in amperes

+Pi_dc=VCC*ICQ; // dc input power in watts

+Ic=bta*Ib; // in amperes

+Po_ac=Ic^2*RC; // ac output power

+eta=Po_ac*100/Pi_dc; // Efficiency in percentage

+disp(Pi_dc,"dc input power (W) =");

+disp(Po_ac,"ac output power (W) =");

+disp(eta,"Efficiency (%) =");
\ No newline at end of file
diff --git a/135/CH13/EX13.2/EX2.sce b/135/CH13/EX13.2/EX2.sce
new file mode 100755
index 000000000..af503319b
--- /dev/null
+++ b/135/CH13/EX13.2/EX2.sce
@@ -0,0 +1,9 @@
+// Example 13.2: Transformer turns ratio

+clc, clear

+function[c]=parallel(a,b)

+    c=a*b/(a+b);

+endfunction

+RL=parallel(parallel(16,16),parallel(16,16)); // in ohms

+RL_dash=8e3; // in ohms

+TR=sqrt(RL_dash/RL); // Transformer turns ratio

+disp(TR,"Transformer turns ratio =");
\ No newline at end of file
diff --git a/135/CH13/EX13.3/EX3.sce b/135/CH13/EX13.3/EX3.sce
new file mode 100755
index 000000000..64c24f5b0
--- /dev/null
+++ b/135/CH13/EX13.3/EX3.sce
@@ -0,0 +1,8 @@
+// Example 12.3: Efficiency

+clc, clear

+P_ac=2; // in watts

+ICQ=150e-3; // in amperes

+VCC=36; // in volts

+P_dc=VCC*ICQ; // in watts

+eta=P_ac*100/P_dc; // Efficiency in percentage

+disp(eta,"Efficiency (%) =");
\ No newline at end of file
diff --git a/135/CH13/EX13.4/EX4.sce b/135/CH13/EX13.4/EX4.sce
new file mode 100755
index 000000000..7ce86908e
--- /dev/null
+++ b/135/CH13/EX13.4/EX4.sce
@@ -0,0 +1,13 @@
+// Example 13.4: Maximum input power, Maximum ac output power, Maximum conversion efficiency, Maximum power dissipated by each transistor

+clc, clear

+VCC=15; // in volts

+RL=8; // in ohms

+P_dc=2*VCC^2/(%pi*RL); // Maximum input power in watts

+P_ac=VCC^2/(2*RL); // Maximum ac output power in watts

+eta=P_ac*100/P_dc; // Maximum efficiency in percentage

+PD=2*VCC^2/(%pi^2*RL); // Maximum power dissipated in watts

+PD_each=PD/2; // Maximum power dissipated by each transistor in watts

+disp(P_dc,"Maximum input power (W) =");

+disp(P_ac,"Maximum ac output power (W) =");

+disp(eta,"Maximum conversion efficiency (%) =");

+disp(PD_each,"Maximum power dissipated by each transistor (W) =");
\ No newline at end of file
diff --git a/135/CH13/EX13.5/EX5.sce b/135/CH13/EX13.5/EX5.sce
new file mode 100755
index 000000000..0764ac62a
--- /dev/null
+++ b/135/CH13/EX13.5/EX5.sce
@@ -0,0 +1,16 @@
+// Example 13.5: Supply voltage, Peak current drawn from each supply, Total supply power, Power conversion efficiency, Maximum power that each transistor can dissipate safely

+clc, clear

+P_ac=20; // Average power delivered in watts

+RL=8; // Load in ohms

+Vm=sqrt(2*P_ac*RL); // Peak output voltage in volts

+VCC=Vm+5; // Supply voltage in volts

+Im=Vm/RL; // Peak current drawn from each supply in amperes

+P_dc=2*Im*VCC/%pi; // Total supply power in watts

+eta=P_ac*100/P_dc; // Power conversion efficiency in percentage

+PD=2*VCC^2/(%pi^2*RL); // Maximum power dissipated in watts

+PD_each=PD/2; // Maximum power dissipated by each transistor in watts

+disp(VCC,"Supply voltage (V) =");

+disp(Im,"Peak current drawn from each supply (A) =");

+disp(P_dc,"Total supply power (W) =");

+disp(eta,"Power conversion efficiency (%) =");

+disp(PD_each,"Maximum power that each transistor can dissipate safely (W) =");
\ No newline at end of file
diff --git a/135/CH13/EX13.6/EX6.sce b/135/CH13/EX13.6/EX6.sce
new file mode 100755
index 000000000..323e91cb6
--- /dev/null
+++ b/135/CH13/EX13.6/EX6.sce
@@ -0,0 +1,14 @@
+// Example 13.6: Thermal resistance, Power rating at 70°C, Junction temperature at 100 mW

+clc, clear

+TAo=25; // in °C

+PDo=200; // in mili-watts

+Tj_max=150; // Maximum junction temperature in °C

+T=70; // in °C

+P=100; // in mili-watts

+TA=50; // Ambient temperature in °C

+theta=(Tj_max-TAo)/PDo; // Thermal resistance in °C per mili-watts

+PR=(Tj_max-T)/theta; // Power rating at 70 °C in mili-watts

+Tj=TA+theta*P; // Junction temperature at 100 mW in °C

+disp(theta,"Thermal resistance (°C/mW) =");

+disp(PR,"Power rating at 70 °C (mW) =");

+disp(Tj,"Junction temperature at 100 mW (°C) =");
\ No newline at end of file