|
・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」
| V1 | V2 | V3 | | | | | 1 | 41.8352941176471 | -32.2823529411764 | 20 | 2 | 242.964814814815 | -177.538888888889 | 6.10763467173311 | 3 | 192.08875739645 | -170.603550295858 | -10 | 4 | 9.60347551342817 | -239.192733017378 | 4.39187039797324 | 5 | 17.6732026143791 | -80.1895424836601 | 10 | 6 | 95.9108910891089 | -51.6782178217822 | -10 | 7 | 42.3456221198157 | -168.414746543779 | -10 | 8 | 215.039563437926 | -63.5279672578445 | 4.72892844874179 | 9 | 151.489104116223 | -215.324455205811 | 7.05582625337265 | 10 | 109 | -221.005089058524 | 10 | 11 | 109.589285714286 | -197.171875 | 5.35943929168168 | 12 | 34.9591836734694 | -224.639455782313 | -10 | 13 | 145.842995169082 | -198.657004830918 | 5.94929405326817 | 14 | 10.4676113360324 | -118.348178137652 | 5.16226726649977 | 15 | 216.872950819672 | -182.502049180328 | 5.75155594414617 | 16 | 52.9117647058823 | -244.478991596639 | 4.57868538809971 | 17 | 214.156756756757 | -83.0702702702703 | -10 | 18 | 242.676202860858 | -49.7399219765929 | 5.47151271710698 | 19 | 135.764018691589 | -184.759345794393 | 4.96067181959674 | 20 | 224.408517350158 | -33.3359621451104 | 6.36871171770642 | 21 | 235.521276595745 | -197.057446808511 | 7.45553500220108 | 22 | 156.987421383648 | -22.6006289308176 | 5.93947217333469 | 23 | 162.108202443281 | -179.202443280977 | 4.56216798996088 | 24 | 39.0436681222707 | -161.506550218341 | 3.2576479081232 | 25 | 204.338983050847 | -23.1627118644066 | 20 | 26 | 116.369942196532 | -167.445086705202 | -10 | 27 | 67.5664206642067 | -93.7250922509225 | 4.79214754921428 | 28 | 168.093862815884 | -231.463898916968 | 6.86617161003167 | 29 | 93.1839622641509 | -215.990566037736 | 5.52741166206284 | 30 | 46.2939698492463 | -61.0125628140704 | 7.8054437563151 | 31 | 252.167597765363 | -141.268156424581 | 10 | 32 | 89.7927710843374 | -244.828915662651 | 5.9886739665751 | 33 | 82.85536159601 | -46.6059850374064 | 6.46114189602489 | 34 | 27.8287671232877 | -129.582191780822 | 4.5283716464587 | 35 | 161.030612244898 | -9.46938775510198 | 20 | 36 | 157.486607142857 | -236.915178571429 | 10 | 37 | 225.726377952756 | -217.503937007874 | 8.28060681103382 | 38 | 62.2252631578948 | -71.1663157894737 | 6.32879579760744 | 39 | 226.927835051546 | -131.855670103093 | -10 | 40 | 108.407132243685 | -28.6894502228826 | 5.72862437452697 | 41 | 208.060885608856 | -231.985239852399 | 7.20464720645922 | 42 | 182.441666666667 | -33.7749999999999 | 20 | 43 | 237.235119047619 | -129.300595238095 | 4.32008870382949 | 44 | 158.897832817337 | -52.8359133126935 | 2.71044270460642 | 45 | 89.8518518518518 | -11.9153439153438 | 20 | 46 | 217.065693430657 | -243.14598540146 | 10 | 47 | 134.144157814871 | -40.2458270106222 | 4.48790699395046 | 48 | 8.35498839907196 | -142.345707656613 | 4.52840878991006 | 49 | 44.645390070922 | -42.5839243498817 | 9.45079749742237 | 50 | 253.940476190476 | -144.738095238095 | 20 | 51 | 33.9571106094809 | -78.1422121896162 | 6.63484207270913 | 52 | 75.6519607843137 | -113.098039215686 | -10 | 53 | 181.173913043478 | -57.3623188405797 | -10 | 54 | 228.938144329897 | -7.48453608247412 | 20 | 55 | 216.939929328622 | -20.5335689045936 | 10 | 56 | 162.411764705882 | -88.2352941176471 | 0.62109244110607 | 57 | 81.090909090909 | -26.7477272727272 | 7.0891496654698 | 58 | 245.258982035928 | -17.056886227545 | 6.12514085899397 | 59 | 84.0557491289199 | -190.437282229965 | 3.98816011843208 | 60 | 195.548449612403 | -43.1918604651162 | 5.86356363420115 | 61 | 190.039930555556 | -243.642361111111 | 6.65755023204335 | 62 | 18.8453608247423 | -73.0927835051546 | 20 | 63 | 63.2597173144876 | -120.111307420495 | 4.00406352673727 | 64 | 238.210708117444 | -154.732297063903 | 4.94112165028565 | 65 | 131.768733850129 | -231.574935400517 | 20 | 66 | 23.6378504672897 | -153.079439252336 | 3.85154983153438 | 67 | 58.7783933518005 | -26.7673130193905 | 9.20067160152758 | 68 | 46.4567901234568 | -137.627572016461 | 3.91322367259274 | 69 | 29.9397590361446 | -244.813253012048 | 4.39799672663175 | 70 | 137.209259259259 | -165.533333333333 | 3.85746678680846 | 71 | 187.826923076923 | -216.541958041958 | 6.37880207474623 | 72 | 15.6872791519434 | -98.8533568904594 | 5.73429527917524 | 73 | 166.1 | -32.4681818181818 | 10 | 74 | 129.932599724897 | -13.0495185694635 | 5.80931225725746 | 75 | 207.956106870229 | -203.261450381679 | 6.61630987459351 | 76 | 65.4591346153847 | -44.6947115384616 | 7.85881623166513 | 77 | 239.335411471322 | -77.6596009975062 | 4.74419475686434 | 78 | 151.012787723785 | -68.8439897698211 | -10 | 79 | 190.185419968304 | -183.581616481775 | 5.01400425644867 | 80 | 41.0375234521577 | -111.502814258912 | 4.86164499183151 | 81 | 171.835664335664 | -201.311188811189 | 5.74359641105992 | 82 | 113.627314814815 | -179.583333333333 | 4.40524754283365 | 83 | 72.4819047619048 | -240.443809523809 | 5.03407712218506 | 84 | 244.256578947369 | -102.516447368421 | 4.51960782439351 | 85 | 234.284090909091 | -228.712121212121 | 20 | 86 | 44.6522678185745 | -91.9740820734341 | 5.62597948353421 | 87 | 76.4308755760369 | -214.539170506912 | 4.43529253021209 | 88 | 244.16049382716 | -208.423868312757 | 10 | 89 | 99.3985507246377 | -13.0217391304347 | 10 | 90 | 172.085526315789 | -44.1118421052631 | 4.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」
| V1 | V2 | V3 | | | | | 1 | 200.748358167998 | -233.828886101732 | 7.5602498783122 | 2 | 24.8341394076807 | -236.21514727058 | -0.403377625131671 | 3 | 234.923059821188 | -212.924343335316 | 11.4340354533087 | 4 | 236.139844348845 | -121.22423756987 | -0.386767823925667 | 5 | 159.023191358321 | -227.901177564736 | 7.97399928780144 | 6 | 125.742633740549 | -174.330274791565 | 0.805846537309714 | 7 | 15.550455619464 | -130.092025858362 | 4.73968256762284 | 8 | 194.109699776639 | -33.3765241098409 | 15.2878545447337 | 9 | 228.886393261151 | -19.6027383399308 | 10.6234631441751 | 10 | 214.598160097342 | -73.2991187640574 | -2.6355357756291 | 11 | 71.7288135173748 | -243.250572261033 | 5.20047882561996 | 12 | 246.820899222024 | -154.569359403867 | 10.2621890805047 | 13 | 241.00580716609 | -63.6997614870495 | 5.10785373698566 | 14 | 89.3831263425595 | -49.1421014295943 | -1.76942905198755 | 15 | 124.161296594484 | -27.3282652676561 | 5.34194787524497 | 16 | 54.2596165035705 | -66.089439301772 | 7.06711977696127 | 17 | 159.928953982676 | -193.056878974361 | 5.41835281809632 | 18 | 21.5407383001364 | -82.5694737672226 | 10.5922843379711 | 19 | 156.712276214834 | -78.5396419437341 | -4.68945377944697 | 20 | 42.8448956353661 | -101.738448166173 | 5.24381223768286 | 21 | 52.6795530389386 | -36.5820754622275 | 11.6275713326538 | 22 | 191.137088682377 | -177.092583388817 | -2.49299787177567 | 23 | 37.8709827082083 | -155.157077007729 | 0.25560535306258 | 24 | 90.8149681708483 | -204.534723443653 | 4.82757590059717 | 25 | 161.372677876182 | -21.5127328347004 | 11.9798240577782 | 26 | 170.719090725535 | -51.4366914195121 | -0.915287704062265 | 27 | 212.414528844951 | -192.881749781004 | 6.18393290936984 | 28 | 68.8260329210027 | -108.978146295701 | -0.401262974682818 | 29 | 120.384366925065 | -226.29001222952 | 15 | 30 | 90.1137705557995 | -17.2282701061686 | 12.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 | | | 1 | 4 | 2 | 3 | 3 | 4 | 4 | 3 | 5 | 3 | 6 | 4 | 7 | 3 | 8 | 3 | 9 | 4 | 10 | 2 | 11 | 3 | 12 | 4 | 13 | 2 | 14 | 2 | 15 | 3 | 16 | 2 | 17 | 3 | 18 | 4 | 19 | 2 | 20 | 2 | 21 | 4 | 22 | 2 | 23 | 4 | 24 | 4 | 25 | 3 | 26 | 3 | 27 | 2 | 28 | 3 | 29 | 2 | 30 | 3 |
これは地名の選択に!(※小学校の先生に特有の言いかた)
・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]を参照のこと。
| |