電力系統(tǒng)不對稱故障分析與計(jì)算及其程序設(shè)計(jì)-資料下載頁
2025-06-27 06:30本頁面
【正文】 Printf(“please input the putamenter of line: \n”)。Printf(“for example:X=,b=,i=100”)。Printf(“\n1:”)。Scanf(“%f,%f,”,amp。X,b,amp。amp。L)。X5=X*L*Sn/(Uav*Uav)。Y1=(double)1\2*b*L*(Uav*Uav)/100。Printf(“\n2:”)。 Scanf(“%f,%f,”,amp。X,b,amp。amp。L)。 X6=X*L*Sn/(Uav*Uav)。Y2=(double)1\2*b*L*(Uav*Uav)/100。 Printf(“\n3:”)。 Scanf(“%f,%f,”,amp。X,b,amp。amp。L)。X7= X*L*Sn/(Uav*Uav)。Y3=(double)1\2*b*L*(Uav*Uav)/100。Printf(“X5=%f,X6=%f,X7=%f\n”,X5,X6,X7)。Printf(“Y1=%f,Y2=%f,Y3=%f\n”,Y1,Y2,Y3)。Printf(“Y1=Y1,Y2=Y2,Y3=Y3\n”,Y1,Y2,Y3)。Printf(“please input the K(7) to see Y array: \n”)。Scanf(“amp。d”,amp。K)。 For(n=0。nK。n++) 導(dǎo)納矩陣形成For(j=0。jK。j++)Y[n][j]=0。Y[0][0]=1/X1+1/X2。Y[0][1]=1/(X2*K1)。Y[1][0]= Y[0][1]。Y[1][1]=1/X5+Y1+1/(X2*K1*K1)。Y[1][2]=1/X5。Y[2][1]= Y[1][2]。Y[2][2]=Y1+1/X5+Y2+1/X7+(1/2*X3*K2*K2)。Y[2][3]=1/(1/2*X3*K2)。Y[2][4]=1/X6。Y[2][5]=1/X7。Y[3][2]= Y[2][3]。Y[3][3]=1/(1/2*X3)+(1/2*X10)。Y[4][2]= Y[2][4]。Y[4][4]=Y2+1/X8 +1/X6。Y[5][5]=Y3+1/X7+1/(X4*K3*K3)。Y[5][6]=1/(X4*K3)。Y[6][5]= Y[5][6]。Y[6][6]= 1/X4。For(n=0。nK。n++)For(j=0。jK。j++) { Printf(“j%,2f\t”,Y[n][j])。 If(j==6) Printf(“\n”)}For(n=0。nK。n++) 短路電流和功率 U[n]=。Printf(“please input the number of short cuicit:K=I(i7)\n”)。Scanf(“amp。f”,amp。d)。 U[d]=1。 I[0]=。For(n=0。nK。n++)For(j=0。jK。j++) I[n]= Y[n][j] *U[j]。 N=0。Printf(“I[0]=%f\n”,I[n++])。Printf(“I[1]=%f\n”,I[n++])。Printf(“I[2]=%f\n”,I[n++])。Printf(“I[3]=%f\n”,I[n++])。Printf(“I[4]=%f\n”,I[n++])。Printf(“I[5]=%f\n”,I[n++])。Printf(“I[6]=%f\n”,I[n++])。IK=I[d]*Sn/(sqrt(3)*Uav)。 IM=*IK。 SK=*IK*Uav。Printf(“IK=%f,Sd=%f,IM=%f”,IK,Sd,IM)。Printf(“please input the K(7) to see Y array: \n”)。Scanf(“amp。d”,amp。K)。 負(fù)序?qū)Ъ{矩陣For(n=0。nK。n++)For(j=0。jK。j++)Y[n][j]=0。Y[0][0]=1/X1+1/X2。Y[0][1]=1/(X2*K1)。Y[1][0]= Y[0][1]。Y[1][1]=1/X5+Y1+1/(X2*K1*K1)。Y[1][2]=1/X5。Y[2][1]= Y[1][2]。Y[2][2]=Y1+1/X5+Y2+1/X7+(1/2*X3*K2*K2)。Y[2][3]=1/(1/2*X3*K2)。Y[2][4]=1/X6。Y[2][5]=1/X7。Y[3][2]= Y[2][3]。Y[3][3]=1/(1/2*X3)+(1/2*X10)。Y[4][2]= Y[2][4]。Y[4][4]=Y2+1/X8 +1/X6。Y[5][5]=Y3+1/X7+1/(X4*K3*K3)。Y[5][6]=1/(X4*K3)。Y[6][5]= Y[5][6]。Y[6][6]= 1/X4。For(n=0。nK。n++)For(j=0。jK。j++) { Printf(“j%,2f\t”,Y[n][j])。 If(j==6) Printf(“\n”)}Scanf(“amp。d”,amp。K)。零序?qū)Ъ{矩陣For(n=0。nK。n++)For(j=0。jK。j++)Y[n][j]=0。Y[0][0]=1/（X2*K1*K1）+1/(3*X5)。Y[0][1]=1/(3*X5)。Y[1][0]= Y[0][1]。Y[1][1]=1/(3*X5)+1/(3*X6)+1/(3*X7)+1/(1/2*X3*K2*K2)。Y[1][2]=1/(3*X6)。Y[2][1]= Y[1][2]。Y[2][2]= 1/(3*X6)+Y2+1/X12。Y[1][3]= Y[3][1]。Y[3][3]=1/(X4*K3*K3)+1/(3*X7)。Y[3][1]=1/(3*X7)。Y[4][3]= Y[3][4]。Y[4][4]=1/X4。For(n=0。nK。n++)For(j=0。jK。j++){ Printf(“j%,2f\t”,Y[n][j])。 If(j==6) Printf(“\
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1