1 files changed, 14 insertions, 0 deletions
diff --git a/2231/CH1/EX1.31/Ex_1_31.sce b/2231/CH1/EX1.31/Ex_1_31.sce
new file mode 100755
index 000000000..a58d37a45
--- /dev/null
+++ b/2231/CH1/EX1.31/Ex_1_31.sce
@@ -0,0 +1,14 @@
+//Example 1_31
+clc;
+clear;close;
+
+//Given data: 
+R=0.8;//ohm
+L=10*10^-6;//H
+C=50*10^-6;//F
+//R<sqrt(4*L/C)
+Rupper=sqrt(4*L/C);//ohm
+disp("Maximum value of R should be "+string(Rupper)+" ohm")
+disp("Given value of R is "+string(R)+" ohm. The circuit is underdamped.")
+t0=%pi/sqrt(1/L/C-R^2/4/L^2);//s
+disp(t0,"Time of conduction of thyristor in seconds")