なので,Tweet-a-Program への投稿はやっておりません.やりたい気持ちもあるけど,Tweet-a-Program は常に動いているわけじゃなさそうでロスが多いんです.「せっかく送ったのに無視」っていうケースが何度もありました.もう少し向こうもこちらも安定したら再開しようと思います.
Pages
Categories
Tags
Related Sites
wordpress.org
Meta
なので,Tweet-a-Program への投稿はやっておりません.やりたい気持ちもあるけど,Tweet-a-Program は常に動いているわけじゃなさそうでロスが多いんです.「せっかく送ったのに無視」っていうケースが何度もありました.もう少し向こうもこちらも安定したら再開しようと思います.
こんな感じです.たまに日付が飛んでいるのは先方がダウンしていたためです.
[2014/11/02]
Code submitted by @takashiyoshino #wolframlang pic.twitter.com/ZeOU2EfTKF
— Tweet-a-Program (@wolframtap) November 1, 2014
[2014/11/03]
Code submitted by @takashiyoshino #wolframlang pic.twitter.com/GwWT8mbpxG
— Tweet-a-Program (@wolframtap) November 3, 2014
[2014/11/04]
Code submitted by @takashiyoshino #wolframlang pic.twitter.com/orFC61xRU3
— Tweet-a-Program (@wolframtap) November 4, 2014
[2014/11/05]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/Mcvw2WiLSs pic.twitter.com/5Tn1FBGYxF
— Tweet-a-Program (@wolframtap) November 5, 2014
[2014/11/06]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/WXN9y24JYY pic.twitter.com/lYwQ4bDGDZ
— Tweet-a-Program (@wolframtap) November 6, 2014
[2014/11/07]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/mLMTwAvBnV pic.twitter.com/5EzwexwyLj
— Tweet-a-Program (@wolframtap) November 7, 2014
[2014/11/08]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/dc9dAsykUA pic.twitter.com/lUNyE2POV0
— Tweet-a-Program (@wolframtap) November 7, 2014
[2014/11/09]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/RRCHmhMuaH pic.twitter.com/JL7DoK3SVQ
— Tweet-a-Program (@wolframtap) November 9, 2014
[2014/11/11]
Code submitted by @takashiyoshino #wolframlang Source: http://t.co/JXWZVzzWgK pic.twitter.com/gopzSzOlSi
— Tweet-a-Program (@wolframtap) November 11, 2014
Tweet-a-Program 氏(@wolframtap)に Mention で Mathematica のコード(Wolfram言語のプログラム?)をつぶやくと計算結果の画像を RT してくれるというシステムで遊んでみることにしました.ネタが続く限りつぶやき続けようと思います.昨日はライフゲーム(Game of Life)のグライダーを今日はオフラティスのランダムウォークをつぶやきました.暇があれば解説を書こうと思います.たぶん,書かないと思うけど….
Code submitted by @takashiyoshino #wolframlang pic.twitter.com/MgjsbpdyUB
— Tweet-a-Program (@wolframtap) 2014, 10月 30
Code submitted by @takashiyoshino #wolframlang pic.twitter.com/z0UNpy7OdT — Tweet-a-Program (@wolframtap) 2014, 10月 30
I prepared the Mathematica files and CVS files which included the basic data of 4D polytopes. The zipped file contains 6 files which correspond to 6 regular polytopes: 5 cells, 8 cells, 16 cells, 24 cells, 120 cells, and 600cells. Each file consists of 6 basic properties as follows:
Unzipped filenames are like “f (n). m” where (n) corresponds to the number of cells. For 5 cells, its filename is “f5.m” for example. If we assume that these files allocated on the directory “~/tmp/”, we can use the data like the following:
With[{n = 24, dir = “~/tmp/”},
Module[{vers, edgs, neis, faces, fneis, cells},
{vers, edgs, neis, faces, fneis, cells} =
Get[dir <> “f” <> ToString[n] <> “.m”];
cells
]
]
Please inform me if you find any mistake.
4次元正多胞体の基本データをまとめた Mathematica のファイルおよび CSV ファイルを公開します.6種類の正多胞体(5, 8, 16, 24, 120, 600)について,以下の6種類のデータが保存されています.
データは多胞体ごとに別のファイルです.正n胞体についてのデータは “f(n).m” というファイル名になります.(n) には数字が入ります.例えば,正5胞体ならデータファイルは “f5.m” ですし,正120胞体ならデータファイルは “f120.m” です.このファイルが “~/tmp/” というフォルダにあるとき,以下のように使用することができます.例えば,「正24胞体を作る24個の胞(立体)が何番目の多角形を用いて作られているのか」は以下のようにして得られます.
With[{n = 24, dir = “~/tmp/”},
Module[{vers, edgs, neis, faces, fneis, cells},
{vers, edgs, neis, faces, fneis, cells} =
Get[dir <> “f” <> ToString[n] <> “.m”];
cells
]
]
より具体的な例はノートブックかPDFファイルを見て下さい.すべての番号は1から始まっているので C 言語などの配列が0から始まる言語で使用する場合にはすべての番号を1だけ少なくする処理が必要です.おそらく他にあまり例がないと思うので公開することにしました.誤りがあったらご指摘願います.
2014/06/13 に迷路の話を 06/15 に WORLDEYE の話を第77回形の科学シンポジウムで発表してきました(前者は講演,後者は展示).どちらの話もこれで終わりになるかな?
迷路の話についてはいろいろ考えたけど,現在の私の立場は「粘菌の探索をもとにしたアルゴリズムを模索することには意義があるが,知性の有無についてはそれほど重要なこととは思えない」という感じです.粘菌の知性について論じること自体は「石を投げる」という意味で価値があるとは思います.
WORLDEYE については,開発者がもっと情報公開を行うべきだと考えています.できれば私はもっと高解像度な高精度な全球面版がほしい.
迷路の中は流体で満たされていて,初期状態でその圧力は0としましょう.赤で示した入口の圧力を常に100に,出口の圧力を常に0にして,入口と出口の圧力差が常に 100になるようにします.そして,圧力についてのラプラス方程式の数値解を求めます.左の図がその結果を図示したものです.圧力100が白,圧力0が黒で,グレースケールで迷路内の圧力分布を表示しています.右の図は隣のマスとの差の(圧力勾配)絶対値の最大値を表しています.差の絶対値が最も大きいところが白,差がゼロであるところを黒として,グレースケールで圧力勾配の分布を示しています.圧力勾配は流体の流れる方向に相当しています.右の図は迷路の解をたどって流体が流れていることを示しています.つまり,流体は迷路の答えを得たことになります.Mathematica で2時間ぐらいコーディングしたらできちゃいました.夏ぐらいからやろうと思っていたものでした.早くやればいいのに,ダラダラしちゃって….
周囲の情報で全体が変わっていく.創発ってこんな感じのことなのではないかと思っています(違うのかな?)
.
球面上のパターン形成をプレゼンテーションするのにピッタリなおもちゃ「学研ワールドアイ」(学研ワールドアイのページ)を入手しました.同梱された USB メモリに入っているデータだけではなく,自分で作ったデータも表示できるようです.
I got a toy “World Eye” which is useful for presentations of pattern formation on spherical surface. This toy can project the data made by users.
そこで,自分でもデータを作ってみようと思いました.しかし,わかっていることは少なくて,画像サイズは640×480で実際には中央の480×480に内接する円内部の画像のみが投影されることぐらいです.そこで,自分で試してみることにしました.
So I tried to construct my data and project them using this toy. But information is few.
ステレオ投影の理論は単純です.ウィキペディアに解説があります(ウィキペディア「ステレオ投影」).私はz軸を逆に取っているので,(x, y) を 1/(1+z) 倍した図形を作って,うまく映るのかを確かめてみました.
At first, I transformed (x, y, z) to (x/(1+z), y/(1+z)) where z is greater than zero and examined the projection.
ご覧のとおり,緯線の曲がり方がきつすぎるようです.視点はもっと奥にあるようです.
As shown in the image, the latitude curves were incorrect.
そこで,視点を 1 だけ奥にしてみました.視点が a だけ奥に行くと変換は (1+a)/(1+a+z) 倍になります.今回は 2/(2+z) 倍です.確かめてみると,そこそこ良いようです.しばらくは,視点が中心から直径分だけ奥にあると仮定して画像を作ろうと思います.
I change the view point from 1 to 2. In such case, the point (x, y, z) is transformed to (2 x/(2+z), 2 y/(2+z)). The examination is good.
そんなわけで,アニメーションも作ってみました.(アニメーションを撮影したビデオ.数秒でおしまいになります).
次は Turing pattern を表示してみたいと思っています.いつになるかわからないけど.