5 files changed, 58 insertions, 0 deletions
diff --git a/226/CH21/EX21.1/example1_sce.sce b/226/CH21/EX21.1/example1_sce.sce
new file mode 100755
index 000000000..9f083109c
--- /dev/null
+++ b/226/CH21/EX21.1/example1_sce.sce
@@ -0,0 +1,9 @@
+//chapter 21
+//example 21.1
+//page 947
+printf("\n")
+printf("given")
+r=3;Os=25;area=.25;
+Ea=Os/(4*3.14*(r)^2)
+Tf=Ea*area;
+printf(" total flux is %3.3fW\n",Tf)
+\ No newline at end of file
diff --git a/226/CH21/EX21.3/example3_sce.sce b/226/CH21/EX21.3/example3_sce.sce
new file mode 100755
index 000000000..363cdf072
--- /dev/null
+++ b/226/CH21/EX21.3/example3_sce.sce
@@ -0,0 +1,11 @@
+//chapter 21
+//example 21.3
+//page 951
+printf("\n")
+printf("given")
+Vcc=9;Vf=1.6;Vb=7;hFE=100;Vce=.2;Ic=10*10^-3;Vbe=.7;
+R2=(Vcc-Vf-Vce)/Ic
+R2=680;//use standard value
+Ic=(Vcc-Vf-Vce)/R2
+Ib=Ic/hFE
+Rb=(Vb-Vbe)/Ib
+\ No newline at end of file
diff --git a/226/CH21/EX21.4/example4_sce.sce b/226/CH21/EX21.4/example4_sce.sce
new file mode 100755
index 000000000..6b6788488
--- /dev/null
+++ b/226/CH21/EX21.4/example4_sce.sce
@@ -0,0 +1,9 @@
+//chapter 21
+//example 21.4
+//page 952
+printf("\n")
+printf("given")
+Vcc=5;
+N=(3*7)+(1*2)
+It=N*10*10^-3
+P=It*Vcc
+\ No newline at end of file
diff --git a/226/CH21/EX21.5/example5_sce.sce b/226/CH21/EX21.5/example5_sce.sce
new file mode 100755
index 000000000..97999bb3a
--- /dev/null
+++ b/226/CH21/EX21.5/example5_sce.sce
@@ -0,0 +1,11 @@
+//chapter 21
+//example 21.5
+//page 957
+printf("\n")
+printf("given")
+Rc=1*10^3;I=10*10^-3;E=30;
+R1=E/I -Rc
+R1=1.8*10^3;//use standard value
+disp(" when dark Rc=100Kohm")
+Rc=100*10^3;
+I=E/(R1+Rc)
+\ No newline at end of file
diff --git a/226/CH21/EX21.6/example6_sce.sce b/226/CH21/EX21.6/example6_sce.sce
new file mode 100755
index 000000000..80e0ad0a4
--- /dev/null
+++ b/226/CH21/EX21.6/example6_sce.sce
@@ -0,0 +1,18 @@
+//chapter 21
+//example 21.6
+//page 958
+printf("\n")
+printf("given")
+Vee=6;Vbe=.7;Ib=200*10^-6;Vb=.7;Vcc=6;
+disp("when cell is dark Rc=100Kohm")
+Rc=100*10^3;
+Vrc=Vee+Vbe
+Irc=Vrc/Rc
+Ir1=Irc+Ib
+Vr1=Vcc-Vb
+R1=Vr1/Ir1
+R1=18*10^3;//use standard value
+disp(" when Q1 is off")
+Vr1=6;Vrc=6;
+Ir1=Vr1/R1
+Rc=Vrc/Ir1
+\ No newline at end of file