summaryrefslogtreecommitdiff
path: root/3754/CH21/EX21.1/21_1.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3754/CH21/EX21.1/21_1.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3754/CH21/EX21.1/21_1.sce')
-rw-r--r--3754/CH21/EX21.1/21_1.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/3754/CH21/EX21.1/21_1.sce b/3754/CH21/EX21.1/21_1.sce
new file mode 100644
index 000000000..784037c28
--- /dev/null
+++ b/3754/CH21/EX21.1/21_1.sce
@@ -0,0 +1,22 @@
+clear//
+
+//Variables
+
+RL = 100.0 //Resistance (in ohm)
+Vm = 300.0 //Maximum voltage (in volts)
+P1 = 25.0 //Load power1 (in watt)
+P2 = 80.0 //Load power2 (in watt)
+
+//Calculation
+
+Vdc = Vm / (2 * %pi) //dc voltage (in volts)
+//When power is 25 watt
+cosinealpha = (P1 * RL / Vdc**2)**0.5 -1 //cos of alpha
+alpha = acos(cosinealpha) //Value of alpha (in radians)
+
+//When power is 80 watt
+cosinealpha1 = (P2 * RL / Vdc**2)**0.5 -1 //cos of alpha
+alpha1 = acos(cosinealpha1) //Value of alpha (in radians)
+//Result
+
+printf("\n Angular firing control when load power P = 25 W is %0.2f degree.\nAngular firing control when load power P = 80 W is %0.2f degree.",alpha*180.0/%pi,alpha1*180.0/%pi)