フォーラム - neorail.jp R16

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


2025年1月の話題
更新:2025/2/17

[5291]

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

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


A9V3「文明開化の薫る街」で追試
あたらしい新逢坂山田前
「R with Excel」(続き)

(約13000字)

 忘れないうちに復習するのが定着へのカギですぞ。まったくその通りだといいました。(※だれが?)

・拙作「データで遊ぶ」より「新逢坂山田前」
 https://arx.neorail.jp/experiment/?%E6%96%B0%E9%80%A2%E5%9D%82%E5%B1%B1%E7%94%B0%E5%89%8D

[4232]
 > カレーとコーヒーとボードゲーム。なにそのユーミンみたいなの。走り出す放課後。あるいはワイシャツ。ぜんぶJRのせいだ。

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

 https://cdn-ak.f.st-hatena.com/images/fotolife/m/mitu-B901/20220324/20220324191937.jpg

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

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

 それはつまり「ペンディングになっていた」とされる「三都物語®」を上書きして塗り替えたと、これからはもう「三都物語®」という名前だけの思いつきは忘れて最初から「新逢坂山田前」すればよいのだと、西日本旅客鉄道のせいにしながら計算ドリルや草むしりをする必要などないんだと、こういうわけです。

・(♪〜)
 https://youtu.be/wkAnau-XU80




 > Miroirs: III. Une barque sur l'océan
 > Maurice Ravel

 しっとりとはじまりました「このフォーラム」。(※体言止め)

[4970]
 > 「新しい千葉駅」

[5221]
 > …「新しい千葉駅」。(※体言止め)

 > > 京葉学院

 > わあぃ京葉学院。将来の京葉線の担い手を育てる京葉学院。(※真顔)

 教科書みたいな言いかたですね、わかります。(棒読み)


●あたらしい新逢坂山田前


・先にベクトル円海山してから
・平地と高台の地形データ(3次元の点群)をk=90でk-meansしてからk=30でk-means
・k=30のクラスターの重心で最小全域木(MST)
・k=90のクラスターの重心で最小全域木(MST)

・k=30でk-meansで得られる重心のサイズ:地名の選択に利用
・k=30からの最小全域木(MST):ノードの次数が「都心らしさ」を示唆
・k=90からの最小全域木(MST):平地と高台で別々の路線バス(ところどころに「坂の町」ができる)

 ありがとうございました。「あたらしい新逢坂山田前」(※教科書みたいな言いかた)でした。


☆A9V3「文明開化の薫る街」で追試


 …追試!(※悲鳴)

・「文明開化の薫る街」とはにわ旅とりっぷ(※ベレー帽)
 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
 https://arx.neorail.jp/newgame/a9v3_10voss_superkatakurico.png

https://arx.neorail.jp/newgame/a9v3_10voss_superkatakurico.png

 https://arx.neorail.jp/newgame/a9_region_kaika_plan.png

https://arx.neorail.jp/newgame/a9_region_kaika_plan.png


 > 復元した平地の微地形を用いたクラスタリング(k=17=24+1)

 https://arx.neorail.jp/newgame/a9_region_kaika_plan_km17.png

https://arx.neorail.jp/newgame/a9_region_kaika_plan_km17.png


 そこまでできていました。k=17=24+1。その図に見ごたえがあるからか何なのか、「文明開化の薫る街」のページを毎日欠かさず読み込むユーザーがおられます。何かの参考になっているなら幸い。(※恐縮です。)

・TSVデータのほうになります(※敬語のつもりみたいな敬語)
 https://neorail.jp/forum/uploads/a9v3_map3_10voss_xyz.tsv
 https://neorail.jp/forum/uploads/a9v3_map3_10voss_256x256.tsv

 …てんぼす!(※ひらがな)クリア後のお楽しみでエッグチキンだよね。(※謎の語感)

・「ベクトル円海山」
 https://arx.neorail.jp/experiment/?%E3%83%99%E3%82%AF%E3%83%88%E3%83%AB%E5%86%86%E6%B5%B7%E5%B1%B1

[5287]
 > その通りに実行すると「mynewakari3d」が得られます。

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

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


 メモリをガヴァガヴァと13GBも使いながらね!(※笑顔)

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

[5287]
 > 所望のデータになったか、プロットしてみて確かめます。

・「plot(myakari3dc)」
 https://neorail.jp/forum/uploads/plot_a9v3_10voss_microtopography.png

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


 うむ。(※またも恐縮です。)

・「mykmakari90elvc3o」

V1V2V3
141.8352941176471-32.282352941176420
2242.964814814815-177.5388888888896.10763467173311
3192.08875739645-170.603550295858-10
49.60347551342817-239.1927330173784.39187039797324
517.6732026143791-80.189542483660110
695.9108910891089-51.6782178217822-10
742.3456221198157-168.414746543779-10
8215.039563437926-63.52796725784454.72892844874179
9151.489104116223-215.3244552058117.05582625337265
10109-221.00508905852410
11109.589285714286-197.1718755.35943929168168
1234.9591836734694-224.639455782313-10
13145.842995169082-198.6570048309185.94929405326817
1410.4676113360324-118.3481781376525.16226726649977
15216.872950819672-182.5020491803285.75155594414617
1652.9117647058823-244.4789915966394.57868538809971
17214.156756756757-83.0702702702703-10
18242.676202860858-49.73992197659295.47151271710698
19135.764018691589-184.7593457943934.96067181959674
20224.408517350158-33.33596214511046.36871171770642
21235.521276595745-197.0574468085117.45553500220108
22156.987421383648-22.60062893081765.93947217333469
23162.108202443281-179.2024432809774.56216798996088
2439.0436681222707-161.5065502183413.2576479081232
25204.338983050847-23.162711864406620
26116.369942196532-167.445086705202-10
2767.5664206642067-93.72509225092254.79214754921428
28168.093862815884-231.4638989169686.86617161003167
2993.1839622641509-215.9905660377365.52741166206284
3046.2939698492463-61.01256281407047.8054437563151
31252.167597765363-141.26815642458110
3289.7927710843374-244.8289156626515.9886739665751
3382.85536159601-46.60598503740646.46114189602489
3427.8287671232877-129.5821917808224.5283716464587
35161.030612244898-9.4693877551019820
36157.486607142857-236.91517857142910
37225.726377952756-217.5039370078748.28060681103382
3862.2252631578948-71.16631578947376.32879579760744
39226.927835051546-131.855670103093-10
40108.407132243685-28.68945022288265.72862437452697
41208.060885608856-231.9852398523997.20464720645922
42182.441666666667-33.774999999999920
43237.235119047619-129.3005952380954.32008870382949
44158.897832817337-52.83591331269352.71044270460642
4589.8518518518518-11.915343915343820
46217.065693430657-243.1459854014610
47134.144157814871-40.24582701062224.48790699395046
488.35498839907196-142.3457076566134.52840878991006
4944.645390070922-42.58392434988179.45079749742237
50253.940476190476-144.73809523809520
5133.9571106094809-78.14221218961626.63484207270913
5275.6519607843137-113.098039215686-10
53181.173913043478-57.3623188405797-10
54228.938144329897-7.4845360824741220
55216.939929328622-20.533568904593610
56162.411764705882-88.23529411764710.62109244110607
5781.090909090909-26.74772727272727.0891496654698
58245.258982035928-17.0568862275456.12514085899397
5984.0557491289199-190.4372822299653.98816011843208
60195.548449612403-43.19186046511625.86356363420115
61190.039930555556-243.6423611111116.65755023204335
6218.8453608247423-73.092783505154620
6363.2597173144876-120.1113074204954.00406352673727
64238.210708117444-154.7322970639034.94112165028565
65131.768733850129-231.57493540051720
6623.6378504672897-153.0794392523363.85154983153438
6758.7783933518005-26.76731301939059.20067160152758
6846.4567901234568-137.6275720164613.91322367259274
6929.9397590361446-244.8132530120484.39799672663175
70137.209259259259-165.5333333333333.85746678680846
71187.826923076923-216.5419580419586.37880207474623
7215.6872791519434-98.85335689045945.73429527917524
73166.1-32.468181818181810
74129.932599724897-13.04951856946355.80931225725746
75207.956106870229-203.2614503816796.61630987459351
7665.4591346153847-44.69471153846167.85881623166513
77239.335411471322-77.65960099750624.74419475686434
78151.012787723785-68.8439897698211-10
79190.185419968304-183.5816164817755.01400425644867
8041.0375234521577-111.5028142589124.86164499183151
81171.835664335664-201.3111888111895.74359641105992
82113.627314814815-179.5833333333334.40524754283365
8372.4819047619048-240.4438095238095.03407712218506
84244.256578947369-102.5164473684214.51960782439351
85234.284090909091-228.71212121212120
8644.6522678185745-91.97408207343415.62597948353421
8776.4308755760369-214.5391705069124.43529253021209
88244.16049382716-208.42386831275710
8999.3985507246377-13.021739130434710
90172.085526315789-44.11184210526314.54369418320679


 …そして!(※煽り)

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

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


 ぬおー…(てんてんてん)。これはあれだ。…な、なっ!?(※真っ白)古代から近世までの山のほうの道がきっとできるんだ。さて、どうでしょう。(※学習上の問いかけ)

※表現は演出です。

[3771]
 > > 「山野境注文」

 > …「山野境注文」!! オーダーはいりまっす。

 > > 中世湯浦郷の生活空間は,高低差約400mの阿蘇外輪山上と麓集落とを縦に結ぶ「大道」とそれを相互につなぐ「横道」とが動線となって

 > 山を平べったく描いた図に道を示せば「あみだくじ」というか「はしご」みたいに見える、そういうような道のうち横方向のものを「横道」といい、ということです。

[4842]
 > > 日光詣に訪れた僧侶や大名だけが温泉に浸かることを許されていました。

 > 江戸時代の僧侶の待遇というものをちゃんと習った記憶がない(※そこまでの余裕はない)

[4589]
 > 海に近いほうまで&運河をはりめぐらして屋敷がー(↑)というのは近世のこと
 > 中世までの重要な道は川が氾濫しないくらいには高いところを通る!

 > はちおうじ日光ですな。…まさに八王子にっこうですな!!
 > まさに輪番ですな!

・「A列車で行こう9」のシナリオマップ(ニューゲーム)で不自然なまでに多用されている(駅の奥で線路がぐるっと回るだけの)『ループ線』って、がっこう…じゃなくて「とろんとぐらし!」の長さを自慢するネタ…だったのか?(※未確認)
 https://youtu.be/ejg0LDQQ5xM



 https://youtu.be/wWc2_q21ZuM?t=748




 まさに「さて、どうでしょう」といったところ。先に「par(cex=0.8)」を実行しておきます。(※強引に進める言いかた)

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

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


・「mykmakari90to30$centers」

V1V2V3
1200.748358167998-233.8288861017327.5602498783122
224.8341394076807-236.21514727058-0.403377625131671
3234.923059821188-212.92434333531611.4340354533087
4236.139844348845-121.22423756987-0.386767823925667
5159.023191358321-227.9011775647367.97399928780144
6125.742633740549-174.3302747915650.805846537309714
715.550455619464-130.0920258583624.73968256762284
8194.109699776639-33.376524109840915.2878545447337
9228.886393261151-19.602738339930810.6234631441751
10214.598160097342-73.2991187640574-2.6355357756291
1171.7288135173748-243.2505722610335.20047882561996
12246.820899222024-154.56935940386710.2621890805047
13241.00580716609-63.69976148704955.10785373698566
1489.3831263425595-49.1421014295943-1.76942905198755
15124.161296594484-27.32826526765615.34194787524497
1654.2596165035705-66.0894393017727.06711977696127
17159.928953982676-193.0568789743615.41835281809632
1821.5407383001364-82.569473767222610.5922843379711
19156.712276214834-78.5396419437341-4.68945377944697
2042.8448956353661-101.7384481661735.24381223768286
2152.6795530389386-36.582075462227511.6275713326538
22191.137088682377-177.092583388817-2.49299787177567
2337.8709827082083-155.1570770077290.25560535306258
2490.8149681708483-204.5347234436534.82757590059717
25161.372677876182-21.512732834700411.9798240577782
26170.719090725535-51.4366914195121-0.915287704062265
27212.414528844951-192.8817497810046.18393290936984
2868.8260329210027-108.978146295701-0.401262974682818
29120.384366925065-226.2900122295215
3090.1137705557995-17.228270106168612.3630498884899


 「文明開化」ってんだから「台場」の1つや2つあるだろう。…???(※噛み合わない会話)

 https://pbs.twimg.com/media/EWWr1e1UEAEO9ps.png
 https://maousama-anime.com/2024/wordpress/wp-content/themes/maousama2024-2/assets/images/characterArchive/akane.png

 > 〜凪の黒色火薬から〜

 「〜凪の黒色火薬から〜」(※全角波線)って、そういうことだから!! …???(※割り切れない会話)

※いわゆる弾道計算みたいなのって、基本的に「割り切れない」ものでしょ。…え? ちがう?(棒読み)

・「mykmakari90to30$size」

x
14
23
34
43
53
64
73
83
94
102
113
124
132
142
153
162
173
184
192
202
214
222
234
244
253
263
272
283
292
303


 これは地名の選択に!(※小学校の先生に特有の言いかた)

・2が9つ
・3が12つ
・4が9つ

 「ひしめきあう街」とは異なり、のっぺりした(均質な)分布になったようです。平均点は高くても低くても教頭先生に叱られるといいますが(しばらくお待ちください)地名の選び方としても、あまり大都会っぽいのを混ぜず、究極的にはどの地名がどの地点に割り当てられてもいいやというくらい、まさに「どこにでもあるふつうの」の地名だけを集めておくのがよいでしょう。

※などと。

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

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


 さっそく重ねてみました&とってもいかがでした!!(違)

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

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


 何も考えずに実行するです。「8」と「10」の中間地点の点(…中間地点の点!)を追加して実行しようという気になります。…気になります!(違)

■「R with Excel」(続き)

だぞっ☆addY <- kmeans(mykmakari90to30$centers[c(8, 10),], 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_a9v3_10voss_472t2.png

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


 いくらでも点を追加すればコミット…じゃなくて、結果に介入できるわけですが、追加するのは1点のみということに、仮にはしておくことといたします。いつぞやの流行語(?)か何かに「究極の選択」というのがあったと思います。(※敬語)

・「16」と「18」のエッジを「16」と「20」に張り替えて「20」を「手が4本!」にしたい

 「26」と「10」を直結させても「26」が「手が4本!」になるわけですが、どうも「26」よりも「20」のほうが「都心らしさ」を感じさせます。

※個人の感想です。遊びかたは無数にあります。

・「5931」じゃないよ「472」だよ?(※ソコジャナイ)
 https://neorail.jp/forum/uploads/r_a9v3_10voss_472bus.png

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


 これまた「ぬおー…(てんてんてん)」としか!!(※断言)

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

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


・「7」から「23」に線路が延びるのはよほどのこと(専用線など)
・「15」(もっといえば「26」)から「20」までの線路は直線的に(点在する集落を網羅しようとすると線路としては非常に効率が悪い)
・「26」から「14」まで『鉄橋!』を架けようよ

 https://tk.ismcdn.jp/mwimgs/a/5/1200w/img_a5657a0054c7764a96311e19e14f4cba75646.jpg
 https://stat.ameba.jp/user_images/20240913/05/77lovepeace/75/e6/p/o1080103615485643812.png
 https://www.n-sharyo.co.jp/business/tetsudo/topics/090325-1.jpg

[4569]
 > …テラマヨス! 地上に舞い降りたマヨネーズの女神。(違)

 > ここでいう「九州」:北九州から長崎までのぎざぎざの海岸線をいう。

 ここはひとつ「文明開化の薫る街」っつーことで、…FA?(※謎の煽り)

※表現は演出です。

・(一社)目黒会
 https://megurokai.jp/home2/segodon181210/

 > 「西郷どん」

・(♪〜)…世は空前の大電信時代ぜよ!!! 電信を制する者が九州を制すぜよ!!!(どーん)
 https://youtu.be/y90OsSQFaHs



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

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


 > La Valse des Depeches
 > Germaine Tailleferre

 > デジタルタワー

 困ったときのデジタルタワー。…デジタルタワー!(※チバシガサガの顔で復唱)「7」「20」「14」は、まさに「プロジェクトの新幹線を引くならここでしょ」という予定線をなぞるような配置に。いえ、まさに地形をパッと見てピン(ぎゃふん)「7」「20」「14」のような地点が、何の計算をしなくても直感的に浮かぶからこそ、そこにフリーハンドで新幹線の予定線を引いてあったのですよ。

※あくまでゲームです。なお、ゲームとしての「文明開化の薫る街」については[4046][4435],[4436],[4437],[4438][4439],[4440]それに[4441],[4442],[4443]からの[4445],[4446],[4448],[4452]を参照のこと。


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


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


[5290]

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

2025/1/1

[5292]

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

2025/1/1

[5293]

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

2025/1/1

[5294]

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

2025/1/1


関連する記事


[5295]

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


[5288]

【A9・Exp.】オート全自動「ひしめきあう街」(駅名割当編) tht - 2025/1/1


[4236]

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


[4973]

【A9・Exp.】発掘「三都物語」(再) tht - 2023/2/1


[5289]

【A9・Exp.】オート全自動「ひしめきあう街」(網形成計画編) tht - 2025/1/1


[4011]

きょうは県庁前でカツカレー。 tht - 2020/4/1


[5091]

きょうは佐江戸でケアリア。 tht - 2023/10/1


[4411]

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






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