14 files changed, 81 insertions, 0 deletions
diff --git a/620/CH4/EX4.1/example4_1.sce b/620/CH4/EX4.1/example4_1.sce
new file mode 100644
index 000000000..aad6ae195
--- /dev/null
+++ b/620/CH4/EX4.1/example4_1.sce
@@ -0,0 +1,11 @@
+disp("Part a");
+l=100;
+d=2*10^(-3);
+ro=1.72*10^(-8);
+a=%pi*(d^2)/4;
+r=ro*l/a;
+disp("the resistance (in Ω) of copper wire is"); disp(r);
+disp("Part b");
+ro1=2.63*10^(-8);
+r1=r*ro1/ro;
+disp("the resistance (in Ω) of aluminium wire is"); disp(r1);
+\ No newline at end of file
diff --git a/620/CH4/EX4.1/example4_1.txt b/620/CH4/EX4.1/example4_1.txt
new file mode 100644
index 000000000..7c1f4dd3c
--- /dev/null
+++ b/620/CH4/EX4.1/example4_1.txt
diff --git a/620/CH4/EX4.2/example4_2.sce b/620/CH4/EX4.2/example4_2.sce
new file mode 100644
index 000000000..52592300b
--- /dev/null
+++ b/620/CH4/EX4.2/example4_2.sce
@@ -0,0 +1,6 @@
+r=10;
+ro=5.5*10^(-8);
+l=3*10^(-2);
+a=ro*l/r;
+d=sqrt(4*a/%pi);
+disp("the diameter (in mm) is"); disp(d*10^3);
+\ No newline at end of file
diff --git a/620/CH4/EX4.2/example4_2.txt b/620/CH4/EX4.2/example4_2.txt
new file mode 100644
index 000000000..051cc5439
--- /dev/null
+++ b/620/CH4/EX4.2/example4_2.txt
diff --git a/620/CH4/EX4.3/example4_3.sce b/620/CH4/EX4.3/example4_3.sce
new file mode 100644
index 000000000..38763fb6c
--- /dev/null
+++ b/620/CH4/EX4.3/example4_3.sce
@@ -0,0 +1,12 @@
+disp("Part a");
+d=64.1;
+a=d^2;
+disp("the circular mil area is"); disp(a);
+disp("Part b");
+l=150;
+r1=2.52/1000;
+r=r1*l;
+disp("the resistance value (in Ω) is"); disp(r);
+disp("Part c");
+r2=r/4;
+disp("the resistance (in Ω) of no.8 gauge wire is"); disp(r2);
+\ No newline at end of file
diff --git a/620/CH4/EX4.3/example4_3.txt b/620/CH4/EX4.3/example4_3.txt
new file mode 100644
index 000000000..e4f13374d
--- /dev/null
+++ b/620/CH4/EX4.3/example4_3.txt
diff --git a/620/CH4/EX4.4/example4_4.sce b/620/CH4/EX4.4/example4_4.sce
new file mode 100644
index 000000000..cc6455ef6
--- /dev/null
+++ b/620/CH4/EX4.4/example4_4.sce
@@ -0,0 +1,17 @@
+disp("Part a");
+th=0.01*10^(-2);
+bdv=20/10^(-3);
+v=bdv*th;
+disp("the following potential differnce (in V) will puncture the sheet of paper");
+disp(v);
+disp("Part b");
+v1=600;
+bdv1=16*10^3;
+th1=v1/bdv1;
+disp("the minimum thickness (in mm) is"); disp(th1);
+disp("Part c");
+th2=5;
+f=2
+v2=250;
+bdv2=f*v2/th2;
+disp("the minimum breakdown voltage (in kV/mm) required is"); disp(bdv2);
+\ No newline at end of file
diff --git a/620/CH4/EX4.4/example4_4.txt b/620/CH4/EX4.4/example4_4.txt
new file mode 100644
index 000000000..690290bab
--- /dev/null
+++ b/620/CH4/EX4.4/example4_4.txt
diff --git a/620/CH4/EX4.5/example4_5.sce b/620/CH4/EX4.5/example4_5.sce
new file mode 100644
index 000000000..0bc0fa542
--- /dev/null
+++ b/620/CH4/EX4.5/example4_5.sce
@@ -0,0 +1,17 @@
+disp("Part a");
+r1=0.511;
+l=10;
+r=r1*l;
+T_C1=20;
+disp("the resistance (in Ω) at 20 °C is"); disp(r);
+disp("Part b");
+T_F2=100;
+T_C2=(T_F2-32)*5/9;
+a_1=0.00393;
+r2=r*(1+a_1*(T_C2-T_C1));
+disp("the resistance (in Ω) at 100 °F is"); disp(r2);
+disp("Part c");
+T_F3=-40;
+T_C3=(T_F3-32)*5/9;
+r3=r*(1+a_1*(T_C3-T_C1));
+disp("the resistance (in Ω) at -40 °F is"); disp(r3);
+\ No newline at end of file
diff --git a/620/CH4/EX4.5/example4_5.txt b/620/CH4/EX4.5/example4_5.txt
new file mode 100644
index 000000000..880647b5c
--- /dev/null
+++ b/620/CH4/EX4.5/example4_5.txt
diff --git a/620/CH4/EX4.6/example4_6.sce b/620/CH4/EX4.6/example4_6.sce
new file mode 100644
index 000000000..0ce5c6f03
--- /dev/null
+++ b/620/CH4/EX4.6/example4_6.sce
@@ -0,0 +1,6 @@
+r1=10;
+r2=144;
+a_1=0.0045;
+T1=20;
+T2=(r2/r1-1)/a_1+T1;
+disp("the temperature (in  °C) of the hot filament is"); disp(T2);
+\ No newline at end of file
diff --git a/620/CH4/EX4.6/example4_6.txt b/620/CH4/EX4.6/example4_6.txt
new file mode 100644
index 000000000..7504d4fa6
--- /dev/null
+++ b/620/CH4/EX4.6/example4_6.txt
diff --git a/620/CH4/EX4.7/example4_7.sce b/620/CH4/EX4.7/example4_7.sce
new file mode 100644
index 000000000..9bb652975
--- /dev/null
+++ b/620/CH4/EX4.7/example4_7.sce
@@ -0,0 +1,12 @@
+disp("Part a");
+v=120;
+p=60;
+r=18;
+i=v/r;
+disp("the initial inrush of current (in A) is"); disp(i);
+disp("Part b");
+i1=p/v;
+disp("the steady operating current (in A) is"); disp(i1);
+disp("Part c");
+r1=v/i1;
+disp("the hot resistance (in Ω) of the lamp is"); disp(r1);
+\ No newline at end of file
diff --git a/620/CH4/EX4.7/example4_7.txt b/620/CH4/EX4.7/example4_7.txt
new file mode 100644
index 000000000..e66afdfd6
--- /dev/null
+++ b/620/CH4/EX4.7/example4_7.txt