以VisualC++6.0控制臺實現(xiàn)的遺傳算法，源主程序其實是本站原有的，但以前的錯誤很多，調(diào)通了大家了分享一下
上傳時間： 2014-01-09
上傳用戶：zhichenglu
function [alpha,N,U]=youxianchafen2(r1,r2,up,under,num,deta) %[alpha,N,U]=youxianchafen2(a,r1,r2,up,under,num,deta) %該函數(shù)用有限差分法求解有兩種介質(zhì)的正方形區(qū)域的二維拉普拉斯方程的數(shù)值解 %函數(shù)返回迭代因子、迭代次數(shù)以及迭代完成后所求區(qū)域內(nèi)網(wǎng)格節(jié)點處的值 %a為正方形求解區(qū)域的邊長 %r1,r2分別表示兩種介質(zhì)的電導(dǎo)率 %up,under分別為上下邊界值 %num表示將區(qū)域每邊的網(wǎng)格剖分個數(shù) %deta為迭代過程中所允許的相對誤差限 n=num+1; %每邊節(jié)點數(shù) U(n,n)=0; %節(jié)點處數(shù)值矩陣 N=0; %迭代次數(shù)初值 alpha=2/(1+sin(pi/num));%超松弛迭代因子 k=r1/r2; %兩介質(zhì)電導(dǎo)率之比 U(1,1:n)=up; %求解區(qū)域上邊界第一類邊界條件 U(n,1:n)=under; %求解區(qū)域下邊界第一類邊界條件 U(2:num,1)=0;U(2:num,n)=0; for i=2:num U(i,2:num)=up-(up-under)/num*(i-1);%采用線性賦值對上下邊界之間的節(jié)點賦迭代初值 end G=1; while G>0 %迭代條件：不滿足相對誤差限要求的節(jié)點數(shù)目G不為零 Un=U; %完成第n次迭代后所有節(jié)點處的值 G=0; %每完成一次迭代將不滿足相對誤差限要求的節(jié)點數(shù)目歸零 for j=1:n for i=2:num U1=U(i,j); %第n次迭代時網(wǎng)格節(jié)點處的值 if j==1 %第n+1次迭代左邊界第二類邊界條件 U(i,j)=1/4*(2*U(i,j+1)+U(i-1,j)+U(i+1,j)); end if (j>1)&&(j U2=1/4*(U(i,j+1)+ U(i-1,j)+ U(i,j-1)+ U(i+1,j)); U(i,j)=U1+alpha*(U2-U1); %引入超松弛迭代因子后的網(wǎng)格節(jié)點處的值 end if i==n+1-j %第n+1次迭代兩介質(zhì)分界面（與網(wǎng)格對角線重合）第二類邊界條件 U(i,j)=1/4*(2/(1+k)*(U(i,j+1)+U(i+1,j))+2*k/(1+k)*(U(i-1,j)+U(i,j-1))); end if j==n %第n+1次迭代右邊界第二類邊界條件 U(i,n)=1/4*(2*U(i,j-1)+U(i-1,j)+U(i+1,j)); end end end N=N+1 %顯示迭代次數(shù) Un1=U; %完成第n+1次迭代后所有節(jié)點處的值 err=abs((Un1-Un)./Un1);%第n+1次迭代與第n次迭代所有節(jié)點值的相對誤差 err(1,1:n)=0; %上邊界節(jié)點相對誤差置零 err(n,1:n)=0; %下邊界節(jié)點相對誤差置零 G=sum(sum(err>deta))%顯示每次迭代后不滿足相對誤差限要求的節(jié)點數(shù)目G end
標(biāo)簽： 有限差分
上傳時間： 2018-07-13
上傳用戶：Kemin
VHPD1394 V1.15驅(qū)動程序源碼﹐開發(fā)1394相關(guān)程序的參考程序
上傳時間： 2014-01-24
上傳用戶：壞天使kk
電子工業(yè)出版社出的關(guān)於軟件工程的好書,強烈推薦項目經(jīng)理和系統(tǒng)工程師閱讀.能夠幫助你完成快速軟件開發(fā)
上傳時間： 2015-09-27
上傳用戶：zycidjl
wdm驅(qū)動開發(fā)設(shè)計手冊的完整源碼, 網(wǎng)上少有
上傳時間： 2015-11-25
上傳用戶：cc1
利用此源碼可以使用ALTERA DE2開發(fā)板將鍵盤變成一部電子琴
上傳時間： 2016-03-23
上傳用戶：cc1015285075
這是一個Verilog的電梯控制程序碼,控制樓層為1~4樓,關(guān)開門...等
上傳時間： 2016-05-04
上傳用戶：wyc199288
龍族全部地圖端口(地圖全開的Mapserver),path的路徑請按照自己電腦上的路徑設(shè)置
上傳時間： 2017-08-02
上傳用戶：han_zh
本書以最新的資訊家電、智慧型手機、PDA產(chǎn)品為出發(fā)點，廣泛並深入分析相關(guān)的嵌入式系統(tǒng)技術(shù)。 適合閱讀： 產(chǎn)品主管、系統(tǒng)設(shè)計分析人員、欲進(jìn)入此領(lǐng)域的工程師、大專院校教學(xué). 本書效益： 為開發(fā)嵌入式系統(tǒng)產(chǎn)品必備入門聖經(jīng) 進(jìn)入嵌入式系統(tǒng)領(lǐng)域的寶典 第三代行動通訊終端設(shè)備與內(nèi)容服務(wù)的必備知識.
上傳時間： 2015-09-03
上傳用戶：阿四AIR
電子報軟體. 你想輕輕鬆鬆的寄送電子報 功能介紹: 1. 支援多個伺服器分散流量. (已可設(shè)定每次的最大郵件數(shù)) 2. 支援多個設(shè)定檔選擇. 3. 可直接選擇硬碟內(nèi)的 HTML, 純文字檔當(dāng)做寄信內(nèi)容. 4. 支援定時、每日、每週、每月送信. 5. 配合 ServiceAgent 可以成為NT/2000下的服務(wù). 6. 可夾帶附件檔案. 7. 在原本可直接選取電腦硬碟上的檔案(HTML)來做為HTML寄信的本文之外, 目前已能將 HTML 內(nèi)的圖檔(gif,jpg,bmp,png)的 <img> tag 和 音效檔(wav,mid,swf)的<EMBED> tag 的內(nèi)容一起勘進(jìn)郵件內(nèi)容裡. 8. 以 Command Line 執(zhí)行的方式就能啟動寄信流程. 9. 透過電子郵件信箱即可啟動自動化電子報訂閱/取消功能! 開發(fā)工具: 1. Delphi 5 2. Indy Winshoes8 (free delphi component)
上傳時間： 2014-01-05
上傳用戶：l254587896
蟲蟲下載站版權(quán)所有 京ICP備2021023401號-1
