Added new codeHEADmaster

11 files changed, 248 insertions, 0 deletions

diff --git a/3871/CH1/EX1.1/Ex1_1.sce b/3871/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..6810547df
--- /dev/null
+++ b/3871/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,19 @@
+//===========================================================================

+//chapter 1 example 1

+

+clc;

+clear all;

+

+//variable declaration

+d    =2.4;                //magnitude of output response in mm

+R    = 6;                 //magnitude of input in Ω

+

+//calculations

+S    = d/(R);        //static sensitivity in mm/Ω

+D    = R/(d);        //deflection factor in Ω/mm

+

+//result

+mprintf("static sensitivity = %3.2f mm/Ω",S);

+mprintf("\n deflection factor = %3.2f Ω/mm",D);

+

+//==========================================================================

diff --git a/3871/CH1/EX1.10/Ex1_10.sce b/3871/CH1/EX1.10/Ex1_10.sce
new file mode 100644
index 000000000..fb8caa599
--- /dev/null
+++ b/3871/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,23 @@
+//===========================================================================

+//chapter 1 example 10

+

+clc;

+clear all;

+

+//variable declaration

+E0    = 50;       //internal voltage source in V

+R0    = 100;      //resitance in kΩ

+r     = 99;       //accuracy in %

+

+//calculations

+//Em = E0/(1+(R0/RL))

+//Em  = E0*(r in %)

+//E0/(1+(R0/RL)) = E0*(r in %)

+Em   = (E0*r)/(100);

+x    =E0/(Em);

+y    = x-1;

+Rm   = R0/(y);        //resistance of voltage in kΩ

+

+//result

+mprintf("resistance of voltage  = %3.2f kΩ",Rm);

+

diff --git a/3871/CH1/EX1.11/Ex1_11.sce b/3871/CH1/EX1.11/Ex1_11.sce
new file mode 100644
index 000000000..62025d39e
--- /dev/null
+++ b/3871/CH1/EX1.11/Ex1_11.sce
@@ -0,0 +1,30 @@
+//===========================================================================

+//chapter 1 example 11

+

+

+clc;

+clear all;

+

+//variable declaration

+E     = 20;        //voltage in V

+R1    = 2;         //resistance in kΩ

+R2    = 2;         //resistance in kΩ

+R3    = 1;         //resistance in kΩ

+R     = 200;       //resistance whe current is connected to terminals in Ω

+

+

+//calculations

+Io     = (E/(R1+((R2*R3)/(R2+R3))))*(R2/(R2+R3));    //nortons equivalent current in kΩ

+Rout   = R3+((1/(R1))+(1/(R2)));            //output resistance in kΩ

+IL     = Io*((R1*1000)/((R1*1000)+R));         //measured value of current in mA

+e      = ((IL-Io)/(Io))*100;                      //percentage error in %

+A      = 100+e;              //accuracy of measurement in %

+

+//result

+//mprintf("resistance of voltage  = %3.2f kΩ",Rm);

+

+mprintf("actual value of current flowing through 1000 Ω is %3.2f mA",Io');

+mprintf("\nmeasured value of current when 200 Ω is connected is %3.2f mA",IL);

+mprintf("\npercentage error = %3.1f percentage(low) ",e);

+mprintf("\naccuracy of measurement = %3.1f percentage ",A);

+

diff --git a/3871/CH1/EX1.2/Ex1_2.sce b/3871/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..86d56f056
--- /dev/null
+++ b/3871/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,21 @@
+//=========================================================================================

+//chapter 1 example 2

+

+clc;

+clear all;

+

+//variable declarations

+If     = 5;       //full-scale reading of instrument in A

+Ra     = 0.01;    //ammeter resistance in ohm

+

+

+//calculations

+Pf     = ((If)^2)*(Ra);             //power sonsumption for full-scale deflection is W

+n      = (If)/(Pf);             //instrument efficiency in A per watts

+

+//result

+mprintf("power sonsumption for full-scale deflection = %3.2f W",Pf);

+mprintf("\ninstrument efficiency = %3.0f A per watts",n);

+

+

+//================================================================================================

diff --git a/3871/CH1/EX1.3/Ex1_3.sce b/3871/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..3a49536c8
--- /dev/null
+++ b/3871/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,20 @@
+//===========================================================================

+//chapter 1 example 3

+

+clc;

+clear all;

+

+//variable declaration

+n     = 100;              //highest mutiplier switch in mA

+N     = 100;              //number of divisions

+

+

+//calculations

+R     = (N*10^-3)*n;              //Range of instrument in A

+S     = 0-n;              //scale range

+

+//result

+mprintf("Range of instrument = %3.2f A",R);

+mprintf("\nScale Range  = 0%3.2f",S);

+

+//=============================================================================

diff --git a/3871/CH1/EX1.4/Ex1_4.sce b/3871/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..67a9c714d
--- /dev/null
+++ b/3871/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,21 @@
+//===========================================================================

+//chapter 1 example 4

+

+clc;

+clear all;

+

+//variable declaration

+T1    = 200;            //Tempperature in  °C

+T2    = 225;            //Tempperature in °C

+R1    = 305;           //Resistance in Ω

+R2    = 310;            //Resistance in Ω

+

+//calculations

+S   = (R2-R1)/(T2-T1);    //dr/dt in per  °C

+

+//result

+mprintf("measurement sensitivity S = %3.2f  Ω per °C",S);

+

+

+//==========================================================================

+

diff --git a/3871/CH1/EX1.5/Ex1_5.sce b/3871/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..37352d8b0
--- /dev/null
+++ b/3871/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,24 @@
+//=============================================================================================

+//chapter 1 example 5

+

+clc;

+clear all;

+

+//variable declaration

+R0      = 100;                   //resistance in  Ω

+R100    = 138.50;                 //resistance in  Ω

+R200    = 175.83;                //resistance in  Ω

+T1      = 0;                     //Tempperature in  °C

+T2      = 200;                   //Tempperature in  °C

+T3      = 100;                   //Tempperature in  °C

+

+//calculations

+T       = ((T2-T1)/(R200-R0))*(R100-R0);  //change in temperatre in °C

+D       = T-T3;                              //deviation in °C at T3 temperature

+p       = (D/(T2))*100;                  //per cent full scale deflection non linearity in %

+

+//result

+mprintf("per cent full scale deflection %3.4f  percent",p);

+

+

+//=======================================================================================================

diff --git a/3871/CH1/EX1.6/Ex1_6.sce b/3871/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..f4945e76a
--- /dev/null
+++ b/3871/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,24 @@
+//=====================================================================================================

+//chapter 1 example 6

+

+clc;

+clear all;

+

+//variable declaration

+l    = 0.2;           //percent liearity

+r    = 300;           //full-scale readng 

+R    = 20;            //resistance in kΩ

+V    = 2;             //voltage in V

+

+//calculations

+d    = (l*r)/(100);      //maximum displacement deviatio in  °

+R1    = (l*R)/(100);       //maximum resistance displacement in Ω

+//a displacement of 300 corresponds to 2V  ,therfore 0.6 corresponds to a voltage of (0.6/300)*2

+ev    = (d/(r))*V;        //maximum voltage error in mV

+

+//result

+mprintf("maximum displacement deviation =%3.1f ° ",d);

+mprintf("\nmaximum resistance displacement %3.2f kΩ",R1);

+mprintf("\n maximum voltage error  %3.2f mV",(ev*10^3));

+

+//=======================================================================================================

diff --git a/3871/CH1/EX1.7/Ex1_7.sce b/3871/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..e972916ac
--- /dev/null
+++ b/3871/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,19 @@
+//=====================================================================================================

+//chapter 1 example 7

+

+clc;

+clear all;

+

+//variable declaration

+t1     =500;       //temperature in °C

+t2     =1250;       //temperature in °C

+r      = 0.12;      //dead space in pyrometer in per cent of span

+

+//calculations

+S     = t2-t1;               //span the algebric diffeerence between the upper and lower range values

+d     = (r/(100))*S;    //dead space in °C 

+

+//result

+mprintf(" a change of %3.2f °C must occur before it is detected",d);

+

+//=========================================================================================================

diff --git a/3871/CH1/EX1.8/Ex1_8.sce b/3871/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..0ae6f2630
--- /dev/null
+++ b/3871/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,24 @@
+//=====================================================================================================

+//chapter 1 example 8

+

+clc;

+clear all;

+

+//variable declaration

+E0    = 12;       //open -circuit voltage in V

+R0    = 1;        //output resistance in kΩ

+RL    = 25;        //output resistance in kΩ

+

+

+//calculations

+EL     = E0/(1+(R0/RL));   //measured value of voltage in V

+Er     = EL-E0;                        //errorin measurement in V

+p      = ((EL-E0)/(E0))*100;            //percentage error in %

+

+//result

+mprintf("measured value of voltage  = %3.3f V",EL);

+mprintf("\nerror in measurement= %3.3f V",Er);

+mprintf("\npercentage error = %3.3f  percent low",p);

+

+

+//================================================================================================

diff --git a/3871/CH1/EX1.9/Ex1_9.sce b/3871/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..4a430fbad
--- /dev/null
+++ b/3871/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,23 @@
+//===========================================================================

+//chapter 1 example 9

+

+

+clc;

+clear all;

+

+//variable declaration

+s   = 4000;     //instrument sensitivity in kΩ

+R   = 10;       //range of scale

+R0  = 20;       //output resistance in kΩ

+E0  = 7.5;       //open circuit voltage 

+

+//calculations

+RL     =s*R;       //instrument resistance in kΩ

+RL1    = RL*10^-3;

+EL     = E0/(1+(R0/(RL1)));   //measured value of voltage in V

+p      = ((EL-E0)/(E0))*100;            //percentage error in %

+

+//result

+mprintf("measured value of voltage = %3.2f V",EL);

+mprintf("\npercentage error = %3.2f V  percentage low",p);

+