專業(yè)數(shù)學(xué)建模實驗報告一

1、數(shù)學(xué)建模與數(shù)學(xué)實驗實驗報告實驗一.微積分基本模型及實驗專業(yè)、班級信息1101學(xué)號201110010116姓名邵森課程編號81010240實驗類型驗證性學(xué)時2實驗(上機)地點教七樓數(shù)學(xué)實驗中心完成吋間2012-3-30任課教師馬新順評分一、實驗?zāi)康募耙?. 掌握數(shù)學(xué)軟件mathematica的基本用法利一些常用的規(guī)則，能用該軟件進行基本微積分運算， 并能進行一些簡單的編程；2. 理解malthus和logistic人口增長模型，能夠借助數(shù)學(xué)軟件對增長率和人口上限等參數(shù)進行擬 合計算；3. 理解經(jīng)濟系統(tǒng)的蛛網(wǎng)模型和確定性存貯模型，了解微分方程和差分方程的穩(wěn)定性理論在實際應(yīng) 川的重要意義，能夠借助

2、數(shù)學(xué)軟件求解微分方程、差分方程和代數(shù)方程；4. 理解兩種存貯問題(即不允許缺貨和允許缺貨問題)的本質(zhì)區(qū)別和聯(lián)系，能夠借助數(shù)學(xué)軟件求 解并分析這兩個問題。二、借助數(shù)學(xué)軟件，研究、解答以下問題(一)利用中心差分公式，即代曲+ 1)_曲_% = ),借助數(shù)學(xué)軟件，從p10表1中的 dt2t數(shù)據(jù)出發(fā),重新計算教材p11中的表2和p12表3。主耍使用的mathematica語句：table, fit及循壞控制語句【解】：給出你的計算或分析步驟、結(jié)果，列出必要的程序淸單等p11 表 2程序代碼如下：%人口數(shù)拯處理擬合dmt al= 3 9 5.3 7.2 9.6 12.9 17.1 23.2 31.4 3

3、8.6 50.2 62.9 76.0 92.0 106.5 123 2 131.7 150.7 179.3 204.0 226.5 251.4 281.4;y=log(datel);y0=3.9 5.3 7.2 9.6 12.9 17.1 23.2 31.4 38.6 50.2 62.9 76.0; yl = log (yo);t=0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21;tl= 0 123456789 10 11);al=polyfit(tl,ylz1)%a1 1790-1900b1=a1;x01=exp(bl(2)rl=

4、bl(1)for i=l:12xl (i)=x01*exp(rl*(i-1);dx=rx dt40) = x0兀(0) = xox(0) = x0endxla2=polyfit (tzy,1)%a2 1790-2000b2=a2;x02=exp(b2(2)r2=b2(1)for i=l:22x2 (i)=x02*exp(r2*(i-1);endx2計算結(jié)果如下：x2/1.0e + 002年1790180018101820實際人口39537.296計算人口 x14.188444465.510489537 249826329.53816924計算人口 x20.060449710.073995560

5、.090576830.110873701830184018501860187012.917丄23.231.438612 548807116.509726021 720873528.576873237.59690790.135718800.166131300.203358780.248928360.304709381880189019001910192050.262976.092.0106.549.464036065.076917185.61786460.372990080.456571430.558882080.684118970.8374195319301940195019601970123

6、.2131.7150.7179.3204.01.025072391254775371.535951271 880134372.30144362198019902000226.5251.4281.42.817161803.448444514 22118798（二）針對3種人口增長模型:牛=rg _ x)dt1. 用數(shù)學(xué)軟件求解（1） -（3）,給出計算結(jié)果;2. 驗證（2）的解的拐點為：（皿心_旺）in北亞）；r23. 針對具體的乙,兀0，廠，畫出以上3個模型的解的圖像加以比較，給出你的比較結(jié)果。主要使用的 mathematica 語句：dsolve, solve, plot 等語句【解：1.1

7、dsolve （' dx=r*x， x （0） =x0,，氣'） ans =x0*cxp (r* t)1.2dsolve (' dx=r*x*(l-x/xm)',' x(0)=x0,， t') ans 二-xm/(exp(xm*(log(xo - xm) /x0) /xm - (r*t)/xm) - 1)1.3dsolve (' dx=r*(xm-x)',' x (0) =x0,， t')ans =xm + (xo - xm)/exp(r*t)2. 驗證帶入(ln(xw-x0)-lnx0 亞)r' 23 數(shù)

8、據(jù)圖像008膜一一 ybus決3迄°o51015時間軸10年20250000600570002o3040程序代碼如下：xm=433.9886;r=0.2490;x0=39;t=0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21; xl=x0*exp (r*t);x2=-xm./(exp(xm*(log(xo - xm)/x0)/xm - (r*t)/xm)- 1);x3=xm + (xo - xm)./exp(r*t);, x2, 1 y 1 z tx3jb)grid onxlabel (* 時間軸/10年')yla

9、bel模型預(yù)測的人口值,)（三）借助數(shù)學(xué)軟件研究確定性存貯問題：1. 針對不允許缺貨和允許缺貨最優(yōu)存貯模型，試求其解析解;2. 畫圖研究最優(yōu)訂貨周期和訂貨量與需求量廠、訂貨量才q、存貯費°的關(guān)系（可自行給定其中的兩個值）;3. 比較兩種情況下的費用大小。%”替換模式，或口定義函數(shù)等主要使用的malhcmatica語句：solve,【解】：1. 1不允許缺貨：ft 1=cl/t+c2*r*t/2f 1 t_(c2 r)/2-cl/t_(2)特征方程為：4" + u b x2+2u b x + u 0=0 特征根求解：solve4*xa3+a*b*xa2+2*a*b*x+a*b

10、 0,x xt-(a b) /12) - (24 a b-a2 b2) / (12興 v27a2b2 a3b:)")+i/i2(-216 a ! 27 a2b2 a3b')i/b x->_ ( (a b)/12) + ( (1+皿 b+36 aa2 ba2-aa3 ba3+24 j 2= a2 a3bjaa2 ba2-aa3 b八3 + 24 滅 27 異於 、)1/3 ,-(a b) /12) + ( (1- 尺)(24a b-a2 b2) ) / (24 (-216 a b+36 aa2 ba2-aa3 ba3 + 24j 2刁 a2 %嚴)-./24(1+ * )

11、(-216 a b+36 aa2 ba2-aa3 "3+24 興 27b" )1/3solve (c2 *r)/2-cl/t_2 0 ,t tinversefunction pattern, 1,2-()/ (c2r) ) f _ , t>inversefunctionpatternr1z 2( inversefunctionpattern/l'2 -( z),_ , t->inversefunctionpattern,1f 2得 t= v2clr/c2 yj2c/c2r代入 q=v2dr7c2最小的總費用c=sqrt (2clc2r)1.2允許缺貨ct

12、_zq_=cl/t+c2*qa2/(2*r*t)+c3 (r*t-q)a2/ (2*r*t) dcl/t+(c2 q2) /(2 r t) + (c3(-q+r t)2) /(2 r t)z tzl-(cl/t2) - (c2 q2) / (2 r t2) + (c3 (-q + r t) ) /t- (c3 (-q+r t)2) / (2 r t2) simplify - (cl/t2)- (c2 q2) / (2 r t2) + (c3 (-q+r t) ) /t- (c3 (-q+r t) 2) / (2 r t2) -(c2 q2 + c3 q2+2 cl r-c3 r2 t2) /

13、(2 r t2)dcl/t+ (c2 q2) /(2 r t) + (c3(-q+r t)2) /(2 r t),q,1(c2 q)/(r t)-(c3 (-q+r t)/(r t)simplify(c2 q)/ (r t)-(c3 (-q+r t)/ (r t)(c2 q+c3 q-c3 r t)/(r t)solve - (cl/t2)- (c2 q2) / (2 r t2) + (c3(-q + r t) ) /t- (c3(-q+r t)2)/ (2 rtt-(jc2 02 c3o2 2 cl i /門)c2q2 c3o2 2 cl i /r)t2)0,t,solve (c2 q)/

14、(r t)- (c3 (-q+r t)/(r t) 0,q qt(c3 r t) / (c2+c3) (四)借助數(shù)學(xué)軟件研究差分方程：1. 給出教材卩222中1 (1) - (2)中忑所滿足的差分方程；2. 求解以上差分方程的特征根；3. 驗證：當|&0|<2時，以上特征根兄滿足|2|<1主要使用的 mathematica 語句：rsolve, solve, simplify 等語句【解j： i. (1)簡單的假設(shè)y如山x如和心的平均值決定，模型為兒+】y()=-(x,+1 + x,)/2- x() xr+d(y«-y()得 2 林+2 + g0 耳+ + a/3

15、xk =2(1 + q0) x01. (2)設(shè)也由兒和兒一的平均值決定，模型為兒+】一兒=_&(匕陽| + xj / 2 x°)vxk+|-x()=0(* + )r)/2-y()得 4 耳+3 + a嘰2 + 2a/3g + a(3xk = c其特征方程為彳入2 (1) | a 3 |<2 m=0; for h=0:0.0001:2.0% h=a*b a= (1/4)*(-h+sqrt(h)人2-8h) ) , (1/4) (-h-sqrt(h)a2-8*h); + apx2+2apx + a3=02. (1)特征方程為：2入2 + a p x + a p =0特征根求

16、解：solve 2*xa2 + a*b*x+b 0, xxti/4(-a b-代 丘8 ak ),x->l/4(-a b+ 代(-216 a b+36 aa2 b八2-3 "3 + 24b+36 aa2 ba2-aa3 ba3+24* ) (24 a b-a2 bj )/(24 (-216 a)1/3) -1/24 (1-) (-216 a b+36v 8 at、for i=l:2if (abs(a(i)<1)m=m+l;endif m=40002disp( 'x的值小于0,驗證通過，)endendendyzx的值小于1,驗證通過3. (2) la p |<2三、本次實驗的難點分析模型的理解及求解，數(shù)學(xué)軟件運用不熟練：四、參考文獻1 f. s. roberts. discrete mathematical model