12 files changed, 150 insertions, 0 deletions
diff --git a/3811/CH6/EX6.1/Ex6_1.jpg b/3811/CH6/EX6.1/Ex6_1.jpg
new file mode 100644
index 000000000..f28820754
--- /dev/null
+++ b/3811/CH6/EX6.1/Ex6_1.jpg
diff --git a/3811/CH6/EX6.1/Ex6_1.sce b/3811/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..65c68b55a
--- /dev/null
+++ b/3811/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,35 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.1
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+Vs=150;//source voltage of DC shunt motor in volt
+n1=1200;//synchronous speed in rpm
+Ra=1;//armature resistance in ohm
+Rf=150;//field resistance in ohm
+I=10;//line current in ampere
+If=(Vs/Rf);//Field current before adding the resistance in ampere
+disp('a)Calculate the resistance that should be added to the armature circuit to reduce the speed by 50%')
+//consider that the motoring point 1 represents without adding resistance & point 2 for the operating point at 50% load reduction
+Ia1=I-If;//armature current without adding resistance
+n2=0.5*n1;//50% speed is reduced
+Ea1=Vs-(Ia1*Ra);//speed equation at operating point 1
+Radd=Ea1/(2*Ia1);//Obtained from the equation of Ea1/Ea2=n1/n2
+disp(Radd,'The resistance which should be added to reduce the speed by 50% in ohm is:')
+disp('b)To calculate the motor efficiency')
+Prloss=100;//rotational loss in watt
+Pfloss=If^(2)*Rf;//field loss in watt
+Paloss=Ia1^(2)*Ra//armature losses in watt
+Pin=Vs*I;//Input power in watt
+Ploss=Prloss+Pfloss+Paloss;//Total losses before adding armature resistance in watt
+Ploss1=Prloss+Pfloss+Paloss*(Ra+Radd);//Total losses after adding armature resistance in watt
+eff=((Pin-Ploss)/Pin)*100;//efficiency of the motor without adding resistance in % 
+eff1=((Pin-Ploss1)/Pin)*100;//efficiency of the motor with adding resistance in %
+disp(eff,'The efficiency of the motor without adding resistance in % is:')
+disp(eff1,'The efficiency of the motor with adding resistance in % is:')
+disp('c)To calculate the resistance to be added to the armature for the holding operation')
+//set motor speed equal to zero
+Radd=(Vs/Ia1)-Ra;
+disp(Radd,'The resistance to be added to the armature for the holding operation in ohm is:')
diff --git a/3811/CH6/EX6.3/Ex6_3.jpg b/3811/CH6/EX6.3/Ex6_3.jpg
new file mode 100644
index 000000000..8cdcfe289
--- /dev/null
+++ b/3811/CH6/EX6.3/Ex6_3.jpg
diff --git a/3811/CH6/EX6.3/Ex6_3.sce b/3811/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..bc3be6507
--- /dev/null
+++ b/3811/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,26 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.3
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+Vs=150;//source voltage of DC shunt motor in volt
+n1=1200;//synchronous speed in rpm
+Ra=2;//armature resistance in ohm
+Rf=150;//field resistance in ohm
+I=10;//line current in ampere
+If1=(Vs/Rf);//Field current before adding the resistance in ampere
+//Assume the resistance added in the field circuit to reduce the field current by 20%
+If2=.8;//Field current after adding the resistance in ampere
+Ia1=I-If1;//Armature current before inserting the resistance in ampere
+Ia2=(If1*Ia1)/If2;//Armature current after inserting the resistance in ampere
+disp(Ia2,'The armature current after inserting the resistance in ampere is:')
+Ea1=Vs-(Ia1*Ra);
+Ea2=Vs-(Ia2*Ra);
+n2=(If1*n1*Ea2)/(Ea1*If2);
+disp(n2,'The motor speed in rpm is:')
+Radd=(Vs-(If2*Rf))/If2;
+disp(Radd,'The value of added resistance in ohm is:')
+P=If2^(2)*Radd;
+disp(P,'The extra field loss due to the addition of resistance in watt is:')
diff --git a/3811/CH6/EX6.4/Ex6_4.jpg b/3811/CH6/EX6.4/Ex6_4.jpg
new file mode 100644
index 000000000..c91f05ccf
--- /dev/null
+++ b/3811/CH6/EX6.4/Ex6_4.jpg
diff --git a/3811/CH6/EX6.4/Ex6_4.sce b/3811/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..527e1dc65
--- /dev/null
+++ b/3811/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,22 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.4
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+L=1;//load of shunt motor in hp
+T=10;//constant torque of motor in Nm
+Ra=5;//armature resistance of the motor in ohm
+KQ=2.5;//The field constant in V sec
+V=120;//source voltage in volt
+f=60;//supply frequency in Hertz
+a=60;//trigerring angle of the converter in degree
+b=150;//conduction period in degree
+Iave=T/KQ;//average current in ampere
+Vm=V*2^(1/2);
+W=((Vm/(2*%pi))*(cosd(a)-cosd(b+a))-(Iave*Ra))/((b/360)*KQ);//angular speed of the motor
+n=W*(f/(2*%pi));
+disp(n,'The speed of the motor in rpm is:')
+Pd=KQ*W*Iave;//power developed by the motor
+disp(Pd,'The power developed by the motor in terms of watt is:')
diff --git a/3811/CH6/EX6.5/Ex6_5.jpg b/3811/CH6/EX6.5/Ex6_5.jpg
new file mode 100644
index 000000000..4413b5533
--- /dev/null
+++ b/3811/CH6/EX6.5/Ex6_5.jpg
diff --git a/3811/CH6/EX6.5/Ex6_5.sce b/3811/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..09e48bf9a
--- /dev/null
+++ b/3811/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,22 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.5
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+L=1;//load of shunt motor in hp
+T=10;//constant torque of motor in Nm
+Ra=5;//armature resistance of the motor in ohm
+KQ=2.5;//The field constant in V sec
+V=120;//source voltage in volt
+f=60;//supply frequency in Hertz
+a=60;//trigerring angle of the converter in degree
+b=150;//conduction period in degree
+Iave=T/KQ;//average current in amphere
+Vm=V*2^(1/2);
+W=((Vm/%pi)*(cosd(a)-cosd(b+a))-(Iave*Ra))/((b/180)*KQ);//angular speed of the motor
+n=W*(60/(2*%pi));
+mprintf("\nThe speed of the motor is %f rpm",n)
+Pd=KQ*W*Iave;//power developed by the motor
+mprintf("\nThe power developed by the motor is %f watt",Pd)
diff --git a/3811/CH6/EX6.6/Ex6_6.jpg b/3811/CH6/EX6.6/Ex6_6.jpg
new file mode 100644
index 000000000..23e8cefe2
--- /dev/null
+++ b/3811/CH6/EX6.6/Ex6_6.jpg
diff --git a/3811/CH6/EX6.6/Ex6_6.sce b/3811/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..b364f178c
--- /dev/null
+++ b/3811/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,18 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.6
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+T=60;//Constant load torque in Nm
+V=120;//supply voltage in volt
+KQ=2.5;//Field constant of the motor 
+Ra=2;//Armature resistance in ohm
+n=200;//speed of the motor in rpm
+Vm=V*2^(1/2);//maximum voltage in volt
+w=(2*%pi*n)/T;//angular speed
+Iave=T/KQ;
+b=((%pi/(2*Vm))*((Ra*Iave)+(KQ*w)));
+alpha=acosd(b);
+mprintf("\nThe triggering angle of the motor is  %f degree",alpha)
diff --git a/3811/CH6/EX6.7/Ex6_7.jpg b/3811/CH6/EX6.7/Ex6_7.jpg
new file mode 100644
index 000000000..7f7992d16
--- /dev/null
+++ b/3811/CH6/EX6.7/Ex6_7.jpg
diff --git a/3811/CH6/EX6.7/Ex6_7.sce b/3811/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..d13c2228c
--- /dev/null
+++ b/3811/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,27 @@
+//Book name: Fundamentals of electrical drives by Mohamad A. El- Sharkawi
+//chapter 6
+//example 6.7
+//edition 1
+//publisher and place:Nelson Engineering
+clc;
+clear;
+Ra=2;//armature resistance in ohm
+Rf=3;//field resistance in ohm
+V=320;//terminal voltage in volt
+T=60;//full load torque in Nm
+n=600;//motor speed in rpm
+mprintf("\nCalculate the field current:")
+KC=0.248;//calculated by solving two equations
+Ia=sqrt(T/KC);
+mprintf("\nThe field current is %f A",Ia)
+mprintf("\nCalculate the motor voltage:")
+n1=400;
+omega1=(2*%pi*n1)/T;
+Vt=Ia*(Ra+Rf+(KC*omega1));
+mprintf("\nThe motor voltage is %f volt",Vt)
+mprintf("\nCalculate the motor speed :")
+AR=Ra/Rf;
+Ia=sqrt(T/(KC*AR));
+w=(V/(KC*AR*Ia))-((Ra+(AR*Rf))/(KC*AR));
+n2=(w*T)/(2*%pi);
+mprintf("\nThe speed of the motor is %f rpm",n2)