xiaongxp

60# 榕坚
作一个从新像素点到原点像素点的旋转变换，跟踪新像素点扫描可实现扫描图的旋转。

榕坚

62# xiaongxp


我的意思是能否截取一幅M集的放大图做埃舍尔变换?不过几何画板是肯定扫不动的。现在又能上传图片了，真奇怪。

xiaongxp

63# 榕坚

以下两法或许能办到：
1.用变换（z-c[0]）^2（其中c[0]为M集的定位中心）替代埃舍尔变换z^2
2.将坐标原点附平移变换为定位中心附近，再实施埃舍尔变换z^2
但这两法均应将变换终点加入kc进行z^2+kc的M集迭代，其中k的值可能不再为15，要作适当的调整。
带阴阳纹的埃舍尔盘

下载 (13.82 KB)

2014-7-9 11:14

下载 (14.04 KB)

2014-7-9 11:12

下载 (15.6 KB)

2014-7-9 11:15

柳烟

我问一个问题：sqrt(z^2)，按理有两个根，一个是z，一个是-z，造复分形任取一个就行。我这理解对吗？
sqrt(z^３)*sqrt(z)＝sqrt(z4)，有两个，一个是z^2，一个是-z^2，我这理解对吗？造分形时，可取其一，选z^2即可。我上面理解有无问题？

changxde

简单修改carr199
Carr1997 {
init:
  z= 0
  c=pixel, c1=1.03125*c, c2=1.0625*c
  c3=1.125*c, c4=1.25*c , c5=1.5*c,  c6=2*c
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  l5=round(real(p3)), l6=round(imag(p3))
  float bailout=16, int iter=0  ,int k = 256
loop:
  IF (iter==l1)
     c = c1 ,  k = 128
  ELSEIF (iter==l2)
     c = c2 ,  k = 64
  ELSEIF (iter==l3)
     c = c3 , k = 32
  ELSEIF (iter==l4)
     c = c4 , k = 16
  ELSEIF (iter==l5)
     c = c5 , k = 8
  ELSEIF (iter==l6)
     c = c6 , k = 4
  ENDIF
  z=z*z+c^k
  iter=iter+1
bailout:
  |real(z)| <= bailout
http://c.hiphotos.bdimg.com/album/s%3D1000%3Bq%3D90/sign=8102e445a38b87d65442af1f37381349/95eef01f3a292df5d2e0fa61be315c6034a873a6.jpg

最近网络不正常，老是不能上传图片。

changxde

http://c.hiphotos.bdimg.com/album/s%3D1000%3Bq%3D90/sign=e4902e72aeaf2eddd0f14de9bd203a98/79f0f736afc3793198ccd65de9c4b74543a91119.jpg

可以用右键目标另存观看

xiaongxp

我今天赶在早上8点半左右上传图片，居然传上了。常老师明早试着传传？

好像常老师的图片已经传上了，不过是位图文件，用右键另存后打开还是双手合十的娃娃。

柳烟

下载 (31.15 KB)

2014-7-9 11:15

榕坚

20770
柳烟 发表于 2013-12-13 15:52

这个做了几重？

柳烟

70# 榕坚
7重。前面五乌龟排法。