From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1994/CH7/EX7.1/Example7_1.sce | 9 +++++++++ 1994/CH7/EX7.10/Example7_10.sce | 17 +++++++++++++++++ 1994/CH7/EX7.11/Example7_11.sce | 8 ++++++++ 1994/CH7/EX7.12/Example7_12.sce | 16 ++++++++++++++++ 1994/CH7/EX7.13/Example7_13.sce | 20 ++++++++++++++++++++ 1994/CH7/EX7.14/Example7_14.sce | 32 ++++++++++++++++++++++++++++++++ 1994/CH7/EX7.15/Example7_15.sce | 19 +++++++++++++++++++ 1994/CH7/EX7.16/Example7_16.sce | 18 ++++++++++++++++++ 1994/CH7/EX7.17/Example7_17.sce | 10 ++++++++++ 1994/CH7/EX7.18/Example7_18.sce | 7 +++++++ 1994/CH7/EX7.19/Example7_19.sce | 31 +++++++++++++++++++++++++++++++ 1994/CH7/EX7.2/Example7_2.sce | 13 +++++++++++++ 1994/CH7/EX7.20/Example7_20.sce | 15 +++++++++++++++ 1994/CH7/EX7.21/Example7_21.sce | 16 ++++++++++++++++ 1994/CH7/EX7.22/Example7_22.sce | 19 +++++++++++++++++++ 1994/CH7/EX7.23/Example7_23.sce | 23 +++++++++++++++++++++++ 1994/CH7/EX7.24/Example7_24.sce | 24 ++++++++++++++++++++++++ 1994/CH7/EX7.25/Example7_25.sce | 30 ++++++++++++++++++++++++++++++ 1994/CH7/EX7.26/Example7_26.sce | 8 ++++++++ 1994/CH7/EX7.27/Example7_27.sce | 8 ++++++++ 1994/CH7/EX7.28/Example7_28.sce | 14 ++++++++++++++ 1994/CH7/EX7.29/Example7_29.sce | 15 +++++++++++++++ 1994/CH7/EX7.3/Example7_3.sce | 7 +++++++ 1994/CH7/EX7.4/Example7_4.sce | 15 +++++++++++++++ 1994/CH7/EX7.5/Example7_5.sce | 15 +++++++++++++++ 1994/CH7/EX7.6/Example7_6.sce | 24 ++++++++++++++++++++++++ 1994/CH7/EX7.7/Example7_7.sce | 7 +++++++ 1994/CH7/EX7.8/Example7_8.sce | 12 ++++++++++++ 1994/CH7/EX7.9/Example7_9.sce | 20 ++++++++++++++++++++ 29 files changed, 472 insertions(+) create mode 100755 1994/CH7/EX7.1/Example7_1.sce create mode 100755 1994/CH7/EX7.10/Example7_10.sce create mode 100755 1994/CH7/EX7.11/Example7_11.sce create mode 100755 1994/CH7/EX7.12/Example7_12.sce create mode 100755 1994/CH7/EX7.13/Example7_13.sce create mode 100755 1994/CH7/EX7.14/Example7_14.sce create mode 100755 1994/CH7/EX7.15/Example7_15.sce create mode 100755 1994/CH7/EX7.16/Example7_16.sce create mode 100755 1994/CH7/EX7.17/Example7_17.sce create mode 100755 1994/CH7/EX7.18/Example7_18.sce create mode 100755 1994/CH7/EX7.19/Example7_19.sce create mode 100755 1994/CH7/EX7.2/Example7_2.sce create mode 100755 1994/CH7/EX7.20/Example7_20.sce create mode 100755 1994/CH7/EX7.21/Example7_21.sce create mode 100755 1994/CH7/EX7.22/Example7_22.sce create mode 100755 1994/CH7/EX7.23/Example7_23.sce create mode 100755 1994/CH7/EX7.24/Example7_24.sce create mode 100755 1994/CH7/EX7.25/Example7_25.sce create mode 100755 1994/CH7/EX7.26/Example7_26.sce create mode 100755 1994/CH7/EX7.27/Example7_27.sce create mode 100755 1994/CH7/EX7.28/Example7_28.sce create mode 100755 1994/CH7/EX7.29/Example7_29.sce create mode 100755 1994/CH7/EX7.3/Example7_3.sce create mode 100755 1994/CH7/EX7.4/Example7_4.sce create mode 100755 1994/CH7/EX7.5/Example7_5.sce create mode 100755 1994/CH7/EX7.6/Example7_6.sce create mode 100755 1994/CH7/EX7.7/Example7_7.sce create mode 100755 1994/CH7/EX7.8/Example7_8.sce create mode 100755 1994/CH7/EX7.9/Example7_9.sce (limited to '1994/CH7') diff --git a/1994/CH7/EX7.1/Example7_1.sce b/1994/CH7/EX7.1/Example7_1.sce new file mode 100755 index 000000000..190bad564 --- /dev/null +++ b/1994/CH7/EX7.1/Example7_1.sce @@ -0,0 +1,9 @@ +//Chapter-7,Example7_1,pg 7-13 +N=100 +B=0.15 +A=10*8*10^-6 +I=5*10^-3 +Td=N*B*A*I//deflecting torque +K=0.2*10^-6//spring const. +theta=Td/K//deflecting angle +printf("deflection theta=%.2f deg",theta) diff --git a/1994/CH7/EX7.10/Example7_10.sce b/1994/CH7/EX7.10/Example7_10.sce new file mode 100755 index 000000000..fff3fdca0 --- /dev/null +++ b/1994/CH7/EX7.10/Example7_10.sce @@ -0,0 +1,17 @@ +//Chapter-7,Example7_10,pg 7-35 +Rm=50 +Im=2*10^-3 +V1=500 +V2=100 +V3=50 +V4=10 +S=1/Im//senstivity +R4=S*V4-Rm +R3=S*V3-(R4+Rm) +R2=S*V2-(R4+Rm+R3) +R1=S*V1-(R4+Rm+R3+R2) +printf("series string of multipliers\n") +printf("R1=%.2f ohm\n",R1) +printf("R2=%.2f ohm\n",R2) +printf("R3=%.2f ohm\n",R3) +printf("R4=%.2f ohm\n",R4) diff --git a/1994/CH7/EX7.11/Example7_11.sce b/1994/CH7/EX7.11/Example7_11.sce new file mode 100755 index 000000000..1ab9e1412 --- /dev/null +++ b/1994/CH7/EX7.11/Example7_11.sce @@ -0,0 +1,8 @@ +//Chapter-7,Example7_11,pg 7-36 +Im=50*10^-6 +S=1/Im +Rm=200 +V=500//V is voltage range +Rs=S*V-Rm +printf("multipler resistance\n") +printf("Rs=%.2f ohm",Rs) diff --git a/1994/CH7/EX7.12/Example7_12.sce b/1994/CH7/EX7.12/Example7_12.sce new file mode 100755 index 000000000..2254ccc67 --- /dev/null +++ b/1994/CH7/EX7.12/Example7_12.sce @@ -0,0 +1,16 @@ + +//Chapter-7,Example7_12,pg 7-36 +//for meter A +Rs=25*10^3 +Rm=1*10^3 +V=100 +S=(Rs+Rm)/V +printf("senstivity of meter A\n") +printf("S=%.2f ohm/volt\n",S) +//for meter B +Rs=150*10^3 +Rm=1*10^3 +V=1000 +S=(Rs+Rm)/V +printf("senstivity of meter B\n") +printf("S=%.2f ohm/volt",S) diff --git a/1994/CH7/EX7.13/Example7_13.sce b/1994/CH7/EX7.13/Example7_13.sce new file mode 100755 index 000000000..580b8c164 --- /dev/null +++ b/1994/CH7/EX7.13/Example7_13.sce @@ -0,0 +1,20 @@ +//Chapter-7,Example7_13,pg 7-37 +R1=20*10^3 +R2=25*10^3 +V=250//voltage supply +VR2=R2*V/(R1+R2)//voltage across R2 +//case-1 +S=500 +Vr=150//voltage range of resistor +Rv=S*Vr +Req=R2*Rv/(R2+Rv) +VReq=Req*V/(Req+R1)//voltage across Req +printf("first voltmeter reading\n") +printf("VReq=%.2f V\n",VReq) +//case-2 +S=10*10^3 +Rv=S*Vr +Req=R2*Rv/(R2+Rv) +VReq=Req*V/(Req+R1) +printf("second voltmeter reading\n") +printf("VReq=%.2f V",VReq) diff --git a/1994/CH7/EX7.14/Example7_14.sce b/1994/CH7/EX7.14/Example7_14.sce new file mode 100755 index 000000000..4cd2231bc --- /dev/null +++ b/1994/CH7/EX7.14/Example7_14.sce @@ -0,0 +1,32 @@ +//Chapter-7,Example7_14,pg 7-38 +Rb=1*10^3 +Ra=5*10^3 +V=25 +VRb=Rb*V/(Ra+Rb)//voltage across Rb +Vr=5 +//case-1 +S=1*10^3 +Rv=S*Vr +Req=Rb*Rv/(Rb+Rv) +VReq=Req*V/(Req+Ra) +err=(VRb-VReq)*100/VRb +acc=100-err +printf("voltmeter reading case-1\n") +printf("VReq=%.2f V\n",VReq) +printf("percentage error\n") +printf("err=%.2f \n",err) +printf("percentage accuracy\n") +printf("acc=%.2f\n",acc) +//case-2 +S=20*10^3 +Rv=S*Vr +Req=Rb*Rv/(Rb+Rv) +VReq=Req*V/(Req+Ra) +err=(VRb-VReq)*100/VRb +acc=100-err +printf("voltmeter reading case-2\n") +printf("VReq=%.2f V\n",VReq) +printf("percentage error\n") +printf("err=%.2f \n",err) +printf("percentage accuracy\n") +printf("acc=%.2f\n",acc) diff --git a/1994/CH7/EX7.15/Example7_15.sce b/1994/CH7/EX7.15/Example7_15.sce new file mode 100755 index 000000000..06d415138 --- /dev/null +++ b/1994/CH7/EX7.15/Example7_15.sce @@ -0,0 +1,19 @@ +//Chapter-7,Example7_15,pg 7-41 +Rm=50 +Im=20*10^-3 +I=10 +Rsh=(Im*Rm)/(I-Im) +printf("shunt resistance for I=10A\n") +printf("Rsh=%.2f ohm\n",Rsh) +I=20 +Rsh=(Im*Rm)/(I-Im) +printf("shunt resistance for I=20A\n") +printf("Rsh=%.2f ohm\n",Rsh) +V=150 +Rs=(V/Im)-Rm +printf("series resistance for V=150V\n") +printf("Rs=%.2f ohm\n",Rs) +V=300 +Rs=(V/Im)-Rm +printf("series resistance for V=300V\n") +printf("Rs=%.2f ohm",Rs) diff --git a/1994/CH7/EX7.16/Example7_16.sce b/1994/CH7/EX7.16/Example7_16.sce new file mode 100755 index 000000000..19441424d --- /dev/null +++ b/1994/CH7/EX7.16/Example7_16.sce @@ -0,0 +1,18 @@ +//Chapter-7,Example7_16,pg 7-42 +Rsh=0.02 +R=1000 +Vm=500*10^-3 +Im=Vm/R +Ish=Vm/Rsh +printf("shunt current\n") +printf("Ish=%.2f A\n",Ish) +Ish1=10 +V=Ish1*Rsh +R=V/Im +printf("resistance for Ish=10A\n") +printf("R=%.2f ohm\n",R) +Ish2=75 +V=Ish2*Rsh +R=V/Im +printf("resistance for Ish=75A\n") +printf("R=%.2f ohm\n",R) diff --git a/1994/CH7/EX7.17/Example7_17.sce b/1994/CH7/EX7.17/Example7_17.sce new file mode 100755 index 000000000..2fa702cfb --- /dev/null +++ b/1994/CH7/EX7.17/Example7_17.sce @@ -0,0 +1,10 @@ +//Chapter-7,Example7_17,pg 7-50 +K=5.73*10^-6 +I=20 +theta=110*(%pi/180)//full scale deflection +dtheta=theta//change in theta +L=4*10^-6 +dm=(theta*K/(I^2))*dtheta//change in inductance +Lf=L+dm +printf("final inductance\n") +printf("Lf=%.8f H",Lf) diff --git a/1994/CH7/EX7.18/Example7_18.sce b/1994/CH7/EX7.18/Example7_18.sce new file mode 100755 index 000000000..0ede2752b --- /dev/null +++ b/1994/CH7/EX7.18/Example7_18.sce @@ -0,0 +1,7 @@ +//Chapter-7,Example7_18,pg 7-50 +x=30//deflection +dM=5*sin((x+45)*(%pi/180))*10^-3//diffrentiate M w.r.t x +I=10*10^-3 +Td=(I^2)*dM//deflecting torque +printf("deflecting torque\n") +printf("Td=%.8f Nm",Td) diff --git a/1994/CH7/EX7.19/Example7_19.sce b/1994/CH7/EX7.19/Example7_19.sce new file mode 100755 index 000000000..266773bfe --- /dev/null +++ b/1994/CH7/EX7.19/Example7_19.sce @@ -0,0 +1,31 @@ +//Chapter-7,Example7_19,pg 7-51 +I=100*10^-3 +Td=0.8*10^-4 +dtheta=90*%pi/180//in radians +theta=90//deflection +dM=Td*dtheta/(I^2) +Mo=0.5//original M +M=Mo+dM//total M +//case-1 +Vdc=100 +R=Vdc/I +w=2*%pi*50 +Z=R+(%i*w*M) +Z=abs(Z) +Vac=R*Vdc/Z +dif=Vdc-Vac//difference between readings +//case-2 +Vdc1=50 +I1=Vdc1/R +theta1=theta*((I1/I)^2)//theta=kI^2 +theta1=theta1*%pi/180//in radians +dM1=Td*theta1/(I^2) +M1=dM1+Mo +Z1=R+(%i*w*M1) +Z1=abs(Z1) +Vac1=R*Vdc1/Z1 +dif1=Vdc1-Vac1 +printf("difference in readings Vdc=100V\n") +printf("dif=%.2f V\n",dif) +printf("difference in readings Vdc=50V\n") +printf("dif1=%.2f V\n",dif1) diff --git a/1994/CH7/EX7.2/Example7_2.sce b/1994/CH7/EX7.2/Example7_2.sce new file mode 100755 index 000000000..6dc05a352 --- /dev/null +++ b/1994/CH7/EX7.2/Example7_2.sce @@ -0,0 +1,13 @@ +//Chapter-7,Example7_2,pg 7-21 +x=poly(0,"x") +L=(12+6*x-(x^2))//x is deflection in rad from zero +dl=derivat(L) +K=12 +I=8 +x=6/(((2*K)/(I^2))+2)//x=((I^2)dl)/(2*k) +z=x*(180/%pi) +y=horner(L,x) +printf("deflection for given current\n") +printf("x=%.2f deg\n",z) +printf("inductance for given deflection\n") +printf("L=%.2f uH",y) diff --git a/1994/CH7/EX7.20/Example7_20.sce b/1994/CH7/EX7.20/Example7_20.sce new file mode 100755 index 000000000..2f77db5b3 --- /dev/null +++ b/1994/CH7/EX7.20/Example7_20.sce @@ -0,0 +1,15 @@ +//Chapter-7,Example7_20,pg 7-65 +I=20 +V=230 +Pf=0.8//power factor +t=3600 +K=100 +Et=V*I*Pf*t +Et=Et/(3600*10^3)//in kWh +N=360 +Er=3.6//in kWh +err=(Er-Et)/Et +err=err*100 +printf("percentage error\n") +printf("err=%.2f\n",err) +printf("negative sign shows that meter is slow and ErEt") diff --git a/1994/CH7/EX7.22/Example7_22.sce b/1994/CH7/EX7.22/Example7_22.sce new file mode 100755 index 000000000..e1676c446 --- /dev/null +++ b/1994/CH7/EX7.22/Example7_22.sce @@ -0,0 +1,19 @@ +//Chapter-7,Example7_22,pg 7-66 +V=230 +I=4 +t=6 +Pf=1 +N=2208 +Et=V*I*Pf*t +K=N/Et +printf("meter constant\n") +printf("K=%.2f rev/Wh\n",K) +V=230 +I=5 +t=4 +N=1472 +Et=V*I*Pf*t +Er=N/K +Pf=(Er/Et) +printf("power factor\n") +printf("Pf=%.2f lagging",Pf) diff --git a/1994/CH7/EX7.23/Example7_23.sce b/1994/CH7/EX7.23/Example7_23.sce new file mode 100755 index 000000000..97b9aca67 --- /dev/null +++ b/1994/CH7/EX7.23/Example7_23.sce @@ -0,0 +1,23 @@ +//Chapter-7,Example7_23,pg 7-66 +I=5 +V=220 +Pf=1 +K=3275 +t=1/60//in hr +E=V*I*Pf*t +E=E/10^3//in kWh +Rev=E*K//no. of revolutions +printf("speed of disc\n") +printf("s=%.2f r.p.m\n",Rev) +//at half load +I=I/2 +t=59.5 +Et=V*I*Pf*t +Et=Et/(3600*10^3)//in kWh +N=30 +Er=N/K +err=(Er-Et)/Et +err=err*100 +printf("percentage error\n") +printf("err=%.2f\n",err) +printf("Er>Et meter is fast") diff --git a/1994/CH7/EX7.24/Example7_24.sce b/1994/CH7/EX7.24/Example7_24.sce new file mode 100755 index 000000000..3d407ef4f --- /dev/null +++ b/1994/CH7/EX7.24/Example7_24.sce @@ -0,0 +1,24 @@ +//Chapter-7,Example7_24,pg 7-67 +V=240 +I=10 +Pf=0.8 +t=1/60 +K=600 +E=V*I*Pf*t +E=E/10^3//in kWh +Rev=E*K//no. of revolutions +printf("speed of disc\n") +printf("s=%.2f r.p.m\n",Rev) +del=90//for correct lag adjustment +del1=86*%pi/180//given in radian +phi=0//case-1 unity power factor +err=(sin(del1-phi)-cos(phi))/cos(phi) +err=err*100 +printf("percentage error in case-1\n") +printf("err=%.2f \n",err) +Pf=0.5//case-2 +phi=60*%pi/180//in radians +err=(sin(del1-phi)-cos(phi))/cos(phi) +err=err*100 +printf("percentage error in case-2\n") +printf("err=%.2f \n",err) diff --git a/1994/CH7/EX7.25/Example7_25.sce b/1994/CH7/EX7.25/Example7_25.sce new file mode 100755 index 000000000..b6d3dc111 --- /dev/null +++ b/1994/CH7/EX7.25/Example7_25.sce @@ -0,0 +1,30 @@ +//Chapter-7,Example7_25,pg 7-67 +V=240 +I=5 +K=1200 +N=40 +Er=N/K +W=V*I +t=99.8 +Td=500//total divisions +div=K/Td//1 division +We=0.1*div//wattmeter error +Ce=0.05*K/100//construction wattmeter error +Te=We+Ce//total error +Wru=K+Te +Wrl=K-Te//wattmeter reading limits +He=0.05//human error +Se=0.01//stopwatch error +Tte=He+Se//total timing error +Sru=t+Tte//stopwatch reading limits +Srl=t-Tte +Eu=Wru*Sru*1/(3600*10^3)//energy obtained limits +El=Wrl*Srl*1/(3600*10^3) +errl=(Er-El)/El +errl=errl*100 +erru=(Er-Eu)/Eu//error limits +erru=erru*100 +printf("percentage error upperlimt\n") +printf("erru=%.3f \n",erru) +printf("percentage error lowerlimt\n") +printf("errl=%.3f \n",errl) diff --git a/1994/CH7/EX7.26/Example7_26.sce b/1994/CH7/EX7.26/Example7_26.sce new file mode 100755 index 000000000..2a90b6317 --- /dev/null +++ b/1994/CH7/EX7.26/Example7_26.sce @@ -0,0 +1,8 @@ +//Chapter-7,Example7_26,pg 7-79 +I1=250 +I2=5 +I=I1/I2 +//as ammeter is in secondary I2=2.7 +I1=I*2.7//line current +printf("line current\n") +printf("I1=%.2f A",I1) diff --git a/1994/CH7/EX7.27/Example7_27.sce b/1994/CH7/EX7.27/Example7_27.sce new file mode 100755 index 000000000..bd66723a6 --- /dev/null +++ b/1994/CH7/EX7.27/Example7_27.sce @@ -0,0 +1,8 @@ +//Chapter-7,Example7_27,pg 7-82 +V1=11000 +V2=110 +V=V1/V2 +V2=87.5 +V1=87.5*V//line voltage +printf("line voltage\n") +printf("V1=%.2f V",V1) diff --git a/1994/CH7/EX7.28/Example7_28.sce b/1994/CH7/EX7.28/Example7_28.sce new file mode 100755 index 000000000..1f96f970e --- /dev/null +++ b/1994/CH7/EX7.28/Example7_28.sce @@ -0,0 +1,14 @@ +//Chapter-7,Example7_28,pg 7-88 +Im=120 +Ic=38 +Kn=1000/5 +//at full load +Is=5 +Ns=1000 +Np=5 +n=Ns/Np//turns ratio +R=n+(Ic/Is) +err=(Kn-R)/R//ratio error +err=err*100 +printf("percentage ratio error\n") +printf("err=%.2f ",err) diff --git a/1994/CH7/EX7.29/Example7_29.sce b/1994/CH7/EX7.29/Example7_29.sce new file mode 100755 index 000000000..3ec0c5259 --- /dev/null +++ b/1994/CH7/EX7.29/Example7_29.sce @@ -0,0 +1,15 @@ +//Chapter-7,Example7_29,pg 7-88 +Im=90 +Ic=40 +delta=28*(%pi/180)//in radians +Is=5 +Ns=400 +Np=1 +n=Ns/Np +Kn=n +R=n+((Im*sin(delta)+Ic*cos(delta))/Is) +Ip=R*Is//actual primary current +err=(Kn-R)/R +err=err*100 +printf("percentage ratio error\n") +printf("err=%.2f ",err) diff --git a/1994/CH7/EX7.3/Example7_3.sce b/1994/CH7/EX7.3/Example7_3.sce new file mode 100755 index 000000000..f30acec03 --- /dev/null +++ b/1994/CH7/EX7.3/Example7_3.sce @@ -0,0 +1,7 @@ +//Chapter-7,Example7_3,pg 7-23 +Rm=100 +Im=2*10^-3 +I=150*10^-3 +Rsh=(Im*Rm)/(I-Im) +printf("value of shunt resistance\n") +printf("Rsh=%.2f ohm",Rsh) diff --git a/1994/CH7/EX7.4/Example7_4.sce b/1994/CH7/EX7.4/Example7_4.sce new file mode 100755 index 000000000..14c71fc21 --- /dev/null +++ b/1994/CH7/EX7.4/Example7_4.sce @@ -0,0 +1,15 @@ +//Chapter-7,Example7_4,pg 7-23 +Vsh1=400*10^-3 +Rsh=0.01 +Ish=Vsh1/Rsh +printf("current through shunt\n") +printf("Ish=%.2f A\n",Ish) +Ish=50 +Vsh=Ish*Rsh +printf("voltage through shunt\n") +printf("Ish=%.2f V\n",Vsh) +Rm=750//coil resistance +Im=Vsh1/Rm +Rm1=Vsh/Im//meter resistance +printf("meter resistance\n") +printf("Rm1=%.2f ohm\n",Rm1) diff --git a/1994/CH7/EX7.5/Example7_5.sce b/1994/CH7/EX7.5/Example7_5.sce new file mode 100755 index 000000000..1c6c4d124 --- /dev/null +++ b/1994/CH7/EX7.5/Example7_5.sce @@ -0,0 +1,15 @@ +//Chapter-7,Example7_5,pg 7-25 +I1=10*10^-3 +Im=2*10^-3 +Rm=75 +R1=(Im*Rm)/(I1-Im) +I2=50*10^-3 +R2=(Im*Rm)/(I2-Im) +I3=100*10^-3 +R3=(Im*Rm)/(I3-Im) +printf("designed multi-range ammeter\n") +printf("full scale deflection Im=%.5f A\n",Im) +printf("meter resistance Rm=%.2f ohm\n",Rm) +printf("R1=%.2f ohm\n",R1) +printf("R2=%.2f ohm\n",R2) +printf("R3=%.2f ohm\n",R3) diff --git a/1994/CH7/EX7.6/Example7_6.sce b/1994/CH7/EX7.6/Example7_6.sce new file mode 100755 index 000000000..e23260608 --- /dev/null +++ b/1994/CH7/EX7.6/Example7_6.sce @@ -0,0 +1,24 @@ +//Chapter-7,Example7_6,pg 7-27 +I1=10 +Im=1*10^-3 +Rm=50 +//in position-1 R1 is in shunt with R2+R3+Rm +//R1=10^-4(R2+R3+50)......(1) +//in position-2 (R1+R2) is in shunt with R3+Rm +//R1+R2=2*10^-4(R3+50).....(2) +//in position-3 R1+R2+R3 is in shunt with Rm +//R1+R2+R3=0.05............(3) +//from.....(3) +//R1+R2=0.05-R3 +//substituting in........(2) +R3=0.04/1.0002 +//R2=0.01-R1........(4) +//substituing in (1) +R1=5.00139*10^-3/1.0001 +R2=0.01-R1//from........(4) +printf("various sections of aryton shunt are\n") +printf("full scale deflection Im=%.4f A\n",Im) +printf("meter resistance Rm=%.2f ohm\n",Rm) +printf("R1=%.4f ohm\n",R1) +printf("R2=%.4f ohm\n",R2) +printf("R3=%.4f ohm\n",R3) diff --git a/1994/CH7/EX7.7/Example7_7.sce b/1994/CH7/EX7.7/Example7_7.sce new file mode 100755 index 000000000..cb7c18bf6 --- /dev/null +++ b/1994/CH7/EX7.7/Example7_7.sce @@ -0,0 +1,7 @@ +//Chapter-7,Example7_7,pg 7-30 +Rm=500 +Im=40*10^-6 +V=10 +Rs=(V/Im)-Rm +printf("multiplier resistance\n") +printf("Rs=%.2f ohm",Rs) diff --git a/1994/CH7/EX7.8/Example7_8.sce b/1994/CH7/EX7.8/Example7_8.sce new file mode 100755 index 000000000..807eee8a7 --- /dev/null +++ b/1994/CH7/EX7.8/Example7_8.sce @@ -0,0 +1,12 @@ +//Chapter-7,Example7_8,pg 7-30 +Im=20*10^-3 +Vm=200*10^-3 +Rm=(Vm/Im) +I=200 +Rsh=(Im*Rm)/(I-Im) +printf("required shunt resistance\n") +printf("Rsh=%.4f ohm\n",Rsh) +V=500 +Rs=(V/Im)-Rm +printf("required multipler resistance\n") +printf("Rs=%.2f ohm",Rs) diff --git a/1994/CH7/EX7.9/Example7_9.sce b/1994/CH7/EX7.9/Example7_9.sce new file mode 100755 index 000000000..99c4f7ed5 --- /dev/null +++ b/1994/CH7/EX7.9/Example7_9.sce @@ -0,0 +1,20 @@ +//Chapter-7,Example7_9,pg 7-33 +Rm=50 +Im=2*10^-3 +//for position V4 multipler is R4 +V4=10 +R4=(V4/Im)-Rm//Rs=(V/Im)-RmV3 m +//for position V3 multipler is R3+R4 +V3=50 +R3=(V3/Im)-Rm-R4 +//for position V2 multiplier is R2+R3+R4 +V2=100 +R2=(V2/Im)-Rm-R3-R4 +//for position V1 multiplier is R1+R2+R3+R4 +V1=500 +R1=(V1/Im)-Rm-R3-R4-R2 +printf("series string of multipliers\n") +printf("R1=%.2f ohm\n",R1) +printf("R2=%.2f ohm\n",R2) +printf("R3=%.2f ohm\n",R3) +printf("R4=%.2f ohm\n",R4) -- cgit