1 files changed, 23 insertions, 0 deletions
diff --git a/2075/CH8/EX8.4/pe8_4.sce b/2075/CH8/EX8.4/pe8_4.sce
new file mode 100755
index 000000000..769dd40b7
--- /dev/null
+++ b/2075/CH8/EX8.4/pe8_4.sce
@@ -0,0 +1,23 @@
+//example 8.4
+clc;funcprot(0);
+//Initialization of Variable
+V=220;//line voltage
+f=50;//hertz
+R=80;//load resistance
+K=75;//dv/dt
+Vd=400;//DRM voltage
+pi=3.1428
+//calculation
+C=Vd/R/K;
+disp(C,"minimum value of capacitor in micfoF:")
+printf('\nchoose C=.1 micoF')
+C1=.1;
+Z=1/(2*pi*f*C1);
+disp(Z*1000,"capacitor impedence at angle -90degree in ohm:")
+Iload=V/1000/(-Z*cos(180*pi/180)+R*round(cos(90*pi/180)));
+disp(Iload,"Load current in mA at an angle 90 degrees :");
+Vload=Iload/1000*R;
+disp(Vload,"Potential drop in V at an angle 90 degrees :")
+P=Vload*Iload;
+disp(int(P),"Power dissipated in mW :")
+clear()