summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.32/ch2_ex_32.sce
diff options
context:
space:
mode:
Diffstat (limited to '1445/CH2/EX2.32/ch2_ex_32.sce')
-rw-r--r--1445/CH2/EX2.32/ch2_ex_32.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/1445/CH2/EX2.32/ch2_ex_32.sce b/1445/CH2/EX2.32/ch2_ex_32.sce
new file mode 100644
index 000000000..326b61017
--- /dev/null
+++ b/1445/CH2/EX2.32/ch2_ex_32.sce
@@ -0,0 +1,23 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 32 // read it as example 31 in the book on page 2.85
+
+disp("CHAPTER 2");
+disp("EXAMPLE 32");
+
+//VARIABLE INITIALIZATION
+//function of the waveform is deduced to be i=Im.sinΘ
+//SOLUTION
+//Iav=(1/2.π).Integral(ydΘ) from 0 to π, and π to 2.π is zero, interval is 2.π
+//
+//say
+Im=1; // in Amp
+Iav=(1/(2*%pi))*integrate('(Im*sin(th))', 'th', 0, %pi);
+//disp(sprintf("The average value of waveform is %f", Iav));
+//RMS mean square value (1/π).Integral(y^2.dΘ) from 0 to π
+Ims=(1/(2*%pi))*integrate('(Im*sin(th))^2', 'th', 0, %pi);
+//disp(sprintf("The RMS value of waveform is %f", sqrt(Ims)));
+ff=sqrt(Ims)/Iav;
+disp(sprintf("The form factor of waveform is %f",ff));
+disp(" ");
+//
+//END