1 files changed, 19 insertions, 0 deletions
diff --git a/506/CH18/EX18.2.a/Example18_2a.sce b/506/CH18/EX18.2.a/Example18_2a.sce
new file mode 100755
index 000000000..fd29b87ad
--- /dev/null
+++ b/506/CH18/EX18.2.a/Example18_2a.sce
@@ -0,0 +1,19 @@
+clear;
+clc;
+
+//Caption:SCR half wave power control circuit
+//Given Data
+Vs=230;//in V
+Rl=200;//in ohm
+//Trigger is adjusted so that conduction starts after 60degree of start of cycle
+//Instantaneous Current il = (230*2^0.5*sin(a))/200
+
+// to find rms value
+xo = %pi/3;//lower limit of integration
+x1 = %pi;//upper limit of integration
+
+X = integrate('((230*(2^0.5)*sin(x))/200)^2','x',xo,x1);
+Irms = (X/(2*%pi))^0.5;
+disp('A',Irms,'Irms = ');
+
+//End
+\ No newline at end of file