数学实验实验报告(3)

1、Koch雪花曲线

redokoch[ptlist_List]:=

Block[{tmp={},i,pnum=Length[ptlist]}, For[i=1,i

tmp,{ptlist[[i]], ptlist[[i]]*2/3+

ptlist[[i+1]]/3,(ptlist[[i]]+ptlist[[i+1]])/

2+{ptlist[[i]][[2]]-ptlist[[i+1]][[2]],

ptlist[[i+1]][[1]]-ptlist[[i]][[1]]}*Sqrt[3]/6, ptlist[[i]]/3+ptlist[[i+1]]*2/3,ptlist[[i+1]]}]];tmp] lnko01={{0, 0}, {1, 0}};Show[

Graphics[Line[Nest[redokoch,lnko01,5]],AspectRatio->Sqrt[3]/6]]

2、

s=0.5+0.5*I;p1=0.5;w1[z_]:=s*z+1;p2=0.5;w2[z_]:=s*z-1; w[z_]:=Block[{tmp},tmp=Random[];

Which[tmp

showIFS[z0_,shrange_List,divi_List,nmax_]:=

Block[{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[