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 /978 | |
| 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 '978')
139 files changed, 2698 insertions, 0 deletions
diff --git a/978/CH1/EX1.1/Example1_1.sce b/978/CH1/EX1.1/Example1_1.sce new file mode 100755 index 000000000..df009e64b --- /dev/null +++ b/978/CH1/EX1.1/Example1_1.sce @@ -0,0 +1,13 @@ +//chapter1,Example1_1,pg 481
+
+Ir=10*10^-3//current drawn by resistor
+
+Vr=100//voltage across resistor
+
+Rv=40*10^3//voltmeter resistance
+
+Ru=(Vr/Ir)*(1/(1-(Vr/(Ir*Rv))))//unknown resistance
+
+printf("output resistance\n")
+
+printf("\nRu=%.2f ohm",Ru)
\ No newline at end of file diff --git a/978/CH1/EX1.2/Example1_2.sce b/978/CH1/EX1.2/Example1_2.sce new file mode 100755 index 000000000..02ae1bc0e --- /dev/null +++ b/978/CH1/EX1.2/Example1_2.sce @@ -0,0 +1,15 @@ +//chapter1,Example1_2,pg 481
+
+Ir=10*10^-3//current drawn by resistor
+
+Vr=100//voltage across resistor
+
+Rv=40*10^3//voltmeter resistance
+
+Ra=1//ammeter resistance
+
+Ru=(Rv/Ir)-Ra//unknown resistance
+
+printf("output resistance\n")
+
+printf("\nRu=%.2f ohm",Ru)
\ No newline at end of file diff --git a/978/CH1/EX1.3/Example1_3.sce b/978/CH1/EX1.3/Example1_3.sce new file mode 100755 index 000000000..ec3ca0d60 --- /dev/null +++ b/978/CH1/EX1.3/Example1_3.sce @@ -0,0 +1,21 @@ +//chapter1,Example1_3,pg 481
+
+Rv=40*10^3//voltmeter resistance
+
+Ra=1//ammeter resistance
+
+Vr=40//voltmeter reading
+
+Ru=10*10^3//unknown resistance
+
+Ir=(Vr*(Rv+Ru))/(Ru*Rv)//current reading-case1
+
+printf("ammeter reading case1\n")
+
+printf("\nIr=%.4f A",Ir)
+
+Ir1=(Vr/(Ru+Ra))//current reading -case2
+
+printf("\nammeter reading case2\n")
+
+printf("\nIr1=%.4f A",Ir1)
diff --git a/978/CH1/EX1.4/Example1_4.sce b/978/CH1/EX1.4/Example1_4.sce new file mode 100755 index 000000000..d9fb3d3bf --- /dev/null +++ b/978/CH1/EX1.4/Example1_4.sce @@ -0,0 +1,13 @@ +//chapter1,Example1_4,pg 482
+
+Vs=3//supply voltage
+
+Vu=2.75//voltmeter reading
+
+Rp=10*10^3//parallel resistance
+
+Ru=Rp*((Vs/Vu)-1)//unknown resistance
+
+printf("unknown resistance\n")
+
+printf("\nRu=%.2f ohm",Ru)
\ No newline at end of file diff --git a/978/CH1/EX1.5/Example1_5.sce b/978/CH1/EX1.5/Example1_5.sce new file mode 100755 index 000000000..3dea37215 --- /dev/null +++ b/978/CH1/EX1.5/Example1_5.sce @@ -0,0 +1,7 @@ +//chapter1,Example1_5,pg 482
+
+//with input voltage exceding 2Vd,diodes conduct and the voltage divider circuit with diodes can allow only a Vi given by Vi=2Vd
+
+printf("\ninput voltage to amplifier\n")
+
+printf("\nVi=2Vd")
diff --git a/978/CH1/EX1.6/Example1_6.sce b/978/CH1/EX1.6/Example1_6.sce new file mode 100755 index 000000000..649654cba --- /dev/null +++ b/978/CH1/EX1.6/Example1_6.sce @@ -0,0 +1,19 @@ +//chapter1,Example1_6,pg 482
+
+Rm=1000//meter resistance
+
+Is=900*10^-6//shunt current
+
+Vm=100*10^-3//drop across meter
+
+Rs=Vm/Is//ohm's law
+
+It=1*10^-3
+
+//Is=It*(Rm/(Rs+Rm))
+
+Rs=(Rm*(It-Is))/Is
+
+printf("\nshunt resistance\n")
+
+printf("\nRs=%.2f ohm",Rs)
diff --git a/978/CH1/EX1.7/Example1_7.sce b/978/CH1/EX1.7/Example1_7.sce new file mode 100755 index 000000000..99e79d658 --- /dev/null +++ b/978/CH1/EX1.7/Example1_7.sce @@ -0,0 +1,13 @@ +//chapter1,Example1_7,pg 483
+
+If=100*10^-6//full scale current
+
+Rm=1000//meter resistance
+
+Vf=10//full scale voltage
+
+Rs=(Vf/If)-Rm//series resistance
+
+printf("\nseries resistance\n")
+
+printf("\Rs=%.2f ohm",Rs)
diff --git a/978/CH1/EX1.8/Example1_8.sce b/978/CH1/EX1.8/Example1_8.sce new file mode 100755 index 000000000..e43e6f0ab --- /dev/null +++ b/978/CH1/EX1.8/Example1_8.sce @@ -0,0 +1,9 @@ +//chapter1,Example1_8,pg 483
+
+If=100*10^-6
+
+S=1/If
+
+printf("\nsensitivity\n")
+
+printf("\nS=%.2f ohm/volt",S)
diff --git a/978/CH1/EX1.9/Example1_9.sce b/978/CH1/EX1.9/Example1_9.sce new file mode 100755 index 000000000..1b319e762 --- /dev/null +++ b/978/CH1/EX1.9/Example1_9.sce @@ -0,0 +1,23 @@ +//chapter1,Example1_9,pg 483
+
+//assume that the voltmeter full scale reading is 12V which gives its resistance as 1.2*10^6 ohm which is in parallel with 10*10^6 ohm making as equivalent of Rq given as
+
+R=1.2*10^6//voltmeter resistance
+
+R1=10*10^6//voltage divider resistance
+
+Rq=(R*R1)/(R+R1)//equivalent resistance
+
+Vin=12//input voltage to divider network
+
+Rs=4*10^6//series resistance
+
+Vq=(Rq*Vin)/(Rq+Rs)//voltage across equivalent combination
+
+Va=(R1*Vin)/(R1+Rs)//actual volatge
+
+er=(Vq-Va)/Va//error
+
+printf("\nerror in measurement\n")
+
+printf("\ner=%.3f ",er)
\ No newline at end of file diff --git a/978/CH10/EX10.1/Example10_1.sce b/978/CH10/EX10.1/Example10_1.sce new file mode 100755 index 000000000..b337c7943 --- /dev/null +++ b/978/CH10/EX10.1/Example10_1.sce @@ -0,0 +1,22 @@ +//chapter-10,Example10_1,pg 292
+
+Vs=12//source voltage
+
+R=120//resistance of arms
+
+delv=0.3//variation in output voltage(+/-)0.3
+
+delRbyR=(4/Vs)*(delv)*100//percent change in resistance
+
+Rm=100//meter resistance
+
+delIm=(delRbyR/100)/(4*R*(1+(Rm/R)))//current variation
+
+printf("percent change in resistance\n")
+
+printf("delRbyR=%.2f \n",delRbyR)
+
+printf("current variation\n")
+
+printf("delIm=%.6f A",delIm)
+
diff --git a/978/CH10/EX10.10/Example10_10.sce b/978/CH10/EX10.10/Example10_10.sce new file mode 100755 index 000000000..b7fd18f9d --- /dev/null +++ b/978/CH10/EX10.10/Example10_10.sce @@ -0,0 +1,19 @@ +//chapter-10,Example10_10,pg 504
+
+Ru=130//resistance
+
+Lu=31*10^-3//inductance
+
+R2=10*10^3//resistance in arm-2
+
+C1=0.01*10^-6//capacitance in arm
+
+R3=(Lu/(C1*R2))//resistance in arm-3
+
+R1=((R2*R3)/Ru)//resistance in arm-1
+
+printf("R1=%.2f ohm\n",R1)
+
+printf("R3=%.2f ohm\n",R3)
+
+printf("yes values are unique")
\ No newline at end of file diff --git a/978/CH10/EX10.11/Example10_11.sce b/978/CH10/EX10.11/Example10_11.sce new file mode 100755 index 000000000..dad4e48dc --- /dev/null +++ b/978/CH10/EX10.11/Example10_11.sce @@ -0,0 +1,21 @@ +//chapter-10,Example10_11,pg 504
+
+f=1000//supply frequency
+
+C1=0.04*10^-6//capacitance
+
+R1=220//resistance in arm-1
+
+Lu=22*10^-3//inductance
+
+Ru=((2*%pi*f)^2)*C1*R1*Lu//resistance
+
+R3=((R1*Ru)+(Lu/C1))/R2//resistance in arm-3
+
+printf("resistance of inductor\n")
+
+printf("Ru=%.2f ohm\n",Ru)
+
+printf("resistance of arm-3\n")
+
+printf("R3=%.2f ohm\n",R3)
\ No newline at end of file diff --git a/978/CH10/EX10.12/Example10_12.sce b/978/CH10/EX10.12/Example10_12.sce new file mode 100755 index 000000000..144f62dae --- /dev/null +++ b/978/CH10/EX10.12/Example10_12.sce @@ -0,0 +1,28 @@ +//chapter-10,Example10_12,pg 505
+
+C4=0.0033*10^-6//lossy capacitor
+
+R2=12*10^3//arm-2 resistance
+
+R1=10*10^3//arm-1 resistance
+
+C3=((C4*R2)/R1)//standard capacitance
+
+R4=0.1
+
+C1=((R4*C3)/R2)
+
+Fd=2*%pi*f*C4*R4//dissipation factor
+
+printf("capacitance set value\n")
+
+printf("C1=%.16f F\n",C1)
+
+printf("value of standard capacitance\n")
+
+printf("C3=%.14f F\n",C3)
+
+printf("dissipation factor\n")
+
+printf("Fd=%.12f\n",Fd)
+
diff --git a/978/CH10/EX10.13/Example10_13.sce b/978/CH10/EX10.13/Example10_13.sce new file mode 100755 index 000000000..2aaadfacd --- /dev/null +++ b/978/CH10/EX10.13/Example10_13.sce @@ -0,0 +1,26 @@ +//chapter-10,Example10_13,pg 505
+
+f=10*10^3//supply frequency
+
+R1=10*10^3//reistance of arm-1
+
+C1=0.01*10^-6
+
+C2=0.01*10^-6
+
+R3=20*10^3//resistance of arm-3
+
+w=2*%pi*f//angular supply frequency
+
+R2=(1/(w^2))*(1/(C1*C2*R1))//resistance of arm-2
+
+R4=(R3/((R1/R2)+(C2/C1)))//resistance of arm-4
+
+printf("resistance of arm-2\n")
+
+printf("R4=%.2f ohm\n",R2)
+
+printf("resistance of arm-4\n")
+
+printf("R2=%.2f ohm\n",R4)
+
diff --git a/978/CH10/EX10.2/Example10_2.sce b/978/CH10/EX10.2/Example10_2.sce new file mode 100755 index 000000000..d67f5918c --- /dev/null +++ b/978/CH10/EX10.2/Example10_2.sce @@ -0,0 +1,34 @@ +//chapter-10,Example10_2,pg 295
+
+//in absence of the guard point arrangement, two 10^10 ohm resistances in series become parallel to the 10^9 ohm resistance, making the effective unknown resistance
+
+//case-1
+
+Rh=10^9
+
+Ra1=10^10
+
+Rb1=10^10
+
+Rue1=((Rh*2*Ra1)/(Rh+(2*Ra1)))//effective resistance
+
+err1=((Rh-Rue1)/Rh)*100//percentage error
+
+//case-2
+
+Ra2=10^9
+
+Rb2=10^9
+
+Rue2=((Rh*2*Ra2)/(Rh+(2*Ra2)))//effective resistance
+
+err2=((Rh-Rue2)/Rh)*100//percentage error
+
+printf("percentage error case-1\n")
+
+printf("err1=%.2f \n",err1)
+
+printf("percentage error case-2\n")
+
+printf("err2=%.2f ",err2)
+
diff --git a/978/CH10/EX10.3/Example10_3.sce b/978/CH10/EX10.3/Example10_3.sce new file mode 100755 index 000000000..a7436ca2b --- /dev/null +++ b/978/CH10/EX10.3/Example10_3.sce @@ -0,0 +1,23 @@ +//chapter-10,Example10_3,pg 297
+
+Z1=complex(20,80)//impedance in first arm
+
+Z2=complex(200)//impedance in second arm
+
+Z3=complex(100,200)//impedance in third arm
+
+f=50//excitation frequency
+
+Zu=((Z2*Z3)/Z1)//impedance of fourth arm
+
+Cu=-(1/(2*%pi*f*imag(Zu)))//capacitance in fourth arm
+
+printf("capacitance in fourth arm\n")
+
+printf("Cu=%.9f F\n",Cu)
+
+Ru=real(Zu)//resistance in fourth arm
+
+printf("resistance in fourth arm\n")
+
+printf("Ru=%.2f ohm\n",Ru)
diff --git a/978/CH10/EX10.4/Example10_4.sce b/978/CH10/EX10.4/Example10_4.sce new file mode 100755 index 000000000..a488b29f7 --- /dev/null +++ b/978/CH10/EX10.4/Example10_4.sce @@ -0,0 +1,23 @@ +//chapter-10,Example10_4,pg 301
+
+C3=0.001*10^-6//capacitor
+
+Fd=6*10^-4//dissipation factor
+
+f=1*10^3//schering bridge frequency
+
+Ru=(Fd/(2*%pi*f*C3))//standard resistor
+
+R1=10*10^3
+
+R2=10*10^3
+
+C1=C3*(1/R2)*Ru
+
+printf("standard resistor\n")
+
+printf("Ru=%.3f ohm\n",Ru)
+
+printf("capacitor\n")
+
+printf("C1=%.16f F",C1)
diff --git a/978/CH10/EX10.5/Example10_5.sce b/978/CH10/EX10.5/Example10_5.sce new file mode 100755 index 000000000..63125c0c0 --- /dev/null +++ b/978/CH10/EX10.5/Example10_5.sce @@ -0,0 +1,19 @@ +//chapter-10,Example10_5,pg 303
+
+R=10*10^3//resistor
+
+C=0.001*10^-6//capacitor
+
+f=(1/(2*%pi*R*C))//supply frequency
+
+R3=10*10^3//reistance in third arm
+
+R4=(R3/2)//reistance in fourth arm
+
+printf("supply frequency\n")
+
+printf("f=%.2f Hz\n",f)
+
+printf("reistance in fourth arm\n")
+
+printf("R4=%.2f ohm",R4)
\ No newline at end of file diff --git a/978/CH10/EX10.6/Example10_6.sce b/978/CH10/EX10.6/Example10_6.sce new file mode 100755 index 000000000..bc6c506a5 --- /dev/null +++ b/978/CH10/EX10.6/Example10_6.sce @@ -0,0 +1,11 @@ +//chapter-10,Example10_6,pg 303
+
+f=47.76*10^3//supplu frequency
+
+CR=(1/(2*%pi*f))//resistor capacitor product
+
+C=10^-9//assume
+
+R=(CR/C)//resistor
+
+printf("for (R3/R4)=2 R3 and R4 may be maintained at earlier values")
\ No newline at end of file diff --git a/978/CH10/EX10.7/Example10_7.sce b/978/CH10/EX10.7/Example10_7.sce new file mode 100755 index 000000000..3d016b596 --- /dev/null +++ b/978/CH10/EX10.7/Example10_7.sce @@ -0,0 +1,23 @@ +//chapter-10,Example10_7,pg 309
+
+a1=3.81*10^-3
+
+a2=-6.17*10^-7
+
+//R1=(R2/2),i.e R2/R1=2
+
+R1=10*10^3
+
+R2=20*10^3
+
+R5=4*10^3
+
+R6=20*10^3
+
+B=(R5/(R5+R6))
+
+//using relation 10.68(b)
+
+printf("(Vo/Vi)= (-3.05*10^-3)t/(1+0.76*10^-3)t\n")
+
+printf("thus for, t<=130 C, Vo is approx. linear. this however can be extended with proper choice i.e R5 and R6 in relation to R1,R3 and R4")
\ No newline at end of file diff --git a/978/CH10/EX10.8/Example10_8.sce b/978/CH10/EX10.8/Example10_8.sce new file mode 100755 index 000000000..deecec39d --- /dev/null +++ b/978/CH10/EX10.8/Example10_8.sce @@ -0,0 +1,27 @@ +//chapter-10,Example10_8,pg 503
+
+R1=120//resistance of arm-1
+
+R2=120//resistance of arm-2
+
+R3=120//resistance of arm-3
+
+R4=121//resistance of arm-4
+
+Rm=100//meter resistance
+
+Vs=6//source voltage
+
+n=1*10^-3//meter sensitivity
+
+Vm=Vs*((R1/(R1+R2))-(R3/(R3+R4)))//voltage across meter
+
+Rb=(R1*R2)/(R1+R2)+(R3*R4)/(R3+R4)//thevenised bridge resistance
+
+Ig=(Vm/(Rb+Rm))//current through galvanometer
+
+D=Ig*10^6
+
+printf("deflection in meter\n")
+
+printf("D=%.2f mm\n",D)
diff --git a/978/CH10/EX10.9/Example10_9.sce b/978/CH10/EX10.9/Example10_9.sce new file mode 100755 index 000000000..e9aba09bc --- /dev/null +++ b/978/CH10/EX10.9/Example10_9.sce @@ -0,0 +1,23 @@ +//chapter-10,Example10_9,pg 503
+
+err=0.5*10^-2//(+/-)0.5%
+
+R=100*10^6//test resistance
+
+//Re=((R*2*Rip)/(R+(2*Rip)))
+
+Re1=R-(err*R)//err=+0.5
+
+Re2=R-(-err*R)//err=-0.5
+
+Rip1=((R*Re1)/(2*(R-Re1)))//err=+0.5
+
+Rip2=((R*Re2)/(2*(R-Re2)))//err=-0.5
+
+printf("resistance of each insulating post-1\n")
+
+printf("Rip1=%.2f ohm\n",Rip1)
+
+printf("resistance of each insulating post-2\n")
+
+printf("Rip2=%.2f ohm",Rip2)
diff --git a/978/CH11/EX11.1/Example11_1.sce b/978/CH11/EX11.1/Example11_1.sce new file mode 100755 index 000000000..bf7a14d30 --- /dev/null +++ b/978/CH11/EX11.1/Example11_1.sce @@ -0,0 +1,27 @@ +//chapter-11,Example11_1,pg 343
+
+R1=1*10^3//input resistance
+
+R2=1*10^3//feedback resistor
+
+R3=1*10^3// non inverting ter. resistor
+
+R8=1*10^3//potentiometer
+
+R4=1*10^3
+
+DF1=(R1/((2*R1)+R8))//duty factor lim.-1
+
+DF2=(R1+R4)/((2*R1)+R8)//duty factor lim.-2
+
+//T=(((2*R4*C*((2*R1)+R8)))/R1)*(Vt/Vi)=((6*R4*C*Vt)/Vi)
+
+printf("range of duty factor is DF1 to DF2 i.e\n")
+
+printf("%.2f to ",DF1)
+
+printf("%.2f",DF2)
+
+printf("\nlimits of t1 and t2\n")
+
+printf("(T/3) to (2T/3)")
\ No newline at end of file diff --git a/978/CH11/EX11.10/Example11_10.sce b/978/CH11/EX11.10/Example11_10.sce new file mode 100755 index 000000000..db321f41f --- /dev/null +++ b/978/CH11/EX11.10/Example11_10.sce @@ -0,0 +1,23 @@ +//chapter-11,Example11_10,pg 507
+
+Vi=1.3//input voltage
+
+R2=10*10^3
+
+R3=10*10^3
+
+R8=10*10^3//potentiometer
+
+B=1/3//wiper distance
+
+V1=((R3*Vi)/(R3+(B*R8)))//output voltage-1
+
+V2=-((R2*Vi)/(R1+((1-B)*R8)))//output voltage-2
+
+printf("ouput voltage-1\n")
+
+printf("V1=%.4f V\n",V1)
+
+printf("ouput voltage-2\n")
+
+printf("V2=%.4f V\n",V2)
diff --git a/978/CH11/EX11.2/Example11_2.sce b/978/CH11/EX11.2/Example11_2.sce new file mode 100755 index 000000000..0201e7d20 --- /dev/null +++ b/978/CH11/EX11.2/Example11_2.sce @@ -0,0 +1,41 @@ +//chapter-11,Example11_2,pg 344
+
+Vtx=5//triangular peak(+/-)5
+
+Vsx=(2/%pi)*Vtx//sinewave peak
+
+//if n=3 then there are 2*3=6 break points these are at o/p voltages
+
+n=3//break point parameter
+
+Vs1=(2/%pi)*Vtx*sin((1*%pi)/((2*n)+1))
+
+Vs2=(2/%pi)*Vtx*sin((2*%pi)/((2*n)+1))
+
+Vs3=(2/%pi)*Vtx*sin((3*%pi)/((2*n)+1))
+
+//calculating slopes
+
+ms1=(((2*n)+1)/%pi)*(sin((%pi*(1+1))/((2*n)+1))-sin((%pi*1)/((2*n)+1)))
+
+ms2=(((2*n)+1)/%pi)*(sin((%pi*(2+1))/((2*n)+1))-sin((%pi*2)/((2*n)+1)))
+
+ms3=(((2*n)+1)/%pi)*(sin((%pi*(3+1))/((2*n)+1))-sin((%pi*3)/((2*n)+1)))
+
+printf("break points\n")
+
+printf("output voltages\n")
+
+printf("Vs1=%.2f V ",Vs1)
+
+printf("Vs2=%.2f V ",Vs2)
+
+printf("Vs3=%.2f V\n",Vs3)
+
+printf("segment slopes\n")
+
+printf("ms1=%.2f ",ms1)
+
+printf("ms2=%.2f ",ms2)
+
+printf("ms3=%.2f \n",ms3)
diff --git a/978/CH11/EX11.3/Example11_3.sce b/978/CH11/EX11.3/Example11_3.sce new file mode 100755 index 000000000..6602b335c --- /dev/null +++ b/978/CH11/EX11.3/Example11_3.sce @@ -0,0 +1,13 @@ +//chapter-11,Example11_3,pg 505
+
+R1=0//resistance
+
+C=0.1*10^-6//capacitance
+
+f=1*10^3//frequency
+
+L=(1/((2*%pi*f)^2))*(1/C)//inductance
+
+printf("inductance of circuit\n")
+
+printf("L=%.6f H ",L)
\ No newline at end of file diff --git a/978/CH11/EX11.4/Example11_4.sce b/978/CH11/EX11.4/Example11_4.sce new file mode 100755 index 000000000..71bb622dd --- /dev/null +++ b/978/CH11/EX11.4/Example11_4.sce @@ -0,0 +1,21 @@ +//chapter-11,Example11_4,pg 506
+
+C1=4*10^-12
+
+L=94*10^-3//inductance
+
+C=13*10^-9//capacitance
+
+R=91.3//resistance
+
+f1=(1/(2*%pi))*((L*C)^(-1/2))//resonance frequency-1
+
+f2=(sqrt(1+(C/C1))/(2*%pi*sqrt(L*C)))//resonance frequency-2
+
+printf("resonance frequency-1\n")
+
+printf("f1=%.2f Hz\n",f1)
+
+printf("resonance frequency-2\n")
+
+printf("f2=%.2f Hz",f2)
\ No newline at end of file diff --git a/978/CH11/EX11.5/Example11_5.sce b/978/CH11/EX11.5/Example11_5.sce new file mode 100755 index 000000000..20a73006a --- /dev/null +++ b/978/CH11/EX11.5/Example11_5.sce @@ -0,0 +1,13 @@ +//chapter-11,Example11_5,pg 506
+
+f=1*10^3//frequency
+
+C=0.01*10^-6//capacitance
+
+//f=(1/(2*%pi))*(1/(6^(1/2)*RC))
+
+R=(1/(2*%pi*(6^(1/2)*C*f)))//resistance of circuit
+
+printf("resistance of circuit\n")
+
+printf("R=%.2f ohm",R)
\ No newline at end of file diff --git a/978/CH11/EX11.6/Example11_6.sce b/978/CH11/EX11.6/Example11_6.sce new file mode 100755 index 000000000..8dcfff9cf --- /dev/null +++ b/978/CH11/EX11.6/Example11_6.sce @@ -0,0 +1,23 @@ +//chapter-11,Example11_6,pg 506
+
+epsi=0.01///detuning parameter
+
+eta1=1//(f/fo)=1
+
+eta2=2.2//(f/fo)=2.2
+
+//case-1
+
+phi1=atan((3*eta1*((eta1^2)-1)*(3+(2*epsi)))/((((eta1^2)-1)^2)*(3+epsi)-(9*epsi*(eta1^2))))//phase difference
+
+//case-2
+
+phi2=atan((3*eta2*((eta2^2)-1)*(3+(2*epsi)))/((((eta2^2)-1)^2)*(3+epsi)-(9*epsi*(eta2^2))))//phase difference
+
+printf("phase difference for case-1\n")
+
+printf("phi1=%.2f rad\n",phi1)
+
+printf("phase difference for case-2\n")
+
+printf("phi2=%.2f rad\n",phi2)
\ No newline at end of file diff --git a/978/CH11/EX11.7/Example11_7.sce b/978/CH11/EX11.7/Example11_7.sce new file mode 100755 index 000000000..2f63ab38b --- /dev/null +++ b/978/CH11/EX11.7/Example11_7.sce @@ -0,0 +1,25 @@ +//chapter-11,Example11_7,pg 507
+
+N=12//12-bit synthesizer
+
+k1=1//sampling rate at sampler's rate
+
+k2=4//sampling rate at 4 times sampler's rate
+
+//case-1
+
+adv1=(360/(2^N))//advancement of o/p register
+
+//2pi rad=360 deg.
+
+//case-2
+
+adv2=(4*(360)/(2^N))//advancement of o/p register
+
+printf("advancement of o/p register for case-1\n")
+
+printf("adv1=%.4f \n",adv1)
+
+printf("advancement of o/p register for case-2\n")
+
+printf("adv2=%.4f \n",adv2)
\ No newline at end of file diff --git a/978/CH11/EX11.8/Example11_8.sce b/978/CH11/EX11.8/Example11_8.sce new file mode 100755 index 000000000..3788afe42 --- /dev/null +++ b/978/CH11/EX11.8/Example11_8.sce @@ -0,0 +1,19 @@ +//chapter-11,Example11_8,pg 507
+
+f=1*10^3//frequency
+
+R6=10*10^3//feed-back resistor
+
+R5=22*10^3//feed-in resistor
+
+R4=10*10^3//integrator resistor
+
+C=0.1*10^-6//integrator capacitor
+
+Vsx=2//comparator pulse amplitude
+
+Vi=((f*R4*R5*C)/(R6*4*Vsx))//controlling voltage
+
+printf("controlling voltage\n")
+
+printf("Vi=%.2f V\n",Vi)
\ No newline at end of file diff --git a/978/CH11/EX11.9/Example11_9.sce b/978/CH11/EX11.9/Example11_9.sce new file mode 100755 index 000000000..5d243254b --- /dev/null +++ b/978/CH11/EX11.9/Example11_9.sce @@ -0,0 +1,18 @@ +//chapter-11,Example11_9,pg 507
+
+R1=10*10^3
+
+R8=10*10^3
+
+R4=10*10^3
+
+printf("duty factors are given by (t1/T) and (t2/T). the limits are giiven by\n")
+
+lim1=(R1/((2*R1)+R8))////limit-1 of duty factor
+
+lim2=((R1+R4)/((2*R1)+R8))//limit-2 of duty factor
+
+printf("lim1=%.2f\n",lim1)
+
+printf("lim2=%.2f\n",lim2)
+
diff --git a/978/CH12/EX12.1/Example12_1.sce b/978/CH12/EX12.1/Example12_1.sce new file mode 100755 index 000000000..74164d7d1 --- /dev/null +++ b/978/CH12/EX12.1/Example12_1.sce @@ -0,0 +1,27 @@ +//chapter-12,Example12_1,pg 371
+
+E=10^6//electric field
+
+l=10^-6//thickness of LCD
+
+V=E*l//excitation potential
+
+I=0.1*10^-6//current
+
+rho=E/I//crystal resistivity
+
+P=10*10^-6//power consumption
+
+A=(P/(V*I))//area of electrodes
+
+printf("excitation potential\n")
+
+printf("V=%.2f V\n",V)
+
+printf("crystal resistivity\n")
+
+printf("rho=%.2f ohm-cm\n",rho)
+
+printf("area of electrodes\n")
+
+printf("A=%.2f cm^2",A)
\ No newline at end of file diff --git a/978/CH12/EX12.2/Example12_2.sce b/978/CH12/EX12.2/Example12_2.sce new file mode 100755 index 000000000..0ef0b12dd --- /dev/null +++ b/978/CH12/EX12.2/Example12_2.sce @@ -0,0 +1,29 @@ +//chapter-12,Example12_2,pg 383
+
+fc=10^6//carrier frequency
+
+m=0.4//modulation index
+
+fs=100//signal frequency
+
+V=2//(+/-)2V range
+
+delfc1=m*fc//frequency deviation for FS(full scale)
+
+//(+/-) 2V corresponds to delfc Hz deviation assuming linear shift, for (+/-)1V
+
+delfc2=delfc1/V//frequency deviation for (+/-)1V range
+
+sig=(delfc1/fs)//deviation factor
+
+printf("frequency deviation for FS\n")
+
+printf("delfc1=%.2f Hz\n",delfc1)
+
+printf("frequency deviation for given range\n")
+
+printf("delfc2=%.2f Hz\n",delfc2)
+
+printf("deviation factor\n")
+
+printf("sig=%.2f",sig)
\ No newline at end of file diff --git a/978/CH12/EX12.3/Example12_3.sce b/978/CH12/EX12.3/Example12_3.sce new file mode 100755 index 000000000..89a7b348f --- /dev/null +++ b/978/CH12/EX12.3/Example12_3.sce @@ -0,0 +1,19 @@ +//chapter-12,Example12_3,pg 508
+
+h=6.63*10^-34//planck's const.
+
+e=1.6*10^-19//electron charge
+
+c=3*10^8//speed of light
+
+E=2.02//energy gap
+
+lam=((h*c)/E)//wavelength of radiation(m/eV)
+
+//1eV=16.017*10^-20J
+
+lam=(lam/(16.017*10^-20))//conversion in meter
+
+printf("wavelength of radiation\n")
+
+printf("lam=%.12f m\n",lam)
\ No newline at end of file diff --git a/978/CH12/EX12.4/Example12_4.sce b/978/CH12/EX12.4/Example12_4.sce new file mode 100755 index 000000000..2e95dc68a --- /dev/null +++ b/978/CH12/EX12.4/Example12_4.sce @@ -0,0 +1,13 @@ +//chapter-12,Example12_4,pg 508
+
+V=1.3//excitation voltage
+
+Vgrad=10^5//potential gradient
+
+//10^5 V/mm*thickness in mm=excitation voltage
+
+l=(V/Vgrad)//thickness of LCD
+
+printf("thickness of LCD\n")
+
+printf("l=%.8f m\n",l)
\ No newline at end of file diff --git a/978/CH12/EX12.5/Example12_5.sce b/978/CH12/EX12.5/Example12_5.sce new file mode 100755 index 000000000..d7f3d3ee4 --- /dev/null +++ b/978/CH12/EX12.5/Example12_5.sce @@ -0,0 +1,11 @@ +//chapter-12,Example12_5,pg 508
+
+rho=4*10^12//resistivity of LCD
+
+Vgrad=10^6//potential gradient
+
+j=(Vgrad/rho)//current density
+
+printf("current per cm^2\n")
+
+printf("j=%.8f A/cm^2\n",j)
\ No newline at end of file diff --git a/978/CH12/EX12.6/Example12_6.sce b/978/CH12/EX12.6/Example12_6.sce new file mode 100755 index 000000000..165e5a8c7 --- /dev/null +++ b/978/CH12/EX12.6/Example12_6.sce @@ -0,0 +1,21 @@ +//chapter-12,Example12_6,pg 508
+
+f=2*10^3//frequency of signal
+
+v=1//velocity of tape
+
+w=0.05*10^-3//gap width
+
+N=22//no.of turns on head
+
+V=31*10^-3//rms voltage o/p
+
+x=(%pi*f*w)/v
+
+x=x*(%pi/180)
+
+M=((V*w)/(2*v*N*sin(x)))//magnetic flux in tape
+
+printf("magnetic flux in tape\n")
+
+printf("M=%.8f Wb\n",M)
\ No newline at end of file diff --git a/978/CH12/EX12.7/Example12_7.sce b/978/CH12/EX12.7/Example12_7.sce new file mode 100755 index 000000000..a6276c0c2 --- /dev/null +++ b/978/CH12/EX12.7/Example12_7.sce @@ -0,0 +1,13 @@ +//chapter-12,Example12_7,pg 509
+
+Br=576*10^3//bit rate conversion
+
+n=8//resolution requirement per channel
+
+fs=1000//sampling rate
+
+N=(Br/(fs*3*n))//no. of channels
+
+printf("no. of channels accomodated\n")
+
+printf("N=%.2f \n",N)
\ No newline at end of file diff --git a/978/CH12/EX12.8/Example12_8.sce b/978/CH12/EX12.8/Example12_8.sce new file mode 100755 index 000000000..baa1c62fb --- /dev/null +++ b/978/CH12/EX12.8/Example12_8.sce @@ -0,0 +1,19 @@ +//chapter-12,Example12_8,pg 509
+
+Rsmax=1*10^3//sensor resistance max.
+
+Rsmin=100//sensor resistance min.
+
+Vs=5//sensor voltage
+
+Io=(Vs/Rsmax)//current source-> ohm's law
+
+Vmin=Rsmin*Io//min. output voltage
+
+printf("current source\n")
+
+printf("Io=%.4f A\n",Io)
+
+printf("min. output voltage\n")
+
+printf("Vmin=%.2f V\n",Vmin)
\ No newline at end of file diff --git a/978/CH12/EX12.9/Example12_9.sce b/978/CH12/EX12.9/Example12_9.sce new file mode 100755 index 000000000..569446fc5 --- /dev/null +++ b/978/CH12/EX12.9/Example12_9.sce @@ -0,0 +1,17 @@ +//chapter-12,Example12_9,pg 509
+
+//ROM 22*5*7
+
+N=5//no. of gates in bitand plane
+
+n=22//no.of inputs
+
+f=913//refresh rate
+
+//considering column display
+
+ts=(1/(N*f*n))//ROM access time
+
+printf("ROM access time\n")
+
+printf("ts=%.6f s\n",ts)
diff --git a/978/CH13/EX13.1/Example13_1.sce b/978/CH13/EX13.1/Example13_1.sce new file mode 100755 index 000000000..fab7710b4 --- /dev/null +++ b/978/CH13/EX13.1/Example13_1.sce @@ -0,0 +1,25 @@ +//chapter-13,Example13_1,pg 405
+
+t1=0.1*10^-6//time span for voltage
+
+//voltage switching
+
+V1=0.5//level-1
+
+V2=5//level-2
+
+//current switching
+
+I1=0//level-1
+
+I2=10*10^-3//level-2
+
+t2=1*10^-6//time span for current
+
+DR=(((V2-V1)/t1)/((I2-I1)/t2))
+
+printf("dissipation ratio\n")
+
+printf("DR=%.2f ohm\n",DR)
+
+printf("DR is quite large indicating noise interference by capacitive coupling")
\ No newline at end of file diff --git a/978/CH13/EX13.2/Example13_2.sce b/978/CH13/EX13.2/Example13_2.sce new file mode 100755 index 000000000..bcd89ca6f --- /dev/null +++ b/978/CH13/EX13.2/Example13_2.sce @@ -0,0 +1,26 @@ +//chapter-13,Example13_2,pg 509
+
+t1=1*10^-6//time span for voltage
+
+//voltage switching
+
+V1=0.5//level-1
+
+V2=1//level-2
+
+//current switching
+
+I1=1*10^-3//level-1
+
+I2=10*10^-3//level-2
+
+t2=1*10^-6//time span for current
+
+DR=(((V2-V1)/t1)/((I2-I1)/t2))
+
+printf("pseudoimpedance\n")
+
+printf("DR=%.2f ohm\n",DR)
+
+printf("DR is not quite large indicating noise interference by inductive coupling")
+
diff --git a/978/CH13/EX13.3/Example13_3.sce b/978/CH13/EX13.3/Example13_3.sce new file mode 100755 index 000000000..39e6d33a1 --- /dev/null +++ b/978/CH13/EX13.3/Example13_3.sce @@ -0,0 +1,17 @@ +//chapter-13,Example13_3,pg 510
+
+Vi=12//input DC voltage
+
+Vo=3.182//output voltage
+
+Rg=130*10^3//grounding resistance
+
+R2=1*10^3//output resistance
+
+R1=6.8*10^3//divider chain
+
+Ig=((Vo-((R2*Vi)/(R1+R2)))/Rg)//grounding loop current
+
+printf("grounding loop current\n")
+
+printf("Ig=%.9f A\n",Ig)
\ No newline at end of file diff --git a/978/CH14/EX14.1/Example14_1.sce b/978/CH14/EX14.1/Example14_1.sce new file mode 100755 index 000000000..27f674528 --- /dev/null +++ b/978/CH14/EX14.1/Example14_1.sce @@ -0,0 +1,15 @@ +//chapter-14,Example14_1,pg 421
+
+delVo=120*10^-3//output voltage
+
+Vs=12//supply voltage
+
+R=120//initial resistance
+
+delR=(delVo*2*R)/Vs//change in resistance
+
+per=(delR/R)*100//percent change in resistance
+
+printf("percent change in resistance\n")
+
+printf("per=%.2f",per)
\ No newline at end of file diff --git a/978/CH14/EX14.10/Example14_10.sce b/978/CH14/EX14.10/Example14_10.sce new file mode 100755 index 000000000..5e1a47a4b --- /dev/null +++ b/978/CH14/EX14.10/Example14_10.sce @@ -0,0 +1,21 @@ +//chapter-14,Example14_10,pg 511
+
+//for barium titanate, g cost. is taken as 0.04Vm/N. (it varies depending in composition and processing)
+
+t=1.3*10^-3//thickness
+
+g=0.04//const.
+
+f=2.2*9.8//force
+
+w=4*10^-3//width
+
+l=4*10^-3//length
+
+p=(f/(w*l))//pressure
+
+Vo=g*t*p//voltage along load application
+
+printf("voltage along load application\n")
+
+printf("Vo=%.2f V",Vo)
\ No newline at end of file diff --git a/978/CH14/EX14.11/Example14_11.sce b/978/CH14/EX14.11/Example14_11.sce new file mode 100755 index 000000000..373eea7ce --- /dev/null +++ b/978/CH14/EX14.11/Example14_11.sce @@ -0,0 +1,48 @@ +//chapter-14,Example14_11,pg 512
+
+//ADC outputs counts
+N11=130
+
+N22=229
+
+N12=220
+
+N21=139
+
+//variable values
+
+v1=4
+
+v2=6.7
+
+//temperatures
+
+theta1=20
+
+theta2=25
+
+//parameters
+
+B2=((N22+N11-N12-N21)/(v2-v1)*(theta2-theta1))//temperature coefficient of resistivity
+
+a2=((N22-N21)/(v2-v1))//zero error sensitivity
+
+B1=(N22-N12)/(theta2-theta1)//temperature coefficient of zero point
+
+a1=N22-(B1*theta2)-(a2*v2)//zero error
+
+printf("zero error\n")
+
+printf("a1=%.2f\n",a1)
+
+printf("zero error sensitivity\n")
+
+printf("a2=%.2f\n",a2)
+
+printf("temperature coefficient of zero point\n")
+
+printf("B1=%.2f\n",B1)
+
+printf("temperature coefficient of resistivity\n")
+
+printf("B2=%.2f",B2)
\ No newline at end of file diff --git a/978/CH14/EX14.2/Example14_2.sce b/978/CH14/EX14.2/Example14_2.sce new file mode 100755 index 000000000..f98a279b9 --- /dev/null +++ b/978/CH14/EX14.2/Example14_2.sce @@ -0,0 +1,13 @@ +//chapter-14,Example14_2,pg 423
+
+lam=175//gauge factor
+
+mu=0.18//poisson's ratio
+
+E=18.7*10^10//young's modulus
+
+si=((lam-1-(2*mu))/E)//bridgemann coefficient
+
+printf("bridgemann coefficient\n")
+
+printf("si=%.14f m^2/N",si)
\ No newline at end of file diff --git a/978/CH14/EX14.3/Example14_3.sce b/978/CH14/EX14.3/Example14_3.sce new file mode 100755 index 000000000..a453e95f3 --- /dev/null +++ b/978/CH14/EX14.3/Example14_3.sce @@ -0,0 +1,15 @@ +//chapter-14,Example14_3,pg 428
+
+//pt100 RTD
+
+R4=10*10^3
+
+R2=R4-0.09*R4
+
+Ro=-2.2*10^3//output resistance
+
+R1=(Ro*((R2^2)-(R4^2)))/(R2*(R2+R4))//design resistor
+
+printf("resistance R1 and R3\n")
+
+printf("R1=R3=%.2f ohm",R1)
\ No newline at end of file diff --git a/978/CH14/EX14.4/Example14_4.sce b/978/CH14/EX14.4/Example14_4.sce new file mode 100755 index 000000000..9fa83a4bf --- /dev/null +++ b/978/CH14/EX14.4/Example14_4.sce @@ -0,0 +1,17 @@ +//chapter-14,Example14_4,pg 435
+
+//assuming eps1=9.85*10^12
+
+x=4//separation between plates
+
+x3=1//thickness of dielectric
+
+eps1=9.85*10^12//dielectric const. of free space
+
+eps2=120*10^12//dielectric const. of material
+
+Sx=(1/(1+((x/x3)/((eps1/eps2)-1))))//sensitivity of measurement of capacitance
+
+printf("sensitivity of measurement of capacitance\n")
+
+printf("Sx=%.2f",Sx)
\ No newline at end of file diff --git a/978/CH14/EX14.5/Example14_5.sce b/978/CH14/EX14.5/Example14_5.sce new file mode 100755 index 000000000..c0e7b28ba --- /dev/null +++ b/978/CH14/EX14.5/Example14_5.sce @@ -0,0 +1,11 @@ +//chapter-14,Example14_5,pg 510
+
+//if (delp/p)=0, the gauge factor is lam=1+2u
+
+u=0.5//max. value of poisson's ratio
+
+lam=1+(2*u)
+
+printf("max. gauge factor\n")
+
+printf("lam=%.2f",lam)
\ No newline at end of file diff --git a/978/CH14/EX14.6/Example14_6.sce b/978/CH14/EX14.6/Example14_6.sce new file mode 100755 index 000000000..c5f7c4e3e --- /dev/null +++ b/978/CH14/EX14.6/Example14_6.sce @@ -0,0 +1,13 @@ +//chapter-14,Example14_6,pg 510
+
+lam=-150//max. gauge factor
+
+si=-9.25*10^-10//resistivity change
+
+mu=0.5//max poisson's ratio
+
+E=((lam-1-(2*mu))/si)//young's modulus
+
+printf("young modulus\n")
+
+printf("E=%.2f N/m^2",E)
\ No newline at end of file diff --git a/978/CH14/EX14.7/Example14_7.sce b/978/CH14/EX14.7/Example14_7.sce new file mode 100755 index 000000000..57a497ca8 --- /dev/null +++ b/978/CH14/EX14.7/Example14_7.sce @@ -0,0 +1,19 @@ +//chapter-14,Example14_7,pg 510
+
+d1=4*10^-2//diameter of inner cylinder
+
+d2=4.4*10^-2//diameter of outer cylinder
+
+h=2.2//level of water
+
+H=4//height of tank
+
+eps1=((80.37*10^11)/((4*%pi*10^8)^2))//dielectric const. in free space(SI)
+
+epsv=0.013*10^-5//dielectric const. of medium(SI)
+
+C=(((H*epsv)+(h*(eps1-epsv)))/(2*log(d2/d1)))//capacitance of sensor
+
+printf("capacitance of sensor\n")
+
+printf("C=%.8f F",C)
\ No newline at end of file diff --git a/978/CH14/EX14.8/Example14_8.sce b/978/CH14/EX14.8/Example14_8.sce new file mode 100755 index 000000000..4f0d7ad23 --- /dev/null +++ b/978/CH14/EX14.8/Example14_8.sce @@ -0,0 +1,13 @@ +//chapter-14,Example14_8,pg 511
+
+VobyT=0.04//extrapolated bandgap voltage
+
+RE1byRE2=(1/2.2)//ratio of emitter resistances of Q1,Q2
+
+kBbyq=0.86*10^3//kB->boltzman const., q->charge
+
+//(1+a)log(a)=(VobyT/RE1byRE2)*kBbyq, a->ratio of collector currents
+
+printf("ratio of collector currents\n")
+
+printf("a=23.094")
\ No newline at end of file diff --git a/978/CH14/EX14.9/Example14_9.sce b/978/CH14/EX14.9/Example14_9.sce new file mode 100755 index 000000000..456a23571 --- /dev/null +++ b/978/CH14/EX14.9/Example14_9.sce @@ -0,0 +1,37 @@ +//chapter-14,Example14_9,pg 511
+
+//LVDT parameters
+
+Rp=1.3
+
+Rs=4
+
+Lp=2.2*10^-3
+
+Ls=13.1*10^-3
+
+//M1-M2 varies linearly with displacement x, being maximum 0.4 cm
+
+//when M1-M2=4mH so that k=(4/0.4)=10mH/cm
+
+k=10*10^-3
+
+f=50//frequency
+
+w=2*%pi*f//angular frequency
+
+tp=(Lp/Rp)//time const.
+
+N=((w*k)/(Rp*sqrt(1+(w^2)*(tp^2))))//normalized output
+
+phi=(%pi/2)-atan(w*tp)//phase angle
+
+phi=phi*(180/%pi)//conv. into degree
+
+printf("normalized output\n")
+
+printf("N=%.4f V/V/cm\n",N)
+
+printf("phase angle\n")
+
+printf("phi=%.2f",phi)
\ No newline at end of file diff --git a/978/CH15/EX15.1/Example15_1.sce b/978/CH15/EX15.1/Example15_1.sce new file mode 100755 index 000000000..90c5adc15 --- /dev/null +++ b/978/CH15/EX15.1/Example15_1.sce @@ -0,0 +1,17 @@ +//chapter-15,Example15_1,pg 470
+
+n1=1.48//refractive index of fibre
+
+mu=0.2//poisson's ratio
+
+p=2.2*10^2//pressure applied
+
+lam=690*10^-9//laser beam wavelength
+
+Y=2.2*10^11//young's modulus
+
+delphi=((4*%pi*n1*mu*p)/(lam*Y))//increamental phase
+
+printf("increamental phase\n")
+
+printf("delphi=%.5f rad",delphi)
\ No newline at end of file diff --git a/978/CH15/EX15.2/Example15_2.sce b/978/CH15/EX15.2/Example15_2.sce new file mode 100755 index 000000000..b6f2728d8 --- /dev/null +++ b/978/CH15/EX15.2/Example15_2.sce @@ -0,0 +1,15 @@ +//chapter-15,Example15_2,pg 474
+
+r=4.5//radius of fibre loop
+
+a=%pi*(r^2)//area of fibre loop
+
+Q=1//linear velocity(cm/s)
+
+Co=3*10^10//velocity of light(cm/s)
+
+delL=((4*a*Q)/Co)//additional length travelled
+
+printf("additional length travelled\n")
+
+printf("delL=%.12f cm",delL)
\ No newline at end of file diff --git a/978/CH15/EX15.3/Example15_3.sce b/978/CH15/EX15.3/Example15_3.sce new file mode 100755 index 000000000..3cbd707b2 --- /dev/null +++ b/978/CH15/EX15.3/Example15_3.sce @@ -0,0 +1,13 @@ +//chapter-15,Example15_3,pg 512
+
+//(Po1/Po2)=1/2 and Po1+Po2=3Po2=Pi
+
+Po2byPi=1/3//(Po2/Pi)
+
+kL=acos(sqrt(Po2byPi))//k->coupling coefficient
+
+L=kL//L=kL/k L->interacting length
+
+printf("interacting length\n")
+
+printf("L=%.3f/k",L)
\ No newline at end of file diff --git a/978/CH15/EX15.4/Example15_4.sce b/978/CH15/EX15.4/Example15_4.sce new file mode 100755 index 000000000..059dd5f1e --- /dev/null +++ b/978/CH15/EX15.4/Example15_4.sce @@ -0,0 +1,17 @@ +//chapter-15,Example15_4,pg 512
+
+We=7.6*10^-5//speed od gyro
+
+L=490
+
+d=0.094
+
+c=3*10^8
+
+delphi=7.69*10^-5//phase shift
+
+lam=((2*%pi*L*d*We)/(c*delphi))//wavelength of laser light
+
+printf("wavelength of laser light\n")
+
+printf("lam=%.11f m",lam)
\ No newline at end of file diff --git a/978/CH15/EX15.5/Example15_5.sce b/978/CH15/EX15.5/Example15_5.sce new file mode 100755 index 000000000..cd7059c3e --- /dev/null +++ b/978/CH15/EX15.5/Example15_5.sce @@ -0,0 +1,17 @@ +//chapter-15,Example15_5,pg 513
+
+//(delphi/delT)=(2pi/lam)(n*(delL/delT)+L*(deln/delT))=(deln/delT)
+
+lam=635*10^-9//wavelength of light beam
+
+delphi=139//phase angle
+
+delL=0.49*10^-6//change in length
+
+n=1.48//R.I of fibre
+
+k=((lam*delphi)/(2*%pi))-(delL*n)//k=(deln/delT), rate of change of R.I w.r.t T
+
+printf("rate of change of R.I w.r.t T\n")
+
+printf("k=%.8f/C",k)
\ No newline at end of file diff --git a/978/CH2/EX2.1/Example2_1.sce b/978/CH2/EX2.1/Example2_1.sce new file mode 100755 index 000000000..2916451cd --- /dev/null +++ b/978/CH2/EX2.1/Example2_1.sce @@ -0,0 +1,29 @@ +//chapter2,Example2_1,pg 23
+
+//for fig. 2.7
+
+ic=1*10^-3//constant current source
+
+Rf=15*10^3//feedback resistance
+
+Rs=10*10^3//input resistance
+
+Rx=1*10^3//unknown resistance
+
+Vo1=ic*Rf*(Rx/(1+(Rx*Rs)))//output voltage case-1
+
+printf("output voltage for case-1\n")
+
+printf("\nVo1=%.4f V\n",Vo1)
+
+//for fig. 2.8
+
+R1=10//unknown resistance
+
+R2=1*10^3//input resistance
+
+Vo2=ic*Rx*(R1/(1+R1*R2))//output voltage case-2
+
+printf("output voltage for case-2\n")
+
+printf("\nVo2=%.4f V\n",Vo2)
diff --git a/978/CH2/EX2.10/Example2_10.sce b/978/CH2/EX2.10/Example2_10.sce new file mode 100755 index 000000000..749a4bf79 --- /dev/null +++ b/978/CH2/EX2.10/Example2_10.sce @@ -0,0 +1,9 @@ +//chapter-2,Example2_10,pg 486
+
+dutcyc=0.4//duty cycle
+
+CF=sqrt((1-dutcyc)/dutcyc)//crest factor
+
+printf("crest factor\n")
+
+printf("CF=%.4f ",CF)
\ No newline at end of file diff --git a/978/CH2/EX2.11/Example2_11.sce b/978/CH2/EX2.11/Example2_11.sce new file mode 100755 index 000000000..f8a837d24 --- /dev/null +++ b/978/CH2/EX2.11/Example2_11.sce @@ -0,0 +1,21 @@ +//chapter-2,Example2_11,pg 486
+
+R1=10*10^3
+
+R4=10*10^3
+
+Idss=1*10^-3//drain saturation current
+
+Vp=2.2//peak voltage
+
+Vo=10//output voltage
+
+V2=2//input-1
+
+V1=-2//input-2
+
+R5=((R1*R4)/Vo)*((-2*Idss/(Vp^2)))*V1*V2
+
+printf("R5=%.2f ohm",R5)
+
+//R5 should satisfy the condition R5=((1+R1*(-2*Idss*Vp)/R2)*R3*R6) and with Vp negative it is obiviously possible
diff --git a/978/CH2/EX2.2/Example2_2.sce b/978/CH2/EX2.2/Example2_2.sce new file mode 100755 index 000000000..32bf19e8d --- /dev/null +++ b/978/CH2/EX2.2/Example2_2.sce @@ -0,0 +1,31 @@ +//chapter2,Example2_2,pg 22
+
+V1=5//input-1
+
+V2=5//input-2
+
+V12=50*10^-3//difference input
+
+Vo=2//output voltage
+
+acc=0.01//accuracy
+
+Ad=(Vo/V12)//diffrential gain
+
+//error at the output should be less than (2/100)V or 20mV.if common mode gain is the only source of error then
+
+err=Vo*acc//error
+
+Acm=(err/V1)//common mode gain
+
+CMRR=20*log10(Ad/Acm)//common mode rejection ratio in dB
+
+printf("diffrential gain \n")
+
+printf("\nAd=%.1f \n",Ad)
+
+printf("common mode gain \n")
+
+printf("\nAcm=%.4f \n",Acm)
+
+printf("\nCMRR=%.1f dB\n",CMRR)
diff --git a/978/CH2/EX2.3/Example2_3.sce b/978/CH2/EX2.3/Example2_3.sce new file mode 100755 index 000000000..9348137d1 --- /dev/null +++ b/978/CH2/EX2.3/Example2_3.sce @@ -0,0 +1,25 @@ +//chapter-2,Example2_3,pg 484
+
+Aol=10*10^4//open loop gain
+
+R2=10*10^3
+
+R3=10*10^3
+
+R1=100*10^3//input resistance
+
+Vac=24//maximum input
+
+Vo=(R2/R1)*Vac//output full scale
+
+printf("output FS voltage\n")
+
+printf("Vo=%.2f V\n",Vo)
+
+Vth=0.6//threshold voltage
+
+Vn=(Vth/Aol)//minimum input
+
+printf("minimum input voltage\n")
+
+printf("Vn=%.8f V\n",Vn)
diff --git a/978/CH2/EX2.4/Example2_4.sce b/978/CH2/EX2.4/Example2_4.sce new file mode 100755 index 000000000..6dcb4c13f --- /dev/null +++ b/978/CH2/EX2.4/Example2_4.sce @@ -0,0 +1,15 @@ +//chapter-2,Example2_4,pg 484
+
+Vp=1//peak input voltage
+
+f=50//frequency
+
+//R1=R2
+
+//since halfwave rectification is done,integration gives the value
+
+Vo=0.5*((2*Vp)/3.14)//output voltage,pi=3.14
+
+printf("output voltage\n")
+
+printf("Vo=%.4f V\n",Vo)
diff --git a/978/CH2/EX2.5/Example2_5.sce b/978/CH2/EX2.5/Example2_5.sce new file mode 100755 index 000000000..346623fb8 --- /dev/null +++ b/978/CH2/EX2.5/Example2_5.sce @@ -0,0 +1,15 @@ +//chapter-2,Example2_5,pg 484
+
+ic=0.1*10^-3//constant current source
+
+Vo=2//output voltage
+
+Rf=22*10^3//feedback resistance
+
+Rs=10*10^3//input resistance
+
+Rx=(1/(((ic*Rf)/(Vo*Rs))-(1/Rs)))//unknown resistance
+
+printf("unknown resistance\n")
+
+printf("Rx=%.2f ohm\n",Rx)
diff --git a/978/CH2/EX2.6/Example2_6.sce b/978/CH2/EX2.6/Example2_6.sce new file mode 100755 index 000000000..10d39d49f --- /dev/null +++ b/978/CH2/EX2.6/Example2_6.sce @@ -0,0 +1,9 @@ +//chapter-2,Example2_6,pg 484
+
+a=0.9//parameter of diff. amplr.
+
+b=1.1//parameter of diff. amplr.
+
+CMRR=0.5*(((1+a)*b+(1+b)*a))/((1+a)*b-(1+b)*a)//common mode rejection ratio
+
+printf("CMRR=%.2f \n",CMRR)
\ No newline at end of file diff --git a/978/CH2/EX2.7/Example2_7.sce b/978/CH2/EX2.7/Example2_7.sce new file mode 100755 index 000000000..ee002633d --- /dev/null +++ b/978/CH2/EX2.7/Example2_7.sce @@ -0,0 +1,19 @@ +//chapter-2,Example2_7,pg 485
+
+CMRR=10*10^4//common mode rejection ratio
+
+//set a=beta+k1*delbeta and b=beta(-/+)k2*delbeta
+
+//CMRR=0.5*((4(+/-)3*delbeta*(k1-k2))/((+/-)delbeta*(k1-k2)))
+
+//CMRR=0.5*((4(+/-)3*(a1-a2))/((+/-)(a1-a2)))
+
+//a1->k1*delbeta, a2->k2*delbeta
+
+delalpha=(2/CMRR)//a1-a2=delalpha
+
+printf("tolerance in parameters\n")
+
+printf("delalpha=%.7f \n",delalpha)
+
+printf("Therefore, if a varies by 1 percent, b should not vary more than 2*10^-3 percent of variation of a ")
\ No newline at end of file diff --git a/978/CH2/EX2.8/Example2_8.sce b/978/CH2/EX2.8/Example2_8.sce new file mode 100755 index 000000000..cfefb5060 --- /dev/null +++ b/978/CH2/EX2.8/Example2_8.sce @@ -0,0 +1,33 @@ +//chapter-2,Example2_8,pg 485
+
+R1=10*10^3
+
+R2=10*10^3
+
+V1=10//input voltage-1
+
+V2=10//input voltage-2
+
+R31=10*10^3//R3,case-1
+
+Vo1=((1+(R2/R1)+(R2/R31))*V1)-(R2/R1)*V2//output voltage case-1
+
+printf("output voltage case-1\n")
+
+printf("Vo1=%.2f V\n",Vo1)
+
+R32=100*10^3//R3,case-2
+
+Vo2=((1+(R2/R1)+(R2/R32))*V1)-(R2/R1)*V2//output voltage case-2
+
+printf("output voltage case-2\n")
+
+printf("Vo2=%.2f V\n",Vo2)
+
+R33=1000*10^3//R3,case-3
+
+Vo3=((1+(R2/R1)+(R2/R33))*V1)-(R2/R1)*V2//output voltage case-3
+
+printf("output voltage case-3\n")
+
+printf("Vo3=%.2f V",Vo3)
diff --git a/978/CH2/EX2.9/Example2_9.sce b/978/CH2/EX2.9/Example2_9.sce new file mode 100755 index 000000000..c1182e495 --- /dev/null +++ b/978/CH2/EX2.9/Example2_9.sce @@ -0,0 +1,21 @@ +//chapter-2,Example2_9,pg 486
+
+//(R3/R1)=0.98^-1(R2/R4)
+
+R1=10*10^3
+
+R3=10*10^3
+
+I1=130*10^-6
+
+Vo1=R1*(1+0.98)*I1//output for case-1, (R2/R4)=0.98
+
+//(R1/R3)=(R4/R2)
+
+Vo2=R1*(1+(R3/R1))*I1//output for case-2
+
+Vo12=((Vo2-Vo1)/Vo2)*100//percent difference
+
+printf("difference in output voltage\n")
+
+printf("Vo12=%.4f ohm",Vo12)
\ No newline at end of file diff --git a/978/CH3/EX3.1/Example3_1.sce b/978/CH3/EX3.1/Example3_1.sce new file mode 100755 index 000000000..797d28c6c --- /dev/null +++ b/978/CH3/EX3.1/Example3_1.sce @@ -0,0 +1,11 @@ +//chapter-3,Example3_1,pg 487
+
+in1=1//input-1
+
+in2=bitcmp(in1,1)//input-2
+
+out=(bitcmp(in1,1)*bitcmp(in2,1))+(in1*in2)//output
+
+printf("output of comparator\n")
+
+printf("out=%.2f",out)
\ No newline at end of file diff --git a/978/CH3/EX3.2/Example3_2.sce b/978/CH3/EX3.2/Example3_2.sce new file mode 100755 index 000000000..6fd47e2d2 --- /dev/null +++ b/978/CH3/EX3.2/Example3_2.sce @@ -0,0 +1,11 @@ +//chapter-3,Example3_2,pg 487
+
+in1=1//input-1
+
+in2=bitcmp(in1,1)//input-2
+
+out=(bitcmp(in1,1)+bitcmp(in2,1))*(in1+in2)//output
+
+printf("output of comparator\n")
+
+printf("out=%.2f",out)
\ No newline at end of file diff --git a/978/CH3/EX3.3/Example3_3.sce b/978/CH3/EX3.3/Example3_3.sce new file mode 100755 index 000000000..4add3e469 --- /dev/null +++ b/978/CH3/EX3.3/Example3_3.sce @@ -0,0 +1,21 @@ +//chapter-3,Example3_3,pg 487
+
+//Fabc=m6+m4+m2+m7+m5+m3
+
+//Fabc=abc'+ab'c'+a'bc'+abc+ab'c+a'bc
+
+//a'=bitcmp(a,1)
+
+//Fabc=ac'(b+b')+a'bc'+ac(b+b')+a'bc
+
+//Fabc=ac'+a'bc'+ac+a'bc
+
+//Fabc=c'(a+a'b)+c(a+a'b)
+
+//Fabc=(a+b)c'+(a+b)c
+
+//Fabc=(a+b)(c+c')
+
+printf("boolean function in simplified form\n")
+
+printf("a+b")
\ No newline at end of file diff --git a/978/CH3/EX3.4/Example3_4.sce b/978/CH3/EX3.4/Example3_4.sce new file mode 100755 index 000000000..f8841a986 --- /dev/null +++ b/978/CH3/EX3.4/Example3_4.sce @@ -0,0 +1,17 @@ +//chapter-3,Example3_4,pg 487
+
+//Fabc=M7*M6
+
+//Fabc=M7*M6=(a+b+c)(a+b+c')
+
+//Fabc=a+ab+ac'+ab+b+bc'+ac+bc+cc'
+
+//Fabc=(a+b)+(a+b)c'+(a+b)c+ab+ab+cc'
+
+//Fabc=((a+b)+c)((a+b)+c')
+
+//Fabc=(a+b)(a+b)+(a+b)c'+(a+b)c
+
+printf("boolean function in simplified form\n")
+
+printf("a+b")
\ No newline at end of file diff --git a/978/CH3/EX3.5/Example3_5.sce b/978/CH3/EX3.5/Example3_5.sce new file mode 100755 index 000000000..f3d3a872a --- /dev/null +++ b/978/CH3/EX3.5/Example3_5.sce @@ -0,0 +1,37 @@ +//chapter-3,Example3_5,pg 488
+
+//enter binary values only(1bit)
+
+a=input("enter value of a")//input-1
+
+b=input("enter value of b")//input-2
+
+c=input("enter value of c")//input-3
+
+x=bitcmp(bitand(a,b),1)
+
+y=bitor(x,c)//final output
+
+printf("\noutput\n")
+
+printf("y=%.2f\n",y)
+
+printf(" verify from truth table\n")
+
+printf("a b c y\n")
+
+printf("0 0 0 1\n")
+
+printf("0 0 1 1\n")
+
+printf("0 1 0 1\n")
+
+printf("0 1 1 1\n")
+
+printf("1 0 0 1\n")
+
+printf("1 0 1 1\n")
+
+printf("1 1 0 0\n")
+
+printf("1 1 1 1\n")
\ No newline at end of file diff --git a/978/CH3/EX3.6/Example3_6.sce b/978/CH3/EX3.6/Example3_6.sce new file mode 100755 index 000000000..6f22384fd --- /dev/null +++ b/978/CH3/EX3.6/Example3_6.sce @@ -0,0 +1,7 @@ +//chapter-3,Example3_6,pg 488
+
+printf("it is an EX-OR gate\n")
+
+printf("scheme using AND/OR gates\n")
+
+printf("AND(A*,B) OR AND(A,B*)")//A*=bitcmp(A)
\ No newline at end of file diff --git a/978/CH4/EX4.1/Example4_1.sce b/978/CH4/EX4.1/Example4_1.sce new file mode 100755 index 000000000..a05597736 --- /dev/null +++ b/978/CH4/EX4.1/Example4_1.sce @@ -0,0 +1,19 @@ +//chapter-4,Example4_1,pg 488
+
+//it is a half-adder circuit with the output 'a' and carry 'c' given by the boolean equations
+
+b1=1//input-1
+
+b2=1//input-2
+
+a=bitand(b1,bitcmp(b2,1))+bitand(bitcmp(b1,1),b2)//sum
+
+c=bitand(b1,b2)//carry
+
+printf("sum\n")
+
+printf("a=%.f\n",a)
+
+printf("carry\n")
+
+printf("c=%.f",c)
\ No newline at end of file diff --git a/978/CH4/EX4.10/Example4_10.sce b/978/CH4/EX4.10/Example4_10.sce new file mode 100755 index 000000000..60eebf127 --- /dev/null +++ b/978/CH4/EX4.10/Example4_10.sce @@ -0,0 +1,3 @@ +//chapter-4,Example4_10,pg 491
+
+printf("it remains positive from the falling edge of pulse-2, then falling edge of 4th, 6th and 8th pulses and so on....")
\ No newline at end of file diff --git a/978/CH4/EX4.11/Example4_11.sce b/978/CH4/EX4.11/Example4_11.sce new file mode 100755 index 000000000..035410e7d --- /dev/null +++ b/978/CH4/EX4.11/Example4_11.sce @@ -0,0 +1,3 @@ +//chapter-4,Example4_11,pg 491
+
+printf("all modulo counters are basically scalars.A 6-modulo counter is a 6-scaler so that after 6-input pulses the content of counter becomes 000(reset)")
\ No newline at end of file diff --git a/978/CH4/EX4.12/Example4_12.sce b/978/CH4/EX4.12/Example4_12.sce new file mode 100755 index 000000000..54a02bd31 --- /dev/null +++ b/978/CH4/EX4.12/Example4_12.sce @@ -0,0 +1,3 @@ +//chapter-4,Example4_12,pg 491
+
+printf("normal count would be 2^3=8, while 5-modulo counter would limit it to 5, so that illegitimate states are 8-5=3")
\ No newline at end of file diff --git a/978/CH4/EX4.2/Example4_2.sce b/978/CH4/EX4.2/Example4_2.sce new file mode 100755 index 000000000..b32ac537f --- /dev/null +++ b/978/CH4/EX4.2/Example4_2.sce @@ -0,0 +1,39 @@ +//chapter-4,Example4_2,pg 489
+
+//the circuit is that of a half subtractor
+
+//case-1
+
+b1=1//input-1
+
+B1=0//input-2
+
+d1=bitand(b1,bitcmp(B1,1))+bitand(B1,bitcmp(b1,1))//difference
+
+r1=bitand(b1,bitcmp(B1,1))//borrow
+
+//case-2
+
+b2=1
+
+B2=1
+
+d2=bitand(b2,bitcmp(B2,1))+bitand(B2,bitcmp(b2,1))
+
+r2=bitand(b2,bitcmp(B2,1))
+
+printf("difference case-1\n")
+
+printf("d1=%.f\n",d1)
+
+printf("difference case-2\n")
+
+printf("d2=%.f\n",d2)
+
+printf("borrow case-1\n")
+
+printf("r1=%.f\n",r1)
+
+printf("borrow case-2\n")
+
+printf("r2=%.f\n",r2)
\ No newline at end of file diff --git a/978/CH4/EX4.3/Example4_3.sce b/978/CH4/EX4.3/Example4_3.sce new file mode 100755 index 000000000..fd431b3d0 --- /dev/null +++ b/978/CH4/EX4.3/Example4_3.sce @@ -0,0 +1,11 @@ +//chapter-4,Example4_3,pg 489
+
+b=1//input-1
+
+B=0//input-2
+
+y=bitor((bitcmp(bitor(b,B),1)),bitand(b,B))//final output
+
+printf("final output\n")
+
+printf("y=%.f",y)
\ No newline at end of file diff --git a/978/CH4/EX4.4.a/Example4_4_a.sce b/978/CH4/EX4.4.a/Example4_4_a.sce new file mode 100755 index 000000000..662009964 --- /dev/null +++ b/978/CH4/EX4.4.a/Example4_4_a.sce @@ -0,0 +1,49 @@ +//chapter-4,Example4_4_a,pg 489
+
+//initial conditions
+
+b=0
+
+Bi=0//initial value
+
+Bf=1//final value
+
+//initial state of outputs
+
+y1i=bitcmp(bitor(b,Bi),1)
+
+y2i=bitcmp(bitor(b,bitcmp(Bi,1)),1)
+
+y3i=bitcmp(bitor(Bi,bitcmp(b,1)),1)
+
+y4i=bitcmp(bitor(bitcmp(Bi,1),bitcmp(b,1)),1)
+
+//final state of outputs
+
+y1f=bitcmp(bitor(b,Bf),1)
+
+y2f=bitcmp(bitor(b,bitcmp(Bf,1)),1)
+
+y3f=bitcmp(bitor(Bf,bitcmp(b,1)),1)
+
+y4f=bitcmp(bitor(bitcmp(Bf,1),bitcmp(b,1)),1)
+
+printf("first: ")
+
+printf("y1=%.f ",y1i)
+
+printf("y2=%.f ",y2i)
+
+printf("y3=%.f ",y3i)
+
+printf("y4=%.f\n",y4i)
+
+printf("next: ")
+
+printf("y1=%.f ",y1f)
+
+printf("y2=%.f ",y2f)
+
+printf("y3=%.f ",y3f)
+
+printf("y4=%.f",y4f)
\ No newline at end of file diff --git a/978/CH4/EX4.4.b/Example4_4_b.sce b/978/CH4/EX4.4.b/Example4_4_b.sce new file mode 100755 index 000000000..ebcac4fc7 --- /dev/null +++ b/978/CH4/EX4.4.b/Example4_4_b.sce @@ -0,0 +1,49 @@ +//chapter-4,Example4_4_b,pg 489
+
+//initial conditions
+
+b=1
+
+Bi=0//initial value
+
+Bf=1//final value
+
+//intial state of outputs
+
+y1i=bitcmp(bitor(b,Bi),1)
+
+y2i=bitcmp(bitor(b,bitcmp(Bi,1)),1)
+
+y3i=bitcmp(bitor(Bi,bitcmp(b,1)),1)
+
+y4i=bitcmp(bitor(bitcmp(Bi,1),bitcmp(b,1)),1)
+
+//final state of outputs
+
+y1f=bitcmp(bitor(b,Bf),1)
+
+y2f=bitcmp(bitor(b,bitcmp(Bf,1)),1)
+
+y3f=bitcmp(bitor(Bf,bitcmp(b,1)),1)
+
+y4f=bitcmp(bitor(bitcmp(Bf,1),bitcmp(b,1)),1)
+
+printf("first: ")
+
+printf("y1=%.f ",y1i)
+
+printf("y2=%.f ",y2i)
+
+printf("y3=%.f ",y3i)
+
+printf("y4=%.f\n",y4i)
+
+printf("next: ")
+
+printf("y1=%.f ",y1f)
+
+printf("y2=%.f ",y2f)
+
+printf("y3=%.f ",y3f)
+
+printf("y4=%.f",y4f)
\ No newline at end of file diff --git a/978/CH4/EX4.5/Example4_5.sce b/978/CH4/EX4.5/Example4_5.sce new file mode 100755 index 000000000..65ef32328 --- /dev/null +++ b/978/CH4/EX4.5/Example4_5.sce @@ -0,0 +1,32 @@ +//chapter-4,Example4_5,pg 489
+
+//if A8,B8,C8,D8 is the binary in 8421 code, for 12 this would be 1100(DCBA)
+
+//in 8421-code
+A8=0
+
+B8=0
+
+C8=1
+
+D8=1
+
+//in 2421-code
+
+D2=D8
+
+C2=bitor(C8,D8)
+
+B2=bitor(B8,D8)
+
+A2=A8
+
+printf("2421-code for 12 is\n")
+
+printf("%.f ",D2)
+
+printf("%.f ",B2)
+
+printf("%.f ",C2)
+
+printf("%.f ",A2)
diff --git a/978/CH4/EX4.6/Example4_6.sce b/978/CH4/EX4.6/Example4_6.sce new file mode 100755 index 000000000..7d86261a7 --- /dev/null +++ b/978/CH4/EX4.6/Example4_6.sce @@ -0,0 +1,41 @@ +//chapter-4,Example4_6,pg 490
+
+add="0011"//binary-3 to be added
+
+x="0010"//binary-2
+
+x=bin2dec(x)
+
+add=bin2dec(add)
+
+XS31=x+add
+
+XS31=dec2bin(XS31)
+
+y="0100"//binary-4
+
+y=bin2dec(y)
+
+XS32=y+add
+
+XS32=dec2bin(XS32)
+
+z="0111"//binary-7
+
+z=bin2dec(z)
+
+XS33=z+add
+
+XS33=dec2bin(XS33)
+
+printf("XS-3 for 2\n")
+
+disp(XS31)
+
+printf("XS-3 for 4\n")
+
+disp(XS32)
+
+printf("XS-3 for 7\n")
+
+disp(XS33)
\ No newline at end of file diff --git a/978/CH4/EX4.7/Example4_7.sce b/978/CH4/EX4.7/Example4_7.sce new file mode 100755 index 000000000..7a00d860c --- /dev/null +++ b/978/CH4/EX4.7/Example4_7.sce @@ -0,0 +1,7 @@ +//chapter-4,Example4_7,pg 490
+
+//one can see from relations of AND gate outputs in terms of address bits and input bit that there are possibilities depending on which input is low
+
+//if I7=0, by making all address bits s1,s2,s3 as 1 one can have the conditions satisfied
+
+printf("this requires all the outputs from AND gates should be low")
\ No newline at end of file diff --git a/978/CH4/EX4.8/Example4_8.sce b/978/CH4/EX4.8/Example4_8.sce new file mode 100755 index 000000000..49ef517df --- /dev/null +++ b/978/CH4/EX4.8/Example4_8.sce @@ -0,0 +1,55 @@ +//chapter-4,Example4_8,pg 490
+
+//enter binary 1-bit values only
+
+printf("RS flip-flop truth table\n")
+
+S=input("enter value of S")
+
+R=input("enter value of R")
+
+Qn=input("Enter previous value of Q")
+
+En=input("enter enable value")
+
+if En==0 then
+
+op=Qn
+
+printf("op=%.f",op)
+
+else if S==0&R==0 then
+
+op=Qn
+
+printf("op=%.f",op)
+
+else if S==0&R==1 then
+
+op=0
+
+printf("op=%.f",op)
+
+else if S==1&R==0 then
+
+op=1
+
+printf("op=%.f",op)
+
+else if (S==1&R==1) then
+
+printf("output not determinable\n")
+
+end
+
+end
+
+end
+
+end
+
+printf("the relations are\n")
+
+printf("Qn=(R+Qn*)*\n")//Q*=bitcmp(Q)
+
+printf("Qn*=(S+Qn)*")
\ No newline at end of file diff --git a/978/CH4/EX4.9/Example4_9.sce b/978/CH4/EX4.9/Example4_9.sce new file mode 100755 index 000000000..8713f5ccb --- /dev/null +++ b/978/CH4/EX4.9/Example4_9.sce @@ -0,0 +1,13 @@ +//chapter-4,Example4_9,pg 491
+
+//Q=(Q*+Q.K)* and Q*=(Q+Q*.J)*
+
+//with J=K=0 Q=Q and Q*=Q*
+
+//Q* is bitcmp(Q)
+
+printf("operational equations\n")
+
+printf("Q=(Q*+Q.K)* and Q*=(Q+Q*.J)*\n")
+
+printf("hold good where Q and Q* should be given appropriate values")
\ No newline at end of file diff --git a/978/CH5/EX5.1/Example5_1.sce b/978/CH5/EX5.1/Example5_1.sce new file mode 100755 index 000000000..74570bb34 --- /dev/null +++ b/978/CH5/EX5.1/Example5_1.sce @@ -0,0 +1,15 @@ +//chapter-5,Example5_1,pg 491
+
+Vref=12//ref. voltage
+
+n=4//no. of binary weighted resistors
+
+n1=3//input-1
+
+n2=1//input-2
+
+Vo=-(Vref/2^n)*(2^n1+2^n2)
+
+printf("output voltage\n")
+
+printf("Vo=%.2f V",Vo)
\ No newline at end of file diff --git a/978/CH5/EX5.10/Example5_10.sce b/978/CH5/EX5.10/Example5_10.sce new file mode 100755 index 000000000..95c056625 --- /dev/null +++ b/978/CH5/EX5.10/Example5_10.sce @@ -0,0 +1,11 @@ +//chapter-5,Example5_10,pg 493
+
+n=3//3-bit ADC
+
+SbyN=(((2^(n-1)*12^0.5)/2^0.5))//S/N ratio
+
+printf("S/N ratio\n")
+
+printf("SbyN=%.4f \n",SbyN)
+
+printf("this produces an error due to noise nearly 0.10")
\ No newline at end of file diff --git a/978/CH5/EX5.2/Example5_2.sce b/978/CH5/EX5.2/Example5_2.sce new file mode 100755 index 000000000..00a835c75 --- /dev/null +++ b/978/CH5/EX5.2/Example5_2.sce @@ -0,0 +1,15 @@ +//chapter-5,Example5_2,pg 491
+
+//serie arm resistance=10k, since the divider arm resistance Rsh=2Rse therefore for straight binary code, one should have section voltage ratio as Vos/Vis=0.5
+
+printf("voltage section ratio=0.5\n")
+
+//Vo/Vref=0.5
+
+Rse=10*10^3//series resistance(Rsh/2)
+
+Rf=0.5*(16*Rse)/15//feedback resistor
+
+printf("feedback resistor\n")
+
+printf("Rf=%.3f ohm",Rf)
\ No newline at end of file diff --git a/978/CH5/EX5.3/Example5_3.sce b/978/CH5/EX5.3/Example5_3.sce new file mode 100755 index 000000000..45c986110 --- /dev/null +++ b/978/CH5/EX5.3/Example5_3.sce @@ -0,0 +1,19 @@ +//chapter-5,Example5_3,pg 492
+
+Rse=1*10^3//series resistance
+
+Rsh=2*10^3//shunt resistance
+
+Vref=5//ref. voltage
+
+n1=0//input-1
+
+n2=3//input-2
+
+Ro=0.22*10^3//load resistance
+
+Vo=(Vref*(2^n1+2^n2)/16)*(Ro/(Ro+Rsh))//output voltage
+
+printf("output voltage\n")
+
+printf("Vo=%.4f V",Vo)
\ No newline at end of file diff --git a/978/CH5/EX5.4/Example5_4.sce b/978/CH5/EX5.4/Example5_4.sce new file mode 100755 index 000000000..1387536a6 --- /dev/null +++ b/978/CH5/EX5.4/Example5_4.sce @@ -0,0 +1,13 @@ +//chapter-5,Example5_4,pg 492
+
+Vref=5//ref. voltage
+
+t=1*10^-3//sawtooth wave time
+
+f=100*10^3//clock frequency
+
+Vi=1//input voltage
+
+N=((t*f*Vi)/Vref)//count
+
+printf("count=%.2f \n",N)
\ No newline at end of file diff --git a/978/CH5/EX5.5/Example5_5.sce b/978/CH5/EX5.5/Example5_5.sce new file mode 100755 index 000000000..80f386b74 --- /dev/null +++ b/978/CH5/EX5.5/Example5_5.sce @@ -0,0 +1,13 @@ +//chapter-5,Example5_5,pg 492
+
+Tu=1*10^-3//wave time
+
+Vi=0.2//input voltage
+
+t=4*10^-3//integration time constant(1/RC)
+
+V1=((Vi*Tu)/t)//integrator output voltage
+
+printf("integrator output voltage\n")
+
+printf("V1=%.2f V",V1)
\ No newline at end of file diff --git a/978/CH5/EX5.6/Example5_6.sce b/978/CH5/EX5.6/Example5_6.sce new file mode 100755 index 000000000..2c8acc81e --- /dev/null +++ b/978/CH5/EX5.6/Example5_6.sce @@ -0,0 +1,21 @@ +//chapter-5,Example5_6,pg 493
+
+Tz=0.6*10^-3//discharge time
+
+Vref=1//ref. voltage
+
+t=4*10^-3//integrator time const.
+
+Vk=((Vref*Tz)/t)//rise in output integrator
+
+printf("rise in integrator output\n")
+
+printf("Vk=%.2f V\n",Vk)
+
+Vi=0.2//input voltage
+
+Tu=Vref*(Tz/Vi)//charging time
+
+printf("charging time\n")
+
+printf("Tu=%.4f sec",Tu)
\ No newline at end of file diff --git a/978/CH5/EX5.7/Example5_7.sce b/978/CH5/EX5.7/Example5_7.sce new file mode 100755 index 000000000..ac038193d --- /dev/null +++ b/978/CH5/EX5.7/Example5_7.sce @@ -0,0 +1,13 @@ +//chapter-5,Example5_7,pg 493
+
+Vref=1//ref. voltage
+
+Vi=0.2//input voltage
+
+n=15//no. of counts before reset(n+1)
+
+N=((n+1)*Vi)/Vref//no.of counts over charging time
+
+printf("no. of counts over charging time\n")
+
+printf("N=%.2f ",N)
\ No newline at end of file diff --git a/978/CH5/EX5.8/Example5_8.sce b/978/CH5/EX5.8/Example5_8.sce new file mode 100755 index 000000000..44bb06848 --- /dev/null +++ b/978/CH5/EX5.8/Example5_8.sce @@ -0,0 +1,13 @@ +//chapter-5,Example5_8,pg 493
+
+Nx=64//2^6, 6 bit counteer register
+
+Vref=2.2//ref. voltage
+
+N=32//SAR output
+
+Vi=(N/(Nx+1)*Vref)//input voltage
+
+printf("input voltage\n")
+
+printf("Vi=%.2f V",Vi)
\ No newline at end of file diff --git a/978/CH5/EX5.9/Example5_9.sce b/978/CH5/EX5.9/Example5_9.sce new file mode 100755 index 000000000..49e400471 --- /dev/null +++ b/978/CH5/EX5.9/Example5_9.sce @@ -0,0 +1,13 @@ +//chapter-5,Example5_9,pg 493
+
+n=3//3-bit ADC
+
+Vref=2.2//ref.voltage
+
+Vi=1//input voltage
+
+N=(((2^n)-1)*Vi)/Vref//SAR output
+
+printf("SAR conversion no.\n")
+
+printf("N=%.2f ",N)
\ No newline at end of file diff --git a/978/CH6/EX6.1/Example6_1.sce b/978/CH6/EX6.1/Example6_1.sce new file mode 100755 index 000000000..c80246847 --- /dev/null +++ b/978/CH6/EX6.1/Example6_1.sce @@ -0,0 +1,13 @@ +//chapter-6,Example6_1,pg 169
+
+n=8//8-bit resolution(conversion of 1 in 256)
+
+Tr=10*10^-6//total trace time(256 conversions in 10*10^-6 s)
+
+Nc=256//total conversions
+
+S=(Nc/Tr)//speed of ADC
+
+printf("speed of ADC\n")
+
+printf("S=%.2f conversions/sec",S)
\ No newline at end of file diff --git a/978/CH6/EX6.10/Example6_10.sce b/978/CH6/EX6.10/Example6_10.sce new file mode 100755 index 000000000..b96e4d4f9 --- /dev/null +++ b/978/CH6/EX6.10/Example6_10.sce @@ -0,0 +1,15 @@ +//chapter-6,Example6_10,pg 495
+
+Res=(1/2^8)//resolution
+
+T=8*10^-6//total time
+
+n=256//no. of conversions
+
+t=(T/n)//time req. by one conversion
+
+S=(1/t)//speed of conversion
+
+printf("speed of conversion \n")
+
+printf("S=%.2f Hz\n",S)
\ No newline at end of file diff --git a/978/CH6/EX6.11/Example6_11.sce b/978/CH6/EX6.11/Example6_11.sce new file mode 100755 index 000000000..b415e977f --- /dev/null +++ b/978/CH6/EX6.11/Example6_11.sce @@ -0,0 +1,11 @@ +//chapter-6,Example6_11,pg 495
+
+C=0.01*10^-6//timing capacitor
+
+T=10*10^-3//time period
+
+Rt=T/(4*C)//total collector resistance
+
+printf("total collector resistance\n")
+
+printf("Rt=%.2f ohm\n",Rt)
\ No newline at end of file diff --git a/978/CH6/EX6.12/Example6_12.sce b/978/CH6/EX6.12/Example6_12.sce new file mode 100755 index 000000000..1fd3639f1 --- /dev/null +++ b/978/CH6/EX6.12/Example6_12.sce @@ -0,0 +1,17 @@ +//chapter-6,Example6_12,pg 495
+
+d1=1.03*10^-2//separation of plates
+
+theta=(6/5)//deflection of electron(1(deg.)12'=(6/5)deg.)
+
+l=2.2*10^-2//length of deflection plate
+
+Vap=2.2*10^3//accelerating potential
+
+x=tan((%pi/180)*(6/5))//x=(d/D)(conversion into radian)
+
+Vp=(x/l)*d1*Vap*2//potential between plates
+
+printf("potential between plates\n")
+
+printf("Vp=%.2f V\n",Vp)
\ No newline at end of file diff --git a/978/CH6/EX6.2/Example6_2.sce b/978/CH6/EX6.2/Example6_2.sce new file mode 100755 index 000000000..9f2e05ce2 --- /dev/null +++ b/978/CH6/EX6.2/Example6_2.sce @@ -0,0 +1,13 @@ +//chapter-6,Example6_2,pg 178
+
+fy=1.8*10^3//frequency at vertical plates
+
+Nv=2//vertical tangencies
+
+Nh=3//horizontal tangencies
+
+fx=fy*(Nv/Nh)//frequency at horizontal plates
+
+printf("frequency of other wave\n")
+
+printf("fx=%.2f Hz",fx)
\ No newline at end of file diff --git a/978/CH6/EX6.3/Example6_3.sce b/978/CH6/EX6.3/Example6_3.sce new file mode 100755 index 000000000..bb2415261 --- /dev/null +++ b/978/CH6/EX6.3/Example6_3.sce @@ -0,0 +1,15 @@ +//chapter-6,Example6_3,pg 178
+
+phi=(%pi/180)*30//conversion into radian
+
+bplus=3//ellipse cutting +ve minor axis
+
+bminus=-3//ellipse cutting -ve minor axis
+
+theta=atan(2/1)//angle of major axis of ellipse(Vy/Vh=2:1)
+
+y1=(bplus/sin(phi))//length of vertical axis
+
+printf("length of vertical axis \n")
+
+printf("y1=%.2f cm",y1)
\ No newline at end of file diff --git a/978/CH6/EX6.4/Example6_4.sce b/978/CH6/EX6.4/Example6_4.sce new file mode 100755 index 000000000..cde78d6d8 --- /dev/null +++ b/978/CH6/EX6.4/Example6_4.sce @@ -0,0 +1,15 @@ +//chapter-6,Example6_4,pg 493
+
+d=1*10^-3//separation between plates
+
+fe=300//acceleration of electron
+
+e=1.6*10^-19//charge of 1 electron
+
+me=9.1*10^-31//mass of 1 electron
+
+Vp=((me*fe*d)/e)//voltage apllied between plates
+
+printf("voltage applied between plates\n")
+
+printf("Vp=%.14f Kgm^2/s^2C",Vp)
\ No newline at end of file diff --git a/978/CH6/EX6.5/Example6_5.sce b/978/CH6/EX6.5/Example6_5.sce new file mode 100755 index 000000000..c076a7d39 --- /dev/null +++ b/978/CH6/EX6.5/Example6_5.sce @@ -0,0 +1,15 @@ +//chapter-6,Example6_5,pg 494
+
+l=1*10^-2//axial length of plates
+
+D=22*10^-2//distance between centre of plate and screen
+
+Vap=1.3*10^3//acceleration mode voltage
+
+del=1*10^-3//output in mm
+
+Sd=500*l*(D/(del*Vap))//deflection senstivity
+
+printf("deflection sensitivity\n")
+
+printf("Sd=%.2f mm/V",Sd)
\ No newline at end of file diff --git a/978/CH6/EX6.6/Example6_6.sce b/978/CH6/EX6.6/Example6_6.sce new file mode 100755 index 000000000..3da951eca --- /dev/null +++ b/978/CH6/EX6.6/Example6_6.sce @@ -0,0 +1,21 @@ +//chapter-6,Example6_6,pg 494
+
+Vp=0.1*10^3//deflection plate voltage
+
+e=1.6*10^-19//charge of electron
+
+l=1*10^-2//axial length of plates
+
+del1=1*10^-3//output in mm
+
+m=9.1*10^-31//mass of electron
+
+D=0.22*10^-2//distance between centre of plates and screen
+
+t=0.1*10^-6//time of flight
+
+del=((Vp*e*l*D)/(del1*m))*(10^-10)//deflection of electron beam from null pos.
+
+printf("deflection of electron beam from null pos.\n")
+
+printf("del=%.2f cm",del)
\ No newline at end of file diff --git a/978/CH6/EX6.7/Example6_7.sce b/978/CH6/EX6.7/Example6_7.sce new file mode 100755 index 000000000..58dc4f649 --- /dev/null +++ b/978/CH6/EX6.7/Example6_7.sce @@ -0,0 +1,13 @@ +//chapter-6,Example6_7,pg 494
+
+R=10*10^5//scope input impedance
+
+C1=0.31*62*10^-12//probe capacitance
+
+C2=22*10^-12//probe input impedance
+
+fcut=(1/(2*%pi*R*(C1+C2)))//cutoff frequency of filter
+
+printf("cutoff frequency\n")
+
+printf("fcut=%.2f Hz",fcut)
\ No newline at end of file diff --git a/978/CH6/EX6.8/Example6_8.sce b/978/CH6/EX6.8/Example6_8.sce new file mode 100755 index 000000000..44c62f947 --- /dev/null +++ b/978/CH6/EX6.8/Example6_8.sce @@ -0,0 +1,40 @@ +//chapter-6,Example6_8,pg 494
+
+bplus=3//ellipse parameter
+
+bminus=-3//ellipse parameter
+
+aplus=1.5//ellipse parameter
+
+aminus=-1.5//ellipse parameter
+
+//case-1
+
+y=6//y-intercept
+
+x=3//x-intercept
+
+phi1=asin(3/6)//phase difference
+
+phi1=(180/%pi)*phi1//conversion into degree
+
+//case-2
+
+phi2=180-phi1//major axis in 2 and 4 quad.
+
+//case-3
+
+phi3=asin(0)//y2=0
+
+//case-4
+
+phi4=180-phi3//y2=0 (major axis in 2 and 4 quad.)
+
+printf("phi1=%.2f \n",phi1)
+
+printf("phi2=%.2f \n",phi2)
+
+printf("phi3=%.2f \n",phi3)
+
+printf("phi4=%.2f \n",phi4)
+
diff --git a/978/CH6/EX6.9/Example6_9.sce b/978/CH6/EX6.9/Example6_9.sce new file mode 100755 index 000000000..5d60b5eb9 --- /dev/null +++ b/978/CH6/EX6.9/Example6_9.sce @@ -0,0 +1,9 @@ +//chapter-6,Example6_9,pg 495
+
+B=25*10^6//bandwidth of scope
+
+tr=(3.5/B)//rise time of scope
+
+printf("rise time of scope \n")
+
+printf("tr=%.8f s",tr)
\ No newline at end of file diff --git a/978/CH7/EX7.1/Example7_1.sce b/978/CH7/EX7.1/Example7_1.sce new file mode 100755 index 000000000..9aa78f234 --- /dev/null +++ b/978/CH7/EX7.1/Example7_1.sce @@ -0,0 +1,13 @@ +//chapter-7,Example7_1,pg 496
+
+delt=1*10^-3//pulse width
+
+//w=2wo
+
+//delt at w=2wo
+
+delT=(delt/2)//changed in pulse width
+
+printf("pulse width\n")
+
+printf("delT=%.4f s",delT)
\ No newline at end of file diff --git a/978/CH7/EX7.10/Example7_10.sce b/978/CH7/EX7.10/Example7_10.sce new file mode 100755 index 000000000..e7c463505 --- /dev/null +++ b/978/CH7/EX7.10/Example7_10.sce @@ -0,0 +1,13 @@ +//chapter-7,Example7_10,pg 498
+
+n=10*10^2//scale factor=(1/n)
+
+fc=10*10^5//clock frequency
+
+N=10//count
+
+Tp=(n/fc)*N//time between events
+
+printf("time between events\n")
+
+printf("Tp=%.4f s",Tp)
\ No newline at end of file diff --git a/978/CH7/EX7.2/Example7_2.sce b/978/CH7/EX7.2/Example7_2.sce new file mode 100755 index 000000000..a76e7e672 --- /dev/null +++ b/978/CH7/EX7.2/Example7_2.sce @@ -0,0 +1,15 @@ +//chapter-7,Example7_2,pg 496
+
+//senstivity of phase detection
+
+//Sphi=(Vo/sin(B))=(Vo/B)=(+/-)0.5Vmax
+
+Vmax=1//amplitude of cosine waves
+
+//B is phase displacement
+
+Sphi=(1/2)*Vmax
+
+printf("senstivity of phase detection\n")
+
+printf("Sphi=%.2f V/rad",Sphi)
\ No newline at end of file diff --git a/978/CH7/EX7.3/Example7_3.sce b/978/CH7/EX7.3/Example7_3.sce new file mode 100755 index 000000000..edfff0cac --- /dev/null +++ b/978/CH7/EX7.3/Example7_3.sce @@ -0,0 +1,15 @@ +//chapter-7,Example7_3,pg 496
+
+Vp=1.3//pulse height
+
+delt=0.31*10^-3//pulse width
+
+T=1*10^-3//pulse repetion rate
+
+Vphi=Vp*(delt/T)//phase deviation
+
+phi=2*%pi*(Vphi/Vp)//phase
+
+printf("phase measured\n")
+
+printf("phi=%.4f rad",phi)
\ No newline at end of file diff --git a/978/CH7/EX7.4/Example7_4.sce b/978/CH7/EX7.4/Example7_4.sce new file mode 100755 index 000000000..b324cf434 --- /dev/null +++ b/978/CH7/EX7.4/Example7_4.sce @@ -0,0 +1,13 @@ +//chapter-7,Example7_4,pg 497
+
+delt=0.13*10^-3//time delay
+
+T=1.3*10^-3//time period
+
+n=(1/3)*(1+(delt/T))//order of phase meter
+
+delphi=(n-(1/3))*1080//measured phase difference
+
+printf("measured phase difference\n")
+
+printf("delphi=%.2f deg",delphi)
\ No newline at end of file diff --git a/978/CH7/EX7.5/Example7_5.sce b/978/CH7/EX7.5/Example7_5.sce new file mode 100755 index 000000000..e19ac822b --- /dev/null +++ b/978/CH7/EX7.5/Example7_5.sce @@ -0,0 +1,11 @@ +//chapter-7,Example7_5,pg 497
+
+n=8//8-bit counter
+
+N2=64//output digital count
+
+theta=%pi*(N2/(2^n-1))//phase difference
+
+printf("measured phase difference\n")
+
+printf("theta=%.6f radian",theta)
\ No newline at end of file diff --git a/978/CH7/EX7.6/Example7_6.sce b/978/CH7/EX7.6/Example7_6.sce new file mode 100755 index 000000000..00297781c --- /dev/null +++ b/978/CH7/EX7.6/Example7_6.sce @@ -0,0 +1,15 @@ +//chapter-7,Example7_6,pg 497
+
+//since the no. is more than 9, the two-stage counting is required. the states of the stages are
+
+printf(" D C B A decimal equivalent")
+
+a1=[0 0 0 1 1]
+
+a5=[0 1 0 1 5]
+
+disp(a1)
+
+printf("\n")
+
+disp(a5)
diff --git a/978/CH7/EX7.7/Example7_7.sce b/978/CH7/EX7.7/Example7_7.sce new file mode 100755 index 000000000..37208fdc4 --- /dev/null +++ b/978/CH7/EX7.7/Example7_7.sce @@ -0,0 +1,13 @@ +//chapter-7,Example7_7,pg 498
+
+fd=10*10^6//frequency meter input
+
+fc=10*10^3//counter clock
+
+fi=100*10^6//actual input frequency
+
+k=fc*(fd/fi)//division time base
+
+printf("division time base\n")
+
+printf("k=%.2f ",k)
\ No newline at end of file diff --git a/978/CH7/EX7.8/Example7_8.sce b/978/CH7/EX7.8/Example7_8.sce new file mode 100755 index 000000000..510f3bb51 --- /dev/null +++ b/978/CH7/EX7.8/Example7_8.sce @@ -0,0 +1,15 @@ +//chapter-7,Example7_8,pg 498
+
+V2=0.130//output-1
+
+V1=0.103//output-2
+
+Vx=0.4//peak amplitude
+
+delt=0.1*10^-3//time delay
+
+f1=(1/(2*%pi*delt))*(asin(V2/Vx)-asin(V1/Vx))//frequency of sinusoid
+
+printf("frequency of sinusoid\n")
+
+printf("f1=%.2f Hz",f1)
\ No newline at end of file diff --git a/978/CH7/EX7.9/Example7_9.sce b/978/CH7/EX7.9/Example7_9.sce new file mode 100755 index 000000000..cae76917f --- /dev/null +++ b/978/CH7/EX7.9/Example7_9.sce @@ -0,0 +1,19 @@ +//chapter-7,Example7_9,pg 498
+
+//refer fig. 7.30(a),(b),(c)
+
+//N=(2*fc/fs^2)*fi
+
+fs=10*10^2//sampler frequency
+
+fc=10*10^3//counter clock
+
+M=(fs^2)/(2*fc)//multiplication factor
+
+fi=113//input frequency
+
+N=(1/M)*fi//count of counter
+
+printf("count of counter\n")
+
+printf("N=%.2f ",N)
\ No newline at end of file diff --git a/978/CH8/EX8.1/Example8_1.sce b/978/CH8/EX8.1/Example8_1.sce new file mode 100755 index 000000000..4f5246cd6 --- /dev/null +++ b/978/CH8/EX8.1/Example8_1.sce @@ -0,0 +1,19 @@ +//chapter-8,Example8_1,pg 234
+
+fr=400*10^3//resonance frequency
+
+C=400*10^-12//tuned capacitance
+
+R=10//resistance of coil
+
+n=40//Cp=nC
+
+Cp=n*(100/400)*10^-12//interwinding capacitance
+
+L=(1/(4*(%pi^2)*(fr^2)*(C+Cp)))//inductance of coil
+
+Q=2*%pi*fr*(L/R)//observed Q-factor
+
+printf("observed Q-factor\n")
+
+printf("Q=%.2f ",Q)
\ No newline at end of file diff --git a/978/CH8/EX8.10/Example8_10.sce b/978/CH8/EX8.10/Example8_10.sce new file mode 100755 index 000000000..fa1fd40e8 --- /dev/null +++ b/978/CH8/EX8.10/Example8_10.sce @@ -0,0 +1,33 @@ +//chapter-8,Example8_10,pg 500
+
+Rp=94//primary resistance
+
+Xp=64.3//primary reactance
+
+Rs=0.85//secondary resistance
+
+Im=31*10^-3//magnetizing current
+
+PF=0.4//power factor
+
+B=acos(PF)
+
+R=Rp+Rs//total resistance
+
+n=10//PT ratio
+
+Is=1//load current
+
+Vs=110//n=(Vp/Vs)
+
+nerr=n+((Is/n)*(R*cos(B)+Xp*sin(B)+Im*Xp)/Vs)//ratio error
+
+theta=((cos(B)*(Xp/n))-(sin(B)*(R/n))-(Im*Rp))/(Vs*n)//phase angle
+
+printf("ratio error\n")
+
+printf("nerr=%.3f \n",nerr)
+
+printf("phase angle\n")
+
+printf("theta=%.3f ",theta)
\ No newline at end of file diff --git a/978/CH8/EX8.11/Example8_11.sce b/978/CH8/EX8.11/Example8_11.sce new file mode 100755 index 000000000..47af863f5 --- /dev/null +++ b/978/CH8/EX8.11/Example8_11.sce @@ -0,0 +1,41 @@ +//chapter-8,Example8_11,pg 500
+
+n=20//(Vs/Is)
+
+Is=5//n=(Vs/Is)
+
+Vs=100//n=(Vs/Is)
+
+N=0.25//resistance to reactance ratio
+
+Bur=15//burden of CT=15VA (rating)
+
+V=(Bur/Is)//voltage rating
+
+B=atan(N)//cos(B)-> power factor
+
+B=B*(180/%pi)//conversion into degree
+
+IL=0.13//iron loss
+
+I=(Bur/Vs)//current rating
+
+I1=(IL/I)
+
+Im=1.3//magnetizing current
+
+Rac=0.23//actual value
+
+R=n+((I1*cos(B)+Im*sin(B))/Is)//calculated value
+
+theta=((Im*cos(B)-I1*sin(B))/Vs)//phase angle
+
+nerr=-(Rac/R)*100//ratio error
+
+printf("ratio error\n")
+
+printf("nerr=%.4f \n",nerr)
+
+printf("phase angle \n")
+
+printf("theta=%.4f ",theta)
\ No newline at end of file diff --git a/978/CH8/EX8.2/Example8_2.sce b/978/CH8/EX8.2/Example8_2.sce new file mode 100755 index 000000000..d60011e9b --- /dev/null +++ b/978/CH8/EX8.2/Example8_2.sce @@ -0,0 +1,21 @@ +//chapter-8,Example8_2,pg 240
+
+fs=50*10^3//sampling rate
+
+delt=2//summation interval
+
+f=50//signal frequency
+
+n=(fs/delt)//value of samples for 2s
+
+maxer1=100/(2*n)//max error for synchronous case
+
+maxer2=(100/(2*fs*delt*sin((2*%pi*f)/fs)))//max error for asynchronous case
+
+printf("max error for synchronous case\n")
+
+printf("maxer1=%.4f \n",maxer1)
+
+printf("max error for asynchronous case\n")
+
+printf("maxer2=%.2f ",maxer2)
\ No newline at end of file diff --git a/978/CH8/EX8.3/Example8_3.sce b/978/CH8/EX8.3/Example8_3.sce new file mode 100755 index 000000000..234ff4705 --- /dev/null +++ b/978/CH8/EX8.3/Example8_3.sce @@ -0,0 +1,41 @@ +//chapter-8,Example8_3,pg 258
+
+//assume no iron loss and magnetizing current=1% of 10A, i.e 0.01A
+
+Xs=1.884//reactance of secondary
+
+Rs=0.5//resistance of secondary
+
+Xm=20//reactance of meter
+
+Rm=0.4//reactance of meter
+
+B=atan((Xs+Xm)/(Rs+Rm))
+
+B=B*(180/%pi)//conversion into degree
+
+Im=0.01//magnetizing current
+
+//nominal ratio (n2/n1)=10/1
+
+n2=10
+
+n1=1
+
+R=n2+((Im*sin(B))/n1)//actual impedance
+
+R1=0.0097//practical impedance
+
+perer=(R1/R)*100//percentage error
+
+theta=((Im*cos(B))/n2)//phase angle
+
+theta=theta*(%pi/180)//conversion into radian
+
+printf("percentage error\n")
+
+printf("perer=%.4f \n",perer)
+
+printf("phase angle\n")
+
+printf("theta=%.6f rad",theta)
\ No newline at end of file diff --git a/978/CH8/EX8.4/Example8_4.sce b/978/CH8/EX8.4/Example8_4.sce new file mode 100755 index 000000000..5b6fddbbc --- /dev/null +++ b/978/CH8/EX8.4/Example8_4.sce @@ -0,0 +1,31 @@ +//chapter-8,Example8_4,pg 499
+
+Vc=100//voltage across capacitor
+
+Vi=12//input voltage
+
+Q=(Vc/Vi)//Q-factor
+
+f=100//frequency of operation
+
+Vl=100//Vc=Vl at resonance
+
+Ir=5//current at resonance
+
+Xl=(Vl/Ir)//inductive reactance
+
+L=(Xl/(2*%pi*f))//inductance
+
+Rl=(Xl/Q)//resistance
+
+printf("inductance of coil\n")
+
+printf("L=%.4f Henry\n",L)
+
+printf("Q-factor\n")
+
+printf("Q=%.3f \n",Q)
+
+printf("resistance of coil\n")
+
+printf("Rl=%.2f ohm",Rl)
\ No newline at end of file diff --git a/978/CH8/EX8.5/Example8_5.sce b/978/CH8/EX8.5/Example8_5.sce new file mode 100755 index 000000000..fd3d34f0a --- /dev/null +++ b/978/CH8/EX8.5/Example8_5.sce @@ -0,0 +1,25 @@ +//chapter-8,Example8_5,pg 499
+
+//when switch is open
+
+C1=0.011*10^-6//capacitance-1
+
+Q1=10//Q-factor-1
+
+//when switch is closed
+
+C2=0.022*10^-6//capacitance-2
+
+Q2=100//Q-factor-2
+
+Qac=((Q1*Q2)/(Q1-Q2))*((C1-C2)/C1)//actual Q-factor
+
+Rp=((Q1*Q2)/(Q2-Q1))*(1/(2*%pi*C2))//parallel resistance
+
+printf("actual Q-factor\n")
+
+printf("Qac=%.2f \n",Qac)
+
+printf("parallel resistance \n")
+
+printf("Rp=%.2f ohm",Rp)
\ No newline at end of file diff --git a/978/CH8/EX8.6/Example8_6.sce b/978/CH8/EX8.6/Example8_6.sce new file mode 100755 index 000000000..7d27a1597 --- /dev/null +++ b/978/CH8/EX8.6/Example8_6.sce @@ -0,0 +1,13 @@ +//chapter-8,Example8_6,pg 499
+
+Cr=0.01*10^-6//capacitance at resonance
+
+Cu=0.014*10^-6//capacitance at upper half
+
+Cl=0.008*10^-6//capacitance at lower half
+
+Qac=((2*Cr)/(Cu-Cl))//actual Q-factor
+
+printf("actual Q-factor\n")
+
+printf("Qac=%.2f \n",Qac)
\ No newline at end of file diff --git a/978/CH8/EX8.7/Example8_7.sce b/978/CH8/EX8.7/Example8_7.sce new file mode 100755 index 000000000..9baf20a3e --- /dev/null +++ b/978/CH8/EX8.7/Example8_7.sce @@ -0,0 +1,15 @@ +//chapter-8,Example8_7,pg 499
+
+V=10//v=10sin6280t
+
+I=1//current peak
+
+P=3.1//active power
+
+phi=acos((P*2)/V)//phase in radian
+
+w=6280//v=10sin6280t
+
+lag=(phi/w)//lag
+
+printf("lag=%.5f s\n",lag)
diff --git a/978/CH8/EX8.8/Example8_8.sce b/978/CH8/EX8.8/Example8_8.sce new file mode 100755 index 000000000..6b2a8c4a4 --- /dev/null +++ b/978/CH8/EX8.8/Example8_8.sce @@ -0,0 +1,19 @@ +//chapter-8,Example8_8,pg 500
+
+V=4//peak voltage
+
+I=0.4//peak current
+
+f=1*10^3//operating frequency
+
+fs=40*10^3//sampling rate
+
+delt=2.2//time interval
+
+phi=((2*%pi*f)/fs)//phase
+
+Et=(V*I*phi)/(4*%pi*f*delt*sin(phi))//truncation error
+
+printf("truncation error\n")
+
+printf("Et=%.8f ",Et)
\ No newline at end of file diff --git a/978/CH8/EX8.9/Example8_9.sce b/978/CH8/EX8.9/Example8_9.sce new file mode 100755 index 000000000..f3e208287 --- /dev/null +++ b/978/CH8/EX8.9/Example8_9.sce @@ -0,0 +1,15 @@ +//chapter-8,Example8_9,pg 500
+
+ar=1//gain of rectifier
+
+nc=40//turns ratio (1:40)
+
+Vm=4//peak load voltage
+
+PF=0.85//power factor
+
+f=(1/%pi)*ar*Vm*nc*PF//frequency
+
+printf("frequency of digital power meter \n")
+
+printf("f=%.2f Hz",f)
\ No newline at end of file diff --git a/978/CH9/EX9.1/Example9_1.sce b/978/CH9/EX9.1/Example9_1.sce new file mode 100755 index 000000000..d64e1cf38 --- /dev/null +++ b/978/CH9/EX9.1/Example9_1.sce @@ -0,0 +1,13 @@ +//chapter-9,Example9_1,pg 501
+
+fc=1.3*10^6//centre frequency
+
+fsignal=1*10^6//frequency of the signal
+
+fvfo=0.3*10^6//frequency of variable frequency oscillator
+
+per=(fvfo/fc)*100
+
+printf("percent variation\n")
+
+printf("per=%.3f",per)
\ No newline at end of file diff --git a/978/CH9/EX9.2/Example9_2.sce b/978/CH9/EX9.2/Example9_2.sce new file mode 100755 index 000000000..4492eac52 --- /dev/null +++ b/978/CH9/EX9.2/Example9_2.sce @@ -0,0 +1,18 @@ +//chapter-9,Example9_2,pg 502
+
+N=22//no. of acquistioned data
+
+delt=2*10^-3//time period
+
+n=4//4th DFT coeff.
+
+q=3//no. of discrete points
+
+//An=(2/N)*V(n)*cos((2*%pi*n*q)/N)
+
+printf("A4=(1/11)V(4)cos(12pi/11)\n")
+
+//Bn=(2/N)*V(n)*sin((2*%pi*n*q)/N)
+
+printf("B4=(1/11)V(4)sin(12pi/11)\n")
+
diff --git a/978/CH9/EX9.3/Example9_3.sce b/978/CH9/EX9.3/Example9_3.sce new file mode 100755 index 000000000..8ed3c610f --- /dev/null +++ b/978/CH9/EX9.3/Example9_3.sce @@ -0,0 +1,13 @@ +//chapter-9,Example9_3,pg 502
+
+N=64//data units
+
+//implimentation steps for DFT=64^2
+
+//for FFT
+
+r=(log2(N)/N)//implimentation ratio
+
+printf("implimentation ratio\n")
+
+printf("r=%.4for(3/32)",r)
\ No newline at end of file diff --git a/978/CH9/EX9.4/Example9_4.sce b/978/CH9/EX9.4/Example9_4.sce new file mode 100755 index 000000000..2d3d75b00 --- /dev/null +++ b/978/CH9/EX9.4/Example9_4.sce @@ -0,0 +1,14 @@ +//chapter-9,Example9_4,pg 502
+
+D3=1.3*10^-2//3rd harmonic(unit value)
+
+D5=0.31*10^-2//5th harmonic(unit value)
+
+D7=0.04*10^-2//7th harmonic(unit value)
+
+Dt=sqrt((D3^2)+(D5^2)+(D7^2))//distortion ratio
+
+printf("distortion ratio\n")
+
+printf("Dt=%.5f ",Dt)
+
diff --git a/978/CH9/EX9.5/Example9_5.sce b/978/CH9/EX9.5/Example9_5.sce new file mode 100755 index 000000000..f1892bbdb --- /dev/null +++ b/978/CH9/EX9.5/Example9_5.sce @@ -0,0 +1,17 @@ +//chapter-9,Example9_5,pg 502
+
+Q=10//Q-factor
+
+m=5//improvement factor
+
+a=(1/((3*Q)-1))//filter factor
+
+Qr=Q*m//rejection Q-factor
+
+ar=(1/((3*Qr)-1))//rejection filter factor
+
+perf=((a-ar)/a)*100//percent change in feedback
+
+printf("percent change in feedback\n")
+
+printf("perf=%.5f ",perf)
\ No newline at end of file diff --git a/978/CH9/EX9.6/Example9_6.sce b/978/CH9/EX9.6/Example9_6.sce new file mode 100755 index 000000000..d9f36b4f5 --- /dev/null +++ b/978/CH9/EX9.6/Example9_6.sce @@ -0,0 +1,17 @@ +//chapter-9,Example9_6,pg 503
+
+fc=100*10^6//clock frequency
+
+Nm=4*10^6//memory size
+
+Te=(1/fc)//timing uncertainity
+
+Tm=(Nm/fc)//measurable time
+
+printf("timing uncertainity\n")
+
+printf("Te=%.11f s\n",Te)
+
+printf("measurable time\n")
+
+printf("Tm=%.4f s",Tm)
|