1 files changed, 49 insertions, 0 deletions
diff --git a/83/CH1/EX1.1/example_1_1.sce b/83/CH1/EX1.1/example_1_1.sce
new file mode 100755
index 000000000..c0c30723f
--- /dev/null
+++ b/83/CH1/EX1.1/example_1_1.sce
@@ -0,0 +1,49 @@
+//Chapter 1
+//Example 1.1
+//page 5
+clear;clc;
+fl=760e3;
+pf=0.8;
+lsg=0.05;
+csg=60;
+depre=0.12;
+hpw=48;
+lv=32;
+hv=30;
+pkwhr=0.10;
+
+md=fl/pf;
+printf('Maximum Demand= %.1f kVA \n\n',md/1000);
+
+//calculation for tariff (b)
+
+printf('Loss in switchgear=%.2f %% \n\n',lsg*100);
+input_demand=md/(1-lsg);
+input_demand=input_demand/1000;
+cost_sw_ge=input_demand*60;
+depreciation=depre*cost_sw_ge;
+fixed_charges=hv*input_demand;
+running_cost=input_demand*pf*hpw*52*pkwhr;//52 weeks per year
+total_b=depreciation + fixed_charges + running_cost;
+printf('Input Demand= %.1f kVA \n\n',input_demand);
+printf('Cost of switchgear=Rs %d\n\n',cost_sw_ge);
+printf('Annual charges on depreciation=Rs %d \n\n',depreciation);
+printf('Annual fixed charges due to maximum demand corresponding to triff(b)=Rs %d \n\n',fixed_charges);
+printf('Annual running cost due to kWh consumed=Rs %d \n\n',running_cost);
+printf('Total charges/annum for tariff(b) = Rs %d\n\n',total_b)
+
+//calculation for tariff (a)
+input_demand=md;
+input_demand=input_demand/1000;
+fixed_charges=lv*input_demand;
+running_cost=input_demand*pf*hpw*52*pkwhr;
+total_a=fixed_charges + running_cost;
+printf('maximum demand corresponding to tariff(a) = %.f kVA \n\n',input_demand);
+printf('Annual fixed charges=Rs %d \n\n',fixed_charges);
+printf('Annual running charges for kWh consumed = Rs %d \n\n',running_cost);
+printf('Total charges/annum for tariff(a) = Rs %d \n\n',total_a);
+if(total_a > total_b)
+    printf('Therefore, tariff(b) is economical\n\n\n');
+else
+    printf('Therefore, tariff(a) is economical\n\n\n');
+    
+\ No newline at end of file