4 files changed, 76 insertions, 0 deletions
diff --git a/1802/CH1/EX1.1/Exa1_1.sce b/1802/CH1/EX1.1/Exa1_1.sce
new file mode 100755
index 000000000..8c35656b9
--- /dev/null
+++ b/1802/CH1/EX1.1/Exa1_1.sce
@@ -0,0 +1,18 @@
+//Exa 1.1
+clc;
+clear;
+close;
+//Given data : 
+format('v',6);
+R=4;//in ohm
+XL=3;//in ohm
+VL=400;//in volt
+Vph=VL/sqrt(3);//in volt
+Zph=sqrt(R^2+XL^2);//in ohm
+Iph=Vph/Zph;//in Ampere
+//In star connected IL=Iph
+IL=Iph;//in Ampere
+disp(IL,"Line Current (in A) :");
+cosfi=R/Zph;//unitless
+PowerConsumed=sqrt(3)*VL*IL*cosfi;//in watts
+disp(PowerConsumed,"Total power consumed by the load (in Watts)");
+\ No newline at end of file
diff --git a/1802/CH1/EX1.2/Exa1_2.sce b/1802/CH1/EX1.2/Exa1_2.sce
new file mode 100755
index 000000000..89475af5d
--- /dev/null
+++ b/1802/CH1/EX1.2/Exa1_2.sce
@@ -0,0 +1,20 @@
+//Exa 1.2
+clc;
+clear;
+close;
+//Given data : 
+format('v',6);
+VL=440;//in volt
+IL=10;//in Ampere
+//In star connected :
+disp("In star connected :");
+Iph=IL;//in Ampere
+Vph=VL/sqrt(3);//in volt
+Rph=Vph/Iph;//in ohm
+disp(Rph,"Value of each resistor(in ohm) :");
+//In delta connected :
+disp("In delta connected :");
+Iph=IL/sqrt(3);//in Ampere
+Vph=Iph*Rph;//in volt
+disp(Vph,"Voltage in delta connection(in volt) :");
+disp("Voltage needed is 1/3rd, the voltage in star connection.")
+\ No newline at end of file
diff --git a/1802/CH1/EX1.3/Exa1_3.sce b/1802/CH1/EX1.3/Exa1_3.sce
new file mode 100755
index 000000000..5dc71878c
--- /dev/null
+++ b/1802/CH1/EX1.3/Exa1_3.sce
@@ -0,0 +1,22 @@
+//Exa 1.3
+clc;
+clear;
+close;
+//Given Data :
+format('v',6);
+R=16;//in ohm
+L=38.2;//in mH
+L=38.2*10^-3;//in H
+VL=400;//in volt
+f=50;//in Hz
+XL=2*%pi*f*L;//in ohm
+Zph=sqrt(R^2+XL^2);//in ohm
+//In star connected :
+Vph=VL/sqrt(3);//in volt
+Iph=Vph/Zph;//in Ampere
+IL=Iph;//in Ampere
+disp(IL,"Line Current (in A) :");
+cosfi=R/Zph;//unitless
+disp(cosfi,"Power factor : ");
+P=sqrt(3)*VL*IL*cosfi;//in watts
+disp(P/10^3,"Total power consumed by the load (in kW)");
+\ No newline at end of file
diff --git a/1802/CH1/EX1.4/Exa1_4.sce b/1802/CH1/EX1.4/Exa1_4.sce
new file mode 100755
index 000000000..37e494d4d
--- /dev/null
+++ b/1802/CH1/EX1.4/Exa1_4.sce
@@ -0,0 +1,16 @@
+//Exa 1.4
+clc;
+clear;
+close;
+//Given Data :
+format('v',6);
+R=15;//in ohm
+X=40;//in ohm
+VL=440;//in volt
+//In delta connection : 
+Vph=VL;//in volt
+Zph=sqrt(R^2+X^2);//in ohm
+Iph=Vph/Zph;//in Ampere
+disp(Iph,"Phase Current(in A) :");
+IL=Iph*sqrt(3);//in Ampere
+disp(IL,"Linee Current(in A) :");
+\ No newline at end of file