initial commit / add all books

29 files changed, 472 insertions, 0 deletions

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 Er<Et")

diff --git a/1994/CH7/EX7.21/Example7_21.sce b/1994/CH7/EX7.21/Example7_21.sce
new file mode 100755
index 000000000..807b9b791
--- /dev/null
+++ b/1994/CH7/EX7.21/Example7_21.sce
@@ -0,0 +1,16 @@
+//Chapter-7,Example7_21,pg 7-65

+K=1800

+V=230

+I=10

+Pf=1//half load

+Ihl=I/2//half load current

+t=138

+Et=V*Ihl*Pf*t

+Et=Et/(3600*10^3)

+N=80//no. of revolutions

+Er=N/K//in kWh

+err=(Er-Et)/Et

+err=err*100

+printf("percentage error\n")

+printf("err=%.2f\n",err)

+printf("positive sign shows that meter is fast and Er>Et")

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)