電力系統(tǒng)短路故障的計(jì)算機(jī)算法程序設(shè)計(jì)-閱讀頁
2025-07-22 15:47本頁面
【正文】 s[k]*n+j。 a[u]=a[v]。 } if (is[k]!=k) for (i=0。 i++) { u=i*n+k。 p=a[u]。 a[v]=p。 free(js)。 }out_Y(){ int i,j。 a=(float **)malloc(net[0].node*net[0].node*sizeof(float))。inet[0].node。 } FILE *fp。 fprintf(fp,%s,節(jié)點(diǎn)阻抗矩陣為：\n)。 for (i=0。i++ ) for (j=0。j++ ) { a[i][j]=yy[i][j]。 for (i=0。i++ ) for (j=0。j++ ) { zz[i][j]=(float) a[i][j]。 for (i=0。 i++ ) { for (j=0。 j++ ) {printf (%.8f*j\t,zz[i][j])。 fprintf (fp,%.8f*j\t,zz[i][j])。 } printf (\n)。 fprintf (fp,\n)。 } printf (\n)。 fprintf(fp,\n)。}int Short_Select(){ int ss。 scanf (%d,amp。 printf( \n\n)。}//計(jì)算節(jié)點(diǎn)電流,節(jié)電電壓,短路點(diǎn)注入單位電流時(shí)解線性方程得各節(jié)電電壓Count_If(){ BYTE Num。 int i,j。 FILE *fp。 scanf(%f,amp。AAA: sss=Short_Select()。 fprintf(fp,%s %d\n\n%s%3f\n\n,短路節(jié)點(diǎn)為:,sss,短路前電壓為(忽略負(fù)荷電流的影響)：,E)。 if (sssnet[0].node||sss1) {printf (短路點(diǎn)選擇錯(cuò)誤,)。 } II[sss]=1。 If[sss]=E/zz[sss1][sss1]。 fprintf(fp,%s If[%d]=%f*j\n\n%s\n\n ,短路點(diǎn)的電流為:,sss,If[sss],短路節(jié)點(diǎn)電壓為:)。 printf (****************************短路電流為************************\n)。 printf (****************************短路節(jié)點(diǎn)電壓為:************************\n)。inet[0].node。 printf (Vol[%d]=%f\n\n,i+1,Vol[i])。 fprintf(fp,Vol[%d]= %f\n\n,i+1,Vol[i])。 } printf (****************************支路電流為：************************\n)。 fprintf(fp,%s\n,各支路電流為:)。 for (i=0。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]。 fp=fopen(,a)。 fclose(fp)。 printf (III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 fprintf(fp,III[%d][%d]= %f*j\n\n,net[i].head_node,net[i].end_node,III[i])。 } } printf(\n\n)。 }16 / 16
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1