10 files changed, 200 insertions, 0 deletions
diff --git a/2075/CH1/EX1.1/pe1_1.sce b/2075/CH1/EX1.1/pe1_1.sce
new file mode 100755
index 000000000..cd10ab13b
--- /dev/null
+++ b/2075/CH1/EX1.1/pe1_1.sce
@@ -0,0 +1,14 @@
+//example 1.1a
+clc;funcprot(0);
+//Initialization of Variable
+R1=1000;
+R2=1000;
+Rl=500//load resistance
+V=1//input voltage
+Vo=(R2/(R1+R2))*V;
+disp(Vo,"open output voltage in Vrms")
+Rll=1/((1/R2)+(1/Rl))//lower loaded resistance
+disp(Rll,"resistance lower loaded in ohm:")
+Vol=(Rll/(R2+Rll))*V;
+disp(Vol,"loaded output voltag in Vrms")
+clear()
diff --git a/2075/CH1/EX1.11/pe1_11.sce b/2075/CH1/EX1.11/pe1_11.sce
new file mode 100755
index 000000000..5ed79f285
--- /dev/null
+++ b/2075/CH1/EX1.11/pe1_11.sce
@@ -0,0 +1,18 @@
+//exapple 1.11
+clc; funcprot(0);
+// Initialization of Variable
+Vin=4.5;
+R1=1100;
+R2=10000;
+G1=3.4//gain 1
+G2=120//gain 2
+//calculation
+Ir=Vin/R1;
+disp(Ir*1000,"output current in mA:")
+Vo=Ir*(R1+R2);
+disp(Vo,"output voltage in V:")
+Vuo1=Vo/G1;
+disp(Vuo1,"gain output voltage 1 in V:")
+Vuo2=Vo/G2;
+disp(Vuo2,"gain output voltage 2 in V:")
+clear()
diff --git a/2075/CH1/EX1.2/pe1_2.sce b/2075/CH1/EX1.2/pe1_2.sce
new file mode 100755
index 000000000..ff3d15f80
--- /dev/null
+++ b/2075/CH1/EX1.2/pe1_2.sce
@@ -0,0 +1,8 @@
+//example 1.2
+clc;funcprot(0);
+//Initialization of Variable
+Rf=100000//resistance
+Acl=100//amplifier gain
+Ri=Rf/(Acl-1);
+disp(Ri/1000,"input resistance in Kohm")
+clear()
diff --git a/2075/CH1/EX1.3/pe1_3.sce b/2075/CH1/EX1.3/pe1_3.sce
new file mode 100755
index 000000000..913aad13b
--- /dev/null
+++ b/2075/CH1/EX1.3/pe1_3.sce
@@ -0,0 +1,24 @@
+//example 1.3
+clc;funcprot(0);
+//Initialization of Variable
+Vni=0//non inverting voltage
+Vinv=0;//inverting voltage
+Vri1=1;
+Vri2=15;
+Ri1=5600//resistance
+Ri2=470000;
+Rf=10000//load resistance
+//calculation
+Ir1=Vri1/Ri1;
+disp(Ir1*1e6,"current through Ri1 in microAmp:")
+Ir2=Vri2/Ri2;
+disp(Ir2*1e6,"current through Ri2 in microAmp:")
+Irf=(Vri1/Ri1)+(Vri2/Ri2);
+disp(Irf*1e6,"current through Rf in microAmp:")
+Vr=Irf*Rf;
+disp(Vr,"voltage dropped in V:")
+Vo1=-Vr;
+disp(Vo1,"output voltage 1 in V:")
+Vo=Irf*Rf;
+disp(Vo,"output voltage in V:")
+clear()
diff --git a/2075/CH1/EX1.4/pe1_4.sce b/2075/CH1/EX1.4/pe1_4.sce
new file mode 100755
index 000000000..f6bb58f38
--- /dev/null
+++ b/2075/CH1/EX1.4/pe1_4.sce
@@ -0,0 +1,22 @@
+//example 1.4
+clc;funcprot(0);
+//Initialization of Variable
+Ri1=950;//ohm
+Ri2=1050;
+Rf1=105000;//resistance
+Rf2=95000;
+Vin=5;//voltage
+//calculation
+Vinv=(Rf1/(Rf1+Ri1))*Vin;
+disp(Vinv,"inverting voltage in V:")
+Vni=Vinv;
+disp(Vni,"non inverting voltage in V:")
+Irf2=(Vin-Vinv)/Ri2;
+disp(Irf2*1e6,"current through Rf2 in microA:")
+Iri2=Irf2;
+disp(Iri2*1e6,"current through Ri2 in microA:")
+Vrf2=Irf2*Rf2;
+disp(Vrf2,"voltage dropped in V:")
+Vo=Vinv-Vrf2;
+disp(Vo*1000,"output voltage in mV:")
+clear()
diff --git a/2075/CH1/EX1.5/pe1_5.sce b/2075/CH1/EX1.5/pe1_5.sce
new file mode 100755
index 000000000..c6cdd7b9d
--- /dev/null
+++ b/2075/CH1/EX1.5/pe1_5.sce
@@ -0,0 +1,32 @@
+//example 1.5
+clc; funcprot(0);
+// Initialization of Variable
+Vniu1=2.45;//V
+Vniu2=2.55;//V
+Vinvu1=2.45;
+Vinvu2=2.55;
+Ri1=9000;//ohm
+Ri2=1000;//ohm
+Rf1=1000;
+Rf2=9000;
+Rg=200;//load resistance
+//calculation
+Iri1=Vniu1/Ri1;
+disp(Iri1*1e6,"input resistor current in microA:")
+Irg=(Vniu2-Vniu1)/Rg;
+disp(Irg*1e6,"input resistor current in microA:")
+Irf1=Irg-Iri1;
+disp(Irf1*1e6,"feedback resistor current in microAmp:")
+Vrf1=Irf1*Rf1;
+disp(Vrf1*1000,"resistor voltage in mV:")
+Vou1=Vniu1-Vrf1;
+disp(Vou1,"1st output voltage in V:")
+Iri2=(Vniu2-Vou1)/Ri2;
+disp(Iri2*1e6,"input resistor current in microA:")
+Irf2=Iri2+Irg;
+disp(Irf2*1e6,"input resistor current in microA:")
+Vrf2=Irf2*Rf2//feedback resistor voltage
+disp(Vrf2,"feedback resistor voltage in V:")
+Vo=Vrf2+Vniu2;
+disp(Vo,"2nd output voltage in V:")
+clear()
diff --git a/2075/CH1/EX1.6a/pe1_6a.sce b/2075/CH1/EX1.6a/pe1_6a.sce
new file mode 100755
index 000000000..b24f7f591
--- /dev/null
+++ b/2075/CH1/EX1.6a/pe1_6a.sce
@@ -0,0 +1,29 @@
+//example 1.6
+clc; funcprot(0);
+// Initialization of Variable
+Vniu1=0;//V
+Vinvu2=0;//V
+Vref=2.56;
+Rl=10000;//ohm
+Rf=39200;//ohm
+Ro=10;//resistance
+Vdc1=5;
+Vdc2=15;
+Idc=.5;//current
+//calculation
+Iu1=(Vref/Rl)*.5;
+disp(Iu1*1e6,"input resistor current in microA:")
+Irf=Iu1;
+disp(Irf*1e6,"feedback resistor current in microA:")
+Vrf=Irf*Rf;
+disp(Vrf,"feedback resistor voltage in V:")
+Vout=Vrf+Vinvu2;
+disp(Vout,"output resistor voltage in V:")
+Eo=Vout-1.2;
+disp(Eo,"output voltage in V:")
+Iload=Vdc1/Ro;
+disp(Iload,"load current in A:")
+Pload=Vdc1^2/Ro;
+disp(Pload,"load power in W:")
+Plm317=(Vdc2-Vdc1)*Idc;
+disp(Plm317,"powerdissipated in LM317 in W:")
diff --git a/2075/CH1/EX1.6b/pe1_6b.sce b/2075/CH1/EX1.6b/pe1_6b.sce
new file mode 100755
index 000000000..1eacc3ba9
--- /dev/null
+++ b/2075/CH1/EX1.6b/pe1_6b.sce
@@ -0,0 +1,21 @@
+//example 1.6b
+clc; funcprot(0);
+// Initialization of Variable
+Vin=4;//V
+Vs=1.8;//V
+Rf=10000;//ohm
+Ri=1100;//ohm
+Rl=2;//ohm
+Rs=0.1;//ohm
+//calculation
+Irf=Vin/(Rf+Ri);
+disp(Irf*1e6,"input resistor current in microamp:")
+Vni=Irf*Ri;
+disp(Vni*1000,"inverting voltage 1 & 2 in mV:")
+Ir=Vni/Rs;
+disp(Ir,"current across Rs in A:")
+Ve=Ir*(Rl+Rs);
+disp(Ve,"emitter voltage in V:")
+Vo=Ve+Vs;
+disp(Vo,"output voltage in V:")
+clear()
diff --git a/2075/CH1/EX1.7/pe1_7.sce b/2075/CH1/EX1.7/pe1_7.sce
new file mode 100755
index 000000000..532397fe4
--- /dev/null
+++ b/2075/CH1/EX1.7/pe1_7.sce
@@ -0,0 +1,15 @@
+//example 1.7
+clc; funcprot(0);
+// Initialization of Variable
+Vs=18;//V
+Rl=8;//load resistance
+Pll=100;//power
+//calculation
+Vlp=Vs-4;
+Vlr=Vlp/(2^.5);
+disp(Vlr,"rms voltage in V:")
+Pl=(Vlr^2)/Rl;
+disp(Pl,"power delivered in W:")
+Vl=(Pll*Rl)^.5;
+disp(Vl,"load voltage in V:")
+clear()
diff --git a/2075/CH1/EX1.9/pe1_9.sce b/2075/CH1/EX1.9/pe1_9.sce
new file mode 100755
index 000000000..f9d455cfb
--- /dev/null
+++ b/2075/CH1/EX1.9/pe1_9.sce
@@ -0,0 +1,17 @@
+//example 1.9
+clc; funcprot(0);
+// Initialization of Variable
+Vp=6;//V
+Ra=10;//Kohm
+Rb=1800;//ohm
+V=8;
+//solving for Ir & Vo
+A=[1 -124.6e-6; 7800 -1];
+B=[134.6e-6;0];
+x=inv(A)*B;
+Vo=x(2,1);
+disp(Vo,"output voltage in V:")
+Va=Vo+V;
+Vb=Vo-V;
+disp(Va,Vb,"V- & V+ in V:")
+clear()