GRAPESでフラクタル
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
NetaTaneMenu >>>> [[Xaos]] >>>> Grapesでフラクタル
*Grapesでフラクタル
----
COLOR(red){本校「京都教育大学附属高校」の「応用数学」で実...
快適にグラフが作成できる反面GRAPESの限界もあり、何でもか...
さて、
(1)指定した点の数が限られているので,自己相似三角形の個数...
(2)ドット(点の大きさ)を更に小さくしてきめ細かさを目指すと...
(3)三角形→四角形,五角形と進めようとしても(1)の点の指定数...
どなたか「GRAPES」でこの辺の環境を改善できたらお教えくだ...
※しかし発展・応用へと導くには、VBのようなプログラミングで...
COLOR(#006789){なるべくOSや機種特有の仕様に依存しないとい...
http://hp.vector.co.jp/authors/VA008683/
[仕組み]
COLOR(red){適当な点Pを始点にサイコロを振って,1と2が出...
COLOR(#006789){上の手順がよく理解できないので教えてくださ...
COLOR(red){ひょっとしてプログラムを作って進ぜようという愛...
中点
#ref(fractal1.jpg)
2:1
#ref(fractal2.jpg)
1.5:1
#ref(fractal5.jpg)
1.2:1
#ref(fractal6.jpg)
1:1.2
#ref(fractal7.jpg)
1:1.5
#ref(fractal3.jpg)
1:2
#ref(fractal4.jpg)
COLOR(#006789){ご期待にこたえて(って,実は自分の趣味でや...
OPTION BASE 0
DIM x(3),y(3)
RANDOMIZE
LET q = 0.5
LET th = PI*2/3
LET r = 8.0
LET px0 = 8
LET py0 = 9
SET WINDOW -10,10,-10,10
FOR i=0 TO 2
LET x(i) = r * SIN(i*th)
LET y(i) = r * COS(i*th)
NEXT I
SET POINT STYLE 4
LET px = px0
LET py = py0
PLOT POINTS: px,py
SET POINT STYLE 1
FOR i=0 TO 10000
LET k = INT(RND*3)
LET px = q * x(k) + (1-q)*px
LET py = q * y(k) + (1-q)*py
SET POINT COLOR k+4
PLOT POINTS: px, py
NEXT I
SET LINE COLOR 11
FOR i=0 TO 2
PLOT LINES: x(i),y(i);
NEXT I
PLOT LINES: x(0),y(0);
END
q = 0.5 のところが内分比です。適当に変えてみてください。...
#ref(scher1.png,center)
COLOR(#000066){適当に変えて,5角形にしてみました。}
#ref(pentagon.png,center)
COLOR(red){家族旅行で3,4日離れていました。僕も色々とin...
COLOR(#000066){あれ?こちらでは上の図の五角形がまさにq=0....
COLOR(#000066){理屈で考えると,五角形の場合には,τ=(1+√5)...
COLOR(red){済みません。こちらの数値の読み違えでした。比の...
COLOR(#006789){問題を3次元に拡張したプログラムを書くこと...
COLOR(#000066){無理やりですがエクセルでデータ・セットを作...
#ref(cube.png,center)
COLOR(#006789){ぎゃははは,やりますねえ!私も gnuplot で...
COLOR(#fe891c){なんだか呼ばれていたみたいですが,もう良さ...
COLOR(#fe891c){3Dを見たい(見せたい)という場合,何が見せ...
COLOR(#fe891c){3次元のものを2次元の紙の上に停めてしまえば...
COLOR(#fe891c){蛇足,ですけど。gnuplotはやっぱりどこまで...
----
COLOR(#fe891c){ちなみに}
> 猫が3匹、1辺が1mの正三角形の頂点の位置にそれぞれい...
>さて、ノミは猫にめでたく到達することができるだろうか。ま...
COLOR(#fe891c){というイメージなんですね?きっと。中でなく...
COLOR(#fe891c){更に蛇足ですが,上の文章は[[数学の部屋:htt...
----
#ref(cb6.png,center)
----
COLOR(#000066){休みもないのに「夏休みの課題」やってみまし...
http://www.h-fukagawa.com/test/3dfractal.html
COLOR(#006789){わあ,すごい!やりますねえ,ぱちぱち}
COLOR(#fe891c){おお!とってもかっちょよいなあ。これは一体...
COLOR(#000066){自分でも廻り方が速すぎるなぁと思ってました...
[[POV-Ray公式サイト:http://www.povray.org/]]ダウンロード...
[[小島篤博さん(大阪府立大学):http://www.center.osakafu-...
[[講義資料集:http://www.center.osakafu-u.ac.jp/~ark/lectu...
体験参加型講座2003年度「パソコンでできる3次元コンピュータ...
があります。最初に読むのに適してます。
[[磯川幸直さん(鹿児島大学):http://w3-math.edu.kagoshima...
「3次元コンピューターグラフィックスと正多面体 」という文...
これらに加えて,[[POV-Ray日本語ヘルプ:http://nishimulabo....
があれば,本を買わなくても大丈夫。
COLOR(#000066){実際に作ったシーンファイルを添付しておきま...
COLOR(#fe891c){うれしいなあ。磯川氏のページは面白いし,「...
COLOR(red){表面のHPに特別枠を作って紹介しましょうか?結構...
COLOR(#000066){はじめて使ってみようというときには,あんま...
COLOR(#006789){POV-Ray は使ってみたいアプリケーションのひ...
COLOR(#fe891c){そうですよね。[[イスラエル(星形)]]なんか...
COLOR(#1133aa){POV-Rayの話題のついでに[[「The Internet Ra...
COLOR(#fe891c){綺麗ですねえ。3d-escherのページはもう無い...
COLOR(red){2004.8/30のある高校で中学生向け公開講座にて実...
COLOR(#fe891c){折角なので遊びながら探すと、[[こんなの:htt...
終了行:
NetaTaneMenu >>>> [[Xaos]] >>>> Grapesでフラクタル
*Grapesでフラクタル
----
COLOR(red){本校「京都教育大学附属高校」の「応用数学」で実...
快適にグラフが作成できる反面GRAPESの限界もあり、何でもか...
さて、
(1)指定した点の数が限られているので,自己相似三角形の個数...
(2)ドット(点の大きさ)を更に小さくしてきめ細かさを目指すと...
(3)三角形→四角形,五角形と進めようとしても(1)の点の指定数...
どなたか「GRAPES」でこの辺の環境を改善できたらお教えくだ...
※しかし発展・応用へと導くには、VBのようなプログラミングで...
COLOR(#006789){なるべくOSや機種特有の仕様に依存しないとい...
http://hp.vector.co.jp/authors/VA008683/
[仕組み]
COLOR(red){適当な点Pを始点にサイコロを振って,1と2が出...
COLOR(#006789){上の手順がよく理解できないので教えてくださ...
COLOR(red){ひょっとしてプログラムを作って進ぜようという愛...
中点
#ref(fractal1.jpg)
2:1
#ref(fractal2.jpg)
1.5:1
#ref(fractal5.jpg)
1.2:1
#ref(fractal6.jpg)
1:1.2
#ref(fractal7.jpg)
1:1.5
#ref(fractal3.jpg)
1:2
#ref(fractal4.jpg)
COLOR(#006789){ご期待にこたえて(って,実は自分の趣味でや...
OPTION BASE 0
DIM x(3),y(3)
RANDOMIZE
LET q = 0.5
LET th = PI*2/3
LET r = 8.0
LET px0 = 8
LET py0 = 9
SET WINDOW -10,10,-10,10
FOR i=0 TO 2
LET x(i) = r * SIN(i*th)
LET y(i) = r * COS(i*th)
NEXT I
SET POINT STYLE 4
LET px = px0
LET py = py0
PLOT POINTS: px,py
SET POINT STYLE 1
FOR i=0 TO 10000
LET k = INT(RND*3)
LET px = q * x(k) + (1-q)*px
LET py = q * y(k) + (1-q)*py
SET POINT COLOR k+4
PLOT POINTS: px, py
NEXT I
SET LINE COLOR 11
FOR i=0 TO 2
PLOT LINES: x(i),y(i);
NEXT I
PLOT LINES: x(0),y(0);
END
q = 0.5 のところが内分比です。適当に変えてみてください。...
#ref(scher1.png,center)
COLOR(#000066){適当に変えて,5角形にしてみました。}
#ref(pentagon.png,center)
COLOR(red){家族旅行で3,4日離れていました。僕も色々とin...
COLOR(#000066){あれ?こちらでは上の図の五角形がまさにq=0....
COLOR(#000066){理屈で考えると,五角形の場合には,τ=(1+√5)...
COLOR(red){済みません。こちらの数値の読み違えでした。比の...
COLOR(#006789){問題を3次元に拡張したプログラムを書くこと...
COLOR(#000066){無理やりですがエクセルでデータ・セットを作...
#ref(cube.png,center)
COLOR(#006789){ぎゃははは,やりますねえ!私も gnuplot で...
COLOR(#fe891c){なんだか呼ばれていたみたいですが,もう良さ...
COLOR(#fe891c){3Dを見たい(見せたい)という場合,何が見せ...
COLOR(#fe891c){3次元のものを2次元の紙の上に停めてしまえば...
COLOR(#fe891c){蛇足,ですけど。gnuplotはやっぱりどこまで...
----
COLOR(#fe891c){ちなみに}
> 猫が3匹、1辺が1mの正三角形の頂点の位置にそれぞれい...
>さて、ノミは猫にめでたく到達することができるだろうか。ま...
COLOR(#fe891c){というイメージなんですね?きっと。中でなく...
COLOR(#fe891c){更に蛇足ですが,上の文章は[[数学の部屋:htt...
----
#ref(cb6.png,center)
----
COLOR(#000066){休みもないのに「夏休みの課題」やってみまし...
http://www.h-fukagawa.com/test/3dfractal.html
COLOR(#006789){わあ,すごい!やりますねえ,ぱちぱち}
COLOR(#fe891c){おお!とってもかっちょよいなあ。これは一体...
COLOR(#000066){自分でも廻り方が速すぎるなぁと思ってました...
[[POV-Ray公式サイト:http://www.povray.org/]]ダウンロード...
[[小島篤博さん(大阪府立大学):http://www.center.osakafu-...
[[講義資料集:http://www.center.osakafu-u.ac.jp/~ark/lectu...
体験参加型講座2003年度「パソコンでできる3次元コンピュータ...
があります。最初に読むのに適してます。
[[磯川幸直さん(鹿児島大学):http://w3-math.edu.kagoshima...
「3次元コンピューターグラフィックスと正多面体 」という文...
これらに加えて,[[POV-Ray日本語ヘルプ:http://nishimulabo....
があれば,本を買わなくても大丈夫。
COLOR(#000066){実際に作ったシーンファイルを添付しておきま...
COLOR(#fe891c){うれしいなあ。磯川氏のページは面白いし,「...
COLOR(red){表面のHPに特別枠を作って紹介しましょうか?結構...
COLOR(#000066){はじめて使ってみようというときには,あんま...
COLOR(#006789){POV-Ray は使ってみたいアプリケーションのひ...
COLOR(#fe891c){そうですよね。[[イスラエル(星形)]]なんか...
COLOR(#1133aa){POV-Rayの話題のついでに[[「The Internet Ra...
COLOR(#fe891c){綺麗ですねえ。3d-escherのページはもう無い...
COLOR(red){2004.8/30のある高校で中学生向け公開講座にて実...
COLOR(#fe891c){折角なので遊びながら探すと、[[こんなの:htt...
ページ名: