From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2231/CH1/EX1.30/Ex_1_30.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 2231/CH1/EX1.30/Ex_1_30.sce

(limited to '2231/CH1/EX1.30')

diff --git a/2231/CH1/EX1.30/Ex_1_30.sce b/2231/CH1/EX1.30/Ex_1_30.sce
new file mode 100755
index 000000000..d7676e5e6
--- /dev/null
+++ b/2231/CH1/EX1.30/Ex_1_30.sce
@@ -0,0 +1,28 @@
+//Example 1_30
+clc;
+clear;close;
+
+//Given data: 
+Vs=230;//V
+R=1000:22000;//ohm
+Vg=2;//V
+C=0.47*10^-6;//F
+f=50;//Hz
+Xc=1/(2*%pi*f*C);//ohm
+//When R=1000 ohm
+theta=atand(min(R)/Xc);//degree
+Z=min(R)-%i*Xc;//ohm
+I=Vs/Z;//A
+Vc=-%i*I*Xc;//V
+//vc=sqrt(2)*abs(Vc)*sind(omega_t+atand(imag(Vc),real(Vc)))
+omega_t=asind(Vg/sqrt(2)/abs(Vc))-atand(imag(Vc),real(Vc));//degree
+alfa1=omega_t;//degree
+//When R=22000 ohm
+Z=max(R)-%i*Xc;//ohm
+I=Vs/Z;//A
+Vc=-%i*I*Xc;//V
+//vc=sqrt(2)*abs(Vc)*sind(omega_t+atand(imag(Vc),real(Vc)))
+omega_t=asind(Vg/sqrt(2)/abs(Vc))-atand(imag(Vc),real(Vc));//degree
+alfa2=omega_t;//degree
+disp(alfa1,"Minimum firing angle in degree")
+disp(alfa2,"Maximum firing angle in degree")
-- 
cgit