10 files changed, 162 insertions, 0 deletions
diff --git a/2609/CH13/EX13.1/ex_13_1.sce b/2609/CH13/EX13.1/ex_13_1.sce
new file mode 100755
index 000000000..5f0e6447e
--- /dev/null
+++ b/2609/CH13/EX13.1/ex_13_1.sce
@@ -0,0 +1,10 @@
+////Ex 13.1
+clc;
+clear;
+close;
+format('v',6);
+deltaVin=4;//V
+deltaVout=0.4;//V
+Vout=20;//V
+LR=(deltaVout/Vout)*100/deltaVin;//%/V(Line Regulation)
+disp(LR,"Line Regulation(%/V)");
diff --git a/2609/CH13/EX13.10/ex_13_10.sce b/2609/CH13/EX13.10/ex_13_10.sce
new file mode 100755
index 000000000..27d2b2ae8
--- /dev/null
+++ b/2609/CH13/EX13.10/ex_13_10.sce
@@ -0,0 +1,24 @@
+////Ex 13.10
+clc;
+clear;
+close;
+format('v',6);
+Vout=15;//V
+IL=50;//mA
+Vin=20;//V
+PDmax=1;//W(For LM 723)
+Iref=3;//mA(From datasheet)
+PD=Vout*(IL+Iref);//mW
+disp(PD/1000,"Required PD(W)");
+disp(PDmax,"PDmax supplie by LM723(mW)");
+disp("PD<PDmax, so we can use it.");
+Vref=7.15;//V(For LM 723)
+R3=1.5;//kohm(choosen)
+R1BYR2=(Vout-Vref)/Vref;
+R1=R3*(R1BYR2+1);//ohm
+disp(R1,"Resistance R1(kohm)");
+R2=R1/R1BYR2;//ohm
+disp(R2,"Resistance R2(kohm)");
+disp(R3,"Resistance R3(kohm)");
+RCL=0.65/(IL/1000);//ohm
+disp(RCL,"Resistance RCL(ohm)");
diff --git a/2609/CH13/EX13.2/ex_13_2.sce b/2609/CH13/EX13.2/ex_13_2.sce
new file mode 100755
index 000000000..a419b913e
--- /dev/null
+++ b/2609/CH13/EX13.2/ex_13_2.sce
@@ -0,0 +1,11 @@
+////Ex 13.2
+clc;
+clear;
+close;
+format('v',6);
+VNL=18;//V
+VFL=17.8;//V
+IL=50;//mA
+LR=(VNL-VFL)*100/VFL;//%(Line Regulation)
+LdR=LR/IL;//%/mA(Load Regulation)
+disp(LdR,"Load Regulation(%/mA)");
diff --git a/2609/CH13/EX13.3/ex_13_3.sce b/2609/CH13/EX13.3/ex_13_3.sce
new file mode 100755
index 000000000..8297580f9
--- /dev/null
+++ b/2609/CH13/EX13.3/ex_13_3.sce
@@ -0,0 +1,11 @@
+////Ex 13.3
+clc;
+clear;
+close;
+format('v',6);
+VBE=0.65;//V
+RCL=1.2;//ohm
+ILmax=VBE/RCL;//A
+//For Vout=0, IL=ILmax
+IL=ILmax;//A
+disp(IL,"Load current(A)");
diff --git a/2609/CH13/EX13.4/ex_13_4.sce b/2609/CH13/EX13.4/ex_13_4.sce
new file mode 100755
index 000000000..825f9d493
--- /dev/null
+++ b/2609/CH13/EX13.4/ex_13_4.sce
@@ -0,0 +1,12 @@
+////Ex 13.4
+clc;
+clear;
+close;
+format('v',6);
+R=20;//kohm
+R1=20;//kohm
+R2=10;//kohm
+VZ=4.7;//V
+Vref=VZ;//V
+Vout=Vref*(1+R1/R2);//V
+disp(Vout,"Output Voltage(V)");
diff --git a/2609/CH13/EX13.5/ex_13_5.sce b/2609/CH13/EX13.5/ex_13_5.sce
new file mode 100755
index 000000000..c625cbc47
--- /dev/null
+++ b/2609/CH13/EX13.5/ex_13_5.sce
@@ -0,0 +1,17 @@
+////Ex 13.5
+clc;
+clear;
+close;
+format('v',6);
+Vout=15;//V
+Vin=20;//V
+INL=2;//mA(INL=Iadj+Iref)
+Iadj=60;//mA(Assumed)
+Iref=INL-Iadj/1000;//mA
+Vref=1.25;//V
+R1=Vref/Iref*1000;//ohm
+VR2=Vout-Vref;//V
+R2=VR2/INL*1000;//ohm
+disp("Design values are : ");
+disp(R1,"Resistance, R1(ohm)");
+disp(R2/1000,"Resistance, R2(kohm)");
diff --git a/2609/CH13/EX13.6/ex_13_6.sce b/2609/CH13/EX13.6/ex_13_6.sce
new file mode 100755
index 000000000..8f487ea2b
--- /dev/null
+++ b/2609/CH13/EX13.6/ex_13_6.sce
@@ -0,0 +1,27 @@
+////Ex 13.6
+clc;
+clear;
+close;
+format('v',6);
+RL1=100;//ohm
+RL2=1;//ohm
+RCS=7;//ohm
+VEB=0.7;//V
+Beta=25;//unitless
+//For 100 ohm Load
+Vout=5;//V(as 7805 used)
+IL=Vout/RL1;//A
+VRCS=IL*RCS;//V(Voltage across RCS)
+//VRCS<VEB, hence Q1 is off
+Iout=IL;Iin=IL;//A
+Iext=Iout-Iin;//A
+disp(Iext,"For 100 ohm load, Output current Iext(A)");
+//For 1 ohm Load
+Vout=5;//V(as 7805 used)
+IL=Vout/RL2;//A
+ILmax=IL;//A
+VRCS=IL*RCS;//V(Voltage across RCS)
+//VRCS>VEB, hence Q1 is on
+Iout=(ILmax+Beta*VEB/RCS)/(Beta+1);//A
+Iext=ILmax-Iout;//A
+disp(Iext,"For 10 ohm load, Output current Iext(A)");
diff --git a/2609/CH13/EX13.7/ex_13_7.sce b/2609/CH13/EX13.7/ex_13_7.sce
new file mode 100755
index 000000000..ca745d9c6
--- /dev/null
+++ b/2609/CH13/EX13.7/ex_13_7.sce
@@ -0,0 +1,13 @@
+////Ex 13.7
+clc;
+clear;
+close;
+format('v',6);
+RL=1:10;//ohm
+R1=5;//ohm
+Vref=5;//V
+IL=1;//A
+IQ=0;//A
+Iref=IL;//A
+R1=Vref/Iref;//ohm
+disp(R1,"Value of resistor R1(ohm)");
diff --git a/2609/CH13/EX13.8/ex_13_8.sce b/2609/CH13/EX13.8/ex_13_8.sce
new file mode 100755
index 000000000..b43ea4ded
--- /dev/null
+++ b/2609/CH13/EX13.8/ex_13_8.sce
@@ -0,0 +1,18 @@
+////Ex 13.8
+clc;
+clear;
+close;
+format('v',6);
+Vout=15:20;//V
+Vin=24;//V
+VR1=12;//V
+Vref=12;//V
+I4=0;//A(Assumed)
+Iout=1;//A(Assumed)
+R1=VR1/Iout;//ohm
+//Vout=VR1*(1+R2/R1)
+R2min=R1*(min(Vout)/VR1-1);//Putting min Vout
+R2max=R1*(max(Vout)/VR1-1);//Putting min Vout
+disp(R1,"Resistance R1(ohm)");
+disp(R2max,R2min,"Minimum & maximum value of R2(ohm)");
+disp("A pot of 10 ohm should be used.");
diff --git a/2609/CH13/EX13.9/ex_13_9.sce b/2609/CH13/EX13.9/ex_13_9.sce
new file mode 100755
index 000000000..633b552fb
--- /dev/null
+++ b/2609/CH13/EX13.9/ex_13_9.sce
@@ -0,0 +1,19 @@
+////Ex 13.9
+clc;
+clear;
+close;
+format('v',6);
+Vout=6;//V
+IL=100;//mA
+Vref=7.15;//V(For LM 723)
+Iref=1;//mA(Assumed)
+R1=(Vref-Vout)/Iref;//kohm
+R2=Vout/Iref;//kohm
+disp("Design values are : ");
+disp(R1,"R1 should be used 1.2kohm. Calculated R1(kohm) is");
+disp(R2,"R2 should be used 6.2kohm. Calculated R2(kohm)");
+R1=1.2;R2=6.2;//kohm
+R3=R1*R2/(R1+R2);//kohm
+disp(R3,"Resistance R3(kohm)");
+RCL=0.65/(IL/1000);//kohm
+disp(RCL,"Resistance RCL(kohm)");