17 files changed, 145 insertions, 0 deletions
diff --git a/3673/CH4/EX4.2/Ex4_2.sce b/3673/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..804d03d27
--- /dev/null
+++ b/3673/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,5 @@
+//Example 4_2 page no:166
+clc
+T=20*10^-3;//time in millisecond
+f=1/T;
+disp(f,"frequency (in Hz)")
diff --git a/3673/CH4/EX4.3/Ex4_3.sce b/3673/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..8fb4ff879
--- /dev/null
+++ b/3673/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,6 @@
+//Example 4_3 page no:166
+clc
+f=30;//frequency
+T=1/f;
+T=T*10^3//converting to millisecond
+disp(T,"Time (millisecond)")
diff --git a/3673/CH4/EX4.5/Ex4_5.sce b/3673/CH4/EX4.5/Ex4_5.sce
new file mode 100644
index 000000000..93439ab10
--- /dev/null
+++ b/3673/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,6 @@
+//Example 4_5 page no:169
+clc
+v=10*sin(%pi/2)
+disp(v,"1) Instantaneous voltage at 90 degree for first wave (volt)");
+v=8*sin(%pi/4)
+disp(v,"2) Instantaneous voltage at 90 degree for second wave(volt)");//text book value is rounded to two digit
diff --git a/3673/CH4/EX4.7/Ex4_7.sce b/3673/CH4/EX4.7/Ex4_7.sce
new file mode 100644
index 000000000..354459e8b
--- /dev/null
+++ b/3673/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,6 @@
+//Example 4_7 page no:172
+clc
+I1=20;//direct current in conductor(in amps)
+I2=20;//sinusoidal peak current in conductor (in amps)
+ret_current=sqrt((20^2+(20^2/2)))
+disp(ret_current,"The resultant current in conductor is(A)")//in text book value is rounded to 2 digits
diff --git a/3673/CH4/EX4.a.1/Example_a_4_1.sce b/3673/CH4/EX4.a.1/Example_a_4_1.sce
new file mode 100644
index 000000000..94df13bda
--- /dev/null
+++ b/3673/CH4/EX4.a.1/Example_a_4_1.sce
@@ -0,0 +1,14 @@
+//Example_a_4_1 page no:175
+clc;
+V2=100-50-20;
+V5=100-50;
+V2ohm=sqrt(2)*30;
+V5ohm=sqrt(2)*50;
+Va2ohm=V2ohm*0.637;
+Va5ohm=V5ohm*0.637;
+disp(V2,"the voltage across 2 ohm resistor is (in V)");
+disp(V5,"the voltage across 5 ohm resistor is (in V)");
+disp(V2ohm,"peak value of voltage across 2 ohm resistor is (in V)");
+disp(V5ohm,"peak value of voltage across 5 ohm resistor is (in V)");
+disp(Va2ohm,"average value across 2 ohm resistor is (in V)");
+disp(Va5ohm,"average value across 5 ohm resistor is (in V)");
diff --git a/3673/CH4/EX4.a.10/Example_a_4_10.sce b/3673/CH4/EX4.a.10/Example_a_4_10.sce
new file mode 100644
index 000000000..f530ecacd
--- /dev/null
+++ b/3673/CH4/EX4.a.10/Example_a_4_10.sce
@@ -0,0 +1,9 @@
+//Example_a_4_10 page no:179
+clc;
+Vrms=5;
+f=5*1000;
+C=0.01*10^-6;
+Xc=1/(2*%pi*f*C);
+Irms=Vrms/Xc;
+Irms=Irms*1000;//converting to mA
+disp(Irms,"the rms current in the circuit is (in mA)");
diff --git a/3673/CH4/EX4.a.11/Example_a_4_11.sce b/3673/CH4/EX4.a.11/Example_a_4_11.sce
new file mode 100644
index 000000000..49aac6162
--- /dev/null
+++ b/3673/CH4/EX4.a.11/Example_a_4_11.sce
@@ -0,0 +1,6 @@
+//Example_a_4_11 page no:180
+clc;
+f=3*10^3;
+L=2*10^-3;
+Xl=2*%pi*f*L;
+disp(Xl,"the inductive reactance is (in ohm)");
diff --git a/3673/CH4/EX4.a.12/Example_a_4_12.sce b/3673/CH4/EX4.a.12/Example_a_4_12.sce
new file mode 100644
index 000000000..a1f3cbc27
--- /dev/null
+++ b/3673/CH4/EX4.a.12/Example_a_4_12.sce
@@ -0,0 +1,9 @@
+//Example_a_4_12 page no:180
+clc;
+f=10*10^3;
+Vrms=10;
+L=50*10^-3;
+Xl=2*%pi*f*L;
+Irms=Vrms/Xl;
+Irms=Irms*1000;//converting to mA
+disp(Irms,"the rms current is (in mA)");
diff --git a/3673/CH4/EX4.a.13/Example_a_4_13.sce b/3673/CH4/EX4.a.13/Example_a_4_13.sce
new file mode 100644
index 000000000..06d54fc39
--- /dev/null
+++ b/3673/CH4/EX4.a.13/Example_a_4_13.sce
@@ -0,0 +1,12 @@
+//Example_a_4_13 page no:180
+clc;
+//here Vm is assumed to be one hence it will be canceled in the calculation and also a variable without initializing cannot be used
+x0=0;
+x1=%pi;
+Vav=(1/(2*%pi))*(integrate('sin(x)','x',x0,x1));
+x0=0;
+x1=%pi;
+Vrms=sqrt((1/(2*%pi))*(integrate('sin(x)^2','x',x0,x1)));
+form_factor=Vrms/Vav;
+disp(form_factor,"the form factor is ");
+//the form factor differs slightly hence values are rounded off in text book
diff --git a/3673/CH4/EX4.a.15/Example_a_4_15.sce b/3673/CH4/EX4.a.15/Example_a_4_15.sce
new file mode 100644
index 000000000..ef4bf0b7c
--- /dev/null
+++ b/3673/CH4/EX4.a.15/Example_a_4_15.sce
@@ -0,0 +1,8 @@
+//Example_a_4_15 page no:181
+clc;
+x0=0;
+x1=%pi;
+Vav=5*(1/%pi)*(integrate('sin(wt)','wt',x0,x1));
+rms=sqrt(5^2*(1/%pi)*(integrate('sin(wt)^2','wt',x0,x1)));
+disp(Vav,"the average value is ");
+disp(rms,"the effective value of rms is ");
diff --git a/3673/CH4/EX4.a.16/Example_a_4_16.sce b/3673/CH4/EX4.a.16/Example_a_4_16.sce
new file mode 100644
index 000000000..bc4ca5915
--- /dev/null
+++ b/3673/CH4/EX4.a.16/Example_a_4_16.sce
@@ -0,0 +1,8 @@
+//Example_a_4_16 page no:182
+clc;
+x0=(%pi/3);
+x1=%pi;
+Vav=10*(1/%pi)*(integrate('sin(wt)','wt',x0,x1));
+Vrms=sqrt(10^2*(1/%pi)*(integrate('sin(wt)^2','wt',x0,x1)));
+disp(Vav,"the average value Vav is (in V)");
+disp(Vrms,"the effective value Vrms is (in V)");
diff --git a/3673/CH4/EX4.a.17/Example_a_4_17.sce b/3673/CH4/EX4.a.17/Example_a_4_17.sce
new file mode 100644
index 000000000..a81fa267f
--- /dev/null
+++ b/3673/CH4/EX4.a.17/Example_a_4_17.sce
@@ -0,0 +1,10 @@
+//Example_a_4_17 page no:182
+clc;
+P=0.03;
+x0=0;
+x1=0.01;
+Vav=(1/P)*((20*x1)-(20*x0));
+Veff=sqrt((1/P)*(20^2*x1));
+form_factor=Veff/Vav;
+disp(form_factor,"the form factor is");
+//in textbook calculation of Veff is wrong so the form factor value varies in textbook
diff --git a/3673/CH4/EX4.a.2/Example_a_4_2.sce b/3673/CH4/EX4.a.2/Example_a_4_2.sce
new file mode 100644
index 000000000..350658f5b
--- /dev/null
+++ b/3673/CH4/EX4.a.2/Example_a_4_2.sce
@@ -0,0 +1,10 @@
+//Example_a_4_2 page no:176
+clc;
+Ip=10;//peak value of current form the current equation(in milliAmpere)
+Irms=Ip/sqrt(2);
+Ipp=2*Ip;
+Iav=Ip*0.637;
+disp(Ip,"the peak value of current is (in mA)");
+disp(Irms,"the rms value of current is (in mA)");
+disp(Ipp,"the peak to peak value of current is (in mA)");
+disp(Iav,"the average value of current is (in mA)");
diff --git a/3673/CH4/EX4.a.4/Example_a_4_4.sce b/3673/CH4/EX4.a.4/Example_a_4_4.sce
new file mode 100644
index 000000000..d8cc09b0e
--- /dev/null
+++ b/3673/CH4/EX4.a.4/Example_a_4_4.sce
@@ -0,0 +1,15 @@
+//Example_a_4_4 page no:177
+clc;
+Irms=20;
+f=50;
+Im=sqrt(2)*Irms;
+//at t=0.0025s
+t1=0.0025;
+i_t1=Im*cos(2*%pi*f*t1);
+disp(i_t1,"the current at 0.0025s is (in A)");
+//at t=0.0125s
+t2=0.0125;
+i_t2=Im*cos(2*%pi*f*t2);
+disp(i_t2,"the current at 0.0125s is (in A)");
+t=acos(14.14/28.28)/(2*f*%pi);
+disp(t,"the time at which instantaneous current becomes 14.14 A is (in s)");
diff --git a/3673/CH4/EX4.a.5/Example_a_4_5.sce b/3673/CH4/EX4.a.5/Example_a_4_5.sce
new file mode 100644
index 000000000..a927701e3
--- /dev/null
+++ b/3673/CH4/EX4.a.5/Example_a_4_5.sce
@@ -0,0 +1,4 @@
+//Example_a_4_5 page no:177
+clc;
+Vrms=sqrt(5^2+(5^2/2));//the values are taken by comparing the given equation with rms equation
+disp(Vrms,"the rms value of the waveform is");
diff --git a/3673/CH4/EX4.a.8/Example_a_4_8.sce b/3673/CH4/EX4.a.8/Example_a_4_8.sce
new file mode 100644
index 000000000..84ebf12ad
--- /dev/null
+++ b/3673/CH4/EX4.a.8/Example_a_4_8.sce
@@ -0,0 +1,10 @@
+//Example_a_4_8 page no:178
+clc;
+Ip=10;//peak current in mA taken from i(t) equation
+Ipp=2*Ip;
+Irms=0.707*Ip;
+Iav=0.637*Ip;
+disp(Ip,"the peak value of current is (in mA)");
+disp(Ipp,"the peak to peak value of current is(in mA)");
+disp(Irms,"the rms value of current is (in mA)");
+disp(Iav,"the average value of current is (in mA)");
diff --git a/3673/CH4/EX4.a.9/Example_a_4_9.sce b/3673/CH4/EX4.a.9/Example_a_4_9.sce
new file mode 100644
index 000000000..412157f28
--- /dev/null
+++ b/3673/CH4/EX4.a.9/Example_a_4_9.sce
@@ -0,0 +1,7 @@
+//Example_a_4_9 page no:179
+clc;
+f=2*1000;
+C=0.01*10^-6;
+Xc=1/(2*%pi*f*C);
+Xc=Xc/1000;//converting to killo ohm
+disp(Xc,"the capacitive reactance is (in killoOhm)");