wayne 发表于 2009-9-11 14:02:12

克莱因瓶子

有感于 asymptote 的强大，我玩了好多精彩的例子
特呈上来，让大家一饱眼福
代码地址：http://asymptote.sourceforge.net/gallery/Klein.asy
运行后生成的3D pdf 图片：
http://asymptote.sourceforge.net/gallery/Klein.pdf
我运行后的效果

wayne 发表于 2009-9-11 14:06:04

最神奇的地方就是，参数方程竟然也能粘上去

数学星空 发表于 2009-9-11 15:29:38

呵,漂亮!
不知LZ用的什么软件哟...

zYr 发表于 2009-9-12 09:45:00

asymptote嘛

wcvery 发表于 2009-9-13 17:27:50

十分感谢！asymptote好

wayne 发表于 2009-9-13 22:39:52

我也是刚接触

最近,还玩上了PostScript,...
发现这类的描述语言挺强悍的

gxqcn 发表于 2009-9-14 08:11:48

PostScript 好像主要用在排版打印方面的，
老兄怎么跟它玩上了？

wayne 发表于 2009-9-14 20:45:42

老兄怎么跟它玩上了？
以老兄相称,受之不起啊,:L

的确,一般人都知道ps文档, 都会把PostScript当做一种page description language
而实际上,PostScript可以作为一种编程语言,专业的说法叫 Concatenative programming language

还是来点实在的吧,贴 点代码和图片
koch曲线代码:%!PS
%%BoundingBox: 100 77 524 567
/side {dup 0 gt {1 sub 1 3 div dup scale side 60 rotate side
-120 rotate side 60 rotate side 3 dup scale 1 add}
{1 1 rlineto 1 1 translate} ifelse} def
/star {dup currentlinewidth 1 1 4 -1 roll {pop 3 div} for setlinewidth
newpath 0 0 moveto side -120 rotate side -120 rotate side
closepath gsave 0.5 setgray fill grestore stroke pop} def
100 200 translate
currentlinewidth 300 dup dup scale div setlinewidth
15 rotate
5 star
showpage将上面的文本保存为ps格式,用Gsview打开,则可以看到:


wayne 发表于 2009-9-14 20:50:18

mandelbrot:


代码是
%!PS-Adobe-2.0
51 .5 551
{ /x exch def
111 .5 721
{ /y exch def
    y 521 sub
    201 div
    x 301 sub
    201 div
    1 index
    1 index
    31 -1 1
    { /n exch def
      1 index
      dup mul
      1 index
      dup mul
      1 index
      1 index
      add
      /d exch def
      sub
      4 index add
      3 1 roll
      2 mul mul
      2 index add
      d 4 gt
      {exit} if
    } for
    pop pop pop pop
    n 31 div
    setgray
    x y moveto
    .5 0 rlineto
    0 .5 rlineto
    -.5 0 rlineto
    fill
} for
} for
showpage

当然了,可以更清晰的.
我有一个彩色高清版的,但代码长了点,就不方便贴在这了

wayne 发表于 2009-9-14 21:00:20

鉴于有人会感兴趣,我干脆就把打包上来

附件里面有
元胞自动机,Julia,彩色高清版mandelbrot,雪花,艺术字...
页: [1] 2
查看完整版本: 克莱因瓶子