|
・「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」
| V1 | V2 | V3 | | | | | 1 | 202.630861996605 | -88.1156469709969 | 3.58261271169332 | 2 | 205.762159824472 | -21.1377546984471 | -0.266466498409233 | 3 | 116.942574844725 | -86.0038927799012 | 11.9240191695473 | 4 | 185.920969988009 | -194.521316119956 | 12.49934318404 | 5 | 162.945385735871 | -19.7839664084604 | 3.8319202644361 | 6 | 120.614418799383 | -16.5344421933724 | 4.59754773701969 | 7 | 233.556348839848 | -218.358003659347 | 7.29683372510852 | 8 | 109.690995492847 | -176.689041740153 | 14.997327153433 | 9 | 156.469657043412 | -50.4046615878668 | 4.38386892322203 | 10 | 25.5756478207608 | -186.513713348874 | 4.73863939234312 | 11 | 231.904614662148 | -107.257021990447 | -1.29899640945755 | 12 | 15.0450368071363 | -233.514977645835 | 7.0633595764441 | 13 | 92.2163844805558 | -199.213197018172 | 9.9988284152045 | 14 | 84.4374922691136 | -228.586599984257 | 14.9949646336265 | 15 | 189.273668376036 | -60.8521714922049 | 3.50960140307512 | 16 | 236.163652714674 | -152.051049146931 | 0.584430980984894 | 17 | 227.259332177224 | -62.8192473601532 | -1.3455312779885 | 18 | 195.082753575258 | -119.719458839968 | 11.4436335665609 | 19 | 37.7502814667525 | -99.981478074508 | 11.2050984319092 | 20 | 155.985688529565 | -90.0009257799979 | 7.54835736766466 | 21 | 121.833416334661 | -58.2498020737563 | 7.65372698711813 | 22 | 56.3180440668703 | -197.714248453685 | 10 | 23 | 19.3935814507693 | -139.413765659557 | 6.57089056624423 | 24 | 229.19353006984 | -187.043565466525 | 4.81164732267612 | 25 | 56.2530414498111 | -155.432756538094 | 10 | 26 | 198.369916968399 | -154.623288764266 | 7.46271365112954 | 27 | 13.8434410335737 | -66.0211126604065 | 10 | 28 | 208.859221947431 | -238.794229605715 | 13.3333333333333 | 29 | 75.7436329316103 | -21.6466168142878 | 15 | 30 | 45.4747362194434 | -233.408942401607 | 10 |
この「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),]」
| V1 | V2 | V3 | | | | | 4 | 185.92097 | -194.5213 | 12.499343 | 13 | 92.21638 | -199.2132 | 9.998828 |
↓
・「addY$centers」
| V1 | V2 | V3 | | | | | 1 | 139.0687 | -196.8673 | 11.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」のほう
| V1 | V2 | V3 | | | | | 1 | 70.456338028169 | -24.6901408450705 | 20 | 2 | 37.6613226452906 | -174.298597194389 | 5.05994369137529 | 3 | 228.522352941176 | -139.832941176471 | 4.02230750216915 | 4 | 126.553314121037 | -84.7089337175792 | 5.77205750864197 | 5 | 239.246913580247 | -112.876543209877 | -10 | 6 | 245.575809199319 | -239.195911413969 | 10 | 7 | 181.34243697479 | -67.25 | 3.9413547979323 | 8 | 56.63139329806 | -186.386243386243 | 10 | 9 | 197.204899777283 | -54.4543429844098 | 3.07784800821794 | 10 | 13.4311814859928 | -221.299634591961 | 4.12671915288819 | 11 | 206.357967667436 | -169.94688221709 | 5.10495528154992 | 12 | 171 | -45.2011278195489 | 3.91362929842497 | 13 | 106.376599634369 | -9.30895795246803 | 4.66556224921666 | 14 | 225.639097744361 | -161.190476190476 | 4.39009925819244 | 15 | 78.6924119241193 | -223.318428184282 | 9.98992926725291 | 16 | 114.125 | -55.7147435897436 | 10 | 17 | 184.002136752137 | -158.008547008547 | 10 | 18 | 121.738898756661 | -30.5648312611013 | 4.90242832337217 | 19 | 43.1856060606061 | -88.8181818181818 | 10 | 20 | 196.907407407407 | -212.783333333333 | 9.99737273616007 | 21 | 219.822429906542 | -15.9953271028037 | -10 | 22 | 17.1670886075949 | -77.279746835443 | 10 | 23 | 169.323529411765 | -99.2235294117647 | 10 | 24 | 227.328244274809 | -113.758269720102 | 3.47058505675715 | 25 | 228.312958435208 | -181.356968215159 | 4.65895354595854 | 26 | 170.767857142857 | -194.15625 | 20 | 27 | 102.735056542811 | -203.292407108239 | 10 | 28 | 208.958536585366 | -100.460975609756 | 3.72290214661136 | 29 | 214.66735966736 | -25.04158004158 | 2.59759514282896 | 30 | 179.636752136752 | -125.239316239316 | 20 | 31 | 110.047477744807 | -83.6468842729971 | 20 | 32 | 16.6588921282799 | -245.730320699708 | 10 | 33 | 114.710562414266 | -179.115226337449 | 9.99465430686605 | 34 | 28.9488117001828 | -198.904936014625 | 4.86223916957532 | 35 | 104.671428571429 | -174.262857142857 | 20 | 36 | 57.8589285714285 | -141.098214285714 | 10 | 37 | 236.886699507389 | -64.5221674876847 | -10 | 38 | 162.771203155818 | -7.98619329388568 | 3.71850880706963 | 39 | 216.752252252252 | -208.689189189189 | 6.82946287522669 | 40 | 33.4943457189015 | -132.038772213247 | 10 | 41 | 156.501048218029 | -61.5995807127883 | 4.58441078334219 | 42 | 9.82363013698637 | -129.731164383562 | 5.08249810571907 | 43 | 141.907922912206 | -44.4132762312634 | 4.65356668789892 | 44 | 56.0046948356807 | -209.042253521127 | 10 | 45 | 226.333333333333 | -223.732394366197 | 10 | 46 | 29.8170478170478 | -103.305613305613 | 9.93621010628344 | 47 | 192.654185022026 | -194.202643171806 | 10 | 48 | 10.1168091168091 | -186.337606837607 | 4.29373531607876 | 49 | 114.226932668329 | -89.6558603491272 | 10 | 50 | 245.062857142857 | -143.817142857143 | -10 | 51 | 245.430303030303 | -163.363636363636 | 3.92531716357799 | 52 | 229.138686131387 | -95.1362530413625 | 2.63242571487022 | 53 | 51.8970189701897 | -242.949864498645 | 10 | 54 | 66.6174242424242 | -165.971590909091 | 10 | 55 | 141.933638443936 | -98.6064073226545 | 10 | 56 | 90.1825726141079 | -233.854771784232 | 20 | 57 | 53.1630434782609 | -90.9528985507247 | 20 | 58 | 212.833333333333 | -190.562146892655 | 5.56975860585622 | 59 | 218.105263157895 | -46.6578947368421 | 1.96537397982735 | 60 | 150.507936507936 | -26.859126984127 | 4.16564135660753 | 61 | 228.482866043614 | -62.165109034268 | 0.864687261823367 | 62 | 231.67397260274 | -205.87397260274 | 5.27319071938781 | 63 | 133.727758007117 | -9.72953736654803 | 4.22465263847026 | 64 | 81.6977124183006 | -195.133986928105 | 9.997656830409 | 65 | 206.778270509978 | -75.4412416851441 | 2.9194949535419 | 66 | 246.43429844098 | -189.211581291759 | 4.20622981621358 | 67 | 166.874092009685 | -82.4358353510896 | 4.88419199451511 | 68 | 192.155778894472 | -88.4447236180904 | 4.10544103492669 | 69 | 145.811494252874 | -79.7379310344827 | 5.30923747614353 | 70 | 211.784653465347 | -124.470297029703 | 4.3309006996826 | 71 | 183.354430379747 | -176.943037974684 | 10 | 72 | 193.061971830986 | -143.16338028169 | 10 | 73 | 200.651480637813 | -232.047835990888 | 10 | 74 | 210.057591623037 | -147.374345549738 | 4.74589932296824 | 75 | 10.5197934595525 | -54.7624784853701 | 10 | 76 | 44.2827715355805 | -159.228464419476 | 10 | 77 | 175.55701754386 | -24.5065789473685 | 3.61161062963114 | 78 | 39.0524534686971 | -223.868020304569 | 10 | 79 | 203.920454545454 | -245.045454545455 | 20 | 80 | 129.541832669323 | -60.7848605577689 | 5.30745397423626 | 81 | 14.8627684964201 | -156.471360381862 | 4.63017359301361 | 82 | 81.0309278350515 | -18.6030927835052 | 10 | 83 | 193.543828264758 | -9.45617173524153 | 3.2025316734508 | 84 | 222.005730659026 | -239.289398280802 | 10 | 85 | 225.5625 | -77.9318181818182 | 1.78781364639529 | 86 | 195.015021459228 | -34.057939914163 | 3.13400719008331 | 87 | 50.9929947460596 | -113.840630472855 | 9.98528013891826 | 88 | 11.5927152317882 | -102.990066225166 | 6.10400191434453 | 89 | 193.826855123675 | -109.448763250883 | 10 | 90 | 247.446376811594 | -214.298550724638 | 4.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]にも続きます。
| |