地球温暖化メカニズム考察（6）

地球温暖化メカニズム考察(1)、地球温暖化は、現代科学が不得手とするもののひとつ
地球温暖化メカニズム考察(2)、地球温暖化懐疑論者の大きなまともな疑問
地球温暖化メカニズム考察(3)、地球温暖化は、平衡論では説明できない<
地球温暖化メカニズム考察(4)、地球温暖化は、ポジティブ・フィードバックのオンパレード
地球温暖化メカニズム考察(5)、植物の光合成がなければ、地球は熱暴走
地球温暖化メカニズム考察(6)、現代社会は、植物をも減少させている。このままでは地球は熱暴走
地球温暖化メカニズム考察(7)、地球には氷河期があった。寒冷化メカニズムは？>
地球温暖化メカニズム考察(8)、４６億年地球史概略
地球温暖化メカニズム考察(9)、先カンブリア時代の気候変動
地球温暖化メカニズム考察(10)、先カンブリア時代の気候変動２

地球温暖化メカニズム考察(6)
　　－現代社会は、植物をも減少させている。このままでは地球は熱暴走

　前回、大気中にCO₂が排出されると、CO₂とH₂Oが協調して、温暖化が加速されることを示した。下図でもう一度、要約する。温暖化は、悪循環（正のフィードバック）のオンパレードである。

　しかし、上図は植物が無い場合である。植物は、CO₂を吸収するから、温度上昇を抑える。

　CO₂が増え、温度があがると植物が増えるというのは、誰でも直感的にうなずけるであろう。夏になれば、木々は生い茂る。地球全体を見渡しても、赤道に近づくほど緑が豊かである。CO₂増大も緑による光合成にとって好都合である。植物が増えると、植物によるCO₂吸収が増える。大気中のCO₂が減り、温度は下がっていく。つまり温度が安定化する。もし、温度が下がり過ぎれば、植物が枯れ、枯れて腐った植物からはCO₂がでる。これも温度を安定化させる方向に働く。もし、大気中のCO₂の増大が、ゆっくりしていて、人間の植物への干渉が少なければ、地球の温度は安定化に向かうはずである。

　大気中にCO₂が増大し続ける今、地球上の植物はどうなっているであろうか。

上記のように、人間の経済活動は、植物を減少させている。
　古代文明は、森林破壊が原因、遠因で滅んだといわれている。(エネルギー需要→ 森林破壊 ＝ 水源林破壊 → 雨が降れば大洪水、降らねば渇水 → 田畑の荒廃 → 食料不足 ) 更に、古代文明は滅んで、植物が蘇らない砂漠を残した。
　現在も、かなりの勢いで森林が破壊されている。特にひどいのはブラジルとインドネシア・マレーシアの熱帯雨林である。
　ブラジル・アマゾンには、1970年には 4,100,000 km²の熱帯雨林があったが、2005年には、3,403,000 km²まで減少した。日本国土面積が370,000km²であるから、日本国土の約2倍の森林が減ったことになる。35年の間に地球の肺臓と呼ばれるアマゾンの熱帯雨林が 27% も失われた。牧場開発が最も大きな森林減少理由である。
　インドネシアとマレーシアでは、2000年から2010年の10年間に 110,000km² の森林が消えた。農園転換が最大理由である。
　日本のコンクリート行政は、ダムを作り、護岸と称し、海外線をコンクリートで固めてきた。これは生態系を壊す。
　自然本来の営みによれば、山の栄養が植物プランクトン産み、さらに、植物プランクトンが動物プランクトンを産み、小魚がこれらを餌とする。海岸線には藻が育ち、多くの海洋生物を養う。植物プランクトンや藻は、魚の餌になるだけではない、CO₂を吸収する。
　ダムや護岸工事はこういった生態系を壊す。日本の海岸線から藻場が年々消えてきている。アジア大陸の沿岸では、養殖が急増したことから、藻場が急減しているといわれている。

　温暖化の影響で、CO₂吸収源である珊瑚も減少している。過去40年間で珊瑚礁の1/3が消滅、世界全体で約3,000 km²の広さで珊瑚が消えた。
　北米の寒冷地帯に生える松は、立ち枯れを起こしている。これは、温暖化により、冬に松くい虫が死ななくなったためだといわれている。

　 植物が減って、CO₂吸収が減っているだけではない。
　温暖化により、大規模な山火事が増え、また、世界の泥炭地から多量なCO₂がでている。

　NGO「国際湿地保全連合」（本部オランダ）によると2008年泥炭地からのCO₂排出は約13億トンで、1990年比で２０％増加。泥炭地上の森林火災を含めると年間２０億トン程度になる。インドネシアの泥炭地からの排出量が最も多く、約５億トン。アブラヤシの農地開発などのために泥炭地を乾燥させたことにより、排出量が増えたとみられている。
　CO₂を吸収すべき植物が、CO₂を放出する側にまわっている。

　CO₂排出削減が、叫ばれているが、現実は増え続けている。CO₂吸収する植物が減り、逆に>CO₂を放出し始めている。温度を安定化させるはずの植物が、温度を上昇させる側に回ろうとしている。温暖化の悪循環要素が増え、温暖化抑制が減っている。

　このままでは、熱暴走する可能性すらあり、非常に危険な状態と言わざるを得ない。

　アース・ポリシー研究所のレスター・ブラウン所長は、このままでは、現代文明は、古代文明が滅んだように滅ぶと危惧して、著作活動を続けるとともに世界中を飛び回って警告を発している。
　古代文明は、森林破壊が、田畑の崩壊を招き、食料不足に陥り、滅んだ。
　国際協力で推進されている温暖化検討機関でも、このまま温暖化がすすめば、水不足、食料不足になると警告している。

　温暖化は悪循環のオンパレードで、温暖化を抑制する要因が少ないとなれば、国際的な検討機関の警告以上に温暖化がすすみ、ブラウン所長が心配する通り人類文明が滅びかねない。

　下図のような更なる植物の減少や植物によるCO₂放出も心配されている。

　ここまでくれば、地球上全生物の生存に危機が迫っているといえる。

　次回以降、数回にわたって過去の地球の気候を考える。

　（つづく）

幾何学模様（14）

幾何学模様
(18)、(17)、(16)、(15)、(14)、(13)、(12)、(11)、(10)、(9)、(8)、(7)、(6)、(5)、(4)、(3)、(2)、(1)

ここ数回は、r=cotθ（カッパ曲線）,および、r=tanθを検討した。今回は、は、r=cotθより簡単なr=1/cosθおよびr=1/sinθを検討する。r=1/cosθはx=1であり、r=1/sinθは、y=1である。

r=1/cosθ、r=1/sinθの右辺を、まずはｎ乗する。次にm乗根をとる。そして、θの前に整数を掛ける。最後にθを整数で割ってみる。

次図はr= 1/(cosθ)ⁿ   n=1,2,3・・6　である。

次図はr= 1/|cosθ|^1/m   m=1,2,3・・6　である。

次図はr= 1/cos(jθ)   j=1,2,3・・6　である。

次図はr= 1/cos(θ/k)   k=1,2,3・・6　である。

次図はr= 1/(sinθ)ⁿ   n=1,2,3・・6　である。

次図はr= 1/|sinθ|^1/m   m=1,2,3・・6　である。

次図はr= 1/sin(jθ)   j=1,2,3・・6　である。

次図はr= 1/sin(θ/k)   k=1,2,3・・6　である。

X=1 および　y=1 をr,θで表わし、θに簡単な係数をつけるだけで、様々なパターンが得られるのは非常に興味深い。次回も簡単な関数をr,θで表わし、θに簡単な係数をつけて、その形状がどう変化するか、見てみる。

（つづく）

PPT2010マクロ（4）

PPTマクロ(6)、PPTマクロでつくったもの２
PPTマクロ(5)、PPTマクロでつくったもの１
PPTマクロ(4)、マクロで四角形や楕円などを描く
PPTマクロ(3)、マクロで直線を描く
PPTマクロ(2)、マクロを有効化する
PPTマクロ(1)、マクロ作成の動機

PPTマクロ(4)、マクロで四角形や楕円などを描く

　前回は、PPTマクロのコマンドが、オブジェクト、メソッド、プロパティを含んで書かれていることを、実線を引くマクロで具体的に説明した。
　今回は、PPTの図形のうち、四角形、楕円、角丸四角とテキストを書くマクロ例を紹介する。次図は4つのマクロの出力である。

図形を描くマクロとして、先ず、四角形を描くマクロを示す。

――四角形描画マクロ　

Sub Sikakkei()
    Dim L As Single, T As Single, W As Single, H As Single
   
    L = 80         '四角形の左上隅のX座標
    T = 60         '四角形の左上隅のY座標
    W = 240        '四角形の幅
    H = 180        '四角形の高さ
    Set myDocument= ActivePresentation.Slides(1)
    With myDocument.Shapes.AddShape _
        (msoShapeRectangle, L, T, W, H)
        .Fill.ForeColor.RGB = RGB(255, 0, 0) '塗りつぶし　赤
        .Fill.Transparency = 0.9             '　透明度0.9
        .Line.Weight = 1                     '線幅　1pt
        .Line.ForeColor.RGB = RGB(0, 0, 0)   '線の色　黒
    End With
End Sub


­――以上、四角形描画マクロ　

図形の位置、大きさ指定は、(1)図形の左上点のX座標、(2)図形の左上点のY座標、(3)図形の幅、(4)図形の高さ　の順で指定する。これはどんな図形を描く場合も同じである。
msoは、マイクロソフトのオフィスという意味で、オフィスに共通して使えるコマンドである。
ちなみに
Set myDocument = ActivePresentation.Slides(1)
を
Set myDocument = ActiveSheet
とすれば、Excelで使用できる。
また、
Set myDocument = ActiveDocument
とすれば、Wordで使用できる。
以下のマクロも同じ変更で、ExcelやWordで使うことができる。ということは、図形描画まくろはオフィス共用のマクロと言える。

   
――楕円描画マクロ　

Sub Daen()
    Dim L As Single, T As Single, W As Single, H As Single
   
    L = 400    '楕円に接する四角形の左上のX座標
    T = 60     '楕円に接する四角形の左上のY座標
    W = 240    '楕円に接する四角形の幅
    H = 180    '楕円に接する四角形の高さ
    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.AddShape(msoShapeOval, L, T, W, H)
        .Fill.ForeColor.RGB = RGB(0, 255, 0) '塗りつぶし　緑
        .Fill.Transparency = 0.7             '　透明度0.7
        .Line.ForeColor.RGB = RGB(0, 0, 0)   '枠線　黒
        .Line.Weight = 2                     '枠線幅　2pt
    End With
End Sub


――以上、楕円描画マクロ　


四角形図描画から塗りつぶしの色、透明度、線幅を変えてみた。



――角丸四角描画マクロ　

Sub KadomaruSikaku()
    Dim L As Single, T As Single, W As Single, H As Single
   
    L = 80      '角丸四角に接する四角形の左上隅のX座標
    T = 300     '角丸四角に接する四角形の左上隅のY座標
    W = 240     '角丸四角に接する四角形の幅
    H = 180     '角丸四角に接する四角形の高さ
    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.AddShape _
        (msoShapeRoundedRectangle, L, T, W, H)
        .Adjustments.Item(1) = 0.3            '角丸の程度 0.3
        .Fill.ForeColor.RGB = RGB(0, 0, 255)  '塗りつぶし 青
        .Fill.Transparency = 0.5              '　透明度　0.5
        .Line.ForeColor.RGB = RGB(0, 0, 0)    '線の色　黒
        .Line.Weight = 3                      '線の幅　3pt
    End With
End Sub


――以上、角丸四角描画マクロ
　
角丸の程度は、上記の　.Adjustments.Item(1) = 0.3　で指定している。数値は、角丸の長さと短辺の長さの比である。0であれば、普通の四角形である。大きな値を入れてもエラーにはならないが、実質の最大値は、0.5である。



――テキスト文挿入マクロ

Sub TekisutoBun()
    Dim L As Single, T As Single, W As Single, H As Single
    Dim TextMoji AsString
   
    L = 400    'テキスト枠の左上隅のX座標
    T = 300    'テキスト枠の左上隅のY座標
    W = 240    'テキスト枠の幅
    H = 300    'テキスト枠の高さ
    TextMoji = "計算式例　y=x2" + vbCrLf + "化学式例　CO2"
    Set myDocument= ActivePresentation.Slides(1)
    With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,L, T, W, H)
       .TextFrame.TextRange.Text = TextMoji
       .TextFrame.TextRange.Font.Name = "Century"
                '英字フォント
       .TextFrame.TextRange.Font.NameFarEast = "ＭＳ Ｐゴシック"
                '漢字フォント
       .TextFrame.TextRange.Font.Size = 24
                '文字サイズ24pt
       .TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
                '文字の色　赤色
       .TextFrame.TextRange.Font.Bold = msoTrue
                '太文字
       .TextFrame.TextRange.Characters(9, 1).Font.BaselineOffset= 0.3
                '上付き文字
       .TextFrame.TextRange.Characters(18, 1). Font.BaselineOffset = -0.3
                '下付き文字
       .TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter
               '中央合わせ
       .Fill.ForeColor.RGB = RGB(255, 255, 0)
                '塗りつぶし　黄色
       .Fill.Transparency = 0.3
                ' 透明度0.3
       .Line.Visible = msoFalse
                 '線なし
  End With
End Sub　

――以上、テキスト文挿入マクロ
　

上付き文字、下付き文字も、中央合わせなども行っている。文の改行は、文字変数TextMojiの中に次のように書かれている。

TextMoji = "計算式例　y=x2" + vbCrLf + "化学式例　CO2"

このなかのvbCrLfが改行命令語である。文字を上付きにしたり、下付きにしたりするとき文字数を数えて設定しなければならないが、この改行命令語も1文字としてカウントする必要がある。

上記のマクロに共通して、塗りつぶしにグラデーションをつけたい場合は、マイクロソフト提供の次のURLを参考にするとよい。
http://msdn.microsoft.com/en-us/library/bb265429(v=office.12).aspx 及び
http://msdn.microsoft.com/en-us/library/bb265468(v=office.12).aspx
枠線でダッシュ（各種点線）を使いたい場合は、次のURLを参考。
http://msdn.microsoft.com/en-us/library/bb265344(v=office.12).aspx
枠線で2重線や３重線を使いたい場合は、次のURLを参照。
http://msdn.microsoft.com/en-us/library/bb251238(v=office.12).aspx
２重線や３重線を描くときには、線幅を広く指定する必要がある。そうしないと１重線にしかみえない。

(つづく)

---

その他、シリーズも書いています。 ブログ「dousube」検索画面より検索下さい。

---