




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、RANDOM WALK王慶PB11204037物理化學(xué)研討第三小組12013/12/24 Tuesday一維晶格隨機(jī)行走模擬(C)#include #include #include #include #includevoid main() FILE*outfile; if(outfile=fopen(outfile.dat,w)=NULL) printf(cannot open this filen); exit(0); float a=0.0; float b=0.0; int x=0; int i=1; srand(int)time(NULL);while(i0.5) x=x+1; el
2、se x=x-1; printf(%d %dn,i,x); fprintf(outfile,%d %dn,i,x); i=i+1; fclose(outfile);22013/12/24 Tuesday一維隨機(jī)行走模擬1000個(gè)點(diǎn)32013/12/24 Tuesday4一維隨機(jī)行走模擬10000個(gè)點(diǎn)2013/12/24 Tuesday5一維隨機(jī)行走模擬100000個(gè)點(diǎn)2013/12/24 Tuesday#include#includeusing namespace std;int main() FILE*outfile; if(outfile=fopen(outfile.dat,w)=NULL
3、) printf(cannot open this filen); exit(0); int x=0,y=0,i=0; int step; cout起點(diǎn):(0,0)endl; fprintf(outfile,%d %d %dn,i,x,y); srand(time(NULL); for(i=1;i100;i+) step=rand()%4; if(step=0) x+; couti向前endl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y); else if(step=1) x-; couti向后endl; cout位置(x,y)endl;
4、 fprintf(outfile,%d %d %dn,i,x,y); else if(step=2) y-; couti向左endl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y); else if(step=3) y+; couti向右endl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y); printf(*n); printf(以上數(shù)據(jù)是二維隨機(jī)行走%d步的結(jié)果!n,i); fclose(outfile);6二維晶格隨機(jī)行走模擬(C+)2013/12/24 Tuesday二維隨機(jī)行
5、走100步位置 (X,Y)與時(shí)間T關(guān)系圖72013/12/24 Tuesday8二維隨機(jī)行走100步距離R與時(shí)間T關(guān)系圖2013/12/24 Tuesday9二維隨機(jī)行走10000步位置 (X,Y)與時(shí)間T關(guān)系圖2013/12/24 Tuesday10二維隨機(jī)行走10000步距離R與時(shí)間T關(guān)系圖2013/12/24 Tuesday#include#include#includeusing namespace std;int main() FILE*outfile; if(outfile=fopen(outfile.dat,w)=NULL) printf(cannot open this fil
6、en); exit(0); int x=0,y=0,i=0; int step; long double r=0,max=0; cout起點(diǎn):(0,0)endl; fprintf(outfile,%d %d %dn,i,x,y); srand(time(NULL); for(i=1;i10E8;i+)/此處設(shè)置循環(huán)次數(shù) step=rand()%4; if(step=0) x+; couti向前endl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y);11二維晶格沙漠中醉漢隨機(jī)行走模型 else if(step=1) x-; couti向后e
7、ndl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y); else if(step=2) y-; couti向左endl; cout位置(x,y)endl; fprintf(outfile,%d %d %dn,i,x,y); else if(step=3) y+; couti向右endl; cout位置(x,y)max) max=r; if(max=40) break;/此處設(shè)置沙漠半徑 printf(最遠(yuǎn)距離是:%.2fn,max); if(max=40) printf(上天憐憫啊,我終于走出沙漠了!n);/此處設(shè)置沙漠半徑 else p
8、rintf(我是故意不走出沙漠的,哼!n); printf(* * * * * * * * * * * * * * * * * * *n); printf(以上數(shù)據(jù)是二維隨機(jī)行走%d步的結(jié)果!n,i); fclose(outfile);2013/12/24 Tuesday12醉漢沙漠隨機(jī)行走模型某次運(yùn)行結(jié)果預(yù)設(shè)(速度:1m/s,沙漠半徑是10000m,完全隨機(jī)晶格線路)走1000步,計(jì)算機(jī)運(yùn)行約4秒,最遠(yuǎn)距離23.09;走10000步,計(jì)算機(jī)運(yùn)行約28秒,最遠(yuǎn)距離127.88;走100000步,計(jì)算機(jī)運(yùn)行約270秒,最遠(yuǎn)距離345.04;走1000000步。2013/12/24 Tuesday
9、13二維晶格自規(guī)避隨機(jī)行走GSAW2013/12/24 Tuesday以(0,0)為起點(diǎn)的GSAW模擬情形??梢娫撃P秃苋菀拙蜁?huì)“進(jìn)入死胡同”從而終止程序。14二維晶格自規(guī)避隨機(jī)行走GSAW2013/12/24 Tuesday15蜂窩狀晶格隨機(jī)行走示意圖2013/12/24 Tuesday#include #include #include #include #include#define PI 3.141592654main()FILE*fengwo; if(fengwo=fopen(fengwo.dat,w)=NULL) printf(cannot open this filen);exi
10、t(0); double x=0.0,y=0.0; int i=1;int step; 16srand(int)time(NULL); for(i=1;i100;i+)if(i%2=1) step=rand()%3; if(step=0) y=y+1.0; else if(step=1) x=x+0.5;y=y-cos(PI/6); else if(step=2) x=x-0.5;y=y-cos(PI/6); elsestep=rand()%3; if(step=0) y=y-1.0; else if(step=1) x=x+0.5;y=y+cos(PI/6); else if(step=2) x=x-0.5;y=y+cos(PI/6); printf(%f %fn,x,y); fprintf(fengwo,%f %
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 住家保姆中介合同標(biāo)準(zhǔn)文本
- 代理房屋過戶合同標(biāo)準(zhǔn)文本
- 東城平房轉(zhuǎn)賣合同標(biāo)準(zhǔn)文本
- 上海市房屋抵押合同標(biāo)準(zhǔn)文本
- 農(nóng)村房屋土地承包合同范例
- 護(hù)理研究老年癡呆
- 五金銷售合同標(biāo)準(zhǔn)文本
- 上海正規(guī)公司注冊(cè)合同標(biāo)準(zhǔn)文本
- ecovadis審核咨詢合同標(biāo)準(zhǔn)文本
- 安全教育活動(dòng)大班
- 河南鄭州航空港區(qū)國(guó)際教育集團(tuán)招聘考試真題2024
- 中小學(xué)校長(zhǎng)在教師大會(huì)上講話:以八項(xiàng)規(guī)定精神引領(lǐng)教育高質(zhì)量發(fā)展根深?重明?規(guī)立?法新?行遠(yuǎn)
- 全球化背景下的中國(guó)外交政策試題及答案
- 食品安全管理制度打印版
- 西交大政治考題及答案
- 關(guān)于除顫儀的試題及答案
- 2025年北京電子科技職業(yè)學(xué)院高職單招高職單招英語2016-2024歷年頻考點(diǎn)試題含答案解析
- 第一屆貴州技能大賽銅仁市選拔賽平面設(shè)計(jì)技術(shù)文件
- 2025年陜西農(nóng)業(yè)發(fā)展集團(tuán)有限公司(陜西省土地工程建設(shè)集團(tuán))招聘(200人)筆試參考題庫(kù)附帶答案詳解
- 2024-2025學(xué)年度一年級(jí)第二學(xué)期月考第一二單元語文試題(含答案)
- 2024-2025學(xué)年湖南省長(zhǎng)沙市芙蓉區(qū)長(zhǎng)郡雙語洋湖實(shí)驗(yàn)中學(xué)九年級(jí)下學(xué)期入學(xué)考試英語試題(含答案)
評(píng)論
0/150
提交評(píng)論