16 files changed, 163 insertions, 0 deletions
diff --git a/995/CH4/EX4.1/Ex4_1.sce b/995/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..9948ba2c1
--- /dev/null
+++ b/995/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,12 @@
+//Ex:4.1
+clc;
+clear;
+close;
+V_m=20;//in volts
+f=50;//in Hz
+t1=2.5*10^-3;
+t2=15*10^-3;
+V1=V_m*sin(2*%pi*f*t1);
+V2=V_m*sin(2*%pi*f*t2);
+printf("Voltage at 2.5ms = %f V",V1);
+printf("\n Voltage at 15ms = %f V",V2);
+\ No newline at end of file
diff --git a/995/CH4/EX4.10/Ex4_10.sce b/995/CH4/EX4.10/Ex4_10.sce
new file mode 100755
index 000000000..c407cacd2
--- /dev/null
+++ b/995/CH4/EX4.10/Ex4_10.sce
@@ -0,0 +1,11 @@
+//Ex:4.10
+clc;
+clear;
+close;
+L=1*10^-3;
+f1=100;
+f2=10000;
+X_L1=(2*%pi*f1*L);
+X_L2=(2*%pi*f2*L);
+printf("Reactance at 100Hz = %f ohm",X_L1);
+printf("\nReactance at 10kHz = %f ohm",X_L2);
+\ No newline at end of file
diff --git a/995/CH4/EX4.11/Ex4_11.sce b/995/CH4/EX4.11/Ex4_11.sce
new file mode 100755
index 000000000..8077a4d83
--- /dev/null
+++ b/995/CH4/EX4.11/Ex4_11.sce
@@ -0,0 +1,13 @@
+//Ex:4.11
+clc;
+clear;
+close;
+C=2*10^-6;
+f=400;
+V=115;
+X_C=1/(2*%pi*f*C);
+r=199;
+z=sqrt(r^2+X_C^2);
+I_s=V/z;
+printf("Reactance = %f ohm",X_C);
+printf("\n Current = %f A",I_s);
+\ No newline at end of file
diff --git a/995/CH4/EX4.12/Ex4_12.sce b/995/CH4/EX4.12/Ex4_12.sce
new file mode 100755
index 000000000..ac0328b1c
--- /dev/null
+++ b/995/CH4/EX4.12/Ex4_12.sce
@@ -0,0 +1,13 @@
+//Ex:4.12
+clc;
+clear;
+close;
+L=150*10^-3;
+f=400;
+V=115;
+X_L=(2*%pi*f*L);
+r=250;
+z=sqrt(r^2+X_L^2);
+I_s=V/z;
+printf("Reactance = %f ohm",X_L);
+printf("\n Current = %f A",I_s)
+\ No newline at end of file
diff --git a/995/CH4/EX4.13/Ex4_13.sce b/995/CH4/EX4.13/Ex4_13.sce
new file mode 100755
index 000000000..6e97331f5
--- /dev/null
+++ b/995/CH4/EX4.13/Ex4_13.sce
@@ -0,0 +1,8 @@
+//Ex:4.13
+clc;
+clear;
+close;
+L=100*10^-3;
+f=400;
+C=(1/(4*%pi*%pi*f*f*L))*10^6;
+printf("Capacitance required = %f uF",C);
+\ No newline at end of file
diff --git a/995/CH4/EX4.14/Ex4_14.sce b/995/CH4/EX4.14/Ex4_14.sce
new file mode 100755
index 000000000..6e6771155
--- /dev/null
+++ b/995/CH4/EX4.14/Ex4_14.sce
@@ -0,0 +1,16 @@
+//Ex:4.14
+clc;
+clear;
+close;
+L=20*10^-3;
+f=2000;
+V=1.5;
+r=100;
+C=10*10^-9;
+X_L=(2*%pi*f*L);
+X_C=1/(2*%pi*f*C);
+z=sqrt(r^2+(X_L-X_C)^2);
+i=V/z;
+v=i*r;
+printf("Current supplied = %f mA",i);
+printf("\nVoltage developed = %f V",v);
+\ No newline at end of file
diff --git a/995/CH4/EX4.15/Ex4_15.sce b/995/CH4/EX4.15/Ex4_15.sce
new file mode 100755
index 000000000..e816e4f14
--- /dev/null
+++ b/995/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,9 @@
+//Ex:4.15
+clc;
+clear;
+close;
+N_s=120;
+V_p=220;
+N_p=2000;
+V_s=N_s*V_p/N_p;
+printf("Secondry voltage = %f V",V_s);
+\ No newline at end of file
diff --git a/995/CH4/EX4.16/Ex4_16.sce b/995/CH4/EX4.16/Ex4_16.sce
new file mode 100755
index 000000000..9706157f8
--- /dev/null
+++ b/995/CH4/EX4.16/Ex4_16.sce
@@ -0,0 +1,12 @@
+//Ex:4.16
+clc;
+clear;
+close;
+V_p=200;
+V_s=10;
+N_p=1200;
+N_s=N_p*V_s/V_p;
+i_s=2.5;
+i_p=N_s*i_s/N_p;
+printf("Secondry turns = %d ",N_s);
+printf("\nprimary current = %f A",i_p);
+\ No newline at end of file
diff --git a/995/CH4/EX4.2/Ex4_2.sce b/995/CH4/EX4.2/Ex4_2.sce
new file mode 100755
index 000000000..70dd8e66c
--- /dev/null
+++ b/995/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,7 @@
+//Ex:4.2
+clc;
+clear;
+close;
+f=400;//in Hz
+T=1/f;
+printf("Time period of %d Hz waveform = %f sec",f,T);
+\ No newline at end of file
diff --git a/995/CH4/EX4.3/Ex4_3.sce b/995/CH4/EX4.3/Ex4_3.sce
new file mode 100755
index 000000000..2118f5936
--- /dev/null
+++ b/995/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,7 @@
+//Ex:4.3
+clc;
+clear;
+close;
+T=40*10^-3;//in Hz
+f=1/T;
+printf("Frequency of 40 ms waveform = %f Hz",f);
+\ No newline at end of file
diff --git a/995/CH4/EX4.4/Ex4_4.sce b/995/CH4/EX4.4/Ex4_4.sce
new file mode 100755
index 000000000..98c9013e2
--- /dev/null
+++ b/995/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,7 @@
+//Ex:4.4
+clc;
+clear;
+close;
+V_rms=240;//in Volts
+V_pk=1.414*V_rms;
+printf("Peak voltage of %d V RMS voltage = %f V",V_rms,V_pk);
+\ No newline at end of file
diff --git a/995/CH4/EX4.5/Ex4_5.sce b/995/CH4/EX4.5/Ex4_5.sce
new file mode 100755
index 000000000..193fcb408
--- /dev/null
+++ b/995/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,7 @@
+//Ex:4.5
+clc;
+clear;
+close;
+I_pk=50*10^-3;//in Amps
+I_rms=0.353*I_pk;
+printf("RMS current of 50mA peak current = %f A",I_rms);
+\ No newline at end of file
diff --git a/995/CH4/EX4.6/Ex4_6.sce b/995/CH4/EX4.6/Ex4_6.sce
new file mode 100755
index 000000000..430ea5560
--- /dev/null
+++ b/995/CH4/EX4.6/Ex4_6.sce
@@ -0,0 +1,9 @@
+//Ex:4.6
+clc;
+clear;
+close;
+V=10;//pk-pk voltage
+r=1000;//ohms
+I_pk=V/r;//in Amps
+I_rms=0.353*I_pk*1000;//milliamps
+printf("RMS current of 10V peak-peak voltage = %f mA",I_rms);
+\ No newline at end of file
diff --git a/995/CH4/EX4.7/Ex4_7.sce b/995/CH4/EX4.7/Ex4_7.sce
new file mode 100755
index 000000000..225af7402
--- /dev/null
+++ b/995/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,11 @@
+//Ex:4.7
+clc;
+clear;
+close;
+c=1*10^-6;
+f1=100;
+f2=10000;
+X_c1=1/(2*%pi*f1*c);
+X_c2=1/(2*%pi*f2*c);
+printf("Reactance at 100Hz = %f mA",X_c1);
+printf("\n Reactance at 10kHz = %f mA",X_c2);
+\ No newline at end of file
diff --git a/995/CH4/EX4.8/Ex4_8.sce b/995/CH4/EX4.8/Ex4_8.sce
new file mode 100755
index 000000000..91c336d17
--- /dev/null
+++ b/995/CH4/EX4.8/Ex4_8.sce
@@ -0,0 +1,10 @@
+//Ex:4.8
+clc;
+clear;
+close;
+V=240;
+c=100*10^-9;
+f=50;
+X_c=1/(2*%pi*f*c);
+I_c=V/X_c;
+printf("Current flow = %f A",I_c);
+\ No newline at end of file
diff --git a/995/CH4/EX4.9/Ex4_9.sce b/995/CH4/EX4.9/Ex4_9.sce
new file mode 100755
index 000000000..2c4526190
--- /dev/null
+++ b/995/CH4/EX4.9/Ex4_9.sce
@@ -0,0 +1,11 @@
+//Ex:4.9
+clc;
+clear;
+close;
+L=1*10^-3;
+f1=100;
+f2=10000;
+X_L1=(2*%pi*f1*L);
+X_L2=(2*%pi*f2*L);
+printf("Reactance at 100Hz = %f ohm",X_L1);
+printf("\nReactance at 10kHz = %f ohm",X_L2);
+\ No newline at end of file