持続可能な開発

　持続可能型社会という言葉を聞く機会が増えました。平たく言ってしまうと、「環境破壊をやめましょう」という意図なのでしょう。悪いことだとは思いません。

　少し考えてみましょう。
　開発とは一般的に何かを作ることです。作ったらものが増えていきます。
　単調に増加するものは必ず発散します。発散してしまったら持続しません。
　つまり、ものを作ってばかりでは安定しないということです。ものを作ることと、ものを捨てることがバランスしないといけません。

　プラスの作用とマイナスの作用をバランスさせて安定化させるというのは、至極普通の考え方だと思います。その考え方を基準にすると、「持続可能な開発」という言葉は、作ることに重点があるようで少し変です。

　「環境に配慮して、ソーラーパネルを設置する」結構なことです。では、そのソーラーパネルに取って代わられる既存の発電設備はどのように廃棄されるのでしょうか? また、そのソーラーパネルは老朽化したときどのように廃棄されるのでしょうか?

　私が思うに、ものを捨てるということは、ものを作るのと同じくらい、難しく、付加価値の高いことです。持続可能性を考えるのであれば、ものを捨てるということの重要性をもっと考えてもいいと思うのですが。。。
　そういう考え方はマイナーな気がします。

クルマを買う話

　東京は駐車場代が高いのでクルマがあると大変ですが、地方に住むならクルマがないと生活が大変です。
　最近、再び地方に引っ越したため、クルマを買おうと思い、いくつかディーラーさんで、試乗させてもらっています。

　クルマもいろいろありますが、今回は、同僚におすすめされた、ルノーのトゥインゴに乗ってきました。

　トゥインゴは、いわゆるコンパクトカーです。見た目はフランス車という感じのオシャレなデザインをしています。
　乗ってみるとすぐに走りの違いに気づきます。トゥインゴはCVTではなくDCTです。そのため、慣れないとギアが変わるタイミングで、クルマがガクッとなります。楽しいです。ギアの変化が好きな人にはおすすめです。
　FRではなくRRというのも特徴的です。小回りが良い反面、後ろに積める荷物は少なめです。
　ルノーはシートにこだわっているとのことで、実際、デザインも座り心地も良かったです。高級感があるわけではないのですが、シンプルで実用的な感じです。
　価格は日本のコンパクトカーと同じ程度です。輸入車であるため、故障とかがあると面倒かもしれません。

　総じて言うと、オシャレで特徴的な走りの素敵なクルマでした。ただ、売れ筋で在庫が少なく、新車を買っても3か月以上待つことになるそうです。。。

　そんなこんなで楽しくクルマを選んでいる今日この頃です。

ふりまわされる学生

　小学校でのプログラミング教育が検討されているそうです。情報化が進んだ昨今、学生が社会に出てからの仕事のことを考えてのことでしょう。
　ですが、プログラミングを追加して、英語を追加してと増やしてばかりでは、学生も先生もパンクしてしまいそうです。

　インターンの採用直結を認めないというニュースがありました。社会に出てからの仕事の前に、学業を優先させるということらしいです。
　先ほどの話と優先順位が逆転しているところは滑稽です。

　以前、博士号を持つ人材を増やそうという政策がありました。海外の学位のシステムを意識した政策なのでしょうが、その結果、就職できないポスドクが増えたという話をよく聞きます。

　こういった話を聞くと、学生がふりまわされているという印象を受けます。

　教育に正解はないでしょう。人それぞれです。しっかり学業を修めた方がいい人もいれば、インターンから直接就職して活躍する人もいるでしょう。
　正解はないからこそ、押し付けだけはやめて欲しいと思います。すべての学生に一つの政策を押し付けるのは、独善的で配慮に欠いたやり方です。


　私は、インターンの採用直結を悪いと思わないので、先のニュースを聞いてびっくりしました。もちろん世の中にはいろいろな裏の事情があるとは思いますが、「学業を優先させる」という一方的な論理を強要するのは、それこそ教育的ではないと強く思った次第です。

クレーマー・クレーマー

　クレームを言うのが苦手です。

　日本人の気質でしょうか。文句を言って不和を生むよりは、我慢することを選んでしまいます。

　ですが、現状に不満があるからこそ、将来の改善につながるものです。正しいクレームは、実は生産的な活動だと思います。
　もちろん、正しくないクレームは諍いを生むだけなので、その加減が難しいのですが。

　願わくば、間違いはきちんと指摘できるようになりたいものです。

情報過多

　テレビのニュースを見ていると、アナウンサーの変わり身にときどき驚かされます。

　中東情勢の話をしていると思えば、アメリカ、北朝鮮、と世界一周して、休む間もなくスポーツの話題に変わったりします。

　アナウンサーの方々は、非常に賢いのだと思います。
　あらゆる話題をさも関心があるように話す様は、少し気持ち悪いくらいです(失礼ですみません)。
　個人的には、「私は大相撲に興味ありません」というくらいでもいいと思います。


　現代はあらゆる情報が集まる時代です。いつの間にか大量の情報が押し寄せてくる時代です。
　ですが、頭の中で処理できる情報の量には限りがあると思います。

　大量の情報にさらされていると、目を回してしまいそうになることがあります。情報の海に溺れているような気分です。頭の中で、大量の情報を処理し続けるのは疲れるんです。

　どうせ頭で処理しきれないのだから、少し情報を遮断して、休憩したいなぁなどと思ったりする今日この頃です。

Excel VBAで数学 8

　Excel VBAを使った簡単な数学プログラミングの続きです。

　今回は組み合わせの計算です。
　学校の数学でさんざん考えた記憶がありますが、コンピュータにやらせるとあっさりしたものです。

　ソースコードは、ご自由にご利用ください。ただし、趣味のプログラムなので、保証はありません。

Option Explicit

Dim row As Long


Public Sub Macro()
    Dim N As Long
    Dim m As Long
    Dim num() As Byte
   
    row = 1
   
    N = 5
    m = 3
    ReDim num(m - 1) As Byte
    'nHm num, N, m, 0
    'nPm num, N, m, 0
    nCm num, N, m, 0
End Sub

'nHm
'重複あり組み合わせ
Public Sub nHm(num() As Byte, N As Long, m As Long, pos As Long)
    Dim i As Long
   
    If pos < m Then
        For i = 0 To N - 1
            num(pos) = i + 1
            nHm num, N, m, pos + 1
        Next i
    ElseIf pos = m Then
        For i = 0 To m - 1
            Sheet1.Cells(row, i + 1) = num(i)
        Next i
       
        row = row + 1
    End If
End Sub

'nPm
'順列 (permutation)
Public Sub nPm(num() As Byte, N As Long, m As Long, pos As Long)
    Dim i As Long
    Dim j As Long
   
    If pos < m Then
        For i = 0 To N - 1
            For j = 0 To pos - 1
                If i + 1 = num(j) Then Exit For
            Next j
           
            If j = pos Then
                num(pos) = i + 1
                nPm num, N, m, pos + 1
            End If
        Next i
    ElseIf pos = m Then
        For i = 0 To m - 1
            Sheet1.Cells(row, i + 1) = num(i)
        Next i
       
        row = row + 1
    End If
End Sub

'nCm
'組み合わせ (combination)
Public Sub nCm(num() As Byte, N As Long, m As Long, pos As Long)
    Dim i As Long
    Dim j As Long
   
    If pos < m Then
        For i = 0 To N - 1
            For j = 0 To pos - 1
                If i + 1 <= num(j) Then Exit For
            Next j
           
            If j = pos Then
                num(pos) = i + 1
                nCm num, N, m, pos + 1
            End If
        Next i
    ElseIf pos = m Then
        For i = 0 To m - 1
            Sheet1.Cells(row, i + 1) = num(i)
        Next i
       
        row = row + 1
    End If
End Sub

Excel VBAで数学 7

　Excel VBAを使った簡単な数学プログラミングの続きです。

　今回は円周率の計算です。
　値は知っていても、実際に計算したことがある人は、多くないのではないでしょうか。
　今回は、Machinの公式というのを使っています。計算機がない時代に手計算をしていた人々のことを思うと、感慨深いです。

　ソースコードは、ご自由にご利用ください。ただし、趣味のプログラムなので、保証はありません。

Option Explicit

'piの計算 (Machinの公式)

Public Sub Macro()
    Dim i As Long
    Dim m As Long
    Dim p As Double
    Dim temp As Double
 
    m = 100
 
    temp = 16 / 5
 
    For i = 0 To 3 * m + 2
        p = p + temp / (2 * i + 1)
        temp = -temp / 5 / 5
    Next i
 
    temp = 4 / 239
 
    For i = 0 To m
        p = p - temp / (2 * i + 1)
        temp = -temp / 239 / 239
    Next i
 
    Sheet1.Cells(1, 1) = p
End Sub