summaryrefslogtreecommitdiff
path: root/3775/CH2/EX2.4/Ex2_4.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3775/CH2/EX2.4/Ex2_4.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 '3775/CH2/EX2.4/Ex2_4.sce')
-rw-r--r--3775/CH2/EX2.4/Ex2_4.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/3775/CH2/EX2.4/Ex2_4.sce b/3775/CH2/EX2.4/Ex2_4.sce
new file mode 100644
index 000000000..949b80064
--- /dev/null
+++ b/3775/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,23 @@
+//Ex 2.4 page 68
+
+clc;
+clear;
+close;
+
+// VG=0.5+8*IG -- eqn(1)
+f=400; // Hz
+delta=0.1 ; // (Duty Cycle)
+P=0.5;//W
+VS=12;// V
+
+Tp=1/f*10**6;// us
+// P= VG*IG -- eqn(2)
+// solving eqn 1 and 2
+//8*IG*IG**2+0.5*IG-P=0
+p=[8, 0.5, -P] // polynomial for IG
+IG=roots(p) ;// A
+IG=IG(2) ;// A (discarding -ve value)
+VG=0.5+8*IG;// V
+// VS=VG+IG*RS
+RS=(VS-VG)/IG
+printf('Value of resistance to be added in series = %.2f ohm',RS)