1 files changed, 67 insertions, 0 deletions
diff --git a/1964/CH4/EX4.1/ex4_1.sce b/1964/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..50a552548
--- /dev/null
+++ b/1964/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,67 @@
+//Chapter-4, Example 4.1, Page 126
+//=============================================================================
+clc
+clear
+//CALCULATIONS
+//for WAVEFORM 1
+//Average Value
+b1=2;
+h1=5;
+area1=0.5*b1*h1;//area under one complete cycle(area of a triangle)
+av0=area1/2;//average value
+//rms value
+area2=0.33*(h1)^2*b1;
+rms=sqrt(area2/b1);//rms value
+//form factor
+ff=rms/av0;//form factor
+//peak factor
+Kp=h1/rms;//peak factor
+mprintf("WAVEFORM 1\n");
+mprintf("average value=%1.1f amps,rms value=%1.3f amps,formfactor=%1.3f ,peak factor=%1.3f\n",av0,rms,ff,Kp);
+//for WAVEFORM 2
+//Average Value
+T=1;//assuming time period is 1
+h2=100;
+h3=-50;
+area3=(h2+h3)*(T/2);//area under one complete cycle(area of a rectangle)
+av=area3/T;//average value
+//rms value
+area_under_squared_curve=((h2)^2+(h3)^2)*(T/2);
+rms1=sqrt(area_under_squared_curve/T);//rms value
+//form factor
+ff1=rms1/av;//form factor
+//peak factor
+Kp1=h2/rms1;//peak factor
+mprintf("WAVEFORM 2\n");
+mprintf("average value=%d volts,rms value=%2.3f volt,formfactor=%1.2f ,peak factor=%1.2f\n",av,rms1,ff1,Kp1);
+//for WAVEFORM 3
+//Average Value
+Vm=1;//assuming mean voltage is 1
+a1=0.5*Vm*(%pi/3);//area of the triangle from 0 to (pi/3)
+a2=Vm*(%pi/3);//area of the rectangle for period (pi/3) to (2*pi/3)
+a3=0.5*Vm*(%pi/3);//area of the triangle from (2*pi/3) to pi
+a=a1+a2+a3;
+av2=(a/%pi);//average value
+//rms value
+area_under_squared_curv2=((Vm)^2*(%pi/3)*(5/3))
+rms2=sqrt(area_under_squared_curv2/(%pi));//rms value
+//form factor
+ff2=rms2/av2;//form factor
+//peak factor
+Kp2=Vm/rms2;//peak factor
+mprintf("WAVEFORM 3\n");
+mprintf("average value=%1.3f volts,rms value=%1.3f volt,formfactor=%1.2f ,peak factor=%1.3f\n",av2,rms2,ff2,Kp2);
+//for WAVEFORM 4
+//Average Value
+T2=1;//let timeperiod=1
+av3=(100*(T2/2))/(T2/2);//average
+//rms value
+area_under_squared_curv3=((100)^2*(T2/2));
+rms3=sqrt((area_under_squared_curv3)/(T2/2));//rms value
+//form factor
+ff3=rms3/av3;//form factor
+//peak factor
+Kp3=100/rms3;//peak factor
+mprintf("WAVEFORM 4\n");
+mprintf("average value=%d volts,rms value=%d volt,formfactor=%d ,peak factor=%d\n",av3,rms3,ff3,Kp3);
+//=================================END OF PROGRAM==============================