mathematics第9講-資料下載頁
2024-11-17 05:21本頁面
【正文】 四十四頁，共四十九頁。,IFSshow[z0_, shrange_List, divi_List, nmax_] := Module[{i, j, z = z0, a = divi[[1]], b = divi[[2]], temp1, temp2, mumax = 0}, For[i = a, i = 1, i, For[j = b, j = 1, j, mu[i, j] = 0]]。 For[i = nmax, i = 1, i, temp1=Floor[divi[[1]]*(Re[z]shrange[[1]][[1]])/(shrange[[2]][[1]] shrange[[1]][[1]])] + 1。 temp2=Floor[divi[[2]]*(Im[z]shrange[[1]][[2]])/(shrange[[2]][[2]] shrange[[1]][[2]])] + 1。 mu[temp1, temp2]++。 z = f[z]。]。 For[i = a, i = 1, i, For[j = b, j = 1, j, mumax = Max[mumax, mu[i, j]]]]。 mu1 = Table[GrayLevel[1 N[mu[j, i]]/mumax], {i, a}, {j, b}]。 Show[Graphics[RasterArray[mu1]]] ] IFSshow[0 + I 0, {{0.1, 0.1}, {1.1, 1.1}}, {150, 150}, 100000]。,第四十五頁，共四十九頁。,康托樹,第四十六頁，共四十九頁。,p1 = 1/3。 aaa = 1/2 + I 1 // N。 f1[z_] := (z + 2*aaa)/3。 p2 = 1/3。 bbb = 0 // N。 f2[z_] := (z + 2*bbb)/3。 p3 = 1/3。 ccc = 1 // N。 f3[z_] := (z + 2*ccc)/3。 f[z_] := Module[{tmp}, tmp = Random[]。 Which[tmp p1, f1[z], tmp p1 + p2, f2[z], True, f3[z]]]。 Array[mu, {150, 150}]。,第四十七頁，共四十九頁。,IFSshow[z0_, shrange_List, divi_List, nmax_] := Module[{i, j, z = z0, a = divi[[1]], b = divi[[2]], temp1, temp2, mumax = 0}, For[i = a, i = 1, i, For[j = b, j = 1, j, mu[i, j] = 0]]。 For[i = nmax, i = 1, i, temp1=Floor[divi[[1]]*(Re[z]shrange[[1]][[1]])/(shrange[[2]][[1]] shrange[[1]][[1]])] + 1。 temp2=Floor[divi[[2]]*(Im[z]shrange[[1]][[2]])/(shrange[[2]][[2]] shrange[[1]][[2]])] + 1。 mu[temp1, temp2]++。 z = f[z]。]。 For[i = a, i = 1, i, For[j = b, j = 1, j, mumax = Max[mumax, mu[i, j]]]]。 mu1 = Table[GrayLevel[1 N[mu[j, i]]/mumax], {i, a}, {j, b}]。 Show[Graphics[RasterArray[mu1]]]] IFSshow[0 + I 0, {{0.1, 0.1}, {1.1, 1.1}}, {150, 150}, 100000]。,第四十八頁，共四十九頁。,內(nèi)容總結(jié),軟 件 介 紹。(ptlist[[i]]+ptlist[[i+1]])/2+{ptlist[[i]][[2]]ptlist[[i+1]][[2]],。{Sin[theta],Cos[theta]}}.{ptlist[[2i+2]][[1]]ptlist[[2i+1]][[1]],第四十九頁，共四十
研究報告相關(guān)推薦
鄂ICP備17016276號-1