1 files changed, 33 insertions, 0 deletions
diff --git a/416/CH2/EX2.1/exp2_1cpp.sce b/416/CH2/EX2.1/exp2_1cpp.sce
new file mode 100755
index 000000000..b9ae7ebc3
--- /dev/null
+++ b/416/CH2/EX2.1/exp2_1cpp.sce
@@ -0,0 +1,33 @@
+clc
+disp("example =2.1")
+printf("\n")
+disp("solution for (a)")
+nb=8;nf=2;nl=2 //given number of equipments is 8 bulbs 2 fans 2plugs
+lb=100;lf=60;ll=100 //corresponding wattages
+cl=nb*lb+nf*lf+nl*ll; //total connected load
+printf("connected load = 8X100W+2X60W+2X100W=%dW\n",cl);
+disp("solution for (b)")
+disp("total wattage at different times is")
+t1=5;t2=2;t3=2;t4=9;t5=6;
+fr=[0 1 0] //12 to 5am period of duration 5h
+s=[0 2 1] //5am to 7am period of duration 2h
+t=[0 0 0] //7am to 9am period of duration 2h
+fo=[0 2 0] //9am to 6pm period of duration 9h
+fi=[4 2 0] //6pm to 12pm period of duration 6h
+w=[fr;s;t;fo;fi]
+wt=[100*w(:,1),60*w(:,2),100*w(:,3)]
+wtt=[sum(wt(1,:));sum(wt(2,:));sum(wt(3,:));sum(wt(4,:));sum(wt(5,:))]
+printf("\t%dW\n\t%dW\n\t%dW\n\t%dW\n\t%dW",wtt(1),wtt(2),wtt(3),wtt(4),wtt(5))
+printf("\nthe maximum demand is %dW\n",max(wtt))
+m=max(wtt)
+disp("solution for (c)")
+printf("\ndemand factor =%3f\n",m/cl)
+disp("solution for (d)")//energy consumed is power multiply by corresponding time
+energy=[wtt(1,1)*t1;wtt(2,1)*t2;wtt(3,1)*t3;wtt(4,1)*t4;wtt(5,1)*t5]
+printf("\t%dWh\n\t%dWh\n\t%dWh\n\t%dWh\n\t%dWh",energy(1),energy(2),energy(3),energy(4),energy(5))
+e=sum(energy)
+printf("\ntotal energy consumed during 24 hours =%dWh+%dWh+%dWh+%dWh+%dWh=%dWh\n",energy(1),energy(2),energy(3),energy(4),energy(5),e)
+disp("solution for (e)");
+ec=cl*24;
+printf("\nif all devices are used throughout the day the energy consumed in Wh is %dWh \n\t\t%.2fkWh",ec,ec/1000)     
+//for 24 hours of max. load
+\ No newline at end of file