initial commit / add all books

21 files changed, 315 insertions, 0 deletions

diff --git a/2195/CH3/EX3.10.1/ex_3_10_1.sce b/2195/CH3/EX3.10.1/ex_3_10_1.sce
new file mode 100755
index 000000000..4596880d5
--- /dev/null
+++ b/2195/CH3/EX3.10.1/ex_3_10_1.sce
@@ -0,0 +1,21 @@
+//Example 3.10.1// multiplier
+clc;
+clear;
+close;
+//given data :
+V1=200;//in V
+V2=100;//in V
+V3=10;// in V
+Rm=100;//in ohm
+I_fsd=50*10^-3;
+//for the range 0-10V   
+Rt3=V3/I_fsd;
+Rs3=Rt3-Rm;
+disp(Rs3," the multiplier,Rs3(ohm) = ")
+//for the range 0-100V
+Rt2=V2/I_fsd;
+Rs2=Rt2-(Rm+Rs3);
+disp(Rs2,"the multiplier,Rs2(ohm) = ")
+Rt1=V1/I_fsd;
+Rs1=Rt1-(Rm+Rs3+Rs2);
+disp(Rs1,"the multiplier,Rs1(ohm) = ")
diff --git a/2195/CH3/EX3.11.1/ex_3_11_1.sce b/2195/CH3/EX3.11.1/ex_3_11_1.sce
new file mode 100755
index 000000000..c4b1cd702
--- /dev/null
+++ b/2195/CH3/EX3.11.1/ex_3_11_1.sce
@@ -0,0 +1,12 @@
+//Example 3.11.1// multiplier
+clc;
+clear;
+close;
+//given data :
+format('v',7)
+Rm=200;//in ohm
+I_fsd=150*10^-6;// in A
+S=1/I_fsd;
+V=50;//in V
+Rs=(S*V)-Rm;
+disp(Rs*10^-3,"multiplier,Rs(k-ohm) = ")
diff --git a/2195/CH3/EX3.11.2/ex_3_11_2.sce b/2195/CH3/EX3.11.2/ex_3_11_2.sce
new file mode 100755
index 000000000..cb74bf1f5
--- /dev/null
+++ b/2195/CH3/EX3.11.2/ex_3_11_2.sce
@@ -0,0 +1,21 @@
+//Example 3.11.2//accurate voltmeter reading
+clc;
+clear;
+close;
+format('v',6)
+r1=50;// in killo ohms
+r2=50;//in killo ohms
+v=100;//in volts
+vr2=(r1/(r1+r2))*v;// voltage in volts
+//case 1
+s1=12000;//sensivity in ohms/volts
+rm1=r1*s1*10^-3;//in killo ohms
+req=((rm1*r1)/(rm1+r1));//equivalent resistance in ohms
+v1=((req/(r1+req)))*v;// voltmeter reading when sensivity is 12000 ohms /V
+//case 2
+s2=15000;//sensivity in ohms/volts
+rm2=r1*s2*10^-3;//in killo ohms
+req1=((rm2*r1)/(rm2+r1));//equivalent resistance in ohms
+v2=((req1/(r1+req1)))*v;// voltmeter reading when sensivity is 15000 ohms /V
+disp(v1,"voltmeter reading when sensivity is 12000 ohms /V in volts")
+disp(v2,"voltmeter reading when sensivity is 15000 ohms /V in volts, this voltmeter will measure the correct value")
diff --git a/2195/CH3/EX3.15.1.a/ex_3_15_1_a.sce b/2195/CH3/EX3.15.1.a/ex_3_15_1_a.sce
new file mode 100755
index 000000000..c8c70d2ee
--- /dev/null
+++ b/2195/CH3/EX3.15.1.a/ex_3_15_1_a.sce
@@ -0,0 +1,10 @@
+//Example 3.15.1.a//voltage
+clc;
+clear;
+close;
+format('v',6)
+r1=25;// in kilo ohms
+r2=5;//in kilo ohms
+v=30;//in volts
+vr2=(r2/(r1+r2))*v;// voltage in volts across 5 kilo ohms resistance
+disp(vr2,"voltage in volts across 5 kilo ohms resistance")
diff --git a/2195/CH3/EX3.15.1.b/ex_3_15_1_b.sce b/2195/CH3/EX3.15.1.b/ex_3_15_1_b.sce
new file mode 100755
index 000000000..fe7b024f3
--- /dev/null
+++ b/2195/CH3/EX3.15.1.b/ex_3_15_1_b.sce
@@ -0,0 +1,16 @@
+//Example 3.15.1.b//voltage
+clc;
+clear;
+close;
+format('v',5)
+r1=25;// in kilo ohms
+r2=5;//in kilo ohms
+v=30;//in volts
+vr2=(r1/(r1+r2))*v;// voltage in volts across 5 kilo ohms resistance
+//case 1
+s1=1;//sensivity in kilo ohms/volts
+v1=10;// in volts
+rm1=v1*s1;//in kilo ohms
+req=((rm1*r2)/(rm1+r2));//equivalent resistance in ohms
+vrb1=((req/(r1+req)))*v;// voltmeter reading when sensivity is 1 kilo ohms /V
+disp(vrb1," voltmeter reading when sensivity is 1 kilo ohms /V in volts")
diff --git a/2195/CH3/EX3.15.1.c/ex_3_15_1_c.sce b/2195/CH3/EX3.15.1.c/ex_3_15_1_c.sce
new file mode 100755
index 000000000..0755c529c
--- /dev/null
+++ b/2195/CH3/EX3.15.1.c/ex_3_15_1_c.sce
@@ -0,0 +1,16 @@
+//Example 3.15.1.c//voltage
+clc;
+clear;
+close;
+format('v',5)
+r1=25;// in kilo ohms
+r2=5;//in kilo ohms
+v=30;//in volts
+vr2=(r1/(r1+r2))*v;// voltage in volts across 5 kilo ohms resistance
+//case 2
+s2=20;//sensivity in kilo ohms/volts
+v1=10;// in volts
+rm2=v1*s2;//in kilo ohms
+req1=((rm2*r2)/(rm2+r2));//equivalent resistance in ohms
+vrb2=((req1/(r1+req1)))*v;// voltmeter reading when sensivity is 1 kilo ohms /V
+disp(vrb2," voltmeter reading when sensivity is 1 kilo ohms /V in volts")
diff --git a/2195/CH3/EX3.15.1.d/ex_3_15_1_d.sce b/2195/CH3/EX3.15.1.d/ex_3_15_1_d.sce
new file mode 100755
index 000000000..37146d86f
--- /dev/null
+++ b/2195/CH3/EX3.15.1.d/ex_3_15_1_d.sce
@@ -0,0 +1,26 @@
+//Example 3.15.1.d//error

+clc;

+clear;

+close;

+format('v',5)

+r1=25;// in kilo ohms

+r2=5;//in kilo ohms

+v=30;//in volts

+vr2=(r2/(r1+r2))*v;// voltage in volts across 5 kilo ohms resistance

+//case 1

+s1=1;//sensivity in kilo ohms/volts

+v1=10;// in volts

+rm1=v1*s1;//in kilo ohms

+req=((rm1*r2)/(rm1+r2));//equivalent resistance in ohms

+vrb1=((req/(r1+req)))*v;// voltmeter reading when sensivity is 1 kilo ohms /V

+//case 2

+s2=20;//sensivity in kilo ohms/volts

+v1=10;// in volts

+rm2=v1*s2;//in kilo ohms

+req1=((rm2*r2)/(rm2+r2));//equivalent resistance in ohms

+vrb2=((req1/(r1+req1)))*v;// voltmeter reading when sensivity is 1 kilo ohms /V

+er1=(vr2-vrb1)/vr2;//voltmeter 1 error

+er2=(vr2-vrb2)/vr2;//voltmeter 2 error

+disp(er1*100,"voltmeter 1 error in percentage")

+disp(er2*100,"voltmeter 2 error in percentage")

+//answer is wrong in the textbook

diff --git a/2195/CH3/EX3.15.2/ex_3_15_2.sce b/2195/CH3/EX3.15.2/ex_3_15_2.sce
new file mode 100755
index 000000000..a85b4a7d9
--- /dev/null
+++ b/2195/CH3/EX3.15.2/ex_3_15_2.sce
@@ -0,0 +1,10 @@
+//Example 3.15.2: shunt resistance
+clc;
+clear;
+close;
+//given data :
+Im=1;// in mA
+Rm=100;// in ohm
+I=100;// in mA
+Rsh=(Im*10^-3*Rm)/((I-Im)*10^-3);
+disp(Rsh,"shunt resistance,Rsh(ohm) = ")
diff --git a/2195/CH3/EX3.15.3/ex_3_15_3.sce b/2195/CH3/EX3.15.3/ex_3_15_3.sce
new file mode 100755
index 000000000..ffed40b7f
--- /dev/null
+++ b/2195/CH3/EX3.15.3/ex_3_15_3.sce
@@ -0,0 +1,11 @@
+//Example 3.15.3: shunt resistance
+clc;
+clear;
+close;
+//given data :
+Im=1;// in mA
+P=100;// in kilo-watt
+I=100;// in mA
+Rm=(P)/(Im)^2;
+Rsh=((Im*10^-3*Rm*10^3)/((I-Im)*10^-3))*10^-3;
+disp(Rsh,"shunt resistance,Rsh(kilo-ohm) = ")
diff --git a/2195/CH3/EX3.15.4/ex_3_15_4.sce b/2195/CH3/EX3.15.4/ex_3_15_4.sce
new file mode 100755
index 000000000..ad95c315f
--- /dev/null
+++ b/2195/CH3/EX3.15.4/ex_3_15_4.sce
@@ -0,0 +1,10 @@
+//Example 3.15.4: shunt resistance
+clc;
+clear;
+close;
+//given data :
+Rsh=200;// in ohm
+Rm=100;// in ohm
+m=50;
+Rsh=Rm/(m-1);
+disp(Rsh,"the shunt resistance,Rsh(ohm) = ")
diff --git a/2195/CH3/EX3.15.5/ex_3_15_5.sce b/2195/CH3/EX3.15.5/ex_3_15_5.sce
new file mode 100755
index 000000000..5887868d1
--- /dev/null
+++ b/2195/CH3/EX3.15.5/ex_3_15_5.sce
@@ -0,0 +1,10 @@
+//Example 3.15.5: shunt resistance
+clc;
+clear;
+close;
+//given data :
+Im=1;// in mA
+Rm=100;// in ohm
+I=100;// in mA
+Rsh=(Im*10^-3*Rm)/((I-Im)*10^-3);
+disp(Rsh,"shunt resistance,Rsh(kilo-ohm) = ")
diff --git a/2195/CH3/EX3.2.1/ex_3_2_1.sce b/2195/CH3/EX3.2.1/ex_3_2_1.sce
new file mode 100755
index 000000000..2cd2e2517
--- /dev/null
+++ b/2195/CH3/EX3.2.1/ex_3_2_1.sce
@@ -0,0 +1,13 @@
+//Example 3.2.1 // torque
+clc;
+clear;
+close;
+format("v",8)
+//given data :
+N=10;
+L=1.5*10^-2;// in m
+I=1;// in mA
+B=0.5;
+d=1*10^-2;// in m
+Td=B*I*L*d*N;
+disp(Td*10^-3,"torque,Td(Nm) = ")
diff --git a/2195/CH3/EX3.2.2/ex_3_2_2.sce b/2195/CH3/EX3.2.2/ex_3_2_2.sce
new file mode 100755
index 000000000..fabd140d6
--- /dev/null
+++ b/2195/CH3/EX3.2.2/ex_3_2_2.sce
@@ -0,0 +1,13 @@
+//Example 3.2.2 // number of turns
+clc;
+clear;
+close;
+//given data :
+theta=%pi/2;
+I=5*10^-3;// in A
+B=1.8*10^-3;// in Wb/m^2
+C=0.14*10^-6;// in Nm/rad
+L=15*10^-3;// in m
+d=12*10^-3;// in m
+N=(C*theta)/(B*I*L*d);
+disp(round(N),"number of turns,N(turns) = ")
diff --git a/2195/CH3/EX3.2.3/ex_3_2_3.sce b/2195/CH3/EX3.2.3/ex_3_2_3.sce
new file mode 100755
index 000000000..1d2f8a17f
--- /dev/null
+++ b/2195/CH3/EX3.2.3/ex_3_2_3.sce
@@ -0,0 +1,16 @@
+//Example 3.2.3 // resistance
+clc;
+clear;
+close;
+//given data :
+Tc=240*10^-6;//in Nm
+N=100;
+L=40*10^-3;
+d=30*10^-3;
+B=1;//in Wb/m^2
+TdBYI=N*B*L*d;
+I=Tc/TdBYI;
+//voltage per division=I*(R/100)
+R=100/I;
+disp(R*10^-3,"resistance ,R(k-ohm) = ")
+//UNIT IS TAKEN WRONG IN THE BOOK
diff --git a/2195/CH3/EX3.2.4/ex_3_2_4.sce b/2195/CH3/EX3.2.4/ex_3_2_4.sce
new file mode 100755
index 000000000..953a6451b
--- /dev/null
+++ b/2195/CH3/EX3.2.4/ex_3_2_4.sce
@@ -0,0 +1,24 @@
+//Example 3.2.4 // flux density and diameter
+clc;
+clear;
+close;
+//given data :
+format('v',5)
+p=1.7*10^-8;//in ohm-m
+V=100*10^-3;//in V
+R=50;// in ohm
+theta=120;//in degree
+L=30;// in mm
+d=25;// in mm
+N=100;
+C=0.375*10^-6;// in Nm/degree
+I=V/R;
+Td_By_B=I*L*10^-3*d*10^-3*N;
+Tc=C*theta;
+B=Tc/Td_By_B;
+disp(B,"the flux density,B(Wb/m^2) = ")
+Rc=0.3*R;
+Lmt=2*(L+d);
+a=(N*p*Lmt*10^-3*10^6)/Rc;
+D=sqrt(4/(%pi*a));
+disp(D,"diameter,D(m) = ")
diff --git a/2195/CH3/EX3.4.1/ex_3_4_1.sce b/2195/CH3/EX3.4.1/ex_3_4_1.sce
new file mode 100755
index 000000000..d430acd15
--- /dev/null
+++ b/2195/CH3/EX3.4.1/ex_3_4_1.sce
@@ -0,0 +1,9 @@
+//Example 3.4.1 // shunt resistor
+clc;
+clear;
+close;
+im=3;//in mA
+rm=100;//in ohms
+i=150;//in mA
+rsh=(im*10^-3*rm)/((i-im)*10^-3);//shunt resistance in ohms
+disp(rsh,"shunt resistance in ohms is")
diff --git a/2195/CH3/EX3.4.2/ex_3_4_2.sce b/2195/CH3/EX3.4.2/ex_3_4_2.sce
new file mode 100755
index 000000000..b6e489257
--- /dev/null
+++ b/2195/CH3/EX3.4.2/ex_3_4_2.sce
@@ -0,0 +1,13 @@
+//Example 3.4.2 // shunt resistormultiplying factor and resistance
+clc;
+clear;
+close;
+//given data :
+format('v',6)
+Rsh=300;//in ohm
+Rm=1500;//in ohm
+m=1+(Rm/Rsh);
+disp(m,"multiplying factor,m = ")
+m1=40;
+Rsh1=Rm/(m1-1);
+disp(Rsh1,"the shunt resistor,Rsh1(ohm) = ")
diff --git a/2195/CH3/EX3.5.1/ex_3_5_1.sce b/2195/CH3/EX3.5.1/ex_3_5_1.sce
new file mode 100755
index 000000000..a071dd50c
--- /dev/null
+++ b/2195/CH3/EX3.5.1/ex_3_5_1.sce
@@ -0,0 +1,23 @@
+//Example 3.5.1 //
+clc;
+clear;
+close;
+//given data :
+format('v',5)
+Rm=100;// in ohm
+Im=1;
+//for range 0-20 mA
+I1=20;
+m=I1/Im;
+Rsh1=Rm/(m-1);
+disp(Rsh1,"the shunt resistor,Rsh1(ohm) = ")
+//for the range of 0-100 mA
+I2=100;
+m=I2/Im;
+Rsh2=Rm/(m-1);
+disp(Rsh2,"the shunt resistor,Rsh2(ohm) = ")
+//for the range 0-200 mA
+I3=200;
+m=I3/Im;
+Rsh3=Rm/(m-1);
+disp(Rsh3,"the shunt resistor,Rsh3(ohm) = ")
diff --git a/2195/CH3/EX3.6.1/ex_3_6_1.sce b/2195/CH3/EX3.6.1/ex_3_6_1.sce
new file mode 100755
index 000000000..7257315c9
--- /dev/null
+++ b/2195/CH3/EX3.6.1/ex_3_6_1.sce
@@ -0,0 +1,20 @@
+//Example 3.6.1 //design
+clc;
+clear;
+close;
+format('v',8)
+rm=50;//in ohms
+im=2;//in mA
+i1=2;//in amperes
+i2=10;//in amperes
+i3=15;//in amperes
+x=(im*rm*10^-3)/i1;//
+A=[1 1;1 -7500];//
+B=[0.05;-50];
+X=A\B;
+z=X(2,1);//
+R1=0.2167/10.002;//in ohms
+R2=0.025-R1;// in ohms
+disp(R1,"resistance (R1) in ohms")
+disp(R2,"resistance (R2) in ohms")
+disp(z,"resistance (R3) in ohms")
diff --git a/2195/CH3/EX3.9.1/ex_3_9_1.sce b/2195/CH3/EX3.9.1/ex_3_9_1.sce
new file mode 100755
index 000000000..d743631b5
--- /dev/null
+++ b/2195/CH3/EX3.9.1/ex_3_9_1.sce
@@ -0,0 +1,10 @@
+//Example 3.9.1// multiplier
+clc;
+clear;
+close;
+//given data :
+Vin=20;//in volts
+I_fsd=50*10^-6;//in Farad
+Rm=200;// in ohm
+Rs=(Vin/I_fsd)-Rm;
+disp(Rs*10^-3,"the multiplier,Rs(k-ohm) = ")
diff --git a/2195/CH3/EX3.9.2/ex_3_9_2.sce b/2195/CH3/EX3.9.2/ex_3_9_2.sce
new file mode 100755
index 000000000..38e4e3c19
--- /dev/null
+++ b/2195/CH3/EX3.9.2/ex_3_9_2.sce
@@ -0,0 +1,11 @@
+//Example 3.9.2// full scale deflection current
+clc;
+clear;
+close;
+//given data :
+format('v',5)
+Vin=10;// in volts
+Rs=200;//in k-ohm
+Rm=400;// in ohm
+I_fsd=Vin/((Rs*10^3)+Rm);
+disp(I_fsd*10^6,"full scale deflection current,I_fsd(micro-A) = ")