initial commit / add all books

9 files changed, 195 insertions, 0 deletions

diff --git a/3826/CH1/EX1.1/Ex1_1.sce b/3826/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..b6b73aacd
--- /dev/null
+++ b/3826/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,14 @@
+//Example 1_1 page no:15

+clc;

+//given

+line_voltage = 400;//in V

+phase_voltage = line_voltage/sqrt(3);//in V

+Starting_current = 75;//in A

+impedance = 1.54;//in ohm

+full_load_current = 30;//in A

+slip = 0.04;//in percent

+tapping = sqrt((Starting_current*impedance*100^2)/phase_voltage);

+disp(tapping,"the tapping provided is(in percent)");

+start_current = Starting_current * 100 / tapping;

+ratio = (start_current/full_load_current)^2*slip;

+disp(ratio,"starting torque in terms of full load torque is(no unit)");

diff --git a/3826/CH1/EX1.2/Ex1_2.sce b/3826/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..728194a34
--- /dev/null
+++ b/3826/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,36 @@
+//Example 1_2 page no:23

+clc;

+//given

+//solving a sub part

+voltage = 500;//in v

+current = 32;//in A

+arm_res = 0.4;//in ohm

+fl_win_res = 250;//in ohm

+rpm = 450;

+field_current = 2;

+input_pow = (voltage*current)/1000;

+arm_current = current - field_current;

+//when running at 600rpm

+rpm1 = 600;

+k_phi = (voltage - 12)/rpm1;

+//when running at 450rpm

+R = -(k_phi*rpm-voltage)/arm_current;

+R = R - arm_res;

+disp("To decrease the speed to 450 rev/min");

+disp(R,"the resistance added with the armature is (in ohm)");

+disp(current,"the current is (in A)");

+disp(input_pow,"the kw-input taken from the supply is(in kW)");

+//solving b sub part

+disp("To increase the speed to 700 rev/min");

+flux_ratio = 600/700;

+res_added = (fl_win_res/flux_ratio)- fl_win_res;

+disp(res_added,"the resistance to be added is (in ohm)");

+arm_current = arm_current*(1/flux_ratio);

+fld_current = 1.25;

+tot_current = arm_current + fld_current;

+pow = tot_current * voltage/1000;

+disp(arm_current,"the armature current is (in A)");

+disp(fld_current,"the field current is (in A)");

+disp(tot_current,"the total current is (in A)");

+disp(pow,"the kw-input taken from the supply is(in kW)");

+//the resistance value is rounded off in text book so armature current, total current , input power vary slightly with text book

diff --git a/3826/CH1/EX1.3/Ex1_3.sce b/3826/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..451bab376
--- /dev/null
+++ b/3826/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,21 @@
+//Example 1_3 page no:42

+clc;

+//given

+armature_resitance = 0.086//in ohm

+fl_arm_current = 150;

+volt = 220;

+power = 30;//in kiloWatt

+ini_brk_current = 200;

+full_ld_speed = 535;// in rev/min

+back_emf = volt - (fl_arm_current * armature_resitance);

+tot_volt = volt + back_emf;

+resistance_req = tot_volt / ini_brk_current;

+res_added = resistance_req - armature_resitance;

+disp(res_added,"the resistance to be added is (in ohm)");

+full_ld_torque = (power*1000*60)/(%pi*2*full_ld_speed);

+ini_brk_torque = full_ld_torque * ini_brk_current / fl_arm_current;

+back_emf = 208/2;//back emf at half speed

+current = (volt + back_emf)/resistance_req;

+ele_brk_torque = full_ld_torque * current / fl_arm_current;

+disp(ele_brk_torque,"Electric braking torque at half speed is (in Nm)");

+//the value vary slightly with textbook hence values are rounded off in text book

diff --git a/3826/CH1/EX1.4/Ex1_4.sce b/3826/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..5adad4b2d
--- /dev/null
+++ b/3826/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,18 @@
+//Example 1_4 page no:47

+clc;

+//given

+//In text book the answers are rounded off so result vary slightly with text book

+power = 15*1000;//in W

+I = 60;

+rpm = 450;

+E = 322;

+I = 41.2;

+full_load_torque = (power*I)/(2*%pi*rpm);

+output = E*I;

+disp(output,"the output from the machine is (in W)");

+mac_input = (2*%pi*rpm*318)/60;

+disp(mac_input,"the mechanical input to the machine from the load if it were running at 450 rev/min would be(in W)");

+//rpm at 500;

+rpm = 500;

+mac_input = (2*%pi*rpm*318)/60;

+disp(mac_input,"the mechanical input to the machine at 500 rev/min is (in W)");

diff --git a/3826/CH1/EX1.5/Ex1_5.sce b/3826/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..4163416c0
--- /dev/null
+++ b/3826/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,10 @@
+//Example 1_5 page no:68

+clc;

+//given

+original_losses = 18.5;//in KW

+theta_f = 45;//in degree C

+time_constant = 90;//in minutes

+P = sqrt((theta_f/((1-exp(-30/90))*theta_f))*(original_losses^2));

+disp(P,"the hour rating of the motor for this temperature rise is (in KW)");

+//the result vary slightly with text book hence values are rounded off in text book

+

diff --git a/3826/CH1/EX1.6/Ex1_6.sce b/3826/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..aa6412138
--- /dev/null
+++ b/3826/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,7 @@
+//Example 1_6 page no:69

+clc;

+//given

+avg_value = 42*10^4;

+//the rating of the motor is

+rating = sqrt(avg_value);

+disp(rating,"the kilowatt rating for the motor is (in kW)");

diff --git a/3826/CH1/EX1.7/Ex1_7.sce b/3826/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..22e010a7e
--- /dev/null
+++ b/3826/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,16 @@
+//Example 1_7 page no:74

+clc;

+//given

+power = 75;//in kW

+rpm = 500;

+energy = 5400;

+fl_load_torque = (power * 1000 * 60)/(2 * %pi * rpm);

+str_torque = 2145;

+acc_torque = 715;

+stored_energy = energy * power;

+omega = rpm *(2*%pi/60);

+I = (2 * stored_energy)/(omega^2);

+alpha = acc_torque / I;

+t = omega / alpha;

+disp(t,"the time taken to start the motor if the load torque is equal to full load torque is (in s)");

+//the result vary slightly hence values are rounded off in text book

diff --git a/3826/CH1/EX1.8/Ex1_8.sce b/3826/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..7556afe67
--- /dev/null
+++ b/3826/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,21 @@
+//Example 1_8 page no:75

+clc;

+//given

+voltage = 2200;//in V

+power = 110;//in kW

+rpm = 750;// rotation per minute

+inertia = 62;//in kg.m^2

+resistance = 13;//in ohm

+efficiency = 0.93;//93% converted to decimal

+fl_load_torque = (power * 1000 * 60)/(2*%pi*rpm);

+fl_ld_line_current = (power * 1000)/(sqrt(3)*voltage* efficiency);

+ln_current = 2000/(sqrt(3)*resistance);

+ele_brk_torque = 4200;//in Nm

+tot_brk_torque = ele_brk_torque + 1400;

+omega = (rpm * 2* %pi)/60;

+Te = 4200;//in Nm

+K = Te/omega;

+t = ((60/K)*log(5600/1400));

+disp(t,"the time taken is (in s)");

+r = ((1.12*5600/(2*%pi*53.5))*(1-exp(-0.893*1.55))+1.7)-((1400/(2*%pi*53.5))*1.95);

+disp(r,"the number of revolution made before the motor stopped is (no unit)");//it is count it has no unit

diff --git a/3826/CH1/EX1.9/Ex1_9.sce b/3826/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..a59c03563
--- /dev/null
+++ b/3826/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,52 @@
+//Example 1_9 page no:100

+clc;

+//given

+T = 1400;

+Tl = 1900;

+k = 7.85/1400;

+motor_rpm = 750;

+//calculating load torque

+Tm = Tl - (Tl/1.53);

+slip = k * 660;

+speed = motor_rpm - 35.2;

+disp("After 5s");

+disp(Tm,"the torque at the end of 5s is (in Nm)");

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+Tm = (Tl)-( Tl - 0)*exp(-0.085*10);

+disp("After 10s");

+disp(Tm,"the torque at the end of 10s is (in Nm)");

+slip = k * 1088;

+speed = motor_rpm - 58;

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+T_m = 1088;

+Tm = 280 + ( T_m - 280)*exp(-0.085*15);

+disp("After 15s");

+disp(Tm,"the torque at the end of 15s is (in Nm)");

+slip = k * Tm;

+speed = motor_rpm - 27;

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+Tm = 280 + ( 1088 - 280)*exp(-0.085*30);

+slip = k * 343;

+speed = motor_rpm - 18.4;

+disp("After 30s");

+disp(Tm,"the torque at the end of 30s is (in Nm)");

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+Tm = Tl - (Tl - 280)*exp(-0.085*10)

+slip = k * 1235;

+speed = motor_rpm - 66;

+disp("At the end of this period");

+disp(Tm,"the torque at the end of this period is (in Nm)");

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+Tm = 280 + ( 1235 - 280)*exp(-0.085*30);

+slip = k * Tm;

+speed = motor_rpm - 19;

+disp("At the end of second off-peak period");

+disp(Tm,"the torque at the end of this period is (in Nm)");

+disp(slip,"the slip is (in rad/s)");

+disp(speed,"the speed is(rpm)");

+//the result vary slightly hence values are rounded off in text book