1 files changed, 25 insertions, 0 deletions
diff --git a/2360/CH5/EX5.15/ex5_15.sce b/2360/CH5/EX5.15/ex5_15.sce
new file mode 100755
index 000000000..da3133eff
--- /dev/null
+++ b/2360/CH5/EX5.15/ex5_15.sce
@@ -0,0 +1,25 @@
+// Exa 5.15
+format('v',7);clc;clear;close;
+// Given data
+P = 1000;// in ohm
+Q = 1000;// in ohm
+p = 1000;// in ohm
+q = 1000;// in ohm
+S = 0.001;// in ohm
+R = (P/Q)*S;// in ohm
+disp(R,"The value of unknown resistance in Ω is");
+Rb = 5;// in ohm
+V = 100;// in V
+I = V/(Rb+R+S);// in A
+disp(I,"The current through the unknown resistance in A is");
+R = R*0.1;// in ohm
+// Vac = ( (R+r+S)/(Rb+R+r+S) )*V;
+Vac = ((R+S)/(Rb+R+S))*V;// in V .. correction
+Vab = (P/(P+Q))*Vac;// in V
+Vab = Vab * 10^3;// in mV
+// Vamd = (R + (Pr/(p+q+r)))/(R+S+(((p+q)*r)/(p+q+r)));
+Vamd = (R/(R+S))*Vab*10^-3;// in V
+Vamd = Vamd * 10^3;// in mV
+Vout = Vab - Vamd;//output voltage in mV
+Vout = Vout*10^-3;// in V
+disp(Vout,"The output voltage in V is");