日常生活中的經(jīng)濟(jì)問題(完整版)
【正文】 款方式。 a=x/.r[[1]]。 pict[1000]。 tu2=ListPlot[data,PlotJoinedTrue, PlotStyleRGBColor[0,0,1], DisplayFunctionIdentity]。plist={}。 data=NestList[p,a,n]。 TableForm[{head,body}]]。 ll={Line[{{a,0},{a,p[a]}}]}。 iterpict[,5]。 a=c,{k,1,n}]。a=a0。 AppendTo[head,N[j/10]]]。 AppendTo[pilist,ListPlot[plist,PlotStyle {RGBColor[1,0,0],PointSize[]}, DisplayFunctionIdentity]]]。 迭代數(shù)列上下振蕩，趨向于不動點 (r1)/r. (* 初值 r=, a0= *) logistic[,30]。 ListPlot[data1,PlotStyle{RGBColor[0,0,1],PointSize[]}]] pict1[2]。 pict[a_]:=Module[{data1},data1=NestList[p,a,30]。 (*取對數(shù)后再觀察，可以發(fā)現(xiàn)圖像近似一條直線 .*) lgf=Log[fib]。d2a[n_]:=da[n+1]da[n]。 money1=Table[{n,a[n]},{n,0,20}]。 TableForm[Join[{{年份 , 存款額 }},money1]] (*其次計算各階差分 *) da[n_]:=a[n+1]a[n]。 d3a[n_]:=d2a[n+1]d2a[n]。 tu2=ListPlot[lgf,PlotStylePointSize[]]。 ListPlot[data1,PlotStyle{RGBColor[0,0,1],PointSize[]}]] pict[0]。 Logistic 方程的迭代 logistic方程是非線性方程，其標(biāo)準(zhǔn)形式為 : an+1=r an(1an), 下面通過實驗觀察迭代數(shù)列的收斂性 . logistic[r_,a_,n_]:= Module[{p,data,tu1,tu2},p[x_]:=r x(1x)。 經(jīng)過一段時間的調(diào)整，迭代數(shù)列開始接近在 蕩 . 這類振蕩稱為 2循環(huán) . (* 初值 r=, a0= *) logistic[,30]。 Show[pilist,DisplayFunction$DisplayFunction]]。For[i=2,i=Length[data],i++, x=Floor[10data[[i]]]。 col1=RGBColor[1,0,0]。 g1=Show[g0,Graphics[{ll}]]] iterpict[,5]。 iterpict[,5]。 g0=Plot[{p[x],x},{x,0,},PlotStyle{col1,col2}]。 For[j=0,j10,j++,AppendTo[body,count[j]]]。 練習(xí)二 對迭代格式 an+1=4 an(1an), n=1,2,… 使用初值 ，記錄前 100次的迭代數(shù)據(jù) . 把 [0,1]區(qū)間十等分，統(tǒng)計迭代數(shù)列中落在各個小區(qū)間內(nèi)的項數(shù)，做出統(tǒng)計表 . 迭代數(shù)列在 [0,1]區(qū)間內(nèi)分布均勻嗎？任取區(qū)間 (0,1)內(nèi)的一些初值重復(fù)這一實驗，總結(jié)實驗結(jié)果 . 對迭代格式 an+1= an(1an), n=1,2,… 重復(fù)上述實驗，實驗結(jié)果有區(qū)別嗎？你能解釋這個現(xiàn)象嗎？ statistic[r_,a_,n_]:= Module[{p,data,i,j,count,x,head,body}, p[x_
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1