フォーラム - neorail.jp R16
2025年1月の話題
更新:2025/2/17

[5294]

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

いま問う「あたらしい新逢坂山田前」のココロ(セルフ質疑編)


「R with Excel」(適応的バージョン)

(約8000字)

 …ゾワッ!(※マイクを触る音)定刻になりましたので、それでは始めささせていただきます。(※緊張しすぎた敬語)

 https://www.takenaka-mfg.co.jp/wp-content/uploads/2023/04/de2f24bc6eb57b02a4f0dd3c0ba2494d.jpg
 https://kenchiku-kozo1004.site/wp-content/uploads/2023/02/mid-masters-thesis2022_2.jpg

※画像はイメージです。…うわぁ、見るだけで緊張してくる写真ですな。本当ですな。

 「90to30」(※仮称)というやり方(※言いかた)の「90」「30」という数は、本当にそれでいいのでしょうか。

 https://www.kyoto-art.ac.jp/production/wp-content/uploads/2014/07/IMG_1070.jpg
 https://www.musashi.ac.jp/seminar_blog/seminarproject/legn3e0000003amn-img/20221029_4.jpg

※『さっきのスライド』を出していただいて…(てんてんてん)、あ、そこそこ!(ぐぇ)

・「ひしめきあう街」
 https://arx.neorail.jp/newgame/?%E3%81%B2%E3%81%97%E3%82%81%E3%81%8D%E3%81%82%E3%81%86%E8%A1%97

 > 平地 32.5%
 > 水面 5.4%

・「文明開化の薫る街」
 https://arx.neorail.jp/newgame/?%E6%96%87%E6%98%8E%E9%96%8B%E5%8C%96%E3%81%AE%E8%96%AB%E3%82%8B%E8%A1%97

 > 平地 47.8%
 > 水面 34.1%

・「夕日町計画」
 https://arx.neorail.jp/newgame/?%E5%A4%95%E6%97%A5%E7%94%BA%E8%A8%88%E7%94%BB

 > 平地 70.8%
 > 水面 13.0%

・「大都市構想」
 https://arx.neorail.jp/newgame/?%E5%A4%A7%E9%83%BD%E5%B8%82%E6%A7%8B%E6%83%B3%EF%BC%A5%EF%BC%B8

 > 平地 82.9%
 > 水面 7.7%

 ここでいう「平地」は「0m」の地点だけを計上しているので、「20m」の高台まで使う今回の計算では、実際にいくつの点を用意してクラスタリングしていたのでしょうか。マップによってその数に大きな大小(…大きな大小!)があるなら、クラスター数はマップごとに変えないと適切な結果は得られないのではないでしょうか。

・-10m〜20mの地点を使う
 > myakari3dc <- subset(mynewakari3d,V3 < 30 & V3 > -20)

 この「myakari3dc」の行数が、点の数です。「nrow(myakari3dc)」で行数を調べてあげませう。

hishimeki416251
10voss377960.908
sunset485811.167
dream559461.344


 「ひしめきあう街」から今回の計算に使った点の数を「1」とした場合。『1割引き!』から『3割増し!』まで幅がありました。ここまで数が違うのなら「90to30」の「90」や「30」という数も変えないといけないでしょう。

・「文明開化の薫る街」:「82to27」で
・「夕日町計画」:「105to35」で
・「大都市構想」:「121to40」で

 …121! 121!(NECじゃないよ)121人は40人のために!!(ぐぇ)それだけでうまくいくようになるとは限りませんが、まずはそこを改良すべき。(キリッ

[4419]
 > 「ぴー・あーる・いー・えふ」とか「しー・あい・てぃー・わい」とか(頭の中で)読んでる限りはまったく意味不明で(以下略)

 > 「でぃー・でぃー・えふ」…じゃなくて、「てぃー・えふ・あい・でぃー・えふ」もね。こっちは「てぃー・えふ・あい・でぃー・えふ」と読んでいいのね。NECをネックと読む人がいてね。

 > > さらに古参の人は「ああニチデンね」と上級古代言語で切り返してくることもあるため、使う時には相手を選びたい。

 > ニチデンと呼ぶのは古参じゃなくて、電信電話のひとだろう。

■「R with Excel」(適応的バージョン)

あたらしい
新逢坂山田前
だぞっ☆
library(nnclust)
myakari2d0 <- myakari3d0[ ,c(1, 2)]
mycmpakari0elv <- prcomp(myakari3dc, scale=TRUE)
mykmakari90elvc3 <- kmeans(mycmpakari0elv$x, as.integer(nrow(myakari3dc) / 41625 * 90), nstart=50)
original <- mykmakari90elvc3$centers %*% t(mycmpakari0elv$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari0elv$scale)
original <- scale(original, center = -mycmpakari0elv$center, scale = FALSE)
mykmakari90elvc3o <- as.table(original)
mykmakari90to30 <- kmeans(original, as.integer(nrow(myakari3dc) / 41625 * 30), nstart=50)
#write.table(mykmakari90elvc3o, file="clipboard", sep="\t")
#write.table(mykmakari90to30$centers, file="clipboard", sep="\t")

# いくつ?
nrow(mykmakari90elvc3o)
nrow(mykmakari90to30$centers)
154レール!
(1341じゃないよ154だよ)
par(cex=0.8) # 文字を小さく
Y <- matrix( mykmakari90to30$centers, ncol=3 )
mst <- mst(Y)
plot(myakari2d0, type="n")
segments( Y[mst$from,1], Y[mst$from,2], Y[mst$to,1], Y[mst$to,2], col="green")
text(mykmakari90to30$centers)
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします
472バス!
(5931じゃないよ472だよ)
par(cex=0.6) # 文字を小さく
X <- matrix( mykmakari90elvc3o, ncol=3 )
mst <- mst(X)
plot(myakari2d0, type="n")
text(mykmakari90elvc3o)
segments( X[mst$from,1], X[mst$from,2], X[mst$to,1], X[mst$to,2], col="black")
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします


 『適応的』とは、ひとことでいえばサ変・ザ・「伸び縮みしてフィットする」という意味。ここで、一般的なプログラミングであればプロシージャ(※古い呼びかた)というかルーチン(※もっと古い呼びかた)というか、関数にして引数を与えよう〜(※語尾上げ)、という考えになるところですが、ここでは「R」を『対話的』に使うことにしてきています。ですから、あくまで1行の中に「nrow(myakari3dc) / 41625 * 90」みたいなのを入れると。「90」と書いてあったのを「nrow(myakari3dc) / 41625 * 90」にすると。(※倒置法で遠い目)

 そこに「41625」という『素敵な魔法の数字!』もとい「定数」が入る。その数字が「41625」でよいのかというのは別の話として後回しにします。

・(♪〜)
 http://image.gihyo.co.jp/assets/images/cover/2024/9784297145873.jpg

 …えーと。(きょろきょろ)

・256×256なので65536あるうちの41625ですよ(おおざっぱにいえば2/3ですな)
 https://www.shutterstock.com/image-vector/635-percentage-circle-diagrams-infographics-260nw-2319535673.jpg
 https://shop.r10s.jp/chanet/cabinet/753/74829-1.jpg
 https://i2.wp.com/nippon-teien.com/wp/wp-content/uploads/2020/08/%E8%A3%8F%EF%BC%93.jpg
 https://i0.wp.com/inthecom.net/wp-content/uploads/2016/12/sanbunkatu-1-01.jpg

 これまでの話では「ひしめきあう街」の地形データが「A列車で行こう9」というゲームでの何がしかの基準たりうる、過不足のないものだという認識で、そのマップに駅を30個、昭文社の知見に基づきマップには30個の駅を置くと、その「30」という数は先に決めたんです。その「30」を、それより多い点をクラスタリングして得ようというときに、3倍はないとだめだよねという感触を持ったわけです。で、…えーと、なんでしたっけ。(ずさー

・「図3」と呼ぶ声あり
 https://xtech.nikkei.com/it/article/COLUMN/20080218/294052/zu03.jpg

 > 三重化では多数決で
 > 間違いを判断できるんだ

 これだこれだ。(違)実際にクラスタリングしてみてから、1つずつのクラスターが何個の点を束ねてできているのかという「size」を見に行くと、2から5までばらけていて、そこも使おうと。(※倒置法)

・「文明開化の薫る街」
 https://neorail.jp/forum/uploads/map_a9v3_10voss_82to27_bus_rail.png

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


・「夕日町計画」
 https://neorail.jp/forum/uploads/map_a9v2_sunset_105to35_bus_rail.png

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


 これはこれと思えるような(見るに堪える)『別解』が提示されてきた、という気分にはなれるかと…(てんてんてん)。

[3687]
 > 東急線だけが描かれた路線図を東急線の駅でもらってきて

 https://www.itscom.co.jp/corporate/nrelease/fy2015/chnj9l0000002d5g-img/chnj9l0000002sa1.jpg

 > なんとなく横べたな図

[4147]
 > 西武は開いた歯ブラシ
 > 西武は開いた歯ブラシ

[3687]
 > > この中では東急だけが、JRや地下鉄に近い「ネットワーク型の路線網」を持っています。東武や西武は支線が多いだけで、「網【あみ】」というよりは「ささくれだった綱【つな】」といったところでしょうか。

[4147]
 > 環状線がなくて、放射状の路線の中心みたいなものが1点ではなく複数あるみたいな路線網ですよ。

[4881]
 > > 自然の地形に従う「東武」「近鉄」と無視する「西武」「阪急」と埋め立てる3セク「りんかい線」「あおなみ線」の違い

・(♪〜)
 https://pbs.twimg.com/media/EFhew3ZUEAEHxKZ.png

[4849]
 > 「西武劇場」で「ロック」みたいに「フラッシュ」焚いて「大音響」。「西武劇場」。モビットとアイカツ。(※実名)

[4796]
 > 乗務員の持ち物として「正しいものをすべて選べ」というクイズの「不正解」として「ぬいぐるみ」をこれ見よがしに持ち出してくるのが西武鉄道キッズである。これを血の気が多いといわずしてなんといおうか。(※反語)

[4892]
 > 西武の人の前で東急という名前を出した子どもに大急ぎで謝らせるような慌てかた&そのような慌てぶりと謝らせぶりを眺めてむしろ満足げになってゆく西武の人。

[4375]
 > > A列車やってると知らんうちに西武鉄道の歴史とかが刷り込まれてくるもんな

 > > 人為的に政治社会を形成する以前に,人間がおかれていた状態。人間はなぜ社会を形成するのかという問いに対して,一度現存の社会関係を解体し,それを構成する個人から理論的に再構成しようとする意図から考察された仮説で社会契約説とは不可分の概念。ただし論者によって自然状態観はそれぞれ異なり,T.ホッブズはそれを戦争状態と考え,J.-J.ルソーは黄金時代とした。 J.ロックはその中間をとった。

 > 自然状態では西武になる。みんな西武である。(違)ゲームをどう進めるかで、あなたが暴かれる。このゲームで西武になったなら、あなたが西武だということだ。それだけのことだ。同じゲームで公団でもなんでもできる。要はロールプレイングである。そこで西武というロールしか知らないなんて(げふ)あまりにも西武すぎる。

・(♪〜)
 https://youtu.be/B-FWhcNvNhA




[5195]
 > …わあぃ「A列車で行こう9」で“再現!”しなきゃだよおねーちゃん!(違)

[4485]
 > > たぶんVoodoo2のドライバが認識されてないんじゃないかな?

 > 「A列車で行こう9」の「花畑」は、それ以下! たぶんVoodoo2のドライバが認識されてないんじゃないかな?(※断言)

・「大都市構想」(御花畑Ver.):たぶん山手線と武蔵野線と西武線と秩父鉄道ができるんじゃないかな?(※断言)
 https://neorail.jp/forum/uploads/map_a9v1_dream_121to40_bus_rail.png

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


 「やーい、おまえんち、おはなばーたーけーっ」からの「「さーつきちゃーん!」だって。」いってみよっか。(※ひらがな)

 https://nekogoods.info/wp-content/uploads/2016/10/71Y4aygW2jL._SL1000_.jpg

※などと。質疑応答で無駄に「西武について」について持論を展開する人いませんか。困ったものですよね。時間も限られていますので、ほかのかたの質問もうかがいましょう。あとでフロアで直接お願いします。(ねちねち)

・(♪〜)
 https://kitaharasou.com/wp-content/uploads/g_kita9150230.jpg

 ゆ…じゃなくて、不利、といいますか、「未知のデータ」を入力したときにどうなるのかということについてご質問がありましたので(以下略)実はA9V3「山間の秘湯へ/田園の彼方へ」についてもプロットしてあるんです。(キリッ

・発表時間に収まらないから質疑で出たら見せようと用意しておいたようなスライド@それを先に見せろやい的なやつ!(ぎゃふん)
 https://www.jre-travel.com/content/dam/jretravel/site/page/article/images/00278/a00278_05_p.jpg
 https://kinkichisui.co.jp/img/business/business01_02_001.jpg
 https://neorail.jp/forum/uploads/map_a9v3_yuda_cmp_u100y100.png

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


※地形は「山間の秘湯へ/田園の彼方へ」です。「ベクトル円海山」と「新札幌バウム」と「ベクトル海百山百」の“ぜんぶのせ”です。

・「時間です」という無情な宣告
 https://youtu.be/AKRq-wL8F_g?t=20




 ここまで、▼[5287],[5288],[5289]と▼[5290]から▼[5291],[5292],[5293]までの内容をまとめてお伝えしました。この内容は「新逢坂山田前」のページで、いつでも、何度でも、読みなおしができます。

・「新逢坂山田前」
 https://arx.neorail.jp/experiment/?%E6%96%B0%E9%80%A2%E5%9D%82%E5%B1%B1%E7%94%B0%E5%89%8D

 あわせてご利用ください。


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


この記事を参照している記事はありません


関連する記事


[4236]

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


[4986]

きょうはゼスト御池で海の幸と山の幸。 tht - 2023/2/1


[4589]

【ロッヂ】新逢坂山田前で1点(前編)【てなもんや片町】 tht - 2021/6/1


[4235]

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


[4513]

【PHS】「キタキツネの勢力範囲」とは何か(談)【竜王】 tht - 2021/4/1


[4974]

【A9・Exp.】大都市構想ジャンボ(カッコカリ) tht - 2023/2/1


[4246]

つけたし『3面指し』(6) tht - 2020/10/1


[4590]

【天屋本名】新逢坂山田前で1点(後編)【乾杯は抹茶で】 tht - 2021/6/1






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