Eng.Derssem Ibrahim
عضو مشارك
عدد المساهمات : 15
نقاط : 51
السٌّمعَة : 0
تاريخ التسجيل : 13/01/2011
العمر : 36
 | موضوع: زملائي في الخامسة طاقة...البرنامج الرئيسي لمخبر تصميم الشبكات  الثلاثاء فبراير 15, 2011 9:54 pm | |
| #include
#include
#include
#include"Derssem.h"
void main()
{
ifstream in ("data.txt",ios::in);
ofstream out ("results.txt",ios::out);
double Nr,Nf,Ne,a,b,H,n,fi,fid,Eta,etas,etaw,h,E,cosfi,A,K,N,mf,pd;
double Ilid,Ilight=0,Iload,Iflat,Ibuil,Q,Plid=0,Plito=0,peq1=0,Ploto=0,peq2=0,Pload,Pflat,Pbuil;
in>>Nr>>Nf>>Ne;
for(double i=1;i<=Nr;i++){
in>>a>>b>>H>>E>>fid>>etas>>etaw>>mf>>n>>pd>>Pload;
A=a*b;
h=H-0.8;
K=A/((a+b)*h);
Eta=eta(K,etas,etaw);
fi=(E*A)/(mf*Eta);
N=fi/(n*fid);
if(fid==2400){
Plid=pd*1.25*N*n;
cosfi=0.65;
Ilid=Plid/(220*cosfi);
}
else
{
Plid=pd*N*n;
cosfi=1;
Ilid=Plid/(220*cosfi);
}
Ilight=Ilight+Ilid;
Q=Ilight/10;
Plito=Plito+Plid;
Ploto=Ploto+Pload;
out<<" Room Number"< out<<"eta"< out<<"Number of Lighting Devices ="< out<<"Number of Parallel Circuit ="< out<<" *** *** *** *** *** *** ***"< }
peq1=Plito*0.6;
peq2=Ploto*0.5;
Pflat=peq1+peq2;
Iflat=Pflat/(220*0.82);
Iload=Iflat-Ilight;
Pbuil=Pflat*Nf*Ne;
Ibuil=Pbuil/(sqrt(3)*220*0.82);
out<<"I light ="< out<<"P light ="< out<<"I load ="< out<<"P load ="< out<<"I flat ="< out<<"P flat ="< out<<"Total Power of Building ="< out<<"Total Current of Building ="< in.close();
out.close();
} | |
|
