克莱因瓶子

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

老兄怎么跟它玩上了？

以老兄相称,受之不起啊,

的确,一般人都知道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,雪花,艺术字...

账号		自动登录	找回密码
密码			欢迎注册

[分享] 克莱因瓶子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。