1 files changed, 20 insertions, 0 deletions
diff --git a/620/CH24/EX24.4/example24_4.sce b/620/CH24/EX24.4/example24_4.sce
new file mode 100644
index 000000000..2b163b0cd
--- /dev/null
+++ b/620/CH24/EX24.4/example24_4.sce
@@ -0,0 +1,20 @@
+r=2200;
+f=60;
+i=0.015;
+vp=60;
+disp("Part a");
+vr=i*r;
+disp("the reading of voltmeter (in V) across the resistor is"); disp(vr);
+disp("Part b");
+vc=vp/(2*sqrt(2));
+disp("the r.m.s. voltage (in V) across the capacitor is"); disp(vc);
+disp("Part c");
+v=sqrt(vr^2+vc^2);
+disp("the applied voltage (in V) is"); disp(v);
+disp("Part d");
+deg=-atan(vc/vr)*180/%pi;
+disp("the phase angle (in deg) between current and applied voltage is"); disp(deg);
+disp("Part f");
+x_c=vc/i;
+c=1/(2*%pi*f*x_c);
+disp("the capacitance (in μF) is"); disp(c*10^6);
+\ No newline at end of file