1 files changed, 37 insertions, 0 deletions
diff --git a/165/CH4/EX4.13/ex4_13.sce b/165/CH4/EX4.13/ex4_13.sce
new file mode 100644
index 000000000..27bfb9a2e
--- /dev/null
+++ b/165/CH4/EX4.13/ex4_13.sce
@@ -0,0 +1,37 @@
+//Example 4.13
+clc;
+
+Ra=45000;
+Rb=5000;
+S=20000;              //Given sentivity
+V=50;                 //Voltage across given terminals
+VRb=Rb*V/(Ra+Rb);     //Using Voltage divide between Ra Rb
+                      //Also the true voltage across Rb
+disp(VRb,'True voltage across Rb')
+
+// Case I: For range of 5 V
+R=5;                  //Range of meter 1
+Rv=S*R;               //Voltmeter Resistence
+Req=Rb*Rv/(Rb+Rv);    //R2 is parallel to meter
+V1=V*Req/(Ra+Req);    //Voltage across the total combination
+disp(V1,'Voltmeter with range 5 V')
+Ev1=(VRb-V1)*100/VRb; //Error in voltmeter 1
+disp(Ev1,' Error in voltmeter 1')
+
+// Case II: For range of 10 V
+R=10;                 //Range of meter 2
+Rv=S*R;               //Voltmeter Resistence
+Req=Rb*Rv/(Rb+Rv);    //R2 is parallel to meter
+V2=V*Req/(Ra+Req);    //Voltage across the total combination
+disp(V2,'Voltmeter with range 10 V')
+Ev2=(VRb-V2)*100/VRb; //Error in voltmeter 2
+disp(Ev2,' Error in voltmeter 2')
+
+// Case III: For range of 30 V
+R=30;                 //Range of meter 3
+Rv=S*R;               //Voltmeter Resistence
+Req=Rb*Rv/(Rb+Rv);    //R2 is parallel to meter
+V3=V*Req/(Ra+Req);    //Voltage across the total combination
+disp(V3,'Voltmeter with range 30 V')
+Ev3=(VRb-V3)*100/VRb; //Error in voltmeter 3
+disp(Ev3,' Error in voltmeter 3')
+\ No newline at end of file