架空それっぽい地名ジェネレーター（漢字版）

架空それっぽい地名ジェネレーター

地名生成器作った

作り方

日本に実在する名字の一覧からカタカナのデータぶっこ抜く

↓

ソレを例えばアカサカだったら{アカ,カサ,サカ}みたいに分割する

↓

前の文字から次の文字に遷移する確率を調べる

↓

分割された名字のデータと確率のデータををさっきのプログラムにぶっこむ

↓

完成

地名メーカー(実物)

最初の文字(カタカナ)

長さ

追記：こういうのをマルコフ連鎖というらしいとか

ワイのついった→https://twitter.com/Shmss_Ardeagle

■

マイライフしたいけどペナント記事も書きたい話

こんばんわ。久しぶりの更新になってしまいました。
まあ今回は特に選手を紹介したいなーとかそういう話ではなくてやりたいことが多杉内で滅茶苦茶困っているという話です。

1つ目は自分が今までこのブログで紹介した選手を12球団に配布してペナントを15年位回してみたいなという話です。躊躇している理由は面倒くさいからです。

2つ目はオリジナル球団を作りたい構想です。一応ネタは用意してありますが、自分のPSで作れるか少し不安です…

3つ目はマイライフしたい欲です。一応こんな選手を作っては置きました

まあ無双マイライフになるのは自明オブ自明なのでブログで逐次紹介するかは微妙ですが投球練習と打撃練習代わりにやろうかなとは思います。

以上！

VBAで円弧（もどき）を描画するプログラムを書いた話

こんばんわ。
今回はついにパワプロ以外の話をします。

何の話かといいますとVBAの話です。
とか言っても１００００件のデータを条件に応じて抽出して条件ごとに別のシートに書き出すものではなくて、円弧（もどき）を描画するプログラムです
それではコードの紹介に参りましょう。

Sub PseudoArcDraw() '直訳すると「円弧もどきを描画」

Dim x As Single

Dim y As Single

Dim Radius As Single

Dim Sine As Single

Dim Cosine As Single

Dim StartDegrees As Single

Dim EndDegrees As Single

Radius = 100 '半径を指定

x = 200      '横方向の座標(単位はポイント)を指定

y = 200      '縦方向の座標(単位はポイント)を指定

StartDegrees = 0  '起点角度(単位は度数法)を指定

EndDegrees = 90  '終点角度(単位は度数法)を指定

Sine = Sin(2 * 3.1416 * ((360 - StartDegrees) / 360))
'VBAのSin関数がラジアン角で指定する仕様になっているので、ここで度数法からラジアン角に変換。

Cosine = Cos(2 * 3.1416 * ((360 - StartDegrees) / 360))
'VBAのCos関数がラジアン角で指定する仕様になっているので、ここで度数法からラジアン角に変換。

With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x + (Cosine * Radius), y + (Sine * Radius))
'ここで線の起点位置を指定。
             
             
    For Degrees = StartDegrees To EndDegrees '起点から終点までの角度を指定。
'この場合は0(右端)から90(上端)までの1度刻みで変化する円弧もどきが描画される。
'ここをいじれば任意の角度の円弧もどき、Stepを用いれば五芒星も描画可能。
                          
        Sine = Sin(2 * 3.1416 * ((360 - Degrees) / 360))
 'VBAのSin関数がラジアン角で指定する仕様になっているので、ここで度数法からラジアン角に変換。
        
        Cosine = Cos(2 * 3.1416 * ((360 - Degrees) / 360))
'VBAのCos関数がラジアン角で指定する仕様になっているので、ここで度数法からラジアン角に変換。
        
       .AddNodes msoSegmentLine, msoEditingAuto, x + (Cosine * Radius), y + (Sine * Radius)
'起点（もしくは前に描画された線の終点）から縦方向にCos(変数Degreesの値)×半径、横方向にSin(変数Degreesの値)×半径の線を描画。
        
    Next Degrees
    
    .ConvertToShape.Select
    'これをしないと書いた線が図形にならない。
    
End With
End Sub

…え？せっかく円弧(msoShapeArc)があるのだからそれで書けばいいじゃんって？
いやいや、今回この話をしたのは理由がある。それは…
ワイは実際の鉄道会社が使うような路線図をだれでも比較的簡単に書けるVBAプログラムを書く、という目標があるからだ！
そして今回このプログラムを書いた理由は…
円弧(msoShapeArc)使うと座標を取得したその後がいろいろとめんどくさいからだよ！！！！
(90度なら問題ないが、45度などにするとshapse.width等で取得した座標と線の終点がずれる)

なので「円弧（もどき）」でお茶を濁した、という具合です。

以上！
追記：コードに誤りがあったので修正しました。

（12）パワプロオリジナル架空選手 森加偉投手

こんばんわ。2日連続で更新できるほどネタが有り余っています。
あと、先日投稿した中沢君のダウンロード数が１０を超えていて、しかもDL数週間ランキングに乗っていました！

今回はパワプロの架空選手の話です。
今回は年齢設定は２１歳（大卒）にしています。
では選手の紹介に参りましょう。

森 加偉投手
メガネがチャームポイント(？)の左腕投手。
高校では目立った活躍はして来なかったが、大学で地道に積み重ねた努力が実りドラフト上位候補となった。
特にスライダー、カーブ、シュート、ツーシームをリズムよく投げ込むピッチングの評価は高い。
だが、クイックは苦手（その分牽制は得意）。成績が良くない選手との対戦では気を抜いてしまう一面も。
因みに、大学で専攻した分野は生物学らしい。

パワナンバー 13200 60493 92713

皆さんも是非機巧派左腕で遊んでみてくださいね！

またタグ検索で「ペナント」と検索するとワイの作成した選手含め100選手以上の多様多種な架空選手が見られま すので、是非ともそちらもダウンロードしてみてください！

ワイの作った選手をオリジナルチームに使用したり、そのチームを利用した動画を撮る際に別に報告はいりませんし、どんどん使ってもいいですが、自作選手と標榜するのだけはやめてください。

以上！

（11）パワプロオリジナル架空選手 今川卓人遊撃手

こんばんわ。今回はサクサクセス産の選手でいい感じになった選手を紹介します。
年齢設定は21歳（大卒）にしています。
では選手の紹介に参りましょう。

今川卓人遊撃手
京田や源田のような駿足堅守の遊撃手。
流し打ちで内野安打を打ったかと思えば、次の打席では引っ張り方向に鋭いライナーを打ち3塁打にするなど多様な打法を使い分けることができる選手です。
だが、それはバットに当たればの話で、実際のところそこまでは打率は高くは無いのが残念な所。
また、ノリがよく、ベンチのメンバーと観客をいつも楽しませてくれます。

パワナンバー 13600 70463 84233

皆さんも是非バッティングセンス溢れる駿足遊撃手で遊んでみてくださいね！

またタグ検索で「ペナント」と検索するとワイの作成した選手含め100選手以上の多様多種な架空選手が見られま すので、是非ともそちらもダウンロードしてみてください！

ワイの作った選手をオリジナルチームに使用したり、そのチームを利用した動画を撮る際に別に報告はいりませんし、どんどん使ってもいいですが、自作選手と標榜するのだけはやめてください。

以上！