1 files changed, 19 insertions, 0 deletions
diff --git a/620/CH28/EX28.2/example28_2.sce b/620/CH28/EX28.2/example28_2.sce
new file mode 100644
index 000000000..f9b07d9a8
--- /dev/null
+++ b/620/CH28/EX28.2/example28_2.sce
@@ -0,0 +1,19 @@
+p=60;
+v=120;
+f=60;
+disp("Part a");
+r=v^2/p;
+disp("the normal hot resistance (in Ω) is"); disp(r);
+disp("Part b");
+vrms=v/sqrt(2);
+disp("the r.m.s. voltage (in V) is"); disp(vrms);
+disp("Part c");
+v1=85;
+r1=r*v1/v;
+disp("the resistance (in Ω) of the lamp is"); disp(r1);
+disp("Part d");
+prms=vrms^2/r1;
+disp("the r.m.s. power delivered to the lamp (in W) is"); disp(prms);
+disp("Part e");
+piv=v*sqrt(2);
+disp("the peak inverse voltage (in V) is"); disp(piv);
+\ No newline at end of file