克莱因瓶子

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,雪花,艺术字...

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

[分享] 克莱因瓶子

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