18 files changed, 102 insertions, 0 deletions
diff --git a/620/CH15/EX15.1/example15_1.sce b/620/CH15/EX15.1/example15_1.sce
new file mode 100644
index 000000000..8f7de09f1
--- /dev/null
+++ b/620/CH15/EX15.1/example15_1.sce
@@ -0,0 +1,9 @@
+vm=5;
+f=1000;
+disp("Part a");
+w=2*%pi*f;
+disp("the angular frequency (in rad/s) is"); disp(w);
+disp("Part b");
+t=400*10^(-6);
+v=vm*sin(w*t);
+disp("the instantaneous voltage (in V) is"); disp(v);
+\ No newline at end of file
diff --git a/620/CH15/EX15.1/example15_1.txt b/620/CH15/EX15.1/example15_1.txt
new file mode 100644
index 000000000..1fd7b7cb0
--- /dev/null
+++ b/620/CH15/EX15.1/example15_1.txt
diff --git a/620/CH15/EX15.2/example15_2.sce b/620/CH15/EX15.2/example15_2.sce
new file mode 100644
index 000000000..f87026ae5
--- /dev/null
+++ b/620/CH15/EX15.2/example15_2.sce
@@ -0,0 +1,11 @@
+disp("Part a");
+disp("the amplitude of the voltage is 170 V");
+disp("Part b");
+disp("the peak voltage is 340 V");
+disp("Part c");
+disp("the angular frequency is 377 rad/s");
+w=377;
+f=w/(2*%pi);
+disp("the frequency (in Hz) is"); disp(f);
+t=1/f;
+disp("the period (in ms) is"); disp(t*1000);
+\ No newline at end of file
diff --git a/620/CH15/EX15.2/example15_2.txt b/620/CH15/EX15.2/example15_2.txt
new file mode 100644
index 000000000..ed4b3d77c
--- /dev/null
+++ b/620/CH15/EX15.2/example15_2.txt
diff --git a/620/CH15/EX15.3/example15_3.sce b/620/CH15/EX15.3/example15_3.sce
new file mode 100644
index 000000000..a832e3287
--- /dev/null
+++ b/620/CH15/EX15.3/example15_3.sce
@@ -0,0 +1,13 @@
+vp=8;
+vm=vp/2;
+r=2.2*10^3;
+t=2*10^(-3);
+disp("Part a");
+i=vm/r;
+disp("the peak value of the current (in mA) is"); disp(i*10^3);
+disp("Part b");
+f=1/t;
+disp("the frequency (in Hz) is"); disp(f);
+disp("Part c");
+w=2*%pi*f;
+disp("equation representing the current is i=1.82*sin(1000*π*t) mA.");
diff --git a/620/CH15/EX15.3/example15_3.txt b/620/CH15/EX15.3/example15_3.txt
new file mode 100644
index 000000000..319684779
--- /dev/null
+++ b/620/CH15/EX15.3/example15_3.txt
diff --git a/620/CH15/EX15.4/example15_4.sce b/620/CH15/EX15.4/example15_4.sce
new file mode 100644
index 000000000..3747dcd46
--- /dev/null
+++ b/620/CH15/EX15.4/example15_4.sce
@@ -0,0 +1,13 @@
+r=25;
+vm=50;
+w=800*%pi;
+disp("Part a");
+im=vm/r;
+pm=im^2*r;
+disp("Peak power dissipated (in W) in the resistoris"); disp(pm);
+disp("Part b");
+f=w/(2*%pi);
+disp("the frequency (in Hz) of power variation is"); disp(2*f);
+disp("Part c");
+pavg=pm/2;
+disp("the average power (in W) dissipated in the resistor is"); disp(pavg);
+\ No newline at end of file
diff --git a/620/CH15/EX15.4/example15_4.txt b/620/CH15/EX15.4/example15_4.txt
new file mode 100644
index 000000000..f6d59108c
--- /dev/null
+++ b/620/CH15/EX15.4/example15_4.txt
diff --git a/620/CH15/EX15.5/example15_5.sce b/620/CH15/EX15.5/example15_5.sce
new file mode 100644
index 000000000..52e860520
--- /dev/null
+++ b/620/CH15/EX15.5/example15_5.sce
@@ -0,0 +1,8 @@
+v=15;
+i=50*10^(-3);
+disp("Part a");
+r=v/i;
+disp("the resistance (in Ω) of R is"); disp(r);
+disp("Part b");
+p=v*i;
+disp("The average power dissipated (in mW) in R is"); disp(p*1000);
+\ No newline at end of file
diff --git a/620/CH15/EX15.5/example15_5.txt b/620/CH15/EX15.5/example15_5.txt
new file mode 100644
index 000000000..e86d9bf38
--- /dev/null
+++ b/620/CH15/EX15.5/example15_5.txt
diff --git a/620/CH15/EX15.6/example15_6.sce b/620/CH15/EX15.6/example15_6.sce
new file mode 100644
index 000000000..e1542ad4b
--- /dev/null
+++ b/620/CH15/EX15.6/example15_6.sce
@@ -0,0 +1,10 @@
+vm=170;
+w=377;
+r=33;
+disp("Part a");
+v=vm/sqrt(2);
+disp("the reading (in V) of an AC voltmeter is"); disp(v);
+disp("Part b");
+im=vm/r;
+i=im/sqrt(2);
+disp("the reading (in A) of the AC ammeter is"); disp(i);
+\ No newline at end of file
diff --git a/620/CH15/EX15.6/example15_6.txt b/620/CH15/EX15.6/example15_6.txt
new file mode 100644
index 000000000..a7192d586
--- /dev/null
+++ b/620/CH15/EX15.6/example15_6.txt
diff --git a/620/CH15/EX15.7/example15_7.sce b/620/CH15/EX15.7/example15_7.sce
new file mode 100644
index 000000000..5184be678
--- /dev/null
+++ b/620/CH15/EX15.7/example15_7.sce
@@ -0,0 +1,11 @@
+v=3.5;
+i=15;
+disp("Part a");
+vp=2*sqrt(2)*v;
+disp("the peak-to-peak voltage (in V) across the resistor is"); disp(vp);
+disp("Part b");
+im=sqrt(2)*i;
+disp("the peak current (in mA) throught the resistor is");disp(im);
+disp("Part c");
+r=v/(i/1000);
+disp("the resistance (in Ω) is"); disp(r);
+\ No newline at end of file
diff --git a/620/CH15/EX15.7/example15_7.txt b/620/CH15/EX15.7/example15_7.txt
new file mode 100644
index 000000000..378d2216f
--- /dev/null
+++ b/620/CH15/EX15.7/example15_7.txt
diff --git a/620/CH15/EX15.8/example15_8.sce b/620/CH15/EX15.8/example15_8.sce
new file mode 100644
index 000000000..591bfaa34
--- /dev/null
+++ b/620/CH15/EX15.8/example15_8.sce
@@ -0,0 +1,14 @@
+r1=3.3;
+r2=4.7;
+vp=36;
+disp("Part a");
+vt=vp/(2*sqrt(2));
+rt=r1+r2;
+i=vt/rt;
+disp("the reading of a series-connected ammeter (in mA) is"); disp(i);
+disp("Part b");
+v=vt*r2/(r1+r2);
+disp("voltage (in V) across the 4.7 kΩ resistor is"); disp(v);
+disp("Part c");
+p=i^2*r1;
+disp("power dissipated (in mW) in he 3.3kΩ resistor is"); disp(p);
+\ No newline at end of file
diff --git a/620/CH15/EX15.8/example15_8.txt b/620/CH15/EX15.8/example15_8.txt
new file mode 100644
index 000000000..5359df31d
--- /dev/null
+++ b/620/CH15/EX15.8/example15_8.txt
diff --git a/620/CH15/EX15.9/example15_9.sce b/620/CH15/EX15.9/example15_9.sce
new file mode 100644
index 000000000..4b5f0a59f
--- /dev/null
+++ b/620/CH15/EX15.9/example15_9.sce
@@ -0,0 +1,13 @@
+r1=4.7;
+r2=3.3;
+i=50;
+disp("Part a");
+i2=i*r1/(r1+r2);
+disp("current (in mA) in the 3.3 kΩ resistor is"); disp(i2);
+disp("Part b");
+v=i2*r2;
+vp=2*sqrt(2)*v;
+disp("peak-o-peak voltage (in V) indicated by an oscilloscope across the source is");disp(vp);
+disp("Part c");
+p=v*i/1000;
+disp("the totalpower dissipation (in W) in the two resistors is");disp(p);
+\ No newline at end of file
diff --git a/620/CH15/EX15.9/example15_9.txt b/620/CH15/EX15.9/example15_9.txt
new file mode 100644
index 000000000..45c196bc2
--- /dev/null
+++ b/620/CH15/EX15.9/example15_9.txt