Расчет потерь электроэнергии в сетях

Дипломная работа - Физика

Другие дипломы по предмету Физика

&& (SOURKz[i]!=1.3) && (SOURKz[i]!=1.35) && (SOURKz[i]!=1.40) && (SOURKz[i]!=1.45) && (SOURKz[i]!=1.50) && (SOURKz[i]!=1.55) && (SOURKz[i]!=1.60) &&

(SOURKz[i]!=1.65) && (SOURKz[i]!=1.70)) ) { SOURKz[i]=1.1;

printf("Извените, коэффициент загрузки трансформатора узла (N пункта ) задан не верно. Принято значение 1.1 \n",SOURNk[i],SOURP[i] );}}}

(i=1; i<ent; i++)

{if(TRAN[i]==0) {if((SOURCOS[i]!=0.7) && (SOURCOS[i]!=0.9) && (SOURCOS[i]!=0.8) && (SOURCOS[i]!=0.75) && (SOURCOS[i]!=0.92) && (SOURCOS[i]!=0.83)){

SOURCOS[i]=0.8;("Извините, коэффициент мощности трансформатора узла (N пункта ) задан не верно. Принято значение 0.8 \n",SOURNk[i],SOURP[i] );}}}

(i=1; i<ent; i++)

{if(TRAN[i]!=0) {if(SOURDLINA[i]==0 ){ SOURDLINA[i]=1;

printf("Извините, длина участка (N пункта ) не задана. Принято значение 1 км. \n",SOURNk[i],SOURP[i] );}}}

(i=1; i<ent; i++)

{if(TRAN[i]==0) {(r=1; r=TRUnomvn[r])){goto M3 ;}(r==tr){printf("Извините, но трансформатор s (N n/n ) в каталоге не найден.\n", SOURMTR[i],SOURP[i] );

printf("Добавить трансформатор в католог? ( 1- да, 2 - нет) "); int A; cin >> A;(A)

{ case 1:("Трансформатор s\n", SOURMTR[i] );("Введите Sном в кВА: ");scanf("%5lf", &TRSnom[tr]);("\n"); printf("Введите Uном ввысшей обмотки в кВ : ");scanf("%5lf", &TRUnomvn[tr]);("\n"); printf("Введите Uном низшей обмотки в кВ : ");scanf("%5lf", &TRUnomnn[tr]);("\n"); printf("Введите Uкз в % : ");scanf("%5lf", &TRUkz[tr]);("\n"); printf("Введите Pкз в кВт : ");scanf("%5lf", &TRPkz[tr]);("\n"); printf("Введите Iхх в кВт : ");scanf("%5lf", &TRIxx[tr]);("\n"); printf("Введите Pхх в кВт : ");scanf("%5lf", &TRPxx[tr]);("\n");

(TR,"|s | %5.0f | %5.2f | %5.2f |%5.2f | %6.3f |%6.2f | %6.3f |\n", SOURMTR[i],TRSnom[tr],[tr],TRUnomnn[tr],TRUkz[tr],TRPkz[tr],TRIxx[tr],TRPxx[tr]);M4 ;2:; } }}}M3:}

(i=1; i<ent; i++)

{if(TRAN[i]!=0) {(r=1; r<lin+1; r++){ int t=strcmp(SOURML[i],LNM[r]);( t==0 ) {goto M6 ;}(r==lin){printf("\n\nИзвините, но провод s (N n/n ) в каталоге не найден.\n",SOURML[i],SOURP[i] );

printf("Добавить провод в католог? ( 1- да, 2 - нет) "); int A; cin >> A;(A)

{ case 1:("Провод s\n",SOURML[i] );("Введите Uном в кВА: ");scanf("%5lf", &LNUnom[lin]);

printf("\n"); printf("Введите удельное активное сопротивление Rо в Ом/км : ");scanf("%5lf", &LNRo[lin]);("\n"); printf("Введите удельное реактивное сопротивление Xо в Ом/км : ");scanf("%5lf", &LNXo[lin]);("\n"); printf("Введите допустимый ток Iдоп в А : ");scanf("%5lf", &LNIdop[lin]);("\n"); printf("Введите емкостный ток Iс в А : ");scanf("%5lf", &LNIc[lin]);

printf("\n");

(LIN, "|s| %7.2f | %7.3f | %7.3f | %7.0f | %7.3f |\n",SOURML[i] , LNUnom[lin], LNRo[lin], LNXo[lin], LNIdop[lin], LNIc[lin]);M5 ;2:; } }}}M6:}

(int i=1; i<ent; i++)

{if(SOURP[i]!=i){ SOURP[i]=i; printf("N п/п введен не правильно. Ошибка исправлена.\n",SOURP[i] );}}

// Адреcное отображение(int i=1; i<ent; i++)

{for (int k=0; k<ent; k++)

{if(SOURNn[i]==1){AO[i]=0; break;}(SOURNn[i]==SOURNk[k]){AO[i]=SOURP[k];}}}

(int i=1; i<ent; i++) // Расчет POTP, POTQ, POTWp, POTWq

{if(TRAN[i]==0) {for (int r=0; r=TRUnomvn[r]) ){POTP[i]=TRSnom[r]*SOURKz[i]*SOURCOS[i];[i]=TRSnom[r]*SOURKz[i]* sqrt(1-SOURCOS[i]*SOURCOS[i]);[i]=POTP[i]*SOURTma[i] ; POTWq[i]=POTWp[i]* sqrt(1-SOURCOS[i]*SOURCOS[i])/SOURCOS[i] ; }}}}

(int i=1; i<ent; i++) // Потокораспределение

{ if(TRAN[i]==0)

{int k=i;(int r=0; r<ent; r++)

{ POTP[AO[k]]+=POTP[i];[AO[k]]+=POTQ[i];[AO[k]]+=POTWp[i];[AO[k]]+=POTWq[i];(AO[k]==0) {break;}=AO[k]; }}}

// Вывод POTP, POTQ, POTWp, POTWq в файл Result_POT.txt(POT,"-------------------------------------------------------------------------------\n");(POT,"| | | | Поток мощности ветви | Поток энергии ветви |\n");(POT,"| N n/n| Nn | Nk |-------------------------|-------------------------------|\n");(POT,"| | | | активный | реактивный | активный | реактивный |\n");(POT,"| | | | кВт | кВАр | кВт*ч | кВАр*ч |\n");(POT,"-------------------------------------------------------------------------------\n");(int i=1; i<ent; i++)

{fprintf(POT,"| | | | %8.2f | %8.2f | .2f | .2f |\n",SOURP[i], SOURNn[i], SOURNk[i], POTP[i], POTQ[i],POTWp[i],POTWq[i]);}(POT,"-------------------------------------------------------------------------------\n");

(int i=1; i<ent; i++) // Расчет Pt, Qt, Pxx, Qxx

{if(TRAN[i]==0){for (int r=0; r=TRUnomvn[r]) ){[i]=((POTP[i]*POTP[i]+POTQ[i]*POTQ[i])*TRPkz[r]*CHNUnom*CHNUnom)/(TRSnom[r]*TRSnom[r]*CHNUnom*CHNUnom) ;[i]= (POTP[i]*POTP[i]+POTQ[i]*POTQ[i])*sqrt((TRUkz[r]*CHNUnom*CHNUnom*1000)/(100*TRSnom[r])*(TRUkz[r]*CHNUnom*CHNUnom*1000)/(100*TRSnom[r])-

(TRPkz[r]*1000*CHNUnom*CHNUnom)/(TRSnom[r]*TRSnom[r])*(TRPkz[r]*1000*CHNUnom*CHNUnom)/(TRSnom[r]*TRSnom[r]))/(CHNUnom*CHNUnom)/1000 ;[i]=TRPxx[r];[i]=TRIxx[r]*TRSnom[r]/100; }}}}

(int i=1; i<ent; i++) // Расчет Pl, Ql

{if(TRAN[i]!=0){for (int r=0; r=LNUnom[r]) ){[i]=((POTP[i]*POTP[i]+POTQ[i]*POTQ[i])*LNRo[r]*SOURDLINA[i])/(1000*CHNUnom*CHNUnom);[i]=((POTP[i]*POTP[i]+POTQ[i]*POTQ[i])*LNXo[r]*SOURDLINA[i])/(1000*CHNUnom*CHNUnom);}}}}

(int i=1; i<ent; i++) // Расчет dP, dQ, dQlt, dPlt, dPt, dQt, dQxx, dPxx, dPl, dQl

{dP+=Pt[i]+Pxx[i]+Pl[i];+=Pl[i]+Pt[i];+=Ql[i]+Qt[i];+=Pl[i];+=Pt[i];+=Pxx[i];+=Ql[i];+=Qt[i];+=Qxx[i];+=Qt[i]+Qxx[i]+Ql[i];(TRAN[i]==0){Pgy+=POTP[i]; // Расчет Pgy, Qgy+=POTQ[i];}}+=dP;=dQ+Qgy;

// Вывод Pt, Qt, Pl, Ql

fprintf(POW," Потери мощности в сети \n\n");(POW,"------------------------------------------------------------------------\n");(POW,"| | | | Переменные | Постоянные (хол. хода) |\n");(POW,"| N n/n| Nn | Nk |--------------------------------------------------\n");(POW,"| | | | активной | реактивной | активной | реактивной |\n");(POW,"| | | |-----------|------------|-----------|------------|\n");(POW,"| | | | кВт | кВАр | кВт | кВАр |\n");

fprintf(POW,"-----------------------------------------------------------------------|\n");(int i=1; i<ent; i++)

{if(TRAN[i]==0){fprintf(POW,"| | | | %8.3f | %8.3f | %8.3f | %8.3f |\n",SOURP[i], SOURNn[i], SOURNk[i], Pt[i], Qt[i],Pxx[i], Qxx[i]);}(POW,"| | | | %8.3f | %8.3f | | |\n",SOURP[i], SOURNn[i], SOURNk[i], Pl[i], Ql[i]);}(POW,"------------------------------------------------------------------------\n");

Blog

Расчет потерь электроэнергии в сетях

Дипломная работа - Физика

Другие дипломы по предмету Физика