1 files changed, 16 insertions, 0 deletions
diff --git a/3845/CH21/EX21.7/Ex21_7.sce b/3845/CH21/EX21.7/Ex21_7.sce
new file mode 100644
index 000000000..fcaa73b19
--- /dev/null
+++ b/3845/CH21/EX21.7/Ex21_7.sce
@@ -0,0 +1,16 @@
+//Example 21.7
+R=1*10^3;//Resistance (ohm)
+C=8*10^-6;//Capacitance (F)
+tau=R*C;//Time constant (s)
+printf('a.Time constant tau = %0.2f ms',tau*1000)
+V_0=10*10^3;//Intial voltage (V)
+V_f=5*10^2;//Final voltage (V)
+V=0.368*V_0;//Voltage falls to 0.368 of V_0 after 8ms (V)
+T=8*10^-3;//Time (s)
+while V>V_f
+    V=0.368*V;
+    T=T+8*10^-3;
+end//To find the time taken for voltage to decline to V_f
+printf('\nb.Time taken = %0.1f ms',T*1000)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest