diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /2360/CH3 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '2360/CH3')
30 files changed, 574 insertions, 0 deletions
diff --git a/2360/CH3/EX3.1/ex3_1.sce b/2360/CH3/EX3.1/ex3_1.sce new file mode 100755 index 000000000..e9c7e8d49 --- /dev/null +++ b/2360/CH3/EX3.1/ex3_1.sce @@ -0,0 +1,16 @@ +// Exa 3.1
+format('v',7);clc;clear;close;
+// Given data
+N = 100;// number o turns
+B = 0.15;//air gap in Wb/m^2
+I = 5;//current in mA
+I = I * 10^-3;// in A
+l= 10;//length in mm
+b = 8;//width in mm
+A = l*b;//area in mm^2
+A = A * 10^-6;// in m^2
+Td = N*B*A*I;//deflecting torque in Nm
+K = 0.2*10^-6;// in Nm/degree
+// Td = Tc= K*theta;
+theta = Td/K;//deflecting in degrees
+disp(theta,"The deflecting in degrees is");
diff --git a/2360/CH3/EX3.10/ex3_10.sce b/2360/CH3/EX3.10/ex3_10.sce new file mode 100755 index 000000000..012f64a02 --- /dev/null +++ b/2360/CH3/EX3.10/ex3_10.sce @@ -0,0 +1,28 @@ +// Exa 3.10
+format('v',7);clc;clear;close;
+// Given data
+Rm = 50;//resistance of meter in ohm
+Im = 2;//current in mA
+Im = Im * 10^-3;// in A
+V4 = 10;//voltage in V
+R4 = (V4/Im) - Rm;// in ohm
+R4= R4*10^-3;// in k ohm
+disp(R4,"The value of R4 in kΩ is");
+R4= R4*10^3;// in ohm
+V3 = 50;// in V
+// (R3+R4) = (V3/Im) - Rm;
+R3 = (V3/Im) - Rm-R4;// in ohm
+R3= R3*10^-3;// in k ohm
+disp(R3,"The value of R3 in kΩ is");
+R3= R3*10^3;// in ohm
+V2 = 100;// in V
+//(R2+R3+R4) = (V2/Im) - Rm;
+R2 = (V2/Im) - Rm - R3 - R4;// in ohm
+R2= R2*10^-3;// in k ohm
+disp(R2,"The value of R2 in kΩ is");
+R2= R2*10^3;// in ohm
+V1 = 500;// in V
+// (R1+R2+R3+R4) = (V1/Im) - Rm;
+R1 = (V1/Im) - Rm - R4 - R3 - R2;// in ohm
+R1= R1*10^-3;// in k ohm
+disp(R1,"The value of R1 in kΩ is");
diff --git a/2360/CH3/EX3.11/ex3_11.sce b/2360/CH3/EX3.11/ex3_11.sce new file mode 100755 index 000000000..ad09767d9 --- /dev/null +++ b/2360/CH3/EX3.11/ex3_11.sce @@ -0,0 +1,27 @@ +// Exa 3.11
+format('v',7);clc;clear;close;
+// Given data
+Rm = 50;//meter resistance in ohm
+Im = 2;//current in mA
+Im = Im * 10^-3;// in A
+S = 1/Im;//sensitivity in ohm/V
+// Voltage ranges
+V1 = 500;// in V
+V2 = 100;// in V
+V3 = 50;// in V
+V4 = 10;// in V
+R4 = (S*V4) - Rm;// in ohm
+R4= R4*10^-3;// in k ohm
+disp(R4,"The value of R4 in kΩ is");
+R4= R4*10^3;// in ohm
+R3 = (S*V3) - (Rm+R4);// in ohm
+R3= R3*10^-3;// in k ohm
+disp(R3,"The value of R3 in kΩ is");
+R3= R3*10^3;// in ohm
+R2 = (S*V2) - (Rm+R4+R3);// in ohm
+R2= R2*10^-3;// in k ohm
+disp(R2,"The value of R2 in kΩ is");
+R2= R2*10^3;// in ohm
+R1 = (S*V1) - (Rm+R2+R3+R4);// in ohm
+R1= R1*10^-3;// in k ohm
+disp(R1,"The value of R1 in kΩ is");
diff --git a/2360/CH3/EX3.12/ex3_12.sce b/2360/CH3/EX3.12/ex3_12.sce new file mode 100755 index 000000000..8543f7928 --- /dev/null +++ b/2360/CH3/EX3.12/ex3_12.sce @@ -0,0 +1,11 @@ +// Exa 3.12
+format('v',7);clc;clear;close;
+// Given data
+Im = 50;//current in µA
+Im = Im * 10^-6;// in A
+S = 1/Im;// in ohm/V
+V = 500;// in V
+Rm = 200;//internal resistance in ohm
+Rs = (S*V) - Rm;//multiplier resistance in ohm
+Rs = Rs * 10^-6;// in Mohm
+disp(Rs,"The value of multiplier resistance in MΩ is");
diff --git a/2360/CH3/EX3.13/ex3_13.sce b/2360/CH3/EX3.13/ex3_13.sce new file mode 100755 index 000000000..235b06147 --- /dev/null +++ b/2360/CH3/EX3.13/ex3_13.sce @@ -0,0 +1,18 @@ +// Exa 3.13
+format('v',7);clc;clear;close;
+// Given data
+Rs = 25;//resistance in k ohm
+Rs = Rs * 10^3;// in ohm
+Rm = 1;//meter resistance in k ohm
+Rm = Rm * 10^3;// in k ohm
+V = 100;//voltage in V
+// Rs = (S*V) - Rm;
+S = (Rs+Rm)/V;//sensitivity in ohm/V
+disp("For meter A: The value of S is : "+string(S)+" Ω/V")
+Rs = 150;// in k ohm
+Rs = Rs * 10^3;// in ohm
+V = 1000;// in V
+// Rs = (S*V) - Rm;
+S = (Rs+Rm)/V;// in ohm/V meter B
+disp("For meter B: The value of S is : "+string(S)+" Ω/V")
+disp("The meter A is more sensitive than meter B")
diff --git a/2360/CH3/EX3.14/ex3_14.sce b/2360/CH3/EX3.14/ex3_14.sce new file mode 100755 index 000000000..9cf5fd98f --- /dev/null +++ b/2360/CH3/EX3.14/ex3_14.sce @@ -0,0 +1,25 @@ +// Exa 3.14
+format('v',7);clc;clear;close;
+// Given data
+// Case (i): When voltmeter having a sensitivity of 500 Ω/V
+R1 = 20;// in k ohm
+R2 = 25;// in k ohm
+Vdc = 250;// in V
+V = (Vdc/(R1+R2))*R2;// in V
+Vrange = 150;// in V
+S = 500;// in ohm/V
+R_V = S*Vrange;// in ohm
+R_V = R_V * 10^-3;// in k ohm
+Req = (R2*R_V)/(R2+R_V);// in k ohm
+V = (Req/(Req+R1))*Vdc;// in V voltmeter first
+disp("Case (i): When voltmeter having a sensitivity of 500 Ω/V")
+disp(" The voltmeter will reads : "+string(V)+" V");
+// Case (ii): When voltmeter having a sensitivity of 1000 Ω/V
+S = 10000;// in ohm/V
+R_V = S*Vrange;// in ohm
+R_V = R_V * 10^-3;// in k ohm
+Req = (R2*R_V)/(R2+R_V);// in k ohm
+V = (Req/(Req+R1))*Vdc;// in V Voltmeter second
+disp("Case (ii): When voltmeter having a sensitivity of 1000 Ω/V")
+disp(" The voltmeter will reads : "+string(V)+" V");
+disp("Thus the second voltmeter reads more accurately.")
diff --git a/2360/CH3/EX3.15/ex3_15.sce b/2360/CH3/EX3.15/ex3_15.sce new file mode 100755 index 000000000..1cf4c0135 --- /dev/null +++ b/2360/CH3/EX3.15/ex3_15.sce @@ -0,0 +1,29 @@ +// Exa 3.15
+format('v',6);clc;clear;close;
+// Given data
+Ra = 5;// in k ohm
+Rb = 1;// in k ohm
+V = 25;// in V
+Vrange = 5;// in V
+S = 1;// in k ohm/V
+// True voltage across Rb
+Vb = (Rb/(Ra+Rb))*V;// in V
+disp(Vb,"The true voltage across Rb in V is");
+R_V = S*Vrange;// in k ohm
+Req = (Rb*R_V)/(Rb+R_V);// in k ohm
+V1 = (Req/(Req+Ra))*V;//reading on the voltmeter 1 in V
+disp(V1,"The reading on the voltmeter 1 in V is");
+S = 20;// in k ohm/V
+R_V = S*Vrange;// in k ohm
+Req = (Rb*R_V)/(Rb+R_V);// in k ohm
+V2 = (Req/(Ra+Req))*V;//reading on the voltmeter 2 in V
+disp(V2,"The reading on the voltmeter 2 in V is");
+PerError1 = ((Vb-V1)/Vb)*100;//percentage error in meter 1 in %
+disp(PerError1,"The percentage error in meter 1 in % is");
+PerError2 = ((Vb-V2)/Vb)*100;//percentage error in meter 2 in %
+disp(PerError2,"The percentage error in meter 2 in % is");
+PerAccuracy1 = 100 - PerError1;//percentage accuracy of meter 1 in %
+disp(PerAccuracy1,"The percentage accuarcy of meter 1 in % is");
+PerAccuracy2 = 100-PerError2;//percentage accuracy of meter 2 in %
+disp(PerAccuracy2,"The percentage accuracy of meter 2 in % is");
+disp("Thus voltmeter 2 is "+string(PerAccuracy2)+" % accurate while voltmeter 1 is "+string(PerAccuracy1)+" % accurate")
diff --git a/2360/CH3/EX3.16/ex3_16.sce b/2360/CH3/EX3.16/ex3_16.sce new file mode 100755 index 000000000..5eb22df5e --- /dev/null +++ b/2360/CH3/EX3.16/ex3_16.sce @@ -0,0 +1,15 @@ +// Exa 3.16
+format('v',7);clc;clear;close;
+// Given data
+Erms = 10;//r.m.s. range of the voltmeter in V
+Ep = sqrt(2)*Erms;// in V
+Eav = 0.6*Ep;// in V
+Eav = 9;// in V
+Eavoutput = (1/2)*Eav;// in V
+Edc = 0.45*Erms;// in V
+Idc = 1;// in mA
+Idc = Idc * 10^-3;// in A
+Rm = 200;// in W
+Rs = (Edc/Idc) - Rm;//required multiplier resistance in ohm
+Rs = Rs * 10^-3;// in k ohm
+disp(Rs,"The required multiplier resistance in kΩ is");
diff --git a/2360/CH3/EX3.17/ex3_17.sce b/2360/CH3/EX3.17/ex3_17.sce new file mode 100755 index 000000000..b9406c7d2 --- /dev/null +++ b/2360/CH3/EX3.17/ex3_17.sce @@ -0,0 +1,12 @@ +// Exa 3.17
+format('v',7);clc;clear;close;
+// Given data
+Idc = 2;//dc current in mA
+Idc = Idc * 10^-3;// in A
+Rm = 500;//meter resistance in ohm
+Erms = 10;//r.m.s value in v
+Eav = 9;//average value in V
+Edc = 0.9*Erms;//dc voltage in V
+Rs = (Edc/Idc) - Rm;//multiplier resistance in ohm
+Rs = Rs * 10^-3;// in k ohm
+disp(Rs,"The multiplier resistance in kΩ is");
diff --git a/2360/CH3/EX3.18/ex3_18.sce b/2360/CH3/EX3.18/ex3_18.sce new file mode 100755 index 000000000..b98753996 --- /dev/null +++ b/2360/CH3/EX3.18/ex3_18.sce @@ -0,0 +1,7 @@ +// Exa 3.18
+format('v',7);clc;clear;close;
+// Given data
+Kf_true = 1;// true value of form factor
+Kf_measured= 1.11;// measured value of form factor
+PerError = ((Kf_true-Kf_measured)/Kf_true)*100;//percentage error in the meter reading in %
+disp(PerError,"The percentage error in the meter reading in % is");
diff --git a/2360/CH3/EX3.19/ex3_19.sce b/2360/CH3/EX3.19/ex3_19.sce new file mode 100755 index 000000000..d78bfe5d5 --- /dev/null +++ b/2360/CH3/EX3.19/ex3_19.sce @@ -0,0 +1,21 @@ +// Exa 3.19
+format('v',5);clc;clear;close;
+// Given data
+V1 = 100;// in V
+V2 = 0;// in V
+e1= 0;// in V
+e2= 100;// in V
+T=2;// in sec
+T1 = 0;// in sec
+T2 = 2;// in sec
+// Slope of ramp
+A= (e2-e1)/(T2-T1);// in V/sec
+e= 'A*t';// in sec
+Erms= sqrt(1/T*integrate('(A*t)^2','t',0,T));// in V
+Eav= 1/T*integrate('(A*t)','t',0,T);// in V
+Kf= Erms/Eav;// form factor
+Kf_sine= 1.11;// form factor of sine wave
+True_reading= 1;// true reading
+Meas_reading= Kf_sine/Kf;// measured reading
+PerError= (True_reading-Meas_reading)/True_reading*100;//percentage error in the reading in %
+disp(PerError,"The percentage error in the reading in % is : ")
diff --git a/2360/CH3/EX3.2/ex3_2.sce b/2360/CH3/EX3.2/ex3_2.sce new file mode 100755 index 000000000..0bbc60246 --- /dev/null +++ b/2360/CH3/EX3.2/ex3_2.sce @@ -0,0 +1,24 @@ +// Exa 3.2
+format('v',7);clc;clear;close;
+// Given data
+B = 8*10^-3;//flux density in Wb/m^2
+N = 300;// number of turns
+l = 15;//length in mm
+r = 30;//radius in mm
+K = 2.5*10^-9;//spring constant in Nm/rad
+J = 10*10^-9;// in kg-m^2
+D = 2*10^-9;// in Nm/rads^-1
+Rg = 80;// in ohm
+A = l*r;// in mm^2
+A = A * 10^-6;// in m^2
+G = N*B*A;// in Nm/A
+i = 1;// in µA
+i = i * 10^-6;// in A
+theta_f = (G*i)/K;// in rad
+r = 1;// in m
+r = r * 10^3;// in mm
+d = 2*theta_f*r;//deflection of galvanometer in mm
+disp(d,"The deflection of galvanometer in mm is");
+Si = d/i;// in mm/A
+Si = Si * 10^-6;//Current sensitivity in mm/µA
+disp(Si,"Current sensitivity in mm/µA is");
diff --git a/2360/CH3/EX3.20/ex3_20.sce b/2360/CH3/EX3.20/ex3_20.sce new file mode 100755 index 000000000..57fd39f25 --- /dev/null +++ b/2360/CH3/EX3.20/ex3_20.sce @@ -0,0 +1,14 @@ +// Exa 3.20
+format('v',7);clc;clear;close;
+// Given data
+Erms = 200;//r.m.s value in V
+Rm = 100;//meter resistance in ohm
+Idc = 25;//dc current in mA
+Idc= Idc*10^-3;// in A
+Rf = 500;// in ohm
+R_D = 2*Rf;// in ohm
+Edc = 0.9*Erms;// in V
+Rs = (Edc/Idc) - Rm;// in ohm
+R_m = Rm+R_D;// in ohm
+Rs = (Edc/Idc) - R_m;//required series resistance in ohm
+disp(Rs,"The required series resistance in Ω is");
diff --git a/2360/CH3/EX3.21/ex3_21.sce b/2360/CH3/EX3.21/ex3_21.sce new file mode 100755 index 000000000..c020180a6 --- /dev/null +++ b/2360/CH3/EX3.21/ex3_21.sce @@ -0,0 +1,20 @@ +// Exa 3.21
+format('v',7);clc;clear;close;
+// Given data
+r = 2;//radius in m
+r = r * 10^3;// in mm
+d = 200;//deflection in mm
+To = 3.1415;// in sec
+J = 2*10^-6;// in kg-m^2
+i = 1;// in µA
+i = i * 10^-6;// in A
+// d = 2*r*theta_f;
+theta_f = d/(2*r);// in rad
+// To = 2*%pi * (sqrt( J/K ));
+K = 4*%pi^2*J/To^2;// in Nm/A
+// theta_f = (G*i)/K;
+G = (theta_f*K)/i;// in Nm/A
+// The required resistance to obtain critical damping
+Rc = G^2/( 2*sqrt(J*K));// in ohm
+Rc = Rc * 10^-3;// in k ohm
+disp(Rc,"The required resistance to obtain critical damping in kΩ is");
diff --git a/2360/CH3/EX3.22/ex3_22.sce b/2360/CH3/EX3.22/ex3_22.sce new file mode 100755 index 000000000..07c9072e6 --- /dev/null +++ b/2360/CH3/EX3.22/ex3_22.sce @@ -0,0 +1,18 @@ +// Exa 3.22
+format('v',6);clc;clear;close;
+// Given data
+theta1 = 128;//first maximum deflection in mm
+theta3 = 90;//second maximum deflection in mm
+theta_f = 70;// in mm
+i = 6.2;// in µA
+// The current sensitivity
+Si = theta_f/i;// in mm/µA
+disp(Si,"The current sensitivity in mm/µA is");
+// The logarithmic decrement
+// Formula %e^(2*lambda)= (theta1-thetaf)/(theta3-thetaf)
+lembda = log((theta1-theta_f)/(theta3-theta_f) )*(1/2);
+disp(lembda,"The logarithmic decrement is");
+// lembda = (%pi*sie)/(sqrt( 1-((sie)^2) ));
+// ((lembda/%pi)^2) = ((sie)^2)/(sqrt( 1-((sie)^2) ));
+sie = lembda/sqrt(lembda^2+%pi^2);// the relative damping
+disp(sie,"The relative damping is");
diff --git a/2360/CH3/EX3.23/ex3_23.sce b/2360/CH3/EX3.23/ex3_23.sce new file mode 100755 index 000000000..4bc3bb02d --- /dev/null +++ b/2360/CH3/EX3.23/ex3_23.sce @@ -0,0 +1,30 @@ +// Exa 3.23
+format('v',5);clc;clear;close;
+// Given data
+I = 100;// in mA
+Im = 1;// in mA
+Rm = 25;// in ohm
+// m = I/Im = 1 + Rm/Rsh;
+Rsh = Rm/((I/Im) - 1);// in ohm
+del_t = 10;// in °C
+Alpha_c = 0.004;
+Alpha_m = 0.00015;
+// When temperature increase by 10 °C
+R_m = Rm * ( 1 + (Alpha_c*del_t) );// in ohm
+R_sh = Rsh * (1 + (Alpha_m*del_t));// in ohm
+// When I= 100 mA then
+I_m = (R_sh/(R_sh+R_m))*I;// in mA
+// But Im required for full scale deflection
+PerEerror= ((I_m-Im)/Im)*100;// in %
+disp("Part (i) ");
+disp(PerEerror,"The percentage error in % is");
+Rx = 75;// in ohm
+Rtotal = Rm+Rx;// in ohm
+Rsh = Rtotal/((I/Im) - 1);// in ohm
+//R_total =R_m+R_x;
+R_total = R_m + (Rx*(1+(Alpha_m*del_t)));// in ohm
+R_sh = Rsh * (1+( Alpha_m*del_t ));// in ohm
+I_m = (R_sh/(R_sh+R_total))*I;// in mA
+PerEerror = ((I_m-Im)/Im)*100;//percentage error in %
+disp("Part (ii) ");
+disp(PerEerror,"The percentage error in % is");
diff --git a/2360/CH3/EX3.24/ex3_24.sce b/2360/CH3/EX3.24/ex3_24.sce new file mode 100755 index 000000000..c0628b8dc --- /dev/null +++ b/2360/CH3/EX3.24/ex3_24.sce @@ -0,0 +1,12 @@ +// Exa 3.24
+format('v',7);clc;clear;close;
+// Given data
+Im =25;//current in mA
+Im = Im * 10^-3;// in A
+Rm = 10;//resistance in ohm
+I = 20;// in A
+Rsh = (Im*Rm)/(I-Im);//shunt resistance in ohm
+disp(Rsh,"The value of Rsh in Ω is");
+V = 120;// in V
+Rs = (V/Im)-Rm;// in ohm
+disp(Rs,"The value of Rs in Ω is");
diff --git a/2360/CH3/EX3.25/ex3_25.sce b/2360/CH3/EX3.25/ex3_25.sce new file mode 100755 index 000000000..25cb62944 --- /dev/null +++ b/2360/CH3/EX3.25/ex3_25.sce @@ -0,0 +1,21 @@ +// Exa 3.25
+format('v',7);clc;clear;close;
+// Given data
+Vm = 10;// in mV
+Vm = Vm * 10^-3;// in V
+Rm = 1;// in k ohm
+Rm = Rm * 10^3;// in ohm
+Im = Vm/Rm;// in A
+// Part (i) : For the range of 100 mV
+Vrange = 100;// in mV
+Vrange = Vrange * 10^-3;// in V
+Rs = (Vrange/Im) - Rm;// in ohm
+Rs= Rs*10^-3;// in kohm
+disp("Part (i) For the range of 100 mV")
+// Part (ii) : For the range of 1 V
+disp(Rs,"The value of Rs in kΩ is");
+Vrange = 1;// in V
+Rs = (Vrange/Im) - Rm;// in ohm
+Rs= Rs*10^-3;// in kohm
+disp("Part (i) For the range of 1V")
+disp(Rs,"The value of Rs in kΩ is");
diff --git a/2360/CH3/EX3.26/ex3_26.sce b/2360/CH3/EX3.26/ex3_26.sce new file mode 100755 index 000000000..c3d524802 --- /dev/null +++ b/2360/CH3/EX3.26/ex3_26.sce @@ -0,0 +1,21 @@ +// Exa 3.26
+format('v',7);clc;clear;close;
+// Given data
+Vm = 0.1;//full scale deflection voltage in V
+Rm = 20;//meter resistance in ohm
+Im = Vm/Rm;//current in A
+I1= 10;// in A
+I2= 1;// in A
+I3= 100*10^-3;// in A
+// I1*R1 = Im*(R2+R3+Rm) or I1*R1 - Im*R2 - Im*R3 = Im*Rm (i)
+// I2*(R1+R2) = Im*(R3+Rm) or I2*R1 + I2*R2 -Im*R3 = Im*Rm (ii)
+// I3*(R1+R2+R3) = Im*Rm or I3*R1 + I3*R2 + I3*R3 = Im*Rm (iii)
+A= [I1 I2 I3;-Im I2 I3;-Im -Im I3];
+B= [Im*Rm Im*Rm Im*Rm];
+R= B*A^-1;// Solving equation (i), (ii) and (iii) by matrix method
+R1= R(1);// in ohm
+R2= R(2);// in ohm
+R3= R(3);// in ohm
+disp(R1,"The value of R1 in ohm is : ")
+disp(R2,"The value of R2 in ohm is : ")
+disp(R3,"The value of R3 in ohm is : ")
diff --git a/2360/CH3/EX3.27/ex3_27.sce b/2360/CH3/EX3.27/ex3_27.sce new file mode 100755 index 000000000..bc3ab598b --- /dev/null +++ b/2360/CH3/EX3.27/ex3_27.sce @@ -0,0 +1,14 @@ +// Exa 3.27
+format('v',7);clc;clear;close;
+// Given data
+Im = 10;//current in mA
+Im = Im * 10^-3;// in A
+Rm = 50;//meter resistance in ohm
+I = 5;// in A
+// Value of resistance to be connected in parallel
+Rsh = (Im*Rm)/(I-Im);// in ohm
+disp(Rsh,"The value of resistance to be connected in parallel in Ω is");
+V = 250;// in V
+// The value of resistance to be connected in series
+Rs = (V/Im) - Rm;// in ohm
+disp(Rs,"The value of resistance to be connected in series in Ω is");
diff --git a/2360/CH3/EX3.28/ex3_28.sce b/2360/CH3/EX3.28/ex3_28.sce new file mode 100755 index 000000000..08d736894 --- /dev/null +++ b/2360/CH3/EX3.28/ex3_28.sce @@ -0,0 +1,24 @@ +// Exa 3.28
+format('v',6);clc;clear;close;
+// Given data
+Im = 1;// in mA
+Im = Im * 10^-3;// in A
+Rm = 100;// in ohm
+I = 100;// in mA
+I = I * 10^-3;// in A
+// For 100 mA range, the value of Rsh to be connected in parallel
+Rsh = (Im*Rm)/(I-Im);// in ohm
+disp(Rsh,"For 100 mA range, the value of Rsh to be connected in parallel in Ω is");
+I = 1;// in A
+// For 1 A range, the value of Rsh to be connected in parallel
+Rsh = (Im*Rm)/(I-Im);// in ohm
+disp(Rsh,"For 1A range, the value of Rsh to be connected in parallel in Ω is");
+V = 1;// in V
+// For 1V range, the value of Rs to be connected in series
+Rs = (V/Im)-Rm;// in ohm
+disp(Rs,"For 1V range, the value of Rs to be connected in series in Ω is");
+V = 100;// in V
+// For 100 V range, the value of Rs to be connected in series
+Rs = (V/Im)-Rm;// in ohm
+Rs= Rs*10^-3;// in k ohm
+disp(Rs,"For 100V range, the value of Rs to be connected in series in kΩ is");
diff --git a/2360/CH3/EX3.29/ex3_29.sce b/2360/CH3/EX3.29/ex3_29.sce new file mode 100755 index 000000000..4b9745fb0 --- /dev/null +++ b/2360/CH3/EX3.29/ex3_29.sce @@ -0,0 +1,16 @@ +// Exa 3.29
+format('v',7);clc;clear;close;
+// Given data
+Rm = 100;//meter resistance in ohm
+Im = 2;//current in mA
+Im = Im * 10^-3;// in A
+I = 150;// in mA
+I = I * 10^-3;// in A
+m = I/Im;
+Rsh = Rm/(m-1);//required shunt resistance in ohm
+disp(Rsh,"The value of required shunt resistance in Ω is");
+Pm = ((Im)^2)*Rm;// in W
+Psh = ((I-Im)^2)*Rsh;// in W
+P = Pm+Psh;//power consumption in W
+P = P * 10^3;// in mW
+disp(P,"The power consumption in mW is");
diff --git a/2360/CH3/EX3.3/ex3_3.sce b/2360/CH3/EX3.3/ex3_3.sce new file mode 100755 index 000000000..efcef29d6 --- /dev/null +++ b/2360/CH3/EX3.3/ex3_3.sce @@ -0,0 +1,48 @@ +// Exa 3.3
+format('v',7);clc;clear;close;
+// Given data
+B = 10*10^-3;// in Wb/m^2
+N = 200;// in turns
+l = 16;// in mm
+K = 12*10^-9;// in Nm/rad
+J = 50*10^-9;// in kg-m^2
+D = 5*10^-9;// in Nm/rads^-1
+R = 120;// in ohm
+A = l^2;// in mm^2
+A = A * 10^-6;// in m^2
+G = N*B*A;// in Nm/A
+i = 1;// in µA
+i = i * 10^-6;// in A
+theta_f = (G*i)/K;// in rad
+r = 1;// in m
+r = r * 10^3;// in mm
+// deflection of the galvanometer
+d = 2*theta_f*r;// in mm
+disp(d,"The deflection of the galvanometer in mm is");
+i = i * 10^6;// in µA
+// Current sensitivity
+Si = d/i;// in mm/µA
+disp(Si,"The current sensitivity in mm/µA is");
+// Voltage sensitivity
+Sv = d/(i*R);// in mm/µV
+disp(Sv,"The voltage sensitivity in mm/µV is");
+So = d/(i*10^-6*10^6);//megaohm sensitivity in Mohm/mm
+disp(So,"The megaohm sensitivity in Mohm/mm is");
+omega_d = (sqrt((4*J*K) - ((D)^2)))/(2*J);// in rad/sec
+f_d = omega_d/(2*%pi);//frequency of damped oscillation in Hz
+disp(f_d,"The frequency of damped oscillation in Hz is");
+omega_n = sqrt(K/J);
+// period of free oscillation
+To = (2*%pi)/omega_n;// in sec
+disp(To,"The period of free oscillation in sec is");
+Dc = 2*sqrt( J*K );
+// The relative damping
+Epsilon = D/Dc;
+disp(Epsilon,"The relative damping is");
+// The first maximum deflection
+theta1 = theta_f * ( 1 + (%e^(-%pi*Epsilon)/(sqrt(1 - ((Epsilon)^2)))) );// in rad
+theta1 = theta1*2*r;// in mm
+disp(theta1,"The first maximum deflection in mm is");
+// The logarithmic decrement
+lembda = (%pi*Epsilon)/(sqrt(1 - ((Epsilon)^2)));
+disp(lembda,"The logarithmic decrement is");
diff --git a/2360/CH3/EX3.30/ex3_30.sce b/2360/CH3/EX3.30/ex3_30.sce new file mode 100755 index 000000000..b0dee6270 --- /dev/null +++ b/2360/CH3/EX3.30/ex3_30.sce @@ -0,0 +1,10 @@ +// Exa 3.30
+format('v',7);clc;clear;close;
+// Given data
+std_cell_emf = 1.45;//e.m.f. of standard cell in V
+l = 50;//length in cm
+Vdrop = std_cell_emf /l;//voltage drop per unit length in V/cm
+Vstdresistor = Vdrop*75;//voltage across standard resistor in V
+Stdresistor = 0.1;//standard resistor in ohm
+I = Vstdresistor/Stdresistor;//magnitude of current in A
+disp(I,"The magnitude of current in A is");
diff --git a/2360/CH3/EX3.4/ex3_4.sce b/2360/CH3/EX3.4/ex3_4.sce new file mode 100755 index 000000000..6d6c57700 --- /dev/null +++ b/2360/CH3/EX3.4/ex3_4.sce @@ -0,0 +1,12 @@ +// Exa 3.4
+format('v',7);clc;clear;close;
+// Given data
+Rm = 100;//internal resistance in ohm
+Im = 2;// in mA
+Im = Im * 10^-3;// in A
+I = 150;// in mA
+I = I * 10^-3;// in A
+Rsh = (Im*Rm)/(I-Im);//shunt resistance in ohm
+disp(Rsh,"The value of shunt resistance in ohm is");
+
+// Note: The calculation in the book is wrong.
diff --git a/2360/CH3/EX3.5/ex3_5.sce b/2360/CH3/EX3.5/ex3_5.sce new file mode 100755 index 000000000..7bb5a1b36 --- /dev/null +++ b/2360/CH3/EX3.5/ex3_5.sce @@ -0,0 +1,16 @@ +// Exa 3.5
+format('v',7);clc;clear;close;
+// Given data
+Rsh = 0.01;//shunt resistance in ohm
+Rm = 750;//resistance in ohm
+Vm= 400*10^-3;//voltage in V
+Ish = 50;//current in A
+// Ish*Rsh = voltagedrop;
+Ish = Vm/Rsh;//current through shunt in A
+disp(Ish,"The current through shunt in A is");
+Ish=50;// in A
+Vsh = Ish*Rsh;// in V
+Im = Vm/Rm;// in A
+// Im*R_m = Vsh;
+R_m = Vsh/Im;//resistance of meter in ohm
+disp(R_m,"The resistance of meter in Ω is");
diff --git a/2360/CH3/EX3.6/ex3_6.sce b/2360/CH3/EX3.6/ex3_6.sce new file mode 100755 index 000000000..32f1cf6f9 --- /dev/null +++ b/2360/CH3/EX3.6/ex3_6.sce @@ -0,0 +1,17 @@ +// Exa 3.6
+format('v',7);clc;clear;close;
+// Given data
+// The first range is 0-10 mA
+I1 = 10;//in mA
+Im = 2;// in mA
+Rm = 75;// in ohm
+R1 = (Im*Rm)/(I1-Im);// in ohm
+disp(R1,"The value of R1 in ohm is");
+// Second range is 0-50 mA
+I2 = 50;// in mA
+R2 = (Im*Rm)/(I2-Im);// in ohm
+disp(R2,"The value of R2 in ohm is");
+// The third range is 0-100 mA
+I3 = 100;// in mA
+R3 = (Im*Rm)/(I3-Im);// in ohm
+disp(R3,"The value of R3 in ohm is");
diff --git a/2360/CH3/EX3.7/ex3_7.sce b/2360/CH3/EX3.7/ex3_7.sce new file mode 100755 index 000000000..b0e3b07cd --- /dev/null +++ b/2360/CH3/EX3.7/ex3_7.sce @@ -0,0 +1,22 @@ +// Exa 3.7
+format('v',7);clc;clear;close;
+// Given data
+I1 = 10;// in A
+Im = 1*10^-3;// in A
+Rm = 50;// in ohm
+I2 = 5;// in A
+I3 = 1;// in A
+// I1*R1= Im*(R2+R3+Rm) or I1*R1 - Im*R2 - Im*R3 = Im*Rm (i)
+// I2*(R1+R2) = Im*(R3+Rm) or I2*R1 + I2*R2 - Im*R3 = Im*Rm (ii)
+// I3*(R1+R2+R3) = Im*Rm or I3*R1 + I3*R2 + I3*R3 = Im*Rm (iii)
+// Solving eq (i),(ii) and (iii) by matrix method :
+A= [I1 I2 I3;-Im I2 I3;-Im -Im I3];
+B= [Im*Rm Im*Rm Im*Rm];
+R= B*A^-1;
+R1= R(1);//value of R1 in ohm
+R2= R(2);//value of R2 in ohm
+R3= R(3);//value of R3 in ohm
+disp(R1,"The value of R1 in ohm is : ")
+disp(R2,"The value of R2 in ohm is : ")
+disp(R3,"The value of R3 in ohm is : ")
+
diff --git a/2360/CH3/EX3.8/ex3_8.sce b/2360/CH3/EX3.8/ex3_8.sce new file mode 100755 index 000000000..2b7dbc124 --- /dev/null +++ b/2360/CH3/EX3.8/ex3_8.sce @@ -0,0 +1,11 @@ +// Exa 3.8
+format('v',7);clc;clear;close;
+// Given data
+Rm = 500;//resistance of meter in ohm
+Im = 40;//current in µA
+Im = Im * 10^-6;// in A
+V = 10;//voltage in V
+// The required multiplier resistance
+Rs = (V/Im)-Rm;// in ohm
+Rs = Rs * 10^-3;// in k ohm
+disp(Rs,"The required multiplier resistance in kΩ is");
diff --git a/2360/CH3/EX3.9/ex3_9.sce b/2360/CH3/EX3.9/ex3_9.sce new file mode 100755 index 000000000..10faac3c2 --- /dev/null +++ b/2360/CH3/EX3.9/ex3_9.sce @@ -0,0 +1,15 @@ +// Exa 3.9
+format('v',7);clc;clear;close;
+// Given data
+Im = 20;//current in mA
+Vm = 200;//voltage in mV
+// Vm = Im*Rm;
+Rm = Vm/Im;//resistance in ohm
+I = 200;// in A
+Im = Im * 10^-3;// in A
+Rsh = (Im*Rm)/(I-Im);//required shunt resistance in ohm
+disp(Rsh,"The required shunt resistance in Ω is");
+V = 500;// in V
+Rs = (V/Im)-Rm;//required multiplier resistance in ohm
+Rs = Rs * 10^-3;// in k ohm
+disp(Rs,"The required multiplier resistance in kΩ is");
|