フォーラム - neorail.jp R16

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


2020年10月の話題
更新:2020/10/23

[4235]

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

きょうは天下茶屋で有楽町層。


「R with Excel」(再掲)
「R with Excel」(続き)
「R with Excel」(続き)
「R with Excel」(続き)
「R with Excel」(続き)
「R with Excel」(続き)

(約16000字)

 [4233]に続き、「ひしめきM」で「R with Excel」です。

・ARX「ひしめきM」
 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
 https://neorail.jp/forum/uploads/a9_region_hishimeki.png

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


 この「プラン」は、いわばフリーハンドで、いかなる数理的な手法も使わず描いたものですが、じゃあ、いろいろな計算をして同じ結果を描けますか、みたいな話題です。これはゲームのマップですので地球の丸みとかありませんから簡単です。(※ジト目)

※GISみたいに見えてくるかもしれないけれど、これはぜったいGISじゃないよ、と先に釘をさしておくものです。過度な期待はしないでください。

・今回のTSVデータはこちら
 https://neorail.jp/forum/uploads/a9v4_map1_hishimeki_xyz.tsv

 [3957]の手順で、どーん!

■「R with Excel」(再掲)

「PAL8-CNV 〜ぱるはちこんぶ〜」より
「XYZ」のほうのTSVを読み込む
myakari3d0=read.table("clipboard",h=0)
平地を除くmyakari3d <- rbind(subset(myakari3d0,V3> 0),subset(myakari3d0,V3< -3))
…しすてむこーる・
…いんすとおーる!
install.packages("mclust")
install.packages("ggvoronoi")
# これは最初に1回だけ必要な操作です
どーんmycmpakari3d <- prcomp(myakari3d, scale=TRUE)
mykmakari9c3 <- kmeans(mycmpakari3d$x, 9, nstart=50)
library(mclust)
clPairs(myakari3d, cl=mykmakari9c3$cluster)
# プロットされた図を右クリックしてコピーや保存をします
ばーんoriginal <- mykmakari9c3$centers %*% t(mycmpakari3d$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari3d$scale)
original <- scale(original, center = -mycmpakari3d$center, scale = FALSE)
myakaricenters9co <- as.table(original)
write.table(myakaricenters9co, file="clipboard", sep="\t")
あとで使うmyakari2d <- myakari3d[ ,c(1, 2)]
すたぱーんplot(myakari2d, type="n")
text(myakaricenters9co)
rect(0, 0, 256, -256, border = "red")


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

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

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

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

 https://images-na.ssl-images-amazon.com/images/I/811eDHTaB8L._AC_SY550_.jpg

・まわる!『ひしめきセンターだいおうじ中央店』(仮)

xyz
242.075589656152-62.0662119920432-28.6615515771526
160.609448482257-130.16588285592120.6776400171013
79.3361877576911-62.17586425626445.6010149064383
131.114414843007-144.783063748811107.140818268316
68.7196913119244-208.08538710480513.755290017426
44.3163647720176-33.0683947532794109.628357276702
206.147370848708-222.58210332103316.1761992619926
35.7350323624596-100.68729773462812.0752427184466
140.245530393325-215.64819229241270.0158919348431


 うーん。マップ中央の山(紫色のクラスター)を囲んで1つのクラスター(赤色のクラスター)になる。なんとか山麓の自治体の協議会がありそうなふいんきです。分水嶺をにらみあってるんですね(げふ)なんでもございません。その南西側のちょっと狭いところ(同じ赤色のクラスターだけど、山を挟んで分かれているところ)が「忍者の里」に見えるようにできるかは、トンネルをどこにするかなんですよね。「プラン」の図でいう「(1)」にしちゃうと北神急行で谷上というくらいにしか見えない。あえて「(2)」にすると「忍者の里」という気分が演出できそうです。本当でしょうか。

 https://youtu.be/_i7vfpG5qRI




※映像はイメージです。「ひしめきあう街」とは無関係です。

[4102]
 > 「連結」は1回! トーストがよかった!!

 https://dengekionline.com/elem/000/001/721/1721385/toji_01_cs1w1_1080x720.jpg
 https://dengekionline.com/elem/000/001/721/1721409/toji_25_cs1w1_1080x720.jpg

 > トーストに5種類のディップを付けて食べます。ゆかりマヨや海苔&じゃこといった、和風のディップソースが新鮮です。

 な・・・なんだってー!!(棒読み)

 > > 日本での気動車ユーザーは,JR各社を除くとそのほとんどが,第三セクター鉄道と民営鉄道の事業者で,現在約370両が保有され,日夜運行にあたっています。

 > > 電気制御は,バス部品の多用化などから,基本的には車体アース方式の回路を採用しましたが,JR車両との連結を行う車両については,従来のような帰路まとめ方式としました。

 > なるほど気動車は他形式とは「連結」できないものもあるとよい。

・「なんとか山麓の自治体の協議会」
 https://www.town.niseko.lg.jp/yotei

 > 行政界を越えて広域に広がっているこの景観

 > 羊蹄山麓地域(蘭越町、ニセコ町、真狩村、留寿都村、喜茂別町、京極町、倶知安町)

 > 7町村で組織される羊蹄山麓広域景観づくり推進協議会(以下「協議会」という。)

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

[3869]
 > 4隅に点を打つには、これを付け足してください。

・『ひしめきセンター中央2D』

xy
242.075589656152-62.0662119920432
160.609448482257-130.165882855921
79.3361877576911-62.175864256264
131.114414843007-144.783063748811
68.7196913119244-208.085387104805
44.3163647720176-33.0683947532794
206.147370848708-222.582103321033
35.7350323624596-100.687297734628
140.245530393325-215.648192292412
00
0-256
2560
256-256


■「R with Excel」(続き)

x,yの座標のリストを読み込むmyakaridd=read.table("clipboard",h=0)
names(myakaridd) <- c("x", "y")
ボロノイ図を描くlibrary(ggvoronoi)
ggplot(myakaridd,aes(myakaridd$x, myakaridd$y)) + stat_voronoi(geom="path") + geom_point() + geom_rect(aes(xmin=0, xmax=256, ymin=-256, ymax=0), fill=NA, color="red")
# プロットされた図を右クリックしてコピーや保存をします


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

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


 やったね。ボロノイ図が描けたよ。

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

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

 https://bandai-hobby.net/site/gunpla_buildfighters/customize17/customize17_09.jpg

 名状しがたいガンプラのクリアパーツ(違)クラスタリングの結果(※色分け)とボロノイ図(※点と線)は、それぞれ別のことを示しているので、両方とも重ねてみました。いかがだったでしょうか。(違)

※クラスタリングで得たクラスターの重心をボロノイ図の母点にした。ボロノイ図としては、ボロノイ点(線の交点)が得られてくる。しかし、ここでボロノイ境界の線にはあまり意味がない。

 プロット(画像)だけが得られるのでなく、ボロノイ点の座標のリストを得るにはどうしたらいいんですか。

 https://www.rdocumentation.org/packages/ggvoronoi/versions/0.8.3/topics/geom_voronoi

 > Convenience function for use with stat_voronoi. Uses geom_polygon as the default geom and stat_voronoi as the default stat. To plot region borders instead of a choropleth map, use stat_voronoi with geom="path", or use fill=NA with color="black".

 わあぃコンビニエンス。

 https://stackoverflow.com/questions/58555407/extract-area-of-polygons-from-ggvoronoi
 https://wjsutton.github.io/assets/beyond_the_defaults/gifs/football_voronoi_20_speed_compressed.gif

 ふーん?(※英語)ぜんぜんわからなかった。(棒読み)あきらめた!(ぱーっ

 https://img.aucfree.com/429957151.1.jpg
 https://neorail.jp/forum/uploads/r_hishimeki_cmp_voronoi9_km9_plan.png

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


 「プラン」も重ねてみました。なにこれどんぴしゃなんですけど。

・ボロノイ点を「(自然の)川の河口」「(自然の)川の合流地点」「(自然の)湧水地点」とみなす
・そのような自然の流路と、人が開削した流路とを区別した(図では「運河」とした)

 https://ja.wikipedia.org/wiki/%E9%B4%A8%E5%B7%9D_(%E6%B7%80%E5%B7%9D%E6%B0%B4%E7%B3%BB)
 https://ja.kyoto.travel/resource/glossary/sight/photo/mimon07A/A024.jpg
 https://upload.wikimedia.org/wikipedia/commons/7/76/Takase-bune.jpg
 https://ja.wikipedia.org/wiki/%E6%B7%80%E5%B7%9D#%E7%82%BA%E6%94%BF%E8%80%85%E3%81%AE%E6%B2%BB%E6%B0%B4%E3%83%BB%E5%88%A9%E6%B0%B4

 > 日本における近代砂防工事の原点
 > 1885年(明治18年)6月の水害(明治十八年の淀川洪水)後の大阪府からの度重なる淀川改修の要請を受けての1889年(明治22年)から1897年(明治30年)の淀川改良工事では、瀬田川洗堰(南郷洗堰)の建設による琵琶湖の水位調節・中流部では伏見-淀間の宇治川河道付替、桂川・木津川の河道を付け替えて合流地点を淀付近から下流よりの現在地への移設、新淀川開鑿工事が大規模な事業として名高い。

 湧水地点の近くでは「ありがたい」川だけど(だから「古都K」になったけれど)下流ほど暴れるよ@治水が完成したのは明治以降だよみたいな空気を濃厚に感じてください。

 > 京阪ホールディングスは2017年9月、大阪・天満橋の八軒家浜船着場と淀川河川公園(枚方市)を結ぶ定期観光船の運航を開始すると発表した。

 へー…

・「地下鉄」ができるのは「環状線」より「山側」(ボロノイ領域で見て「山側」のほうの領域)だけだろう

 https://upload.wikimedia.org/wikipedia/commons/2/2b/Chiba_map_circa_1930.PNG

 京成本線の船橋らへんから千葉線までみたいに、かなり不利なところしか使わせてもらえない私鉄という図。(※あくまでゲームです。かつて実在した京成電気軌道とは無関係です。…いまも実在してるよっ!!)

 https://blog-imgs-12.fc2.com/t/e/t/tetsudo/20091109084059892.jpg
 https://stat.ameba.jp/user_images/20130703/02/ikaribu/59/73/j/o0800060012596715136.jpg
 https://stat.ameba.jp/user_images/20130705/09/ikaribu/fe/27/j/o0800060012598978084.jpg
 https://ukiuki-chiba.com/wp-content/uploads/2017.08.18_4.jpg

 「海老川」ほかのイメージでした。

[3868]
 > データフレーム名で「33333」とか名指しするのをやめました。あとは行数を「33333」とハードコーディングしてあるのを「nrow()」しませうか。そうしようといいました。(…だれが?)

■「R with Excel」(続き)

平地のみmyakari3dg <- rbind(subset(myakari3d0,V3 == 0),subset(myakari3d0,V3 == -3))
nrow(myakari3dg)
# 行数を確かめます
1列目と2列目を取り出したテーブルをつくるmyakari2dg <- myakari3dg[ ,c(1, 2)]
コピペだぜ★mydist1xg <- head(dist(rbind(myakaricenters9co[1, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist2xg <- head(dist(rbind(myakaricenters9co[2, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist3xg <- head(dist(rbind(myakaricenters9co[3, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist4xg <- head(dist(rbind(myakaricenters9co[4, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist5xg <- head(dist(rbind(myakaricenters9co[5, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist6xg <- head(dist(rbind(myakaricenters9co[6, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist7xg <- head(dist(rbind(myakaricenters9co[7, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist8xg <- head(dist(rbind(myakaricenters9co[8, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
mydist9xg <- head(dist(rbind(myakaricenters9co[9, c(1,2)], myakari2dg), diag=FALSE, upper=FALSE), n=nrow(myakari2dg))
gc()
# お気は確かですか


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

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


 うーん。[4050],[3868],[4049]も思い出しておいてください。あなたのPCをいたわってあげてください。(※遠い目)

■「R with Excel」(続き)

コピペだぜ★myfunc1 <- function(a,b) sqrt(a ^ 2 + b ^ 2)
myfunc3 <- function(delta,max,min,height) ((delta - min) / (max - min)) * height
myfunc2 <- function(delta,dist) ((delta * 2) * (1 / (dist ^ 2)))
デルタ航空だぜ★mydeltaakari0 <- cbind(myfunc2(myakaricenters9co[1,3], myfunc1(mydist1xg, myakaricenters9co[1,3])), myfunc2(myakaricenters9co[2,3], myfunc1(mydist2xg, myakaricenters9co[2,3])), myfunc2(myakaricenters9co[3,3], myfunc1(mydist3xg, myakaricenters9co[3,3])), myfunc2(myakaricenters9co[4,3], myfunc1(mydist4xg, myakaricenters9co[4,3])), myfunc2(myakaricenters9co[5,3], myfunc1(mydist5xg, myakaricenters9co[5,3])), myfunc2(myakaricenters9co[6,3], myfunc1(mydist6xg, myakaricenters9co[6,3])), myfunc2(myakaricenters9co[7,3], myfunc1(mydist7xg, myakaricenters9co[7,3])), myfunc2(myakaricenters9co[8,3], myfunc1(mydist8xg, myakaricenters9co[8,3])), myfunc2(myakaricenters9co[9,3], myfunc1(mydist9xg, myakaricenters9co[9,3])))
myakari0elv <- cbind(myakari2dg, myfunc3(rowSums(mydeltaakari0), max(rowSums(mydeltaakari0)), min(rowSums(mydeltaakari0)), 9.75))
colnames(myakari0elv) <- c("V1", "V2", "V3")
# 列名を揃えておく
マージするmynewakari3d <- rbind(myakari3d, myakari0elv)


・ここで使うTSVデータはこちら
 https://neorail.jp/forum/uploads/a9v4_map1_hishimeki_256x256.tsv

■「R with Excel」(続き)

等高線を描くために
256×256のテーブルを読み込む
myakari=read.table("clipboard",h=0)
読み込んだテーブルを行列に変換するcpmyakari <- as.matrix(myakari)
行列の要素を置き換えるcpmyakari[(-1 * (myakari0elv$V2) + 1) + 256 * (myakari0elv$V1)] <- myakari0elv$V3
等高線を描くcontour(cpmyakari, nlevels=1024)


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

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


 うーん。当然ながら、マップの北東部の水面を代表する1点を決めるという作為的なことをして、その1点に向かってくだっていくという等高線を描いてしまうことになるけれど、そこは都合よく無視してください。「3m」より低いところは、その線の通りじゃなく、ぜんぶでれんと低いんだ、みたいに思ってください。

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

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


 この子がね(違)わかります? …わかります!?(棒読み)ガンプラのパーツに指紋が付いちゃった。(違)そんなに大量のメモリを積んだPCでRなんてしなくても、フリーハンドで「プラン」の図が描けた。えー…(てんてんてん)。

[3868]
 > 冒頭で述べた「プレーヤーが目で見て目視で視感を言葉で述べ、というのでなく、データをほうりこめば自動で何らかの把握が完了する」を果たしたから、これを「AI」と呼ぶか呼ばないかはどうでもいい。

[3169]
 > なかなかどうして、私たちはなんとむずかしいパターン認識を一瞬でやってのけているのかと再認識されましょう。

[3754]
 > 実時間で半日くらいかけて悩もうぜ

 > ぐふっ。いわれなくてもたっぷり悩んでます。マップコンストラクションで最初に列車が走るまでの長いこと長いこと! これを「長考に入る」ともいうよ。

[3868]
 > とはいえ、コンピューターにやらせてみればたかだか主成分分析してからk-meansするくらいのことしかしてなかったのだともわかっての本日「このフォーラム」であります。そもそもゲーム内で地形を「よく観察し」とはいうけれど、それはできてあたりまえというか、むずかしいことはしていないというか、何も考えずに自動的にやってるという感覚があったんですよ。それならコンピューターでもできるはずだと思ったら実際できた。なんか納得した。

 https://jp.glico.com/ice/panapp/images/secret/19_secret_bg02.png

※画像はイメージです。ええ。そこに「※画像はイメージです。」って書いてあるわ。(棒読み)

 ここからさらに「新札幌バウム」です。今回は札幌市清田区じゃないけど。(※恐縮です。)

■「R with Excel」(続き)

主成分分析を実行するmycmpakari0elv <- prcomp(myakari0elv, scale=TRUE)
主成分「PC1」「PC2」「PC3」で
k-meansを実行
mykmakari9elvc3 <- kmeans(mycmpakari0elv$x, 9, nstart=50)
clPairs(myakari0elv, cl=mykmakari9elvc3$cluster)
ばーんoriginal <- mykmakari9elvc3$centers %*% t(mycmpakari0elv$rotation)
original <- scale(original, center = FALSE, scale = 1 / mycmpakari0elv$scale)
original <- scale(original, center = -mycmpakari0elv$center, scale = FALSE)
myakaricenters9elvc3o <- as.table(original)
write.table(myakaricenters9elvc3o, file="clipboard", sep="\t")
すたぱーんplot(myakari2d, type="n")
text(myakaricenters9elvc3o)
rect(0, 0, 256, -256, border = "red")


xyz
14.9385206532181-113.6685878962545.84764917888965
139.686994399502-26.67859365276914.35707208459095
17.6753283039954-184.9715004191124.53868456846682
222.899884259259-63.09490740740751.87135796879704
207.315602836879-96.41223404255323.69959427082106
215.631533101045-194.0052264808365.69138909072793
140.67615658363-69.79848754448415.21336673901942
231.133333333333-169.1367283950624.37787119384871
190.204955752212-28.80884955752213.2617037930994


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

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

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

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


 …そして?

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

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


 ほぅ。上述の通り、(込み入った等高線を描いてしまった)「4」のところは強調され過ぎるけれど、もっとだらしなく「下町」なんだと思ってください。

・葛飾区「有楽町層」ほかの概念図です
 http://www.city.katsushika.lg.jp/history/history/p_image/1/%e6%b0%b4%e5%85%83%e5%85%ac%e5%9c%92%e3%81%ae%e5%9c%b0%e4%b8%8b%e6%a7%8b%e9%80%a0.jpg

 そういう気分の地層を示唆する何か的なものととらえてゲームに活かしましょう。(※あくまでゲームです。)

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

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


 ぷら。…ぷら!!(※ジト目)▼「内プラ」「Cランプ」それに「金田さざなみ公園」については[3365]を参照。

・いろいろな「有楽町」
 https://ja.wikipedia.org/wiki/%E6%9C%89%E6%A5%BD%E7%94%BA_(%E6%9B%96%E6%98%A7%E3%81%95%E5%9B%9E%E9%81%BF)

 > 1912年(大正元年)11月17日、所沢飛行場への大正天皇の行幸を記念して、近隣の御幸町・寿町・宮本町と共に、縁起の良い名称に改称された。

 > 東京都千代田区の有楽町(ゆうらくちょう)という町名は、戦国時代の大名の織田有楽斎(織田長益)に由来するとされる。茶人としても名をはせた有楽斎は関ヶ原の戦いのあと徳川方に属し、数寄屋橋御門の周辺に屋敷を拝領し、その屋敷跡が有楽原と呼ばれていたことから、明治時代に「有楽町」と名付けられたとされる。

 http://www.itocia.jp/info/history1

 > 江戸時代の古書や江戸図からは織田有楽斎の屋敷があったという確証はありません。

 > 有楽斎は(略)自分で有楽流という茶道の一派を創設するほど造詣が深く、千利休の門下の七哲に数えられています。

 > 東京の有楽町とは別に、この秀吉から与えられた大坂の有楽町(うらくまち)という地名がありましたが、戦後の区画整理などで消滅しています(現在の西成区天下茶屋付近)

・「天下茶屋」
 https://ja.wikipedia.org/wiki/%E5%A4%A9%E4%B8%8B%E8%8C%B6%E5%B1%8B

 > この地は、古代には「天神の森」と呼ばれる鬱蒼とした森の茂った鄙びた土地だった。そこに湧く水の良さに着目して茶室を建て、森を切り開いて道をつけたのが、千利休の師にあたる武野紹鷗だった。以来この地は「紹鷗の森」とも呼ばれるようになった。

 > 住吉神社を参拝した関白・豊臣秀吉がこの地に立寄り、この芽木家の茶店から清泉を汲んでお伴の千利休に茶を点てさせたところ、味の良さに感激。そこでこの泉に「恵の水」の銘を、芽木家に玄米年三十俵の朱印を与えた。そこから関白殿下の「殿下茶屋」、天下人の「天下茶屋」などの名が知られるようになったという。

 うーん。

 > 天下茶屋の地名は現在の西成区岸里東二丁目付近を中心として、天王寺村・勝間村および西成郡今宮町の3村の境界付近を広く指す地名となっていた。

 > 3村の境界付近
 > 3村の境界付近

 だからこそ茶屋ができるのだ。(※ジト目)

・(再掲)「薩摩守」
 https://kotobank.jp/word/%E8%96%A9%E6%91%A9%E5%AE%88-511245

 > 狂言の曲名。

 > 住吉の天王寺参詣を志す僧が,摂津の国神崎の渡し場の近くまで来る。茶屋で休息し,代金を払わずに出て行こうとし,亭主にとがめられる。が,真実無一文と知って亭主は同情し,この先の神崎の渡し守は秀句(洒落)好きなので,船にただ乗りできる秀句を教えようといい,まず〈平家の公達〉と言って,その心はと問われたら〈薩摩守忠度(ただのり)〉と答えよと知恵を授ける。

[3724]
 > …そんなことよりきいてくれよ「茶屋の亭主」何者だし!

 > 中世から何らかの何かに基づいて「茶屋の亭主」してた家なのではありませんか。あらあら、まあまあ!(※表現は演出です。)

 http://www.geo-yokoi.co.jp/Onsen/OhsakaGp/OhsakaGP01.htm
 http://www.geo-yokoi.co.jp/Picture/SGT71A1.gif

 ほぅ。その何か図書をスキャンしたみたいな画像はなんだといいたい。(棒読み)

 http://www.kansai-airports.co.jp/efforts/our-tech/kix/sink/img/img_fig_01.gif

 うわぁ…(てんてんてん)。

・742-655-596「区別の湧水地点数」(2019年6月4日)
 https://www.kankyo.metro.tokyo.lg.jp/water/conservation/spring_water/current/district.html

 > 千代田区
 > 0

 https://www.iza.ne.jp/kiji/life/news/180630/lif18063016120021-n1.html

 > 徳川2代将軍秀忠が、この地にあった高林寺の境内から湧き出た水を使ったお茶を飲んで大変気に入り、“徳川家御用達”になったことに由来する。

 > 元和6(1620)年の放水路の掘削工事で、神田山は2つに分かれてしまった。さらにその後、神田川が拡張された際、高林寺の湧水は河川敷に含まれ消えてしまった。

 えー…(てんてんてん)。翻って、この「ひしめきあう街」の地形では、天下茶屋やお茶の水のような湧水が期待できる土地は、クラスターの番号でいえば「7」や「2」のところだけで、あとはもう、どうにもこうにも「下町」なんだという想像をして、そのような土地利用にして、そういう電車を通すというプレーはいかがですか、という話題でした。

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

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


 いままでと同じ内容の図も描いておく。(キリッ

xy
242.075589656152-62.0662119920432
160.609448482257-130.165882855921
79.3361877576911-62.175864256264
131.114414843007-144.783063748811
68.7196913119244-208.085387104805
44.3163647720176-33.0683947532794
206.147370848708-222.582103321033
35.7350323624596-100.687297734628
140.245530393325-215.648192292412
00
0-256
2560
256-256
14.9385206532181-113.668587896254
139.686994399502-26.6785936527691
17.6753283039954-184.971500419112
222.899884259259-63.0949074074075
207.315602836879-96.4122340425532
215.631533101045-194.005226480836
140.67615658363-69.7984875444841
231.133333333333-169.136728395062
190.204955752212-28.8088495575221


 これも描いておきたい。

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

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

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

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


 送電線みたいには見えてきた。ありがとうございました。


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


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


[4234]

きょうは南栗橋でぎゃふん。

2020/10/1

[4236]

きょうは三ツ境で三都物語。

2020/10/1

[4245]

つけたし『3面指し』(5)

2020/10/1

[4253]

「駅名メーカー」と「駅名ランダマイザー」の違い【PR】

2020/10/16


関連する記事


[3658]

【自由研究】ゆるシミュ(8) tht - 2018/7/9


[4173]

きょうは新札幌でバウムクーヘン。 tht - 2020/8/25


[3872]

いま問う『東海道53』のココロ(ボロノイ編) tht - 2020/1/1


[4075]

「照焼大橋」不滅なれ(モスクワ編) tht - 2020/5/21


[4072]

「照焼大橋」不滅なれ(ゆんゆん編) tht - 2020/5/21


[4078]

「照焼大橋」不滅なれ(ばりばり編) tht - 2020/5/21


[3707]

研究ホワイトボックス(35) 複雑なデータと「対話」するには〜郵便番号データを例に(R編) tht - 2019/5/24


[3882]

【A9・Exp.】ニューゲームを自動分類するには(仕込編) tht - 2020/1/11






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