第一篇：程序計算麻將游戲的思路
程序計算麻將游戲的思路
（789游戲中心）
問：在789游戲中心，如果其它三家中，某一個人手上有且只有一個“東風”，那么，他會把這個“東風”打到海里去的可能性是90%。到了第9圈后（河里還有52張牌，其它三家手上共有39張牌，自己手上也有13張牌），自己手上有一個“東風”，可是其它三家都沒有打“東風”，那么，其它三家里的某一家有一對“東風”的可能性是多大？
【計算方法】
無法用簡單的算式表示。雖然逐條詳細的寫出來也不是不可以，但是還是交給程序計算比較好。
如果單單使用判斷全部的排列組合是否是和牌型這種方法，花費的將是天文時間。
采用的是下面的計算順序。
（1）除去七對子和國士無雙，和牌型中，字牌，萬，筒，索的張數可能為0張，2張，3張，5張，6張，8張，9張，11張，12張，14張。
（2）根據上述的張數，計算字牌與數牌每種（n個面子+最多1個雀頭）的排列組合數，這時順便計算出所有牌都是對子的排列組合數。
（3）根據四種牌合計14張的組合，計算其排列組合數，不過雀頭只能有一個，5張字，5張萬，2張筒，2張索這種不可能發生的組合是不計算在內的。
（4）從上述的結果中，去掉形為七對子的牌型。
（5）計算七對子的和牌型的排列組合數。
七對子的和牌型排列組合數為34Ｃ7
包括重復的排列組合數為34Ｃ7×67
（6）計算國士無雙和牌型的排列組合數。
國士無雙和牌型的排列組合共有13種
包括重復的排列組合數為13×6×412
（7）加算上（4）～（6）合計的排列組合數（包括重復），可以計算出其概率。總共的所有排列組合（包括重復）為136Ｃ14
（8）程序計算并沒有花費太多的時間，可以確認程序是正常運行的。同樣計算出（1）～（3）的所有排列組合數（包括重復）。計算字牌與數牌的0～14張所有的排列組合，四種牌合計14張的所有組合數。
第二篇：麻將翻數計算(精)[推薦]
1◇◆一條龍3種花色的3副順子連接成1-9的序數牌
2◇◆推不倒 由牌面圖形沒有上下區別的牌組成的和牌，包括1234589餅、245689條、白板。不計缺一門
3◇◆海底撈月 和打出的最后一張牌
4◇◆妙手回春 自摸牌墻上最后一張牌和牌。不計自摸
5◇◆杠上開花 開杠抓進的牌成和牌(不包括補花)不計自摸
6◇◆三色節節高 和牌時，有3種花色3副依次遞增一位數的刻子
7◇◆三色三同順 和牌時，有3種花色3副序數相同的順子
8◇◆無番和 和牌后，數不出任何番種分(花牌不計算在內)
9◇◆搶杠和 和別人自抓開明杠的牌。不計和絕張
從實踐來看，第1、6、7是常用的牌型，也比較好打，容易成牌，應該是新打國標的朋友必須掌握的牌型。第2、5、9種牌型是靠手氣的，有點兒運氣成分在里面。第8種是一個技術難度高的牌，新手不容易成牌。第3、4兩種牌型是打牌至快結束時，已無法計番而只要保留可以成牌的打子，最后碰運氣而已。
■▲▲■㈡次選牌型：12番
1◇◆組合龍 3種花色的147、258、369不能錯位的序數牌
2◇◆十三不靠 由單張3種花色147、258、369不能錯位的序數牌及東南西北中發白中的任何14張牌組成的和牌。不計五門齊、不求人、單釣
3◇◆大于五 由序數牌6-9的順子、刻子、將牌組成的和牌。不計無字
4◇◆小于五 由序數牌1-4的順子、刻子、將牌組成的和牌。不計無字
5◇◆三風刻 3個風刻
這幾個牌型也是國標常用牌型。只要起手有符合這幾種牌型的8張以上，就可嘗試。特別是十三不靠，如果東、南、西、北、中、發、白都有的話，就可以打成七星不靠(24番)。而大于五和小于五都很容易向全大和全小(24番)變化。■▲▲■㈢再選牌型：16番
1◇◆青龍 和牌時，有一種花色1-9相連接的序數牌
2◇◆全帶五 每副牌及將牌必須有5的序數牌。不計斷幺
3◇◆一色三步高 和牌時，有一種花色3副依次遞增一位或依次遞增二位數字的順子
4◇◆三同刻 3個序數相同的刻子(杠)
5◇◆三色雙龍會 2種花色2個老少副、另一種花色5作將的和牌。不計喜相逢、老少副、無字、平和
6◇◆三暗刻 3個暗刻
這幾種牌型也是最常打的國標牌型。青龍和一色三步高的變化是相互的，所以，在靠牌時應特別注意，不要將一色中多余的一張在夠牌之前打掉，是很容易互相轉化的。全帶五主要看起手的牌，這種牌變化也多，可以打成三色三同順、三色三步高，也可以打成全中，在國標麻將中，這也是變化較多的一種牌型。三色雙龍會的難度比較大，給人感覺國標將此種牌型的番數定的偏低。
■▲▲■㈣國標小番：6番～4番
○○○◆6番
1◇◆三色三步高 3種花色3副依次遞增一位序數的順子
2◇◆混一色 由一種花色序數牌及字牌組成的和牌
3◇◆五門齊 和牌時3種序數牌、風、箭牌齊全
4◇◆雙箭刻 2副箭刻(或杠)
5◇◆全求人 全靠吃牌、碰牌、單釣別人批出的牌和牌。不計單釣
6◇◆碰碰和 由4副刻子(或杠)、將牌組成的和牌
7◇◆雙暗杠 2個暗杠
這是一般的國標選手喜歡使用的牌型，因為這些牌型來得快、容易成牌，再用一些小番補充，很快就能聽牌。其中三色三步高、五門齊是國標老手喜歡的牌型，混一色、全求人、碰碰胡是一些國標新手喜歡選用的牌型。但是這些牌有一個缺點是牌型明顯，對于國標老手來說很容易看出對方所聽的牌型。雙箭刻、雙暗杠主要是手氣，一般是碰上了這些牌型就可以聽牌，但專門打這種牌型的人很少，沒有手氣是很難打成的。
○○○◆4番
1◇◆全帶幺 和牌時，每副牌、將牌都有幺牌
2◇◆和決張 和牌池、桌面已亮明的3張牌所剩的第4張牌(搶杠和不計和絕張)
3◇◆不求人 4副牌及將中沒有吃牌、碰牌(包括明杠)，自摸和牌
4◇◆雙明杠 2個明杠
這些是國標小番的的補充牌，如果配合其他零星牌型(1番和2番的牌型)，可以作為胡牌的簡單打法。這些牌型也是在起手牌很差的情況下慣用的牌型。但是由于算番側重于小番，打這幾個牌型的朋友必須熟悉小番的算法，因此，國標老手們使用這些牌型的多，新人用這些牌型胡牌，一般是撞大運的。■▲▲■㈤國標中番：24番～48番
○○○◆24番
1◇◆七星不靠 必須有7個單張的東西南北中發白，加上3種花色，數位按147、258、369中的7張序數牌組成沒有將牌的和牌。不計五門齊、不求人、單釣
2◇◆七小對 由7個對子組成和牌。不計不求人、單釣
3◇◆全雙刻 由2、4、6、8序數牌的刻了、將牌組成的和牌。不計碰碰和、斷幺
4◇◆全大 由序數牌789組成的順了、刻子(杠)、將牌的和牌。不計無字
5◇◆全中 由序數牌456組成的順子、刻子(杠)、將牌的和牌。不計斷幺
6◇◆全小 由序數牌123組成的順子、刻子(杠)將牌的的和牌。不計無字
7◇◆一色三節高 和牌時有一種花色3副依次遞增一位數字的刻了。不計一色三同順
8◇◆一色三同順 和牌時有一種花色3副序數相同的順了。不計一色三節高
9◇◆清一色 由一種花色的序數牌組成和各牌。不無字
這是一般國標高手喜歡使用的牌型，特別是在和菜鳥打牌時，由于新手聽牌慢，所以，他們就喜歡用這些牌型以求得到高分。當然，在正式比賽時，也喜歡用這些牌型。以七星不靠、全大、全中、全小、清一色這幾個牌型來說，變化多，可以由低番牌十三不靠、大于
五、全帶
五、小于
五、青龍等變化而來，所以，這些牌型為多數國標老手所喜愛。七小對、全雙刻主要是以起手的牌型所決定，手氣對這兩個牌型比較重要。一色三節高和一色三同順是比較難打的，但三節高容易成牌，只要有一色兩同順，就可以發狠勁等牌。
○○○◆32番
1◇◆混幺九 由字牌和序數牌一、九的刻了用將牌組成的各牌。不計碰碰和
2◇◆一色四步高 一種花色4副依次遞增一位數或依次遞增二位數的順子
3◇◆三杠 3個杠
總體來說，這三種牌型都有一定的難度，如果硬性去打其中的一種牌型是很難的，必須有好的起手牌，才有可能打成。三杠是不容易的，除了牌技以外，運氣占多數；一色四步高相對來說是容易成牌的，它在一色三步高的基礎上可以變化而來；混幺九如果起手幺九牌對子較多，就有可能打成。
○○○◆48番
1◇◆一色四節高 一種花色4副序數相同的順子，不計一色三節高、一般高、四歸一
2◇◆一色四同順 一種花色4副依次遞增一位數的刻子不計一色三同順、碰碰和
這兩種牌型如果打成了是非常好看的，但是，其難度是顯而易見的，“只可意會，不可強求”！■▲▲■㈥國標高番：64番～88番
○○○◆64番
1◇◆小四喜 和牌時有風牌的3副刻子及將牌。不計三風刻
2◇◆小三元 和牌時有箭牌的兩副刻子及將牌。不計箭刻
3◇◆清幺九 由序數牌一、九刻子組成的和牌。不計碰碰和、同刻、元字
4◇◆一色雙龍會 一種花色的兩個老少副，5為將牌。不計平各、七對、清一色
5◇◆字一色 由字牌的刻子(杠)、將組成的和牌。不計碰碰和
6◇◆四暗刻 4個暗刻(暗杠)。不計門前清、碰碰和
高番牌的打法已經不重要了，主要在心理和戰略上。沒有良好的心理準備和戰略觀念，遇到可以胡中番和小番的就會胡牌。這個里面的小三元是最容易打成的高番牌型，給人的感覺是定番太高，難度小，和其他高番牌相比出現的機率也是最高的(非經正式統計)。一色雙龍會是惟一技巧性強一些的牌型。
○○○◆88番
1◇◆四杠 4個杠
2◇◆九蓮寶燈 由一種花色序數牌子按1112345678999組成的特定牌型，見同花色任何1張序數牌即成和牌。不計清一色
3◇◆綠一色 由23468條及發字中的任何牌組成的順子、刻
五、將的和牌。不計混一色。如無“發”字組成的各牌，可計清一色
4◇◆大三元 和牌中，有中發白3副刻子。不計箭刻
5◇◆大四喜 由4副風刻(杠)組成的和牌。不計圈風刻、門風刻、三風刻、碰碰和
6◇◆連七對 由一種花色序數牌組成序數相連的7個對子的和牌。不計清一色、不求人、單釣
7◇◆十三幺 由3種序數牌的一、九牌，7種字牌及其中一對作將組成的和牌。不計五門齊、不求人、單釣
這幾種牌型是國標麻將中的極品，打成的話最少會高興兩三天吧！這里面有兩個牌型值得注意，一個是九蓮寶燈，這是個爭議比較多的牌型，主要是這個牌型成牌的過程和最終的牌型，容易引起誤解。從國標的規則來說是注重成牌的過程的，所以，即使最終的牌型和九蓮寶燈一樣，但如果成牌過程有差別，可能不會算88高番的。另一個是大三元，應該說，這個牌型是容易打成的，和小三元的觀念一樣，只要心狠一些，成牌早，就完全可以打成。這幾個高番牌里面還有一個牌型很有意思，就是綠一色，這個牌在起手條子好的情況下不妨一試，如果有發財助威，打成的可能性更大。并且這個牌型也很好看，綠綠的。我胡過這個牌，感覺很爽！其他的就不說了，如果胡了，你的對家和上下家會覺得你是“匪夷所思、天公造物”！
■▲▲■㈦國標零星小番：1番～2番
○○○◆2番
1◇◆斷幺九 和牌中沒有一、九及字牌 1 番
2◇◆四歸一 和牌中，有4張相同的牌歸于一家的順、刻子、對、將牌中(不包括杠牌)
3◇◆平和 由4副順子及序數牌作將組成的和牌，邊、坎、釣不影響平和
4◇◆雙暗刻 2個暗刻
5◇◆兩同刻 2副序數相同的刻子
6◇◆圈風刻 與圈風相同的風刻
7◇◆門風刻 與本門風相同的風刻
8◇◆箭刻 由中、發、白3張相同的牌組成的刻子
9◇◆門清 沒有吃、碰、明杠，和別人打出的牌
10◇◆暗杠 自抓4張相同的牌開杠
○○○◆1番
1◇◆老少配 一種花色牌的123、789兩副順子
2◇◆一般高 由一種花色2副相同的順子組成的牌
3◇◆缺一門 和牌中缺少一種花色序數牌
4◇◆無字 和牌中沒有風、箭牌
5◇◆幺九刻 3張相同的一、九序數牌及字牌組成的刻子(或杠)
6◇◆六連張 一種花色6張相連接的序數牌
7◇◆鑲邊
8◇◆嵌單 和2張牌之間的牌。4556和5也為坎張，手中有45567和6不算坎張
9◇◆單釣 釣單張牌作將成和
10◇◆自摸 自己抓進牌成和牌
11◇◆明杠 自己有暗刻，碰別人打出的一張相同的牌開杠：或自己抓進一張與碰的明刻相同的牌開杠
12◇◆喜相逢 2種花色2副序數相同的順子
13◇◇花牌 即春夏秋冬，梅蘭竹菊，每花計一分。不計在起和分內，和牌后才能計分。花牌補花成和計自摸分，不計杠上開花
自從打國標麻將以來，我終于認識到“細微之處見精神”，只有那些國標老手，特別是高手們是完全掌握了這些零星番牌的。對于“先聽三分胡”、“胡牌才是最大”的道理也有了深刻理解。在成牌過程中，掌握這些零星番牌會受益非淺。首先，可以掌握先機：在牌型一般的情況下，掌握先機會扭轉牌運，當牌運轉好，則可以做高番大牌，其胡牌機率也會相應提高。比如：在作五門齊時，有兩對時，應該先碰門風或者圈風或者幺九刻，這樣聽牌和胡牌都會容易一些。同時，掌握這些零星番牌也可以提高胡牌的質量，如混一色牌型，幺九刻、老少配、六連張都會提高番數，雖說只是1番2番，但這代表的是胡牌的質量和打牌者的水平。
第三篇：游戲麻將追劇
劇本：
小黑、小勇和雯雯在辦公室里睡覺，老板走進了辦公室說—— 老板：你們三個怎么回事？這個年底了，大家都在認真工作，你們睡覺。干啥去了？昨晚。小勇：昨晚我和朋友進行了戰爭的相片演練，遵循商級戰場的理念。我昨晚通宵讀史。本著以史為鑒的態度。分析古人性心理共性，將古代錯綜復雜的宮廷和官場斗爭進行系統的總結。小黑：我昨晚和朋友進行了抽樣統計實驗，從 144 個樣品中，隨機抓取 13 個樣品。從中不斷更換排列，以找到最高價值。
老板：把你們調到銷售部。短短兩個星期。就把打麻將、打游戲、追劇，說的這么清新脫俗。人才啊，好好干！
拍攝建議：
1． 有字幕。
第四篇：電力系統潮流計算程序
電力系統潮流計算c語言程序，兩行，大家可以看看，仔細研究，然后在這個基礎上修改。謝謝
#include “stdafx.h” #include #include“Complex.h” #include“wanjing.h” #include“gauss.h” using namespace std; int _tmain(int argc, _TCHAR* argv[]){ int i; //i作為整個程序的循環變量 int N=Bus::ScanfBusNo();//輸入節點個數 int L=Line::ScanflineNo();//輸入支路個數 if((L&&N)==0){return 0;} //如果找不到兩個文件中的任意一個，退出 Line *line=new Line[L];//動態分配支路結構體 Line::ScanfLineData(line);//輸入支路參數 Line::PrintfLineData(line,L);//輸出支路參數 Bus *bus=new Bus[N];//動態分配結點結構體 for(int i=0;i bus[i].Sdelta.real=0; bus[i].Sdelta.image=0;} Bus::ScanfBusData(bus);//輸入節點參數 Bus::PrintfBusData(bus,N);//輸出結點參數 Complex **X;X=new Complex *[N];for(i=0;i Bus::JisuanNodeDnz(X,line,bus,L,N);//計算節點導納矩陣 Bus::PrintfNodeDnz(X,N);//輸出節點導納矩陣 int NN=(N-1)*2;double **JacAug;JacAug=new double *[NN];for(i=0;i double *x;x=new double[NN];int count=1; LOOP: Bus::JisuanNodeI(X,bus,N);//計算節點注入電流 Bus::JisuanNodeScal(X,bus,N);//計算節點功率 Bus::JisuanNodeScal(X,bus,N);//計算節點功率 Bus::JisuanNodeSdelta(bus,N);//計算節點功率差值 Bus::PrintfNodeScal(X,bus,N);//輸出節點功率差值 int icon=wehcon1(bus,N);//whether converbence看迭代是否結束 if(icon==1){ cout<<“icon=”< Bus::JisuanJacAug(JacAug,X,bus,N);//計算雅可比增廣矩陣 // Bus::PrintfJacAug(JacAug,N); gauss::gauss_slove(JacAug,x,NN);//解方程組求出電壓差值 Bus::ReviseNodeV(bus,x,N);//修正節點電壓 // Bus::PrintfNodeV(bus,N); count++; goto LOOP;} else { for(i=0;i { int statemp,endtemp; Complex aa,bb,cc,dd,B; B.real=0; B.image=-line[i].B; statemp=line[i].start; endtemp=line[i].end; aa=Complex::productComplex(Complex::getconj(bus[statemp-1].V), B); bb=Complex::subComplex (Complex::getconj(bus[statemp-1].V), Complex::getconj(bus[endtemp-1].V)); cc=Complex::productComplex(bb , Complex::getconj(line[i].Y)); dd=Complex::CaddC(aa,cc); line[i].stoe=Complex::productComplex(bus[statemp-1].V,dd); aa=Complex::productComplex(Complex::getconj(bus[endtemp-1].V), B); bb=Complex::subComplex (Complex::getconj(bus[endtemp-1].V), Complex::getconj(bus[statemp-1].V)); cc=Complex::productComplex(bb , Complex::getconj(line[i].Y)); dd=Complex::CaddC(aa,cc); line[i].etos=Complex::productComplex(bus[endtemp-1].V,dd); } cout<<“icon=”< Bus::JisuanNodeScal(X,bus,N);//計算節點功率 for(i=0;i { bus[i].Scal.real = bus[i].Scal.real + bus[i].Load.real;//發電機功率=注入功率+負荷功率 bus[i].Scal.image= bus[i].Scal.image+ bus[i].Load.image; bus[i].V=Complex::Rec2Polar(bus[i].V); } cout<<“====節點電壓===============發電機發出功率======”< for(i=0;i { cout<<“節點”<<(i+1)<<'t'; Complex::PrintfComplex(bus[i].V); coutt(bus[i].Scal.real); coutt(bus[i].Scal.image); cout< } cout<<“======線路傳輸功率==========”< for(i=0;i { int statemp,endtemp; statemp=line[i].start; endtemp=line[i].end; cout< Complex::PrintfComplex(Complex::ComDivRea(line[i].stoe,0.01)); Complex::PrintfComplex(Complex::ComDivRea(line[i].etos,0.01)); cout< } } return 0;} #include “stdafx.h” #include #include“Complex.h” #include“wanjing.h” #include“gauss.h” using namespace std; int _tmain(int argc, _TCHAR* argv[]){ int i; //i作為整個程序的循環變量 int N=Bus::ScanfBusNo();//輸入節點個數 int L=Line::ScanflineNo();//輸入支路個數 if((L&&N)==0){return 0;} //如果找不到兩個文件中的任意一個，退出 Line *line=new Line[L];//動態分配支路結構體 Line::ScanfLineData(line);//輸入支路參數 Line::PrintfLineData(line,L);//輸出支路參數 Bus *bus=new Bus[N];//動態分配結點結構體 for(int i=0;i bus[i].Sdelta.real=0; bus[i].Sdelta.image=0;} Bus::ScanfBusData(bus);//輸入節點參數 Bus::PrintfBusData(bus,N);//輸出結點參數 Complex **X;X=new Complex *[N];for(i=0;i Bus::JisuanNodeDnz(X,line,bus,L,N);//計算節點導納矩陣 Bus::PrintfNodeDnz(X,N);//輸出節點導納矩陣 int NN=(N-1)*2;double **JacAug;JacAug=new double *[NN];for(i=0;i double *x;x=new double[NN];int count=1; LOOP: Bus::JisuanNodeI(X,bus,N);//計算節點注入電流 Bus::JisuanNodeScal(X,bus,N);//計算節點功率 Bus::JisuanNodeScal(X,bus,N);//計算節點功率 Bus::JisuanNodeSdelta(bus,N);//計算節點功率差值 Bus::PrintfNodeScal(X,bus,N);//輸出節點功率差值 int icon=wehcon1(bus,N);//whether converbence看迭代是否結束 if(icon==1){ cout<<“icon=”< Bus::JisuanJacAug(JacAug,X,bus,N);//計算雅可比增廣矩陣 // Bus::PrintfJacAug(JacAug,N); gauss::gauss_slove(JacAug,x,NN);//解方程組求出電壓差值 Bus::ReviseNodeV(bus,x,N);//修正節點電壓 // Bus::PrintfNodeV(bus,N); count++; goto LOOP;} else { for(i=0;i { int statemp,endtemp; Complex aa,bb,cc,dd,B; B.real=0; B.image=-line[i].B; statemp=line[i].start; endtemp=line[i].end; aa=Complex::productComplex(Complex::getconj(bus[statemp-1].V), B); bb=Complex::subComplex (Complex::getconj(bus[statemp-1].V), Complex::getconj(bus[endtemp-1].V)); cc=Complex::productComplex(bb , Complex::getconj(line[i].Y)); dd=Complex::CaddC(aa,cc); line[i].stoe=Complex::productComplex(bus[statemp-1].V,dd); aa=Complex::productComplex(Complex::getconj(bus[endtemp-1].V), B); bb=Complex::subComplex (Complex::getconj(bus[endtemp-1].V), Complex::getconj(bus[statemp-1].V)); cc=Complex::productComplex(bb , Complex::getconj(line[i].Y)); dd=Complex::CaddC(aa,cc); line[i].etos=Complex::productComplex(bus[endtemp-1].V,dd); } cout<<“icon=”< Bus::JisuanNodeScal(X,bus,N);//計算節點功率 for(i=0;i { bus[i].Scal.real = bus[i].Scal.real + bus[i].Load.real;//發電機功率=注入功率+負荷功率 bus[i].Scal.image= bus[i].Scal.image+ bus[i].Load.image; bus[i].V=Complex::Rec2Polar(bus[i].V); } cout<<“====節點電壓===============發電機發出功率======”< for(i=0;i { cout<<“節點”<<(i+1)<<'t'; Complex::PrintfComplex(bus[i].V); coutt(bus[i].Scal.real); coutt(bus[i].Scal.image); cout< } cout<<“======線路傳輸功率==========”< for(i=0;i { int statemp,endtemp; statemp=line[i].start; endtemp=line[i].end; cout< Complex::PrintfComplex(Complex::ComDivRea(line[i].stoe,0.01)); Complex::PrintfComplex(Complex::ComDivRea(line[i].etos,0.01)); cout< } } return 0;} #include class Complex//定義復數類 { public: double real;double image;int RecPolar;//0表示直角坐標，1表示極坐標 static Complex CaddC(Complex c1,Complex c2);//求兩個復數和 static Complex subComplex(Complex c1,Complex c2);//求兩個復數差 static Complex productComplex(Complex c1,Complex c2);//求兩個復數積 static Complex divideComplex(Complex c1,Complex c2);//求兩個復數商 static Complex ComDivRea(Complex c1,double r2);//除數 static Complex getconj(Complex c1);//求一個復數共軛 static Complex getinverse(Complex c1);//取倒數 static double getComplexReal(Complex c1);//求一個復數實部 static double getCompleximage(Complex c1);//求一個復數虛部 static void PrintfComplex(Complex c1);//顯示一個復數 static void PrintfmultiComplex(Complex C,int N);//顯示多個復數 static void zeroComplex(Complex c1);//將復數復零 static Complex Rec2Polar(Complex c1);//取極坐標 Complex(){ RecPolar=0;} }; Complex Complex::Rec2Polar(Complex c1)//極坐標表示 { Complex Node;Node.real=sqrt(c1.real*c1.real+c1.image*c1.image);Node.image=atan2(c1.image,c1.real)*180/3.1415926;Node.RecPolar=1;return Node;} Complex Complex::CaddC(Complex c1,Complex c2)//復數加法 { Complex Node; Node.real=c1.real+c2.real; Node.image=c1.image+c2.image; return Node;} Complex Complex::subComplex(Complex c1,Complex c2)//復數減法 { Complex Node; Node.real=c1.real-c2.real; Node.image=c1.image-c2.image; return Node;} Complex Complex::productComplex(Complex c1,Complex c2)//復數乘法 { Complex Node; Node.real=c1.real*c2.real-c1.image*c2.image; Node.image=c1.image*c2.real+c2.image*c1.real; return Node;} Complex Complex::divideComplex(Complex c1,Complex c2)//復數除法 { Complex Node; Node.real=(c1.real*c2.real+c1.image*c2.image)/(pow(c2.real,2)+pow(c2.image,2));Node.image=(c1.image*c2.real-c1.real*c2.image)/(pow(c2.real,2)+pow(c2.image,2));return Node;} Complex Complex::ComDivRea(Complex c1,double r1)//復數除數 { Complex Node;Node.real=c1.real/(r1);Node.image=c1.image/(r1);return Node;} Complex Complex::getconj(Complex c1)//取共軛 { Complex Node; Node.real=c1.real;Node.image=-c1.image; return Node;} Complex Complex::getinverse(Complex c1)//取倒數 { Complex Node;Node.real=1;Node.image=0;Node=(Complex::divideComplex(Node,c1));return Node;} double Complex::getComplexReal(Complex c1)//取實部 { return c1.real;} double Complex::getCompleximage(Complex c1)//取虛部 { return c1.image;} void Complex::PrintfComplex(Complex c1)//按直角坐標輸出 { if(c1.RecPolar==0){ cout.precision(6); cout.width(8); cout.setf(ios::right); cout< ”; cout.precision(6); cout.width(8); cout.setf(ios::left); cout< ”;} else { cout< Complex::zeroComplex(Complex c1)//清零 { c1.real=0;c1.image=0;} class gauss { public: static void gauss_slove(double **a,double *x,int NN);static void gauss_output();}; void gauss::gauss_slove(double **a,double *x,int NN){ int n,i,j,k,*pivrow,**pivcol;double eps,pivot,sum,aik,al; n=NN;pivrow=new int[n];pivcol=new int *[n]; for(i=0;i pivot= fabs(a[k][k]); pivrow[k]=k;//行 pivcol[k][0]=k;pivcol[k][1]=k;//列n*2矩陣 for(i=k;i { for(j=k;j { if(pivot { pivot=fabs(a[i][j]); pivrow[k]=i;//行 pivcol[k][1]=j;//列 } } } if(pivot { cout<<“error”< getchar(); exit(0); } if(pivrow[k]!=k)//行變換 { for(j=k;j<(n+1);j++) { al=a[pivrow[k]][j]; a[pivrow[k]][j]=a[k][j]; a[k][j]=al; } } if(pivcol[k][1]!=k)//列變換 { for(i=0;i { al=a[i][pivcol[k][1]]; a[i][pivcol[k][1]]=a[i][k]; a[i][k]=al; } } if(k!=(n-1))//將矩陣化為上三角形 式 { for(i=(k+1);i { aik=a[i][k]; for(j=k;j<(n+1);j++) { a[i][j]-=aik*a[k][j]/a[k][k]; } } } } x[n-1]=a[n-1][n]/a[n-1][n-1];//解方程 for(i=(n-2);i>=0;i--){ sum=0; for(j=(i+1);j { sum +=a[i][j]*x[j];0.182709 0.016894-0.0310701 -0.0402051 0.156702 -0.0355909-0.0668055 -0.00703229-0.0886481 -0.0129814-0.0390805 -0.0135062-0.1023 -0.0460568 -0.0342827 -0.00382402-0.102896 -0.0184062 } x[i]=(a[i][n]-sum)/a[i][i];} for(k=(n-2);k>=0;k--){ al=x[pivcol[k][1]]; x[pivcol[k][1]]=x[pivcol[k][0]]; x[pivcol[k][0]]=al;} cout<<“節點電壓修正量”< cout< } ====節點功率計算值==== 0.935261 -0.159048 0.573909 0.0789973-0.00289889 -0.00796623-0.0791247 -0.0168362-0.436255 -0.0580392 0.0359139 -0.0106592-0.229118 -0.0885419-0.136179 -0.148207 0.0446243 0.0111298-0.0223764 -0.00695775-0.0237482 -0.198318 -5.24266e-015 -0.0354071 -0.0925078 -1.05629e-015 -0.0391348 0.014529 0.00158644 -0.0258771 -0.109514 icon=1進行第2次迭代 節點電壓修正量 =================-0.00164889-0.000540034-0.00261067-0.00532027-0.00235315-0.00600971-0.00189677-0.00643874-0.0023631-0.00650659-0.00170949-0.0074907-0.00164545-0.00485415-0.00493977-0.0119042-0.00331285-0.0175611-0.00207908 -0.00347744-0.0869347-9.48909e-015-0.0110778-0.0538236-7.53784e-016-0.0168097 7.049e-005-0.00146487-0.00458276 0.00251645 -0.00336375-0.00530645-0.0147816-0.000326161-0.00640487-0.00251701-0.0169829-0.00175286-0.0174333-0.0239063 -0.0119192-0.076014 -0.0160104-0.441997 -0.0750285 0.000250012 3.72542e-005-0.228052 -0.108844-0.100078 -0.105634 0.000410707 0.000378067-0.057497 -0.0195879 0.200039 0.0582563-0.00307326-0.0163809-0.00232773-0.0175806 8.74293e-005-0.0192018 0.000558996-0.0197776-0.000247851-0.0193784-0.00115346-0.0185848-0.00127275-0.0186244-0.00010108-0.0188966 0.000553585-0.0200901-3.76315e-005-0.0208303 0.00308341-0.0219386-0.00195916-0.0205356-0.00184757-0.0076401 0.00197593-0.0245534 0.00434657-0.027534 ====節點功率計算值==== 0.98623 -0.134163 0.583136 0.166278-0.111173 0.199792 -0.0621041 -0.0821379 -0.0350785 -0.0902383 -0.0320461 -0.0951562 -0.0220362 -0.175458 4.72557e-015 -0.0320661 -0.0871134 -7.03489e-017 -0.0350769 0.000273455 1.51804e-005 -0.0240417 -0.10604 icon=1進行第3次迭代 節點電壓修正量 =================-2.67079e-005-2.30128e-006-2.20543e-005-6.00686e-005-2.33043e-005-6.85601e-005-3.22294e-005-2.61107e-005-2.80198e-005-6.6167e-005-2.34528e-005 -0.0739846 0.0227868-0.0158709-0.0248173-0.0179447-0.0578368-0.00890719-0.0337091-0.00693706-0.111601 1.21429e-014-0.0159145-0.0667319 9.24355e-016-0.0228592 7.10354e-005-6.6188e-006-0.00889343-0.0184098 -5.66132e-005-4.4646e-005-1.74668e-005-4.50947e-005-0.000181763-3.81763e-006-0.000286581-6.68993e-005-1.28441e-005-5.17172e-005-0.000223284-4.54717e-005-2.47586e-005 4.32335e-007-0.000258494 1.82635e-005-0.000272051-6.95195e-006-0.000251969 1.11318e-005-0.000279418 5.74737e-005-0.000307368 6.86998e-005-0.000320274 5.38112e-005-0.00031447 3.59531e-005-0.00030494 3.37607e-005-0.000307449 5.26532e-005-0.000310721 6.92761e-005-0.000350373 5.60942e-005-0.00040977 0.000123641-0.000440259 1.36149e-005-0.000426973-1.70227e-005-9.37794e-005 0.000113675-0.000544011 0.000176034-0.000636202 ====節點功率計算值==== 0.986878 -0.133979 0.583 0.167193-0.024 -0.012-0.076 -0.016-0.442 -0.0748606 1.43501e-008 1.07366e-008-0.228 -0.109 -0.0999999 -0.104049 4.51318e-008 8.98835e-008-0.0579999 -0.0199999 0.2 0.0591018-0.112 -0.0749997 0.2 0.0242519-0.062 -0.016-0.082 -0.025-0.035 -0.018 -0.0900001 -0.058-0.032 -0.00899997-0.095 -0.0339999-0.022 -0.00699998-0.175 -0.112 -6.07156e-015 -1.19217e-014-0.032 -0.016-0.087 -0.0669999 7.03078e-017 -9.23979e-016-0.035 -0.0229999 1.09492e-007 4.45699e-008 1.54958e-009 -2.01531e-010-0.024 -0.00899994-0.106 -0.0189996 icon=0,迭代結束。 ====節點電壓===============發電機發出功率====== 節點1 1.05 0。 98.6878-13.3979 節點2 1.045 -1.846。 29.4193 節點3 1.02384-3.83352。 0 節 點25 1.01216-9.68486。 0 0 0 節點4 1.01637-4.55698。 0 節 點26 0.994393 -10.1089。 0 0 0 節點5 1.01 -6.48617。 節 點27 1.02012-9.42025。 0 11.5139 0 節點6 1.01332-5.38073。 0 節 點28 1.00992-5.86244。 0 0 0 節點7 1.00489-6.38368。 0 節 點29 1.00022-10.6579。 0 0 節點8 19.5951 節點9 0 節點10 0 節點11 5.91018 節點12 0 節點13 2.42519 節點14 0 節點15 0 節點16 0 節點17 0 節點18 0 節點19 0 節點20 0 節點21 0 節點22 0 節點23 0 節點24 0 1.01 -5.62974。 1.03905-6.78143。 1.03595-8.69362。 -4.5962。 1.04711-7.80323。 1.05 -6.34392。 1.03242-8.7401。 1.02788-8.86784。 1.03458-8.45044。 1.03051-8.83678。 1.01845-9.5141。 1.01604-9.70326。 1.02022-9.50938。 1.0237-9.17478。 1.02432-9.17024。 1.01802-9.36719。 1.01339-9.68362。 0 20 節 點30 0.988705 -11.5464。 0 0 0 ====== 線路傳輸功率========== 2to1 -57.7373 5.41674i 58.3454 0 -15.1827i 3to1 -39.659 -7.75964i 40.3424 1.78481i 4to2 -30.87 -9.74186i 31.4153 0 3.58352i 4to3 -37.0772 -7.78596i 37.259 6.55964i 5to2 -44.3717 -9.78456i 45.2968 0 4.84242i 6to2 -38.4766 -8.22625i 39.3252 0 2.87667i 6to4 -34.946 1.92384i 35.0885 0 -3.28202i 7to5 -0.16304 -6.41767i 0.171702 0 2.2985i 7to6 -22.637 -4.48233i 22.7745 0 1.44238i 8to6 -11.8939 -5.48098i 11.913 0 3.70557i 6to9 12.3737 -12.3826i -12.3737 0 13.0033i 6to10 10.9107 -3.80907i -10.9107 0 4.53223i 11to9 5.91018i 0 -5.08963i 10to9 -32.652 -2.3712i 32.652 0 3.46974i 4to12 23.5411 -11.5375i -23.5411 0 13.2407i 13to12 2.42519i 1.05 -1.90978i 1.66484i 14to12 -7.9019 -2.06732i 7.97894 30to29 -3.6702 -0.542564i 3.70398 2.22749i 0.606393i 15to12 -18.254 -5.74885i 18.4835 28to8 -1.89152 -3.79982i 1.89395 6.20089i-4.9239i 16to12-7.53872 -2.90237i 7.59633 28to6 -14.7868 -2.82565i 14.8234 3.02352i 0.294601i 15to14-1.69544 -0.461488i 1.70189 請按任意鍵繼續...0.467323i 17to16-4.03014 1.10238i 18to15-6.08074 1.46028i 19to18-2.87549 0.478389i 20to19 6.6418-2.93222i 20to10 -8.8418 3.85077i 17to10-4.96987 4.76656i 21to10-16.1562 9.42843i 22to10-7.87782 4.21401i 22to21 1.34443-2.01837i 23to15-5.59369 2.25006i 24to22-6.48186 2.08163i 24to23-2.38596 0.579814i 25to24-0.167617 0.281364i 26to25 -3.5 2.3674i 27to25 3.39433-2.08638i 28to27 16.1446 3.13006i 29to27-6.10398 1.67047i 30to27-6.92979-1.07089i-1.37839i-0.467767i 2.96679i-3.66679i-4.72911i-9.18162i-4.10132i 2.01969i-2.17981i-2.00141i-0.56401i -0.28102i-2.29999i 2.11848i-2.10093i-1.50639i -1.3574i 4.03872 6.12096 2.88074 -6.62452 8.9242 4.98423 16.2709 7.93248 -1.34378 5.62846 6.53339 2.39369 0.167814 3.54513 -3.37751 -16.1446 6.19083 7.09313 高等電力系統分析 IEEE30節點潮流程序 班級：電研114班 姓名：王大偉 學號：2201100151 編導語：激發孩子手口一致點數以及按一定規律排序的興趣，培養孩子豐富的想象力和空間建構能力。目標：激發孩子手口一致點數以及按一定規律排序的興趣，培養孩子豐富的想象力和空間建構能力。 準備：麻將 玩法： 1、親子自由玩麻將。 2、家長引導孩子數數各“條”、“餅”的個數。 3、親子比一比誰的“條”（“餅”）多，誰的少？ 4、家長引導孩子用麻將堆成或擺成各種形狀，說出圖形名稱。 5、家長按一定的規律擺放麻將，引導孩子發現規律。 6、請孩子也按一定規律擺放，讓家長來猜。第五篇：幼兒園親子游戲之好玩的麻將
點擊咨詢 