xiaongxp

用iSee制图，保存质量设为“最佳”或“很好”，可能效果好些。你上面的图色彩这么丰富，文件才24k，当然画质不理想。

柳烟

用向老师说的，处理图片，要好看多了。又学习了一招，哎，要学的太多了。

下载 (37.19 KB)

2010-12-7 12:32

下载 (33.01 KB)

2010-12-7 12:32

xuefeiyang

carr3202

下载 (23.73 KB)

2010-12-16 14:04

榕坚

33# xuefeiyang


这个carr 3202我做的结果与你一样，但与UF的结果有差别。估计要改一下算法：

changxde

在UF中修改L1的值为300就得到与上面类似的图形

下载 (72.64 KB)

2010-12-15 15:18

changxde

把源程序修改一如下
Carr3202'(YAXIS) {
; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm.
init:
  d=log(1/pixel-conj(cos(1/pixel)))
  c=(pixel^3-conj(.1/pixel-flip(.01/pixel)))/7.5
  z=abs(pixel^12)-flip(.01/pixel)-conj(.1/pixel)+.3
  zmod = (-.7456,-.132) + flip(|d/80*pixel|)
  cmod = |c| + zmod
  c1=0.2*z^1.2,c2=0.3*conj(z)
  c3=0.45*flip(z),c4=0.675*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    cmod = |c1| + zmod, z = 0
  ELSEIF (iter==l2)
    cmod = |c2| + zmod, z = 0
  ELSEIF (iter==l3)
    cmod = |c3| + zmod, z = 0
  ELSEIF (iter==l4)
    cmod = |c4| + zmod, z = 0
  ENDIF
  z = z^2 + cmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3202'"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}
加载图像和原图没有差别，然后放大图像就发生了变化，缩小是下图

柳烟

我干了几天carr3202色一片，无图象，今天扫出中间一点，毫无美感可言，大家帮忙看看。我这文件，我查了好几遍，我按程序的先后顺序，已将各数据计算好了，容易阅读，麻烦大家看看是何原因，多谢了。问题文件中的文档1，我已将各数据计算好，还没缩放与迭代，文档2是我造好的，扫出图不对劲。

下载 (12.14 KB)

2010-12-17 11:57

问题文件.gsp (66.04 KB)

下载次数: 2818

2010-12-16 22:09

榕坚

37# 柳烟


修改了一下：

柳烟

谢过榕坚兄帮忙，我刚才看了你修改的文件，再查了UF中的帮助，原来我把/---/错当成了模的符号，原来是表示实部与虚部的平方和。

榕坚

39# 柳烟
中间还有一个大红的圆环不知道原因出在哪。