電力系統(tǒng)短路故障的計算機算法程序設(shè)計-資料下載頁
2025-07-07 15:47本頁面
【正文】 scanf (%d,amp。ss)。 printf( \n\n)。 return ss。}//計算節(jié)點電流,節(jié)電電壓,短路點注入單位電流時解線性方程得各節(jié)電電壓Count_If(){ BYTE Num。 //網(wǎng)絡(luò)的節(jié)點數(shù) BYTE sss。 int i,j。 float E。 FILE *fp。 printf(請輸入短路前電壓，短路前為空載:)。 scanf(%f,amp。E)。AAA: sss=Short_Select()。 fp=fopen(,a)。 fprintf(fp,%s %d\n\n%s%3f\n\n,短路節(jié)點為:,sss,短路前電壓為(忽略負荷電流的影響)：,E)。 fclose(fp)。 if (sssnet[0].node||sss1) {printf (短路點選擇錯誤,)。 goto AAA。 } II[sss]=1。 Num=net[0].node。 If[sss]=E/zz[sss1][sss1]。 fp=fopen(,a)。 fprintf(fp,%s If[%d]=%f*j\n\n%s\n\n ,短路點的電流為:,sss,If[sss],短路節(jié)點電壓為:)。 fclose(fp)。 printf (****************************短路電流為************************\n)。 printf (If[%d]=%f*j \n\n,sss,If[sss])。 printf (****************************短路節(jié)點電壓為:************************\n)。 for (i=0。inet[0].node。i++ ) { Vol[i]=(float)(Ezz[sss1][i]*If[sss])。 printf (Vol[%d]=%f\n\n,i+1,Vol[i])。 fp=fopen(,a)。 fprintf(fp,Vol[%d]= %f\n\n,i+1,Vol[i])。 fclose(fp)。 } printf (****************************支路電流為：************************\n)。 fp=fopen(,a)。 fprintf(fp,%s\n,各支路電流為:)。 fclose(fp)。 for (i=0。inet[0].hanghao。i++ ) { if (net[i].head_node!=net[i].end_node) { III[i]=(Vol[net[i].head_node1]Vol[net[i].end_node1])*yy[net[i].head_node1][net[i].end_node1]。 printf (III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 fp=fopen(,a)。 fprintf(fp,III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 fclose(fp)。 } if(net[i].head_node==net[i].end_node) { III[i]=(EVol[net[i].head_node1])/net[i].react。 printf (III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 fp=fopen(,a)。 fprintf(fp,III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 fclose(fp)。 } } printf(\n\n)。 goto AAA。 }16 / 16
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1