diff options
Diffstat (limited to '416/CH4/EX4.1/example4_1.sce')
-rwxr-xr-x | 416/CH4/EX4.1/example4_1.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/416/CH4/EX4.1/example4_1.sce b/416/CH4/EX4.1/example4_1.sce new file mode 100755 index 000000000..e89f2101f --- /dev/null +++ b/416/CH4/EX4.1/example4_1.sce @@ -0,0 +1,18 @@ +clc
+clear
+disp('example 4 1')
+day=30 //days
+pll=40;nll=5;tll=3 //light load
+pfl=100;nfl=3;tfl=5 //fan load
+prl=1*1000 //refrigerator
+pml=1*1000;nml=1 //misc. load
+t1=2.74;t11=15//tariff
+t2=2.70;t22=25 //tariff on 25 units
+tr=2.32; //reamaining units
+tc=7.00;//constant charge
+dis=0.05//discount for prompt payment
+te=(pll*nll*tll+pfl*nfl*tfl)*day+prl*day+pml*day
+tee=te/1000
+mb=tc+tr*(tee-t11-t22)+t1*t11+t2*t22
+nmb=mb*(1-dis)
+printf("total energy consumption in %d day %dunits \nthe monthly bill Rs%.2f \nnet monthly bill Rs%.2f",day,tee,mb,nmb)
\ No newline at end of file |