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

[5290]

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

【A9・Exp.】最小全域木(MST)再び(再)


「R with Excel」(※管理者として実行)
「R with Excel」(お試し)
「R with Excel」(続き)
「R with Excel」(続き)

(約18000字)

 [5287],[5288],[5289]からの続きです。


[4548]
 > あれでもないこれでもないとぶつぶついいながらヤカンやどんぶりや枕を放り投げてください。大根は投げないでください。

[3747]
 > …パピコ!(違)

・(2017年10月27日)
 https://yoshi-nishikawa.hatenablog.com/entry/2017/10/27/143615

 > 質的研究に目覚めた朝。

 …質的研究に目覚めた朝!

 > (全略)
 > これで、消えたpackage問題は解決されます!!

※チーズ!!! マーフィー!!! よよいの(げふ)ばきばきっ。

・日欧商事(JET)「リコッタチーズと野菜のマフィン」のイメージでした!
 https://www.jetlc.co.jp/wp-content/uploads/%E3%83%AA%E3%82%B3%E3%83%83%E3%82%BF%E3%83%81%E3%83%BC%E3%82%BA%E3%81%A8%E9%87%8E%E8%8F%9C%E3%81%AE%E3%83%9E%E3%83%95%E3%82%A3%E3%83%B3.jpg

[3773]
 > ミスリル(※コードネーム)みたいなバイクで恵方巻のチラシを投げ入れだっ。この業界ではよくあることだっ。

 わたしの場合でいうと「iGraphに目覚めた朝」というのがあったのです。ええ、たぶん2010年の1月ごろ、たぶん2010年の1月ごろだったとは思いますが、唐突に「iGraphに目覚めた朝」というのがあったのです。

 それより前から(つまり冬休みの前に)Rを勉強せねば、特にiGraphあたりをやらねば、と思いながらお正月を迎えるんです。だけど、さすがに松の内も明けないうちに「iGraphに目覚めた朝」は訪れない。共立出版の『赤い本!』の「iGraph」のを積んでおいても、風景になってしまって効き目がない。

・共立出版「ネットワーク分析 第2版」(2017年5月26日)
 https://www.kyoritsu-pub.co.jp/book/b10003845.html
 https://hondana-image.s3.amazonaws.com/book/image/10003845/normal_92d26d2e-6973-4c37-9b6e-5ed83cb28bf9.jpg

※初版は2009年9月。そのとき新刊だったから買って、そして…そして、積み上げた!(※白目)

 しかし、なぜか唐突に「iGraphに目覚めた朝」は、訪れるんです。(以下同文)

 そのときのiGraphは『自分都合!』で挫折したのだったと思いますが、これに限らず、そういうふうにしばらく本を積み上げておいてから、長ければ数年後に突如、『目覚めた朝』(※過去形)が訪れるというのは、この業界ではよくあることだと。(※倒置法)そうするとだいたい、本の内容は古くなっていて、Rのパッケージがすんなりとはインストールできない。出鼻をくじかれるなんてものじゃ、ありません。これはしめしめと、Rのパッケージがすんなりとはインストールできないのをいいことに、『目覚めた朝』(※過去形)は訪れなかったことにするのです。…そ・ん・な・も・の・は・さ・い・しょ・か・ら・な・か・っ・た・の・で・す!(※音声を変えています。)

[4837]
 > 『最初からいなかった』処理。○か×か。というか「処理」とかいうなや。

・(掲載日不明)
 https://www.kkaneko.jp/pro/r/mst.html

 > nnclust パッケージのインストール

 ↑↑いまココ。(※絶望の矢印で棒読み)

 掲載日は不明ですが、その「nnclust」が、現在はすんなりとはインストールできないんです。いままさに出鼻をくじかれました。出鼻ingです。(違)

 > MST(Minimum Spannning Tree) を作ってみる(nnclust を使用)

 すごくシンプル。すごくいい。だが、パッケージがすんなりとはインストールできない。(※駄菓子屋みたいな言いかた)

 > MST(Minimum Spannning Tree) を作ってみる(igraph を使用)

 やはりiGraphは性に合わない。(※昼休みに風向きが変わるラノベみたいな言いかた)

■「R with Excel」(※管理者として実行)

だううんろーどです?url <- "https://cran.r-project.org/src/contrib/Archive/nnclust/nnclust_2.2.tar.gz"
pkgFile <- "nnclust_2.2.tar.gz"
download.file(url = url, destfile = pkgFile)
いんすとおーるです?install.packages(pkgs=pkgFile, type="source", repos=NULL)


 うーん。うー…んー?(※不吉な音)▼「あんどろどいど」からの「『パンタググラフ』と『ダイヤググラム』夢の競演」については[4368]を参照。(※上の空)

 https://www.kintetsu.jp/kouhou/hikaricable/image/network/network.gif

 わあぃ…(てんてんてん)。

・…これだ
 https://www.kkaneko.jp/tools/win/make.html

 > make のインストール(Windows 上)

 https://wa3.i-3-i.info/img/data/1000/d001005-2.png

 Windowsがうらめしくなるが、それをいってもしかたない。(棒読み)そして、いまは何年ですか。はーい、2025年ですねー。(※B組ちっくな変な声で!)

・(♪〜)
 https://shop.r10s.jp/yasukukaeru/cabinet/autoseller-228/228aae7b7d059fe8cff8.jpg

 …前言撤回。(はやっ!)▼「はーいステップジュン」については[5059]を参照。(※真顔)

・2025年ですから「Rtools」デスよ
 https://k-metrics.github.io/cabinet/env_install_tls.html

 > Rtoolsのインストール

 > Windows環境においてCRANからパッケージをインストールする場合、基本的にビルドされたバイナリパッケージがインストールされますが、一部のパッケージにおいてソース(tarball)からパッケージをインストールしなければならない場合があります。この場合、ソースからパッケージをビルドするために Rtools というツールが必要になります。

 「Rtoolsのインストール」というたった1つのアクションですべてが完了する。ここがね(ぶつぶつ)この子がね(どったんばったん)15年前のじぶん、エラーメッセージを1つずつ読んで、1つずつ、例えばmakeがないってんでmakeだけ入れようとか、そうすると32bitだったとか(※Rは64bitのを使っている)、そういうところでどんどんはまっていくんですよ。…15年前のじぶんならね!(きらーん

 > 32bit版と64bit版が同梱されていますので環境に応じて選択して下さい。

 両方とも入れておく。明示的には再起動を求められないが、環境変数でパスがどうという話なのだから再起動しなくていいはずがないので、じぶんで再起動するです。(棒読み)

 > 環境にもよりますが、gccを始めとしたツール類がインストールされますので相応のインストール時間を要しますのでご注意下さい。

 Celeronとかじゃない限り、ほんの一瞬です。むしろCeleronがわるい。(※私見です。)

 https://pc.watch.impress.co.jp/docs/article/980825/celeron.jpg

 偏見だとは自覚していますが、そのときのCeleronの印象がすべて。印象が覆ることは(わたし的には)なかった。

[4759]
 > 怠惰。短気。傲慢。あと4つ。なんならぜんぶ怠惰ですらいい。…「なんなら」いいたいだけ!

 15年で、すっかり『怠惰』になった。そのおかげで変にはまらず、今度こそはすんなりと「Rtoolsのインストール」で済ませることができた。だいたい、「nnclust」くらいのを使いたい人は無数にいて、その人たちがみんな環境変数を手で書き換えたりなんか、してるわけないんです。(以下略)ありがとうございます。実はさっき、まるで15年前のじぶんと同じようにはまりかけたじぶんがいました。(※平成時代みたいな言いかた)

[4227]
 > キャベツが新鮮かそうじゃないか、いわばおいしそうかおいしくなさそうかを一瞬で判断する。これを将棋でやっているのだ。

[3728]
 > > 「誰かができたことは自分もできるはず」という考えのことで、データの保存方法を決めたりする時、ほとんどの場合には他人と同じやり方をするのが一番早いとビアソンさんは述べています。

・(再掲)
 https://image.itmedia.co.jp/nl/articles/2202/23/l_amanon_220210goemon01.jpg

 なお、いまわざわざRで「nnclust」をコンパイルしてまで入れて使うというのはかなりレガシーだとは自覚いたしております。(※敬語)いまなら「NumPy」で何でもできるし何でもやらされる。(※受け身)教材としては「NumPy」を使うようにしないと使い物にならないとも承知している。ただ、ここではリンク先のスクリプトをそのまま実行してみたかった。Rじゃないとだめだった。(ぶつぶつ)

[4890]
 > 「理数探究」を「Python」でやっちゃだめ。当然、エクセルですんごいマクロを書くのもだめ。(※見解です。)「理数探究」としては、じぶんで(生の)コードを書いてはいけない。上掲の▼「RとFDA」([3567])のほか、▼国際標準コードライブラリ「LAPACK」については[3587]を参照。スイカ畑では両手を挙げろ!! …お、おぅ!!!(※表現は演出です。)「手続き」を完全に遵守するということが「研究倫理」です。違ういいかたを探すなら、独自の授業を模索していい段階は終わっていて、「理数探究」このようにせよということには強い制約が出てきて、学校間で差が出ないことが求められる段階に進むということです。

[4101]
 > > フリーの主成分分析実行環境(SAS University Edition,HAD など)を使って

 > 「フリー」と「オープン」は異なる概念である。「フリー」だというだけで高校生にSAS製品を使わせるのは極めて不適切である。

[3567]
 > 「RとFDA」
 > > FDAが使っている統計言語はSASですが、FDAの性格上固有の会社の統計言語に依存することには問題があるため、パブリックなRが注目されるようになりました。
 > > FDAの薬事申請はCDISCと呼ばれ標準化されています

■「R with Excel」(お試し)

library(nnclust)
試食コーナーで
おなかいっぱいっぱい!
Y <- matrix( c(iris[,1], iris[,2] ), ncol=2 )
plot(Y)
mst <- mst(Y)
segments( Y[mst$from,1], Y[mst$from,2], Y[mst$to,1], Y[mst$to,2], col="red")


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

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


 ん、先生、できました。(※「ん、」の使い方)


 ここまでで「nnclust」のインストールができたので、「管理者として実行」しているRを終了します。

※「管理者として実行」を常用してはいけません。


 いよいよ「新逢坂山田前」の続きです。前回までのスクリプトを実行した続きで実行します。

・「mykmakari90to30$centers」

V1V2V3
1202.630861996605-88.11564697099693.58261271169332
2205.762159824472-21.1377546984471-0.266466498409233
3116.942574844725-86.003892779901211.9240191695473
4185.920969988009-194.52131611995612.49934318404
5162.945385735871-19.78396640846043.8319202644361
6120.614418799383-16.53444219337244.59754773701969
7233.556348839848-218.3580036593477.29683372510852
8109.690995492847-176.68904174015314.997327153433
9156.469657043412-50.40466158786684.38386892322203
1025.5756478207608-186.5137133488744.73863939234312
11231.904614662148-107.257021990447-1.29899640945755
1215.0450368071363-233.5149776458357.0633595764441
1392.2163844805558-199.2131970181729.9988284152045
1484.4374922691136-228.58659998425714.9949646336265
15189.273668376036-60.85217149220493.50960140307512
16236.163652714674-152.0510491469310.584430980984894
17227.259332177224-62.8192473601532-1.3455312779885
18195.082753575258-119.71945883996811.4436335665609
1937.7502814667525-99.98147807450811.2050984319092
20155.985688529565-90.00092577999797.54835736766466
21121.833416334661-58.24980207375637.65372698711813
2256.3180440668703-197.71424845368510
2319.3935814507693-139.4137656595576.57089056624423
24229.19353006984-187.0435654665254.81164732267612
2556.2530414498111-155.43275653809410
26198.369916968399-154.6232887642667.46271365112954
2713.8434410335737-66.021112660406510
28208.859221947431-238.79422960571513.3333333333333
2975.7436329316103-21.646616814287815
3045.4747362194434-233.40894240160710


 この「mykmakari90to30$centers」が、そういうふうに格納されているところからの再開です。

■「R with Excel」(続き)

library(nnclust)
なんとかにすた!
(花吹雪)
Y <- matrix( mykmakari90to30$centers, ncol=3 )
plot(Y)
mst <- mst(Y)
#text(mykmakari90to30$centers)
segments( Y[mst$from,1], Y[mst$from,2], Y[mst$to,1], Y[mst$to,2], col="red")


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

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


 とにもかくにもRなんですよね。こういうときだけはスクリプトキディでいい。リンク先のスクリプトをそのまま実行しましたとわかるようにして実行してこそ、リンク先を見た意味があるというものです。

 このままではマップの画像との重ね合わせがうまくいかないので、ちょっとごにょごにょします。…ごにょごにょ!!(※大声)

だぞっ☆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")
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします


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

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


 ありがとうございました。ごにょごにょしました。


 ここからはゲームの話に戻ってきます。

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

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


 A9V4「ひしめきあう街」は、マップ中央の山々で大きく東西に分かれた地形になっています。ここで最小全域木を作ると、山で隔てられて距離があるところは、その中で最短のところを結んで、つまりゲームとして見れば、トンネルを1本だけ造るという路線網が提案されてくることとなります。

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

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


 クラスターの番号をプロットしたもので見ましょう。▼「4」と「13」、それに▼「3」と「19」を結ぶトンネルを造りたいという話になっていました。しかし最小全域木というアルゴリズムを使おうとする限り、トンネルは1本にしないといけません。ここでは▼「4」と「13」を結ぶトンネルができるように、▼「4」と「13」の中間地点に新たな点を追加してから最小全域木を作ろうではありませんか。ただ▼「8」という点があるので、そちらとつながってしまうかもしれません。それはしかたありません。

だぞっ☆addY <- kmeans(mykmakari90to30$centers[c(4, 13),], 1, nstart=50)


 出ました「k=1」のk-means。どうなったでしょうか。(棒読み)

・「mykmakari90to30$centers[c(4, 13),]」

V1V2V3
4185.92097-194.521312.499343
1392.21638-199.21329.998828


 ↓

・「addY$centers」

V1V2V3
1139.0687-196.867311.24909


 ほほぅ。「k=1」のk-meansどべし。(※変な擬音)

■「R with Excel」(続き)

だぞっ☆addY <- kmeans(mykmakari90to30$centers[c(4, 13),], 1, nstart=50)
Y <- matrix( rbind(mykmakari90to30$centers, addY$centers), ncol=3 )
mst <- mst(Y)
plot(myakari2d0, type="n")
text(mykmakari90to30$centers)
segments( Y[mst$from,1], Y[mst$from,2], Y[mst$to,1], Y[mst$to,2], col="green")
rect(0, 0, 256, -256, border = "red")
# プロットされた図を右クリックしてコピーや保存をします


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

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

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

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


 どや〜…(てんてんてん)。

・(♪〜)
 https://cdn.sbfoods.co.jp/recipes/10389_l.jpg

 > カレーの香りとチーズのコクがおいしいマフィンです。辛くないカレー粉でお子さまにもおすすめ!

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

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


 こんな気持ちですね。「1」は「ひしめきあう街」でレンガ駅舎のところ、「22」は前述の『高田』であります。この2点だけが最小全域木で4本の手(エッジ)を持たされた。まさに「1」と「22」はCBD(都心)であると、最小全域木のアルゴリズムで確認できたといえます。…いわないかもしれませんが。(ずさー

・「メタでトポロジカルな遊び方」
 https://arx.neorail.jp/hints/?%E3%83%A1%E3%82%BF%E3%81%A7%E3%83%88%E3%83%9D%E3%83%AD%E3%82%B8%E3%82%AB%E3%83%AB%E3%81%AA%E9%81%8A%E3%81%B3%E6%96%B9

 > ゲームに遊ばされるな「ゲーム外ゲーム」で遊べ! 超絶ゆるふわサイエンスことなんちゃって位相幾何学でひねり出した超斬新な「A列車の遊び方」が大変なことに。

・(♪〜)ほわほわ(※擬音)
 https://youtu.be/37Z3xAl5ym0



 https://image.p-c2-x.abema-tv.com/image/programs/25-107_s1_p1/thumb001.png

 そういうわけで▼「1」をさらにCBDらしくすべく▼「1」と「20」をつないだ上、▼「3」から「19」に抜ける2本目のトンネルを造るんです。まさに嵯峨野線ですね。えー…(てんてんてん)。

※あくまでゲームです。

 …じゃ、じゃあ。(※ごくり)点が90個ある「mykmakari90elvc3o」のほうを使えばバスの路線網になるのでは…(てんてんてん)。

・少し戻って「mykmakari90elvc3o」のほう

V1V2V3
170.456338028169-24.690140845070520
237.6613226452906-174.2985971943895.05994369137529
3228.522352941176-139.8329411764714.02230750216915
4126.553314121037-84.70893371757925.77205750864197
5239.246913580247-112.876543209877-10
6245.575809199319-239.19591141396910
7181.34243697479-67.253.9413547979323
856.63139329806-186.38624338624310
9197.204899777283-54.45434298440983.07784800821794
1013.4311814859928-221.2996345919614.12671915288819
11206.357967667436-169.946882217095.10495528154992
12171-45.20112781954893.91362929842497
13106.376599634369-9.308957952468034.66556224921666
14225.639097744361-161.1904761904764.39009925819244
1578.6924119241193-223.3184281842829.98992926725291
16114.125-55.714743589743610
17184.002136752137-158.00854700854710
18121.738898756661-30.56483126110134.90242832337217
1943.1856060606061-88.818181818181810
20196.907407407407-212.7833333333339.99737273616007
21219.822429906542-15.9953271028037-10
2217.1670886075949-77.27974683544310
23169.323529411765-99.223529411764710
24227.328244274809-113.7582697201023.47058505675715
25228.312958435208-181.3569682151594.65895354595854
26170.767857142857-194.1562520
27102.735056542811-203.29240710823910
28208.958536585366-100.4609756097563.72290214661136
29214.66735966736-25.041580041582.59759514282896
30179.636752136752-125.23931623931620
31110.047477744807-83.646884272997120
3216.6588921282799-245.73032069970810
33114.710562414266-179.1152263374499.99465430686605
3428.9488117001828-198.9049360146254.86223916957532
35104.671428571429-174.26285714285720
3657.8589285714285-141.09821428571410
37236.886699507389-64.5221674876847-10
38162.771203155818-7.986193293885683.71850880706963
39216.752252252252-208.6891891891896.82946287522669
4033.4943457189015-132.03877221324710
41156.501048218029-61.59958071278834.58441078334219
429.82363013698637-129.7311643835625.08249810571907
43141.907922912206-44.41327623126344.65356668789892
4456.0046948356807-209.04225352112710
45226.333333333333-223.73239436619710
4629.8170478170478-103.3056133056139.93621010628344
47192.654185022026-194.20264317180610
4810.1168091168091-186.3376068376074.29373531607876
49114.226932668329-89.655860349127210
50245.062857142857-143.817142857143-10
51245.430303030303-163.3636363636363.92531716357799
52229.138686131387-95.13625304136252.63242571487022
5351.8970189701897-242.94986449864510
5466.6174242424242-165.97159090909110
55141.933638443936-98.606407322654510
5690.1825726141079-233.85477178423220
5753.1630434782609-90.952898550724720
58212.833333333333-190.5621468926555.56975860585622
59218.105263157895-46.65789473684211.96537397982735
60150.507936507936-26.8591269841274.16564135660753
61228.482866043614-62.1651090342680.864687261823367
62231.67397260274-205.873972602745.27319071938781
63133.727758007117-9.729537366548034.22465263847026
6481.6977124183006-195.1339869281059.997656830409
65206.778270509978-75.44124168514412.9194949535419
66246.43429844098-189.2115812917594.20622981621358
67166.874092009685-82.43583535108964.88419199451511
68192.155778894472-88.44472361809044.10544103492669
69145.811494252874-79.73793103448275.30923747614353
70211.784653465347-124.4702970297034.3309006996826
71183.354430379747-176.94303797468410
72193.061971830986-143.1633802816910
73200.651480637813-232.04783599088810
74210.057591623037-147.3743455497384.74589932296824
7510.5197934595525-54.762478485370110
7644.2827715355805-159.22846441947610
77175.55701754386-24.50657894736853.61161062963114
7839.0524534686971-223.86802030456910
79203.920454545454-245.04545454545520
80129.541832669323-60.78486055776895.30745397423626
8114.8627684964201-156.4713603818624.63017359301361
8281.0309278350515-18.603092783505210
83193.543828264758-9.456171735241533.2025316734508
84222.005730659026-239.28939828080210
85225.5625-77.93181818181821.78781364639529
86195.015021459228-34.0579399141633.13400719008331
8750.9929947460596-113.8406304728559.98528013891826
8811.5927152317882-102.9900662251666.10400191434453
89193.826855123675-109.44876325088310
90247.446376811594-214.2985507246384.3815150309281


だぞっ☆X <- matrix( mykmakari90elvc3o, ncol=3 )
mst <- mst(X)
par(cex=0.6) # 文字を小さく
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")
# プロットされた図を右クリックしてコピーや保存をします


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

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


 じゃぁあ〜…ん。(※乾いたファンファーレ)

 https://img2.animatetimes.com/2020/07/5f1c19edb77cf_4fe5bf759fbe7bf108f385d6ac9ae339.jpg
 https://neorail.jp/forum/uploads/map_a9v4_hishimeki_90to30_472g2_named_memo_bus.png

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


 重ねてみました&いかがだったでしょうか。『酷道』! えー、どこどこ?(以下略)「月見町」と「黒田町」の間は『酷道』なんですよ。だから鉄道のトンネルが急がれる。すごく逢坂山である。○か×か。

・(参考)
 https://busmagazine.bestcarweb.jp/feature/column/182930

 > 古さ炸裂!?

 うぇ〜い…(てんてんてん)。

 > 自動車がなかった時代から人の往来に使われてきた古い道。歴史ある道だからこそ、昔から公共交通機関の通り道として重宝されているイメージを抱く。

 > 小田原駅の海側(東口)のバスターミナルと芦ノ湖の湖畔までを、箱根登山バス「H系統」と伊豆箱根バス「Z系統」の2事業者が、大型路線車を使ったバスを運行している。
 > 芦ノ湖の標高は724mで、対する小田原駅周辺は20m前後。自動車が通る道路でも急勾配急カーブは避けられない。自ずと山道を攻めることになるため、H系統とZ系統は、アグレッシブさにかけても路線バス中で随一の存在かもしれない。

※あくまでゲームです。実在する国道とは無関係です。

・ずんずんずぅうーん…(てんてんてん)
 https://livedoor.blogimg.jp/n80noritsu001/imgs/7/f/7f8a7e67.jpg
 https://blogimg.goo.ne.jp/user_image/06/8f/49813c1805abbcecfcaa501c56e75f7d.jpg

・「桑原」も「松島」も「高田」からバス(だから駅は造らない)
・「千鳥」と「古市町」の間は臨港バスっぽい(だから線路は通らない)

・MSTをつくるとき3次元の行列を渡している:標高も考慮される→高台の上と下は別々のバスになってくれる
・「野方」これいかに?

 …職人町なんですよ!(ぱあぁ

・「職人町」とはにわが知りたい路線バスの旅
 https://kotobank.jp/word/%E8%81%B7%E4%BA%BA%E7%94%BA-1175411

 > 新発田市御幸町一丁目
 > 新町の下手、紺屋町の西に続く町。西流する新発田川を隔てて北側には下鉄砲町がある。新発田川に並行して町の南を堀川が流れ、西の突当りには神明宮があった。
 > 下鉄砲町裏の野畑二町五〇間を屋敷割して元禄元年(一六八八)鍛冶職人らを移住させ、職人町とした。

 https://www.4gamer.net/games/533/G053304/SS/003.jpg

 …おにいさま。(※超連想)

 > 八幡町職人町
 > 小駄良川左岸にあたり、長敬寺の南側門前に位置する。

 その名も「八幡町職人町」。(すちゃ

 https://pbs.twimg.com/media/ExeAFMaUUAILe-F.png

 > これらの職人町は,商人町が城下の大手に近い主要街路ぞいの一画を占めるのに対して,その裏町か,またはその職種の立地条件により城下中心部からはずれた外延部に置かれることが多かった。江戸初期の軍事目的による建設が一段落すると,領主のためほとんど独占されていた職人の仕事は,しだいに商品生産にも向けられるようになり,17世紀後半の全国的な商品流通の展開により,江戸をはじめとする大きな城下町では,御用手工業者の身分的職人支配体制は急速に解体し,したがって同職同町集住もくずれ,職人は市内に散在するようになる。ただこの場合も職人は中心部からはなれた周辺部に多く住み,江戸時代初期とはちがった形で職人町を構成することが多かった。このように,場末に職人が集住する傾向は近代にもうけつがれている。

 https://assets.st-note.com/img/1715263926516-BSlEtdBFoC.jpg

 山手線の駅なんだけれども職人町なんだよねとか問屋街で道具屋なんだよねといった風情。「23」と「55」には、それぞれお寺があるのだ。それって日暮里ですか。記憶にございません。

・「五番町」はバスの車庫なんじゃないかな

 https://dynamic-media-cdn.tripadvisor.com/media/photo-o/15/c9/98/34/caption.jpg
 https://www.city.chiyoda.lg.jp/koho/bunka/bunka/chome/yurai/goban.html

 > 数多くの随筆で知られる百間は、「東京焼盡(とうきょうしょうじん)」のなかで、戦場ルポライターのような確かさで、空襲のさまを描写しています。彼の邸宅跡地には、現在、番町会館が建っています。

 > 内田百間の「間」の字は、本来は門構えに「日」でなく、「月」が入る字です。

 なんかそんなかんじ。(※ひらがな)

・(♪〜)ふぁんたじぃ〜…(てんてんてん)
 https://prcdn.freetls.fastly.net/release_image/13125/877/13125-877-a4e9e72522ab41c4a5f55f45d790b46b-2268x1134.jpg

 > クランブル

 いわゆるキノコ雲に見える形はちょっと…(てんてんてん)。

 > 小樽洋菓子舗ルタオ

 ABC電鉄もビックリ(※カタカナ)のネーミング。地で「すでのな」や「ぜかまし」を名乗るレヴェル。(※ソコジャナイ。)

[3654]
 > オペレーション「黒いキノコと藻が多いセイボの木」を発動だっ。

[5239]
 > 研究は合理的でなければなりません。新しい手法があれば、それを検討しなければなりません。意図的に古い手法を使うことで実験結果の悪い面に対する検出力を下げるようなことが起きてはいけません。

・拙作「バスばすバスばす」
 https://arx.neorail.jp/issue/?A%E5%88%97%E8%BB%8A%E3%81%A7%E8%A1%8C%E3%81%93%E3%81%8610%E3%81%B8%E3%81%AE%E9%81%93,%E3%83%90%E3%82%B9%E3%81%B0%E3%81%99%E3%83%90%E3%82%B9%E3%81%B0%E3%81%99

 A9V5までの「バス」は「駅前のアクセサリーだ。」と言わんばかりの実装なので、なんとなく走らせるよりほかないのだが、もし本気でバスについても路線網を考える必要が出てくるなら、こんな感じに最小全域木(MST)が使えますよという話題でした。あるいは「自動発展」で道路を延ばすアルゴリズムの改良にも使える。なんとなく延びていくのでなく、「ここや!」という地点を目指して延びていくようにするのだ。路線バスが拡がりました。(※過去形)

※個人の感想です。


 [5291]にも続きます。


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


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


[5291]

まだ見ぬ「かいか家」を探して(MST編)

2025/1/1

[5292]

【A9V2】オート全自動「夕日町計画」(MST編)

2025/1/1

[5293]

【A9V1】最小全域木(MST)が「大都市構想」の返り討ちに遭う話(談)

2025/1/1

[5294]

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

2025/1/1

[5295]

【A9・Exp.】オート全自動「照焼大橋」(改)【中心安定装置あり】

2025/1/1


関連する記事


[4012]

きょうは府中で酢豚。 tht - 2020/4/1


[4064]

縦書きディープなラーニング(2020) tht - 2020/5/7


[4411]

きょうは金沢で半ライス。 tht - 2021/2/1


[4236]

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


[4976]

【A9・Exp.】超展望「新千歳メソッド」道(道央編) tht - 2023/2/1


[4239]

Re:[4236] 全自動CBD(ゴゴゴゴゴ)博多までの(談) tht - 2020/10/1


[4589]

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


[4626]

ふれねる「自由研究 数学」の写(SHA) tht - 2021/8/25






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