function?Y?=?Admittance（busline）
[nbmb]=size（bus）;
[nlml]=size（line）;
Y=zeros（nbnb）;????????????????????????%?對導納矩陣賦初值0
for?k=1:nl???
????I=line（k1）;??
????J=line（k2）;???
????Zt=line（k3）+j*line（k4）;??????????%?讀入線路參數
????if?Zt~=0
????????Yt=1/Zt;???????????????????????%?接地支路不計算Yt
????end
????Ym=line（k5）+j*line（k6）;???
????K=line（k7）;???????
???
????if?（K==0）&（J~=0）???????????????????%?普通線路:?K=0
????????Y（II）=Y（II）+Yt+Ym;???????
????????Y（JJ）=Y（JJ）+Yt+Ym;???????
????????Y（IJ）=Y（IJ）-Yt;???????
????????Y（JI）=Y（IJ）;???
????end
???
????if?（K==0）&（J==0）???????????????????%?對地支路:?K=0J=0R=X=0
????????Y（II）=Y（II）+Ym;???
????end???
???
????if?K>0?????????????????????????????%?變壓器線路:?Zt和Ym為折算到i側的值K在j側???????
????????Y（II）=Y（II）+Yt+Ym;???????
??????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1196??2018-12-26?09:33??牛頓拉弗遜法潮流計算\Admittance.m

?????文件????????292??2018-12-26?09:36??牛頓拉弗遜法潮流計算\bus_res_.m

?????文件????????679??2018-12-26?09:29??牛頓拉弗遜法潮流計算\CalculatedPQ.m

?????文件???????1995??2018-12-26?09:30??牛頓拉弗遜法潮流計算\Jacbi.m

?????文件???????2246??2018-12-26?10:23??牛頓拉弗遜法潮流計算\main.m

?????文件???????1052??2018-12-26?09:28??牛頓拉弗遜法潮流計算\NumSort.m

?????文件????????595??2018-12-26?09:30??牛頓拉弗遜法潮流計算\PQCalculate.m

?????文件????????815??2018-12-26?09:32??牛頓拉弗遜法潮流計算\ReNum.m

?????文件?????????30??2018-12-25?19:39??牛頓拉弗遜法潮流計算\Result.m

?????文件???????1034??2018-12-26?10:13??牛頓拉弗遜法潮流計算\ShowBusLine.m

?????文件????????879??2018-12-26?10:08??牛頓拉弗遜法潮流計算\ShowResult.m

?????文件????????945??2018-12-26?09:35??牛頓拉弗遜法潮流計算\S_res_.m

?????文件???????1119??2018-12-26?09:32??牛頓拉弗遜法潮流計算\YtYm.m

?????文件?????????63??2018-12-26?10:31??牛頓拉弗遜法潮流計算\使用說明.txt

?????目錄??????????0??2018-12-26?10:31??牛頓拉弗遜法潮流計算

-----------?---------??----------?-----??----

????????????????12940????????????????????15