12 files changed, 209 insertions, 0 deletions
diff --git a/2297/CH5/EX5.1/Ex5_1.sce b/2297/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..da8457116
--- /dev/null
+++ b/2297/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,18 @@
+// Example 5.1 : resistance
+clc;
+clear;
+// given :
+format('v',9)
+n=50;//number of turns
+B=1;//magnetic field in tesla
+I=1;//current in amperes
+L=4;//length in cm
+d=3;//dia in cm
+Td=n*B*I*L*d*10^-4;//torque in N-m
+cd1=2.4*10^-4;//controlling torque
+id=cd1/Td;//current in amperes
+fsv=100;//full scale voltage
+trv=fsv/id;//ohms
+adr=10000;//ohms
+r=trv-adr;//ohms
+disp(r,"required resistance is,(ohm)=")
diff --git a/2297/CH5/EX5.10/Ex5_10.sce b/2297/CH5/EX5.10/Ex5_10.sce
new file mode 100755
index 000000000..abcdb5b55
--- /dev/null
+++ b/2297/CH5/EX5.10/Ex5_10.sce
@@ -0,0 +1,21 @@
+// Example 5.10;true resistance of the unknown resistor  , percentage error and reading voltmeter
+clc;
+clear;
+// given :
+format('v',7)
+disp("part (i)")
+ra=0.1;//ohms
+vr=18;//voltage in volts
+am=0.2;//current in amperes
+apr=vr/am;//in ohms
+rv=5000;//ohms
+im=vr/rv;//amperes
+rxi=am-(im);//in amperes
+rx=vr/rxi;//ohms
+disp(rx,"true value of resistance is,(Ohm)=")
+per=((rx-apr)/rx)*100;//percentage error
+disp("part (ii)")
+disp(per,"percentage error is,(%)=")
+rvv=am*(ra+rx);//reading of voltmeter
+disp("part (iii)")
+disp(rvv,"reading of voltmeter is,(V)=")
diff --git a/2297/CH5/EX5.11/Ex5_11.sce b/2297/CH5/EX5.11/Ex5_11.sce
new file mode 100755
index 000000000..e0216f983
--- /dev/null
+++ b/2297/CH5/EX5.11/Ex5_11.sce
@@ -0,0 +1,32 @@
+// Example 5.11;resistance
+clc;
+clear;
+// given :
+format('v',6)
+im=10;//mA
+i=100;//mA
+m=i/im;//multiplying factor
+rm=50;//ohms
+rsh=rm/(m-1);//in ohms
+disp("part (i)")
+disp(rsh,"resistance of shunt (range 0-100mA) Rsh1 is,(Ohm)=")
+i1=500;//mA
+m1=i1/im;//multiplying factor
+rm1=50;//ohms
+rsh1=rm1/(m1-1);//in ohms
+disp("part (ii)")
+disp(rsh1,"resistance of shunt (range 0-500mA) Rsh2 is,(Ohm)=")
+im2=1;//A
+i2=100;//A
+m2=i2/im2;//multiplying factor
+rm2=50;//ohms
+rsh2=rm2/(m2-1);//in ohms
+disp("part (iii)")
+disp(rsh2,"resistance of shunt (range 0-1A) Rsh2 is,(Ohm)=")
+im3=1;//A
+i3=500;//A
+m3=i3/im3;//multiplying factor
+rm3=50;//ohms
+rsh3=rm3/(m3-1);//in ohms
+disp("part (iv)")
+disp(rsh3,"resistance of shunt (range 0-5A) Rsh2 is,(Ohm)=")
diff --git a/2297/CH5/EX5.12/Ex5_12.sce b/2297/CH5/EX5.12/Ex5_12.sce
new file mode 100755
index 000000000..7fae0c3c7
--- /dev/null
+++ b/2297/CH5/EX5.12/Ex5_12.sce
@@ -0,0 +1,10 @@
+// Example 5.12;load power
+clc;
+clear;
+format('v',6)
+// given :
+k=600;//in rev./kwh.
+nr=5;//number of revolutions
+t=20;//time in seconds
+lp=(1/k)*nr*((60*60)/t);//power in kW
+disp(lp,"load power is,(kW)=")
diff --git a/2297/CH5/EX5.2/Ex5_2.sce b/2297/CH5/EX5.2/Ex5_2.sce
new file mode 100755
index 000000000..384461c24
--- /dev/null
+++ b/2297/CH5/EX5.2/Ex5_2.sce
@@ -0,0 +1,15 @@
+// Example 5.2 : resistance
+clc;
+clear;
+// given :
+format('v',9)
+fsf=20;//full scale deflection current in mA
+v=200;//voltage in mV
+ri=v/fsf;//resistance in ohms
+x=199.98;//current in amperes
+rsh=(v*10^-3)/x;//ohms
+fs2=1000;//volts
+trv=fs2/(fsf*10^-3);//ohms
+rse=trv-ri;//reqquired resistance in ohms
+disp(rse,"total resistance of the voltmeter is,(ohm)=")
+//in the text book approximately value of resistance is taken as 50000 ohm
diff --git a/2297/CH5/EX5.3/Ex5_3.sce b/2297/CH5/EX5.3/Ex5_3.sce
new file mode 100755
index 000000000..c5fd29ae9
--- /dev/null
+++ b/2297/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,17 @@
+// Example 5.3 : power factor
+clc;
+clear;
+// given :
+format('v',6)
+w1=2000;//power in watts
+w2=500;//power in watts
+an=atand(sqrt(3)*(((w1-w2)/(w1+w2))));//angle in degree
+disp("part (a)")
+pf=cosd(an);//power factor
+disp(pf,"power factor is ,=")
+disp("part (b)")
+w1=2000;//power in watts
+w2=-500;//power in watts
+an=atand(sqrt(3)*(((w1-w2)/(w1+w2))));//angle in degree
+pf=cosd(an);//power factor
+disp(pf,"power factor is ,=")
diff --git a/2297/CH5/EX5.4/Ex5_4.sce b/2297/CH5/EX5.4/Ex5_4.sce
new file mode 100755
index 000000000..1fbf05730
--- /dev/null
+++ b/2297/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,20 @@
+// Example 5.4;reading
+clc;
+clear;
+disp("part (i)")
+// given :
+format('v',6)
+vm=100;//volts
+rc=10;//ohms
+im=vm/rc;//amperes
+t=0:2*%pi;//time rane
+x=intsplin(t,(sin(t))^2);//variable
+Irms=sqrt((1/(2*%pi))*im^2*x);//current in amperes
+disp(Irms,"indication of moving iron instrument is,(A)=")
+disp("part (ii)")
+t1=0;//time interval
+t2=%pi;//time inerval
+x=integrate('sin(t)','t',t1,t2);//variable
+Iav=(1/%pi)*x*(im/2);//current in amperes
+disp(Iav,"indication of moving coil instrument is,(A)=")
+//answer of part a is calculated wrong in the textbook
diff --git a/2297/CH5/EX5.5/Ex5_5.sce b/2297/CH5/EX5.5/Ex5_5.sce
new file mode 100755
index 000000000..d477d0710
--- /dev/null
+++ b/2297/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,18 @@
+// Example 5.5;reading
+clc;
+clear;
+format('v',5)
+// given :
+fsd=100;//full scale division in amperes
+fsd1=100;//full scale division in mA
+csh=fsd-(fsd*10^-3);//difference in currents in amperes
+rx=0.8;//resistance in ohms
+r1=((fsd1*10^-3*rx)/csh);//resistance in ohms
+rx1=1;//resistance in ohms
+r2=((fsd1*10^-3*rx1)/csh);//resistance in ohms
+em1=((rx*r1)/(rx+r1));//resistance in ohms
+em2=((rx1*r2)/(rx1+r2));//resistance in ohms
+crm1=((em2*10^4*fsd)/((em2*10^4)+(em1*10^4)));//current in amperes
+crm2=((em1*10^4*fsd)/((em1*10^4)+(em2*10^4)));//current in amperes
+disp(crm1,"current read by meter 1 is,(A)=")
+disp(crm2,"current read by meter 2 is,(A)=")
diff --git a/2297/CH5/EX5.6/Ex5_6.sce b/2297/CH5/EX5.6/Ex5_6.sce
new file mode 100755
index 000000000..211ca3a89
--- /dev/null
+++ b/2297/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,19 @@
+// Example 5.6;multiplier and sensivity
+clc;
+clear;
+// given :
+format('v',6)
+rm=50;//resistance in ohms
+rsh=rm;//shunt resistance in ohms
+it=2;//current in mA
+erms=10;//rms voltage in volts
+ede=0.45*erms;//voltage in volts
+rd1=400;//resistance in ohms
+x=(rm*rsh)/(rm+rsh);//resistance in ohms
+r1=ede/(it*10^-3);//resistance in ohms
+rs=r1-x-rd1;//resistance in ohms
+disp("part (a)")
+disp(rs,"multiplier resistance Rs is,(Ohm)=")
+S=r1/erms;//sensivity in ohms/V
+disp("part (b)")
+disp(S,"sensivity is,(Ohm/V)=")
diff --git a/2297/CH5/EX5.7/Ex5_7.sce b/2297/CH5/EX5.7/Ex5_7.sce
new file mode 100755
index 000000000..3d280f268
--- /dev/null
+++ b/2297/CH5/EX5.7/Ex5_7.sce
@@ -0,0 +1,19 @@
+// Example 5.7;apparent resistance of the unknown resistor,actual resistance of the unknown resistor and percentage error
+clc;
+clear;
+// given :
+format('v',7)
+v=200;//voltage in volts
+i=5;//current in mA
+tr=v/i;//resistance in kilo ohms
+disp("part (a)")
+disp(tr,"apparent resistance of unknown resistor is,(kilo-Ohm)=")
+S=1000;//sensivity in ohms/V
+V1=250;//voltage in volts
+rv=V1*S*10^-3;//resistance in kilo ohms
+rx=(V1*tr)/(V1-tr);//resistance in kilo ohms
+disp("part (b)")
+disp(rx,"actual resistance of unknown resistor is,(kilo-Ohm)=")
+per=(rx-tr)/rx;//percentage error
+disp("part (c)")
+disp(per*100,"percentage error is,(%)=")
diff --git a/2297/CH5/EX5.8/Ex5_8.sce b/2297/CH5/EX5.8/Ex5_8.sce
new file mode 100755
index 000000000..686c51b22
--- /dev/null
+++ b/2297/CH5/EX5.8/Ex5_8.sce
@@ -0,0 +1,11 @@
+// Example 5.8;resolution
+clc;
+clear;
+format('v',6)
+// given :
+fsr=200;//full scale reading in volts
+d=100;//number of divisions
+sc=1/10;//scale
+sd1=fsr/d;//one sccale divisions
+R=sc*sd1;//resolution
+disp(R,"resolution is, (V)=")
diff --git a/2297/CH5/EX5.9/Ex5_9.sce b/2297/CH5/EX5.9/Ex5_9.sce
new file mode 100755
index 000000000..2e4f21618
--- /dev/null
+++ b/2297/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,9 @@
+// Example 5.9;resolution
+clc;
+clear;
+format('v',6)
+// given :
+fsr=9.999;//full scale reading in volts
+d=9999;//number of divisions
+R=(1/d)*fsr*10^3;//resolution
+disp(R,"resolution is ,(mV)=")