フォーラム - neorail.jp R16

「A列車 色がおかしい」を越えて進もう


いま問うA9のココロ
信号機のG現示の色がこんなにメロンソーダなわけがない
ATC・ATSの「Aの字」も出さずに効果音と動作を実装するには
「場内信号機 作り方」「信号機に名前をつける機能」とは


2020年5月の話題
更新:2020/9/29

[4072]

【A9R:データで遊ぶA列車】

「照焼大橋」不滅なれ(ゆんゆん編)


「river1」
「R with Excel」
「R with Excel」(続き)
「R with Excel」(続き)

(約7000字)

 「IBM」をずらして「HAL」にするみたいにすると「不滅なれ」みたいにずれてくる。(違)[4069],[4071]の続きです。「不滅なれ」を元に戻すと「よ永遠に」ですか。えー…(てんてんてん)。

[3271]
 > > 40年
 > > 100年
 > > 120年

 > > 平均的には鋼鉄道橋で60年

 > > 永久橋の建設と国は呼んでおり(略)社会に、また多くの管理者にもメンテナンスフリーという印象を与えたことも否めない。このことは、地方自治体などにみられる極めて弱体な維持管理体制と無関係ではないと思われる。

 永久橋の建設と国は呼んでおり(略)平均的には鋼鉄道橋で60年だということです。(棒読み)▼コンクリートの橋にしますか、それとも▼コンクリートの橋にしますか、いやいやいや、▼コンクリートの橋もありますよ。…迷っちゃう♡(※表現は演出です。)

 https://neorail.jp/forum/uploads/map_river1-2.png?ref=4072

https://neorail.jp/forum/uploads/map_river1-2.png?ref=4072


・(再掲)
 https://neorail.jp/forum/uploads/river1_xyz.tsv
 https://neorail.jp/forum/uploads/river1_256x256.tsv
 https://neorail.jp/forum/uploads/river2_xyz.tsv
 https://neorail.jp/forum/uploads/river2_256x256.tsv

 うーん。[3882]らへんの「R with Excel」(自作のコードスニペット)をごそごそひっぱってきます。よいしょ…いたたた!(※表現は演出です。)申し遅れましたがここで申し送り事項等の伝達がございますので、そちらのほうを先にさせてください。(違)

[4074]
 > 申し遅れましたが、この記事は「A列車で行こう9 攻略」なんですよ。なかなか「A列車で行こう9 攻略」だと思ってもらえないのが難点です。

 https://www.a-train9.jp/about_a9.html

 > 10km×10kmの広大な地形に、あなただけの都市、あなただけの鉄道網を創り出すことができます。

 > 複雑な地形も、一発生成
 > クリック!

 https://www.a-train9.jp/images/about/ss/09_01.jpg

 > 山や海などのパラメーターを入力するだけで、自動で地形を生成する機能を搭載。海に浮かぶ島々や、複雑に隆起した山脈など、手動ではなかなかつくれない絶景も、一発でつくり出すことができます。

 …クリック! 一部のしょくんが「A列車で行こう9」と呼んでやまない本件ゲームが10年目(げふ)「地形の自動生成」をきちんと使え兄弟。(※命令形)そのうえで、われわれは技術で語り合おうじゃないかクリック! …お、おぅ。


☆「river1」


 これより「river1」である!(※スタンシアラ城の入り口の兵士みたいに!)

 https://neorail.jp/forum/uploads/a9_river1_katakurico.png

https://neorail.jp/forum/uploads/a9_river1_katakurico.png


■「R with Excel」

3軸の座標が入った3列×65536行のテーブル※を読み込む
(タブ区切り)
myakari3d0=read.table("clipboard",h=0)
所望のデータ(行)を抽出しておくmyakari3dumi <- subset(myakari3d0,V3< -3)
myakari3dedge <- subset(myakari3d0,V3 == -3)
点群をプロットして確かめるplot(myakari3dumi[ , c(1, 2)])
# 3列目(高さ)は使わない
抽出される行数だけ知りたいnrow(subset(myakari3d0,V3< -3))
ヒストグラムを描くhist(myakari3dumi[ , c(3)])
# 3列目(高さ)だけを使う


 https://akiba-pc.watch.impress.co.jp/img/ah/docs/741/198/nv3.jpg

 ただいま「EDGE 3D」のイメージをご覧いただきました。

3dumi3dedge
https://neorail.jp/forum/uploads/r_river1_3dumi_plot.png

https://neorail.jp/forum/uploads/r_river1_3dumi_plot.png
https://neorail.jp/forum/uploads/r_river1_3dedge_plot.png

https://neorail.jp/forum/uploads/r_river1_3dedge_plot.png


nrow(subset(myakari3d0,V3< -3))10850
nrow(subset(myakari3d0,V3 == -3))3369


 …うーん!(※重いものを運びきったような顔で!)

 http://cse.naro.affrc.go.jp/takezawa/r-tips/r/61.html

 > 区切り幅は『適当に選択される』が『適切に選択される』わけではない.

 さもありなん。

 https://neorail.jp/forum/uploads/r_river1_3dumi_hist.png

https://neorail.jp/forum/uploads/r_river1_3dumi_hist.png


 だからいわんこっちゃない。しかし、これでじゅうぶんわかる。本件ゲームに内蔵された超べりーナイスな「地形の自動生成」のアルゴリズムにあって、海底の地形はもっとおもしろくつくられるけれど「-80」のところで打ち切って(丸めて)あるんかなみたいに思えるヒストグラムだ。(※恐縮です。)

・「3dumi」:深さの表現は「-10」から「-80」まで「10」刻みで8段階
・「3dedge」:標高「-3m」という値は「平地の輪郭」なので「山裾」も含むことに注意

 「-3」という値は便宜的に与えたものだけれど、「サテライト」の画像でピクセルの色が同じなので「海岸(水辺)」なのか「山裾」なのか区別がつかない、の意。

■「R with Excel」(続き)

k-meansを実行する
(k=9、nstart=50)
mykmakari9 <- kmeans(myakari3dumi, 9, nstart=50)
散布図を描くlibrary(mclust)
clPairs(myakari3dumi, cl=mykmakari9$cluster)
# プロットされた図を右クリックしてコピーや保存をします
主成分分析を実行するmycmpakari3d <- prcomp(myakari3dumi, scale=TRUE)
主成分分析の結果のサマリーを表示するsummary(mycmpakari3d)
# 各主成分の累積寄与率が表示されます
散布図行列を描くlibrary(mclust)
clPairs(mycmpakari3d$x, cl=mykmakari9$cluster)
# プロットされた図を右クリックしてコピーや保存をします


PC1PC2PC3
Standard deviation1.14840.97970.8494
Proportion of Variance0.43960.31990.2405
Cumulative Proportion0.43960.75951.0000


 内部で特異値分解(SVD)を使ってくれるエレガントでナウい主成分分析のルーチン(「prcomp」)を使っての『回転』の前後で、同じ点を同じ色で表示すれば、どの点が『回転』でどこへ行ったのかわかるという寸法だ。

 https://neorail.jp/forum/uploads/r_river1_3dumi_km9.png

https://neorail.jp/forum/uploads/r_river1_3dumi_km9.png

 https://neorail.jp/forum/uploads/r_river1_3dumi_km9_cmp.png

https://neorail.jp/forum/uploads/r_river1_3dumi_km9_cmp.png


 頭がゆんゆんしてきた。…それあぶないやつですから!!(※表現は演出です。)

・KADOKAWAが大声でささやく。…ちゃんと聞こえてますからっ!!
 https://cdn.kdkw.jp/cover_1000/321809/321809000136.jpg

 > こんな近くに
 > いたなんて

 …ぬふっ!(※謎の悲鳴)本件ゲームこと「A列車で行こう9」の「公式ガイドブック」は「ログイン編集部」だったのだけれど、その「ログイン編集部」が天下のKADOKAWAに下った(違)ので、そういうことなら本件ゲームもっと『KDKW化』(※意訳)しないのみたいなことをですね(げふ)なんでもございません。(キリッ

[3654]
 > そういう事情をKADOKAWA(諸事情により略)どのくらい正確にライター氏に説明しながら校正したのかは知らんですけど、結果として「公式マスターズガイド」101ページからの章は「高密度運行路線を作る」という表現にされておられる。制作者からプラットフォームの会社という流れでは「超過密ダイヤ」という表現が『素』で通ってしまっても、KADOKAWAの出版物で「超過密ダイヤ®」は通しませんでみたいな(略)さすがKADOKAWAなんですよ。ミステリーとかで実在だとまずいでしょみたいなので鍛えられているんですよ。

[3978] 高火力みずでっぽう
 > プラットフォームの会社とKADOKAWAくらいの出版社(の法務部門)には一定の信頼をしている(※わたしたちがじぶんではできないことを委任している=メーカー各社にソフトを作らせるとか、ジャンルやテーマの配分をバランスよくするとか、新作のリリース時期をそれとなく調整してくれるとか…げふ)が、ゲーム(ソフト)のメーカーには一切の信頼を置くものでないと理解している。そのような扱いを受けてこそメーカーが育つと思っている。われわれは民間なので、互いに厳しくしあう以外に身を守る方法がない。

 https://www.gamespark.jp/imgs/p/vfrvPUfFBDEEkDjVvIkR5MMLlgcGBQQDAgEA/332783.jpg

 …『高火力みずでっぽう』ねぇ。(※しみじみと!)

 https://ascii.jp/img/2019/12/04/1647378/l/1aca4fcba73c3c55.jpg
 https://www.ryutsuu.biz/images/2019/12/20191204ministop.jpg
 https://www.ministop.co.jp/campaign/grillchicken_cp/images/idx_h01.jpg

 > グリルチキン
 > (照り焼き)

 「グリル」と「照り焼き」は別の概念だけど、…空腹のわれわれにはどっちでもいい! はやくよこすのです(ぐぇ)しつれいしました。(※表現は演出です。)

 https://jp.123rf.com/photo_19000037_stock-photo.html

 > 鶏照り焼き中華ガラス麺と醤油黒スクエア形ボウルわらにお箸のペアでのマットの背景

 …ぁ゛?

 > 照り焼きとわらマットの背景に箸ペア クローズ アップでボールから鶏の部分をピッキング済

 https://previews.123rf.com/images/zhekos/zhekos1304/zhekos130400044/18971046-%E7%85%A7%E3%82%8A%E7%84%BC%E3%81%8D%E3%81%A8%E3%82%8F%E3%82%89%E3%83%9E%E3%83%83%E3%83%88%E3%81%AE%E8%83%8C%E6%99%AF%E3%81%AB%E7%AE%B8%E3%83%9A%E3%82%A2-%E3%82%AF%E3%83%AD%E3%83%BC%E3%82%BA-%E3%82%A2%E3%83%83%E3%83%97%E3%81%A7%E3%83%9C%E3%83%BC%E3%83%AB%E3%81%8B%E3%82%89%E9%B6%8F%E3%81%AE%E9%83%A8%E5%88%86%E3%82%92%E3%83%94%E3%83%83%E3%82%AD%E3%83%B3%E3%82%B0%E6%B8%88.jpg

 いい度胸だ。日本語の先生の赤ペンがはじけ飛ぶぞ。きゃー!!(※ジト目)

・めいにー「照焼お箸」?(違)
 https://park.ajinomoto.co.jp/wp-content/uploads/2018/03/705928.jpeg
 https://washoku-no-umami.jp/wp-content/uploads/2018/11/43df8b77ae08f65baa8ace315c8b6996.png
 https://park.ajinomoto.co.jp/recipe/card/705928/
 https://kotobank.jp/word/%E7%AE%B8%E3%81%8C%E9%80%B2%E3%82%80-600918

 > ごはんがすすみます♪

 「照り焼き」って、知っていますか。砂糖を使うんですよ。はちみつでもいいけれど、そういうものをじゃぶじゃぶ使えるのって、いつの時代からですか。…ギクッ。(※表現は演出です。)

 > 箸が進む
 > 「食が進む」に同じ。
 > おいしくてどんどん食べられる。

 「おいしい」とは何か。甘いってことなんですよ!(ばーん

・「鶏の照り焼き」のイメージです
 https://kadenfan.hitachi.co.jp/range/recipe/mro-nbk5000/045.html
 https://kadenfan.hitachi.co.jp/range/recipe/image/045.jpg

 古式ゆかしい日立である。どうせ2色刷りだからって古い写真がそのまま。同じ写真をウェブで使おうとして困る。えー…(てんてんてん)。(※恐縮です。)

 > 給水タンクに満水ラインまで水を入れてセットする。
 > 様子を見ながら加熱します。

 …これって『高火力みずでっぽう』の説明だよね。(違)

■「R with Excel」(続き)

主成分「PC1」「PC2」「PC3」で
k-meansを実行
(k=2)
mykmakari9c3 <- kmeans(mycmpakari3d$x, 2, nstart=50)
clPairs(myakari3dumi, cl=mykmakari9c3$cluster)
# プロットされた図を右クリックしてコピーや保存をします
クラスターのサイズを表示mykmakari9c3$size
クラスターの重心を表示original <- mykmakari9c3$centers %*% t(mycmpakari3d$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari3d$scale)
original <- scale(original, center = -mycmpakari3d$center, scale = FALSE)


・「mykmakari9c3$size」

4053
6797


・「original」

V1(x)V2(y)V3(z)
192.36960-65.73057-39.20306
52.20965-157.70090-41.24320


 1つ目のクラスターが青で、2つ目のクラスターが赤でございます。もちろんk-meansは乱数ですから(※意訳)実行のたびに、どちらが1つ目になるかは入れ替わって、プロットすると色も変わるということでございます。

 https://neorail.jp/forum/uploads/r_river1_3dumi_cmp3_km2.png

https://neorail.jp/forum/uploads/r_river1_3dumi_cmp3_km2.png


 ばーん!!! できる子! ゆんゆん!!(※直訳)もっとも、真に「できる子」は最初から「サポートベクターマシン(SVM)」するんだろうな。(※恐縮です。)

・カタカナではいろいろな表記があるけれど2006年「サポートベクターマシン」という表記の1例です。困ったら「SVM」と書いて本場みたいな発音でごまかしておけ。…「SVM」の本場って、どこですか? えー…(てんてんてん)。
 https://www.ism.ac.jp/~fukumizu/ISM_lecture_2006/svm-ism.pdf

 > 「たまたまデータの分布がLuckyで大きなマージンが得られた」という事象の確率を評価する必要がある.(Herbrich2001などを参照)

 「あかほ」センセイでした。ありがとうございました。


 [4073]に続きます。


この記事のURL https://neorail.jp/forum/?4072


この記事を参照している記事


[4073]

「照焼大橋」不滅なれ(タルタル編)

2020/5/21

[4074]

「照焼大橋」不滅なれ(AA横横編)

2020/5/21

[4075]

「照焼大橋」不滅なれ(モスクワ編)

2020/5/21

[4077]

「照焼大橋」不滅なれ(上流足尾編)

2020/5/21

[4078]

「照焼大橋」不滅なれ(ばりばり編)

2020/5/21

[4079]

「照焼大橋」不滅なれ(ぱりぱり編)

2020/5/21

[4080]

「照焼大橋」不滅なれ(かりかり編)

2020/5/21

[4081]

「照焼大橋」不滅なれ(クラスト編)

2020/5/21

[4082]

「照焼大橋」不滅なれ(高速旅情編)

2020/5/21

[4234]

きょうは南栗橋でぎゃふん。

2020/10/1


関連する記事


[3868]

まだ見ぬ「ドリームかまち」を探して(インサイト編) tht - 2019/12/30


[3658]

【自由研究】ゆるシミュ(8) tht - 2018/7/9


[4236]

きょうは三ツ境で三都物語。 tht - 2020/10/1


[4235]

きょうは天下茶屋で有楽町層。 tht - 2020/10/1


[3707]

研究ホワイトボックス(35) 複雑なデータと「対話」するには〜郵便番号データを例に(R編) tht - 2019/5/24


[3957]

まだ見ぬ『御池1400』を探して(ボロノイ編) tht - 2020/2/29


[3669]

【自由研究】ゆるシミュ(9) tht - 2018/8/16


[4173]

きょうは新札幌でバウムクーヘン。 tht - 2020/8/25






neorail.jp/は、個人が運営する非営利のウェブサイトです。広告ではありません。 All Rights Reserved. ©1999-2020, tht.