<?xml version="1.0" encoding="UTF-8" ?>
<rss version="2.0" xmlns:blogChannel="http://backend.userland.com/blogChannelModule" >
  <channel>
  <title>崗上虜囚の備忘録</title>
  <link>http://kojoryoshu83.edoblog.net/</link>
  <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="self" type="application/rss+xml" href="http://kojoryoshu83.edoblog.net/RSS/" />
  <description>日本よ!。私の日本への思いです。
コメントに返事を書かないこともあります。悪しからず。
コメントの投稿は日本人だけにしてください。
日本人でない場合は、国籍を書いてください。
注、google chromeで閲覧出来ませんので、filefoxかinternet explorerで閲覧してください</description>
  <lastBuildDate>Tue, 16 Jan 2024 08:00:04 GMT</lastBuildDate>
  <language>ja</language>
  <copyright>© Ninja Tools Inc.</copyright>
  <atom10:link xmlns:atom10="http://www.w3.org/2005/Atom" rel="hub" href="http://pubsubhubbub.appspot.com/" />

    <item>
    <title>能登半島地震で観測された地動変位</title>
    <description>
    <![CDATA[<div>令和６年１月１日の能登半島地震で記録された加速度は、岩手県宮城県内陸地震で記録された4022[gal]に次ぐ、日本で記録した第２位の2678[gal]（26.78m/s/s）だったのである。実に2.7Gの加速度が建築物に加わったのである。従って建築物の倒壊等が起きたのは当然であると思うかも知れない。でも最大加速度だけ見ても建築物の倒壊が起きるかどうかは分からない。</div>
<div>　</div>
<div>例えば、机の上に小さいビスを乗せて机を叩くとビスが飛び上がる筈である。この時の机の振動は１Ｇを越えてるが、しかしこの振動では建物は壊れない。振動の変位量が小さすぎるからである。</div>
<div>　</div>
<div>建築物の倒壊は応答スペクトル(図１参照)を見て予測するのが一般的であるが、個々の建築物の共振周波数など知らないので、そこで加速度波形を2重積分をして変位データを求めて、能登半島地震では地動がどのような動きをしていたかを考察して見たい。<br />
　</div>
<div><br />
<img src="//kojoryoshu83.edoblog.net/File/ISK0062401011610rsp.png" alt="" /></div>
<div>　　図１、防災科学技術研究所が提供している応答スペクトル図</div>
<div>　</div>
<div>図２は、最大加速度を記録した富来観測点の主要動と思われる60秒間の加速度波形である。チャンネル番号は勝手に割り振った番号で、そのうちの0060(aABS)はUD、NS、EW成分のベクトル合成である。</div>
<div>　<br />
　　<br />
<img src="//kojoryoshu83.edoblog.net/File/ISK006ABSknet.png" alt="" /></div>
<div>　　図２、富来(ISK006)観測点の加速度波形＋ベクトル合成波形(aABS)。</div>
<div>注、0060(aABS)に負の髭のような物が見えるがソフトのバグかも知れない。</div>
<div>　</div>
<div>図３は加速度データの最初から求めた300秒間の変位波形であるが、地震終了後も直線的に変位値が上昇している。理由はこの地震の途中から地面が傾いたからでは無いかと思われる。何故なら垂直成分(dUD)の変動が見られないからである。<br />
　<br />
<img src="//kojoryoshu83.edoblog.net/File/edb12e51.png" alt="" /></div>
<div>　　図３、富来(ISK006)観測点の変位波形（フィルター無し）　300秒間</div>
<div>　<br />
そこで加速度波形と同じ時間だけ切り出して表示すると、図４のようになる。</div>
<div>　　<br />
<img src="//kojoryoshu83.edoblog.net/File/Int2ISK006p00a.png" alt="" /> <br />
　図４、富来(ISK006)観測点の変位波形（フィルター無し）30秒間<br />
<br />
それでも地面傾きの影響と思われる結果であるので、100秒のハイパス・フィルターを掛けると図５のようになる。波形の後半がうねっているのはフィルターの影響である。<br />
　<br />
<img src="//kojoryoshu83.edoblog.net/File/Int2ISK006p01.png" alt="" /> <br />
　図５、富来(ISK006)観測点の変位波形（HPF=0.01Hz）30秒間<br />
&nbsp;<br />
最大変位量は各成分で数十センチ有ると思われるが、変位は数十秒の低周波であるので、橋などの地面の変動に影響される建造物とは違い、建築物の倒壊の原因にはなり得ないと考えらえる。</div>
<div>　</div>
<div>加速度波形のパワースペクトル(図６参照)を見ると、加速度の主要動は1HZ以上で10Hz以下のようなので、変位波形に1Hz〜10Hzのバンドパス・フィルターを掛けて見る(図７参照)。</div>
<div>　<br />
<img src="//kojoryoshu83.edoblog.net/File/240101161009.040_0061FFT.png" alt="" /></div>
<div>　　図６、富来ISK006)観測点の加速度のパワースペクトル</div>
<div>　<br />
<img src="//kojoryoshu83.edoblog.net/File/Int2ISK006_1061BPF1_10.png" alt="" /></div>
<div>　　図７、富来(ISK006)観測点の変位波形（BPF=1Hz〜10Hz）</div>
<div>　</div>
<div>そうすると、最大変位量がUD成分で&plusmn;15mm、NS成分やEW成分で&plusmn;4cm程度となった。恐らく水平成分の数センチの揺れと共振現象が建築物の倒壊の原因になったであろう。但しこの最大変位時の加速度がどの程度か調べるべきであるが、興味が別の処に移ったので先に進む。<br />
　<br />
そしてその興味と言うのが、地中はどのような振動で有ったかである。幸い珠洲(ISKH01)観測点は地下100mの地中埋設の加速度計と地表の加速度計が設置してある。(実際には観測点は海抜50m程に有るので、海抜-50mと海抜50mの観測である)</div>
<div>　</div>
<div>その結果が図７の加速度波形と、図８の変位波形である。変位波形は100秒のハイパス・フィルター（HPF=0.01Hz）を掛けてあるが、珠洲(ISKH01)観測点では、低周波の変位が地中も低地上も同じ動きをしており、どの成分の&plusmn;の変位量の幅が1m程になっていたのである。</div>
<div>　　<br />
　<br />
<img src="//kojoryoshu83.edoblog.net/File/ISKH01240101all.png" alt="" /></div>
<div>　　図７，珠洲(ISKH01)観測点の加速度波形<br />
　　aU1,aN1,aE1が地中加速度、aU2,aN2,aE2が地上加速度成分である。</div>
<div>　<br />
　<br />
<img src="//kojoryoshu83.edoblog.net/File/Int2ISK001p01.png" alt="" /></div>
<div>　　図８，珠洲(ISKH01)観測点の変位波形（HPF=0.01Hz）<br />
　dU1,dN1,dE1が地中変位UD,NS,EW、dU2,dN2,dE2が地上変位UD,NS,EW</div>
<div>　</div>
<div>これをどう見るべきなのであろうか。能登半島地震の震源の深さは16kmであるが、震源は珠洲(ISKH01)観測点の間近である。やはり加速度計が断層の複雑な動きを捉えたと見るべきでは無いだろうか。</div>]]>
    </description>
    <category>科学技術</category>
    <link>http://kojoryoshu83.edoblog.net/%E7%A7%91%E5%AD%A6%E6%8A%80%E8%A1%93/20240116</link>
    <pubDate>Tue, 16 Jan 2024 08:00:04 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/334</guid>
  </item>
    <item>
    <title>縄文・旧石器・地図</title>
    <description>
    <![CDATA[縄文海進と氷河期の日本地図<br />
<img src="//kojoryoshu83.edoblog.net/File/sea10-120.jpg" alt="" /> <br />
　左は縄文海進で10m海水位が上がった時、右が海水位(-120m)が最も下がった2万年前頃の地図。
<div style="text-align: center;"><br />
<img src="//kojoryoshu83.edoblog.net/File/ondan10a.jpg" alt="" /> <br />
　<a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1700470845" title="">+10m海水位の拡大図<br />
<br />
<img src="//kojoryoshu83.edoblog.net/File/kanrei120c.jpg" alt="" /> <br />
</a><a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1700470806" title="">-120m海水位の拡大図</a>　　　</div>]]>
    </description>
    <category>文化・歴史</category>
    <link>http://kojoryoshu83.edoblog.net/%E6%96%87%E5%8C%96%E3%83%BB%E6%AD%B4%E5%8F%B2/%E7%B8%84%E6%96%87%E3%83%BB%E6%97%A7%E7%9F%B3%E5%99%A8%E3%83%BB%E5%9C%B0%E5%9B%B3</link>
    <pubDate>Mon, 20 Nov 2023 09:07:45 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/331</guid>
  </item>
    <item>
    <title>日本神話と赤ホヤ噴火</title>
    <description>
    <![CDATA[<span size="2" style="font-size: 14px;" data-mce-mark="1">天皇が何処から来たかを古事記・日本書紀と考古学から推測する説は色々ありますが、神代記から推測した説はあまり有りません。せいぜいこの時代に皆既日食が有ったので天岩戸神話はこれだろうとの推測ぐらいです。これは神代の話は只の創作と見て重きを置いて無かった為と考えられます。<br />
　</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">　しかし単なる創作とは考えられない神代記の摩訶不思議な話について、この神話は何を意味するか、何故生まれたのかを推測することで、天皇の先祖について新たな発見が有るのではないでしょうか。そこで黄泉の国神話や天の岩戸神話等を注目して、仮説を立ててみました。<br />
　</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">仮説を先に言うと</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・天皇の先祖は上野原遺跡の地に居た。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・約束の地に戻ったのが天孫降臨。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・黄泉の国神話は高千穂峰の噴火の樣である。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・天の岩戸神話は喜界赤ホヤ噴火体験により生まれた。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・天皇の先祖は九州北部に居ついた。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・九州北の地で縄文人と長江人の邂逅が起きる。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・日本統一を成し遂げられたのは強烈な体験の基づく信仰と稲作。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・卑弥呼は天照大御神が憑依した巫女。つまり日の巫女。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・邪馬台国はヤマト国である。即ち後の日本。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">・日本は縄文文明と長江文明が融合した国で、7000年前の宗教を頂く国である。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">　但し、これらの仮説には、</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">１、喜界赤ホヤ噴火の降灰の最中に踊り祈る事など出来るであろうか。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">２、上野原遺跡の地にいた縄文人は脱出出来るのであろうか。</span><br />
<span size="2" style="font-size: 14px;" data-mce-mark="1">３、7300年前の事を７世紀まで伝承できるだろうか。</span><br />
<span size="2" style="font-size: small;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">等の難点があります。</span><br />
</span>　<br />
<span style="font-size: 14px;" data-mce-mark="1">　まず日本神話を読んで感じることは、火の神の多さです。そして火山の描写としか思えない箇所が有ることです。特にイザナミ尊が火の神カグチツを生んだことで身を焼かれて死に、イザナギ尊が死んだイザナミ尊に会いに黄泉の国に行った時、イザナミ尊は身体中雷に覆われて出てくる場面(注１)は、噴火そのものです（図１参照）。</span>
<div>
<div><br />

<div><span style="color: #000080; font-size: small;" data-mce-mark="1">注１：頭には大雷居り、胸には火雷居り、腹には黒雷居り、陰には拆雷居り、左の手には若雷居り、右の手には土雷居り、左の足には鳴雷居り、右の足には伏雷居り、并せて八はしらの雷神成り居りき。</span></div>
</div>
</div>
<div></div>
<div><span style="text-align: center;" data-mce-mark="1"> <br />
</span></div>
<div style="text-align: left;"><img src="//kojoryoshu83.edoblog.net/File/SunderVolc.png" alt="" /> <br />
<span style="font-size: small;" data-mce-mark="1">　　　　　　　　</span>注１：<span style="font-size: small;" data-mce-mark="1">噴火と雷（画像はインターネットから無断で拝借したものです）</span></div>
<div style="text-align: left;">
<div>
<div><span style="font-size: small;">　</span></div>
<div>
<div><span size="2" style="font-size: 14px;">　従って日本神話は天皇の先祖、即ち天孫族が火山噴火を体験した事で生まれたのではないかと推測出来ます。ではその体験した場所は何処かですが、キーワードは高千穂峰です。高千穂峰はニニギ尊が降臨した所ですが、天孫降臨の地が国譲りをした出雲では無く、高千穂峰なのは不思議ではないでしょうか。<br />
　</span></div>
<div><span size="2" style="font-size: 14px;">　実は高千穂峰の場所は天孫族にとってゆかりの地、否そこは約束の地であり高千穂峰は当初から天孫族の信仰の対象だったかも知れません。<br />
　</span></div>
<div><span size="2" style="font-size: small;"><span style="font-size: 14px;">　そこで高千穂峰近くの遺跡を調べると有りました。上野原遺跡です。上野原遺跡は1986年(昭和61年)に霧島市で発見された縄文早期（約1万700～1万400年前）から縄文晩期の複合遺跡で(注２)、特に縄文早期のものは「国内最古、最大級の定住化した集落跡」とされています。</span><br />
　</span></div>
<div><span size="2" style="font-size: small;"><span style="color: #000080;">注２：古い資料では上野原遺跡は約9500年前からとされていますが、再測定により上記の約1万700～1万400年前です。又、同様に古い資料では喜界赤ホヤ噴火も約6300年前とされていますが、これも約7300年前です。</span><br />
<span style="font-size: 14px;">　</span></span></div>
<div><span size="2" style="font-size: small;"><span style="font-size: 14px;">　そして天皇の男性の遺伝子Y-DNAハプログループはD1a2a1bの縄文系です(注３)。また上野原遺跡は縄文人の遺跡。天孫族が上野原遺跡の地の出身だとしても可笑しくはありません。</span><br />
　</span></div>
<span style="font-size: small;"><span style="color: #000080;"><span size="2" style="font-size: small;">注３：これは東山天皇の男系子孫の複数名と南朝後村上天皇の男系子孫等のY-DNAを調査した結果です。</span></span></span><span style="font-size: small;">　</span><br />

<div><span style="font-size: small;">　</span></div>
</div>
</div>
</div>
<span size="2" style="font-size: 14px;" data-mce-mark="1">　上野原遺跡は200mの高台に有り、凡そ20km離れた高千穂峰は裾野のまで見渡せる位置なので(図２参照)、上野原遺跡にいた縄文人は高千穂峰を朝晩畏敬の念で見ていたと思われます。そして高千穂峰は喜界赤ホヤ噴火を挟んで7600年前から7300年前に２回大きな噴火を起こしていたのです。</span>
<div style="text-align: left;">
<div>
<div>
<div>
<div><span size="2" style="font-size: small;" data-mce-mark="1">　</span></div>
</div>
<div><img src="//kojoryoshu83.edoblog.net/File/ef303d11.png" alt="" /></div>
</div>
</div>
<span style="font-size: small;" data-mce-mark="1">　　　　　図２：上野原遺跡から見た高千穂峰。（画像はストリート・ビューから）</span><br />
<span style="font-size: small;" data-mce-mark="1">　</span><br />

<div><span size="2" style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1"></span></span>
<div><span style="font-size: 14px;" data-mce-mark="1"><span size="2" data-mce-mark="1">　その最初の１回目の噴火が黄泉の国の神話が生まれた理由では無いかと考えられます。何故１回目の噴火かと言うと、上野原遺跡の縄文早期の遺跡は喜界赤ホヤ噴火の火山灰に埋もれており、喜界赤ホヤ噴火で滅んだと思われるからです。</span></span></div>
<span size="2" style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1"></span></span>
<div style="font-size: small;"><span style="font-size: 14px;" data-mce-mark="1">　</span></div>
</div>
<div><span size="2" style="font-size: 14px;" data-mce-mark="1"><span size="2" data-mce-mark="1">　そこで黄泉の国の神話が上野原遺跡の地に居た天孫族が高千穂峰の噴火を見て考えついた物語とするなら、上野原遺跡に居た天孫族が超巨大噴火である喜界赤ホヤ噴火を神話に記載しない筈が有りません。そう考えると日本神話の最大イベントである天岩戸神話と喜界島の赤ホヤ噴火を結び付けるのが自然です。<br />
　<br />
</span></span>
<div><span style="font-size: 14px;" data-mce-mark="1">　では天照大御神が天岩戸に隠れる前に何が起きたかですが、古事記ではスサノオ尊が天照大御神に合いに天に参上する時「山川悉に動み、国土皆震りき」とあります。つまりこれは大地震の描写と見て間違いがないと思います。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　事実、南九州で喜界赤ホヤ噴火による堆積物を調べると、最後の火砕流を伴う噴火の灰の下の地層に液状化の跡が発見され、最後の噴火の前にこの地域が激震に見舞われたことが証明されたのです。<br />
　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　喜界赤ホヤ噴火とは、幸屋降下軽石と言われる降下物を伴う噴火と、やや小規模火砕流を伴う噴火と、幸屋火砕流と言われる大規模火砕流を伴う巨大噴火の３回の噴火の総称です。特に最後の噴火の火砕流は薩摩半島と大隅半島と屋久島の宮之浦岳1936mの山頂までを覆い尽くして霧島市近くまで迫っており、噴煙は３万m以上に登り、降灰は東北地方南部まで及んでいるのですから上野原遺跡の地では相当な降灰が有ったと思われます。つまり上野原遺跡の地では真っ暗になった筈です。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　これこそ天岩戸神話での天照大御神が天岩戸に隠れる場面ではないでしょうか。例えば11世紀以降人類が経験した最大の噴火である1815年のインドネシア・スンバワ島にあるタンボラ山の噴火(注４)では、スマナプ島に居た英国人が「翌日の午後までろうそくを照らす必要があった」と手紙に書いているのです。</span></div>
<span size="2" style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1">　<br />
</span></span>
<div><span style="color: #000080; font-size: small;" data-mce-mark="1">注４：1815年のタンボラ山の噴火の火山爆発指数VEIは７、喜界赤ホヤ噴火もVEIは７ですが、喜界赤ホヤ噴火の方が大きいと考えられています。</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　</span><br />

<div><span style="font-size: 14px;" data-mce-mark="1">　スマナプ島が何処かは不明ですが、スマナプ島がスマラプラ島(バリ島)だとするとバリ島の主要都市とタンボラ山の距離は凡そ200km、それに対して喜界カルデラと上野原遺跡間の距離は凡そ114kmと、上野原遺跡の方が暗闇に包まれる時間も長い筈であり、上野原遺跡の縄文人が恐れおののいて、天岩戸神話のような色々なやり方で祈ったのではないでしょうか。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　１番目の仮説の難点である「噴火の降灰の最中に踊り祈る事など出来るであろうか」については、粒子の荒い降灰は早期に収束して、後はタンボラ山噴火時のスマナプ島のように粒子の細かい火山灰漂って日光を遮る状態が続いたのではないでしょうか。それなら踊ったり、祈りを捧げることが出来るかも知れません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　また天岩戸神話では岩戸から天照大御神が劇的に出て来ますが、これも上空に風が吹いて灰が飛んだことにより青空が現れたのではないでしょうか。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　それより２番目の仮説の難点の「上野原遺跡の地にいた縄文人は脱出出来るのであろうか」ですが、富士山の宝永の噴火の際、麓の須走村では3mの降灰が有ったが村人の死者の記録は無いので脱出出来たとしましたが、この点に関しては検討が必要です。</span></div>
<div><br />

<div><span style="font-size: 14px;" data-mce-mark="1">　それでも脱出出来なければ仮説は成り立たないので脱出出来たとします。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　脱出は相当困難を極めたに違いありません。ガラス質の火山灰は吸い込むと呼吸器疾患を引き起こし、又高空に舞い上がった火山灰は前線を刺激して豪雨をもたらし、豪雨は山中に降り注いだ火山灰を土石流となってあらゆる物を押し流すからです。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　九州東側は火山灰が厚く降り注いだ為、脱出ルートは多分九州の西側を通って九州北部にたどり着いたと考えられます。何故なら長崎県や福岡県では、喜界アカホヤ噴火の降灰が有ったにも関わらず、縄文早期から晩期まで生活が続いたと思われる痕跡がある遺跡が有るからです(図３参照）。</span><br />
　</div>
</div>
</div>
</div>
<div><img src="//kojoryoshu83.edoblog.net/File/iseki02.jpg" alt="" /><br />
<img src="//kojoryoshu83.edoblog.net/File/b1ba3bdb.jpeg" alt="" /><br />
<span style="font-size: small;" data-mce-mark="1">　　　図３、縄文早期と前期の遺跡の推移（<a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1669167496" title="">拡大</a>）。<br />
　　　　　　南九州と四国西武は縄文前期の期間、遺跡が発見されていない。</span><br />
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1">　</span><br />
</span></span>
<div><span size="2" style="font-size: 14px;" data-mce-mark="1">　そして九州北部の地で数千年、天孫族は大陸から戦乱を逃れてきたボートピープル、即ち長江人と邂逅を果たします。</span></div>
<div style="font-size: small;"><br />

<div><span style="font-size: 14px;" data-mce-mark="1">　長江文明は、4000年前頃の寒冷化による食料危機で蜂起した黄河流域の牧畜民の度重なる侵攻で滅亡したと考えられています。その為、長江人のY-DNAがO1b2a1aと考えられる人が日本、朝鮮半島、ベトナム、インドネシアに見られるのに、中国には雲南省の山岳地以外殆ど見つけられないのは、その地でホロコーストが有り、生き延びた長江人が四方に逃げた結果と考えられるからです(図４参照)。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
</div>
<div><img src="//kojoryoshu83.edoblog.net/File/267c4a2b.jpeg" alt="" /><br />
<span style="font-size: small;" data-mce-mark="1">　図４：アジアにおけるY-DNAの分布と長江人の脱出ルート（注５）。（<a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1669168628" title="">拡大</a>）。</span><br />
<span style="font-size: small; color: #000080;" data-mce-mark="1">注５：このY-DNA分布は現代のものですが、O1b2は中国周辺にいるが中国本土では山岳部に有るだけで殆どいません。そしてO1b2は世界で初めて水稲栽培を初めた長江人と考えられています。</span><br />
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1">　</span><br />
</span></span>
<div><span style="font-size: 14px;" data-mce-mark="1">　又長江人は水の民です。日本に稲作が伝わったのは、彼等は常に逃げられるように船に種籾も積んでいたからでしょう。と言っても黒潮分流の対馬海流に乗ったとしても対馬海流は最大で1.3kn、長江河口から長崎まで2週間ぐらいかかります。従ってこれについても検証が必要です。</span></div>
<div><span size="2" style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span size="2" data-mce-mark="1" style="font-size: 14px;">　世界で初めて稲作、それも水稲栽培を始めた長江文明。土器の作成も縄文土器と同じくらい古い長江文明。この長江文明と縄文文明が北九州の地で邂逅したのです。</span></div>
<div><span size="2" data-mce-mark="1" style="font-size: 14px;">　</span></div>
<div><span size="2" data-mce-mark="1" style="font-size: 14px;">　しかし実は縄文人も長江人も落ちこぼれなのです。縄文人が日本列島に入ってきたのは、ナウマン象等の動物を追ってですが、むしろ後から来る人間との動物争奪戦に敗れて、追われるように日本列島に入って来たのです。従って縄文人のY-DNAは大陸に痕跡すら有りません。そしてナウマン象を取り尽くし、やむなく漁労採取の定住生活に入ったのが縄文時代です。</span></div>
<div><span size="2" data-mce-mark="1" style="font-size: 14px;">　</span></div>
<div><span size="2" data-mce-mark="1" style="font-size: 14px;">　長江人も同様、大陸の動物争奪戦、即ち中原に鹿を逐う戦いに敗れて、やむなく長江辺りでの漁労採取の定住生活に入ったのです。しかし必要は発明の母、長江人は世界で初めて水稲栽培を発明します。<br />
　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　農耕の始まりが戦争と階級制度を生んだとのトンデモ説が流布されていますが違うと思います。長江人が牧畜民の侵攻により離散したように、中原に鹿を逐う言葉が示しているように、戦争文化は遊牧民の文化です。騎馬民族に至っては戦争が本業になりました。宦官・奴隷が遊牧民の発明だったように、階級制度も遊牧民が生んだ文化です。強い者が上に立たないと成り立たないのです。恐らく黄河文明は遊牧民が畑作民の上に乗る形で出来たのでしょう。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　それに対して定住は分業を生み出します。縄文時代に硬玉の翡翠を加工出来たのは、誰の指示を受けずに自由に仕事が出来たプロフェッショナルが居たからです。定住が長い縄文社会も長江社会もプロフェッショナル集団の共同体なのです。その結果、日本以外の国の人ではマネジメント志向の人が多いのに対して、プロフェッショナル志向の人が多いのが日本の特徴です。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　日本では強力なリーダが居なくても仕事が出来てしまう事が多々ありますが、それは縄文と長江の文明の性格を引き継いでいるからでしょう。大勢を纏める必要がある場合もありますが、そのとき必要なのは祭祀ぐらいです。正に天皇の役割ですね。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　そして九州北部の地で天皇の先祖が出会った長江人の一人が藤原氏の先祖の天児屋根命(アメノコヤネ)と思われます。藤原氏が常に天皇を補佐する形になったのは、天児屋根命が別の文明の知恵を持っていた為と思えば納得できます(注６)。</span><br />
　</div>
<div><span style="color: #000080;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1">注６：天児屋根命の子孫のY-DNAはO1b2a1a。藤原鎌足の墓ではないかと言われる阿武山古墳の遺体のY-DNAもO1b2a1aです。天孫族と藤原氏の結びつきはこの時からですが、7300年前に長江人が上野原遺跡の地に居たとは考えられないので、天児屋根命がチャッカリ天岩戸神話に登場するのは、古事記・日本書紀を編纂するときに、藤原氏が無理やり付け加えたものと思われます。</span><br />
　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　そして長江人から水稲稲作を教わった天孫族は、縄文晩期の寒冷化から一早く繁栄して他の部族を圧する程の勢力となります。瓊瓊杵尊(ニニギの尊)が天照大神から稲穂を持たされたのは、天孫族が他より早く稲作を行っていた証拠です。日本最古の菜畑遺跡等がそれを裏付けています。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　否、それ以前に天孫族は一大勢力だったでしょう。理由は信仰です。他の縄文人部族も自然崇拝の信仰のようなものを持っていたと考えられますが、間近に喜界アカホヤ噴火という強烈な体験をした天孫族の自然崇拝は、天孫族の団結を強固にして他を圧したとものと考えられます。従って天孫族の自然崇拝の中で一番重きが置かれているのが天照大御神であるのは、ただの偶然では無いでしょう。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　例えば天岩戸神話を日食に結びつける説が有りますが、日食による暗黒時間は最長で７分間です。古代支那等で日食を凶事と結びつける事例や、世界には日食だろうと思われる神話も有りますが、日食により太陽を最高神と崇める信仰が生まれた例はあるでしょうか。やはり喜界アカホヤの超巨大噴火と暗黒の世界の強烈な体験が天照信仰を産んだと思います(注７)。</span><br />
　</div>
<div><span style="color: #000080;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1">注７：平安時代(915年)に起きた十和田カルデラの大噴火では、火砕流(毛馬内火砕流)が日本海まで流れ下り、神話ではありませんが<strong>八郎太郎と南祖坊の戦い</strong>の伝説が生まれました。インパクトのある災害ではこのような物語が生まれるのです。これだって火山に興味が無い人間が聞いたら只の御伽話と思うでしょう。</span><br />
　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　只この仮説も３番目の難点の、5000年以上も記憶を継承出来るだろうかと思うと自信が有りません。例えば最古のヘブライ語の文字は紀元前1千年程。モーゼの出エジプト記が紀元前1600年頃だとすると、600年程度なら民族の記憶を継承出来そうですが、さて5000年は？と言われると、黙り込むしかありません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　次は邪馬台国と卑弥呼の問題です。天孫族が九州北部で居を構えていたとなると、魏志倭人伝を避けては通れません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　古事記・日本書紀の神代期の天岩戸神話までは天上の神樣同士の話のように見えますが、出雲の国譲りやニニギ尊の天孫降臨の話頃からは、何やら生くさい話になってきます。神が人間界に関与してくるのです。例えば国譲り神話です。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　出雲の国は荒神谷遺跡の発見等から弥生初期頃の存在が推定されており、その出雲の国を天照大御神は、国を譲って貰えと周りに指示しているのです。天孫降臨についても天照大御神はニニギ尊に稲穂を持たせたりと細かい指示を出したりと非常に人間くさいです。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　また稲作は縄文晩期か弥生初期から始まったものであり、天岩戸神話が7300年前の出来事とするこの仮説の立場としては、天岩戸神話の頃と天孫降臨の頃の天照大御神は別人格という事になります。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　従って魏志倭人伝頃に登場する天照大御神は想像上の神では無く人間ではでないでしょうか。天照大御神の代役がいたと考えられます。それに適任なのが卑弥呼です。卑弥呼は日巫女と読めます。日巫女は日神子とも書き、日神は天照大御神のことです。恐らく卑弥呼は天照大御神が憑依した巫女ではないでしょうか。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　魏使倭人伝では卑弥呼が女王となっていますが、「その国（邪馬台国）、本はまた男子を以って王と為す。住みて七、八十年、倭国は乱れ、相攻伐して年を歴る。すなはち、一女子を共に立て王と為す。名は卑弥呼といふ。鬼道に事へ、よく衆を惑はす。年、すでに長大にして、夫婿なし。男弟有りて国を治むるを佐く」と、<strong>一女子を共に立て王と為す</strong>と書いているので、別に男の王が居た筈であり、「鬼道に事へ、よく衆を惑はす」と有るのだから、日の神が王以上の権威を持っていたとするなら、日の神が憑依した卑弥呼が邪馬台国の王に指示していたと思われます。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　邪馬台国の国名ですが、邪馬台国は邪馬壱国の間違いである説の方が有力なようですが、後漢書には邪馬台国の記述があるようなので、敢えて邪馬台国とします。理由は邪馬台国はヤマト国の当て字か読み間違いとしたいからです。つまり、この度の仮説では南九州から北九州に逃れて来た天孫族が北九州でヤマト王朝を設立した事が前提になっているからです。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　また邪馬台国が貰っている筈の金印については、志賀島で発見された「漢委奴国王」の金印こそが邪馬台国が貰った金印でしょう。委の奴の国王と読むから可笑しな話になるのです。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　委奴国とは、狗奴国が犬野郎の国の意味と同様、小人野郎の国の意味です。従って委奴の読み方はワヌです。この点については韓国人の方が理解しています。彼等は日本を蔑むとき、日本の事を屡々委奴(ワヌ)と言います。周辺国を蛮族と思っている中国の歴代王朝が良い名称を与える訳がないのです。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　それでも北九州に金印を貰える程の倭国最大の国が存在し、それが邪馬台国、即ち後の日本であるヤマト国であることは間違いがないでしょう。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　この辺は論争の種になるので避けたい処ですが、日本書紀にも「神武東征が日向を発ち」と書いてあるので、ヤマト王朝が九州に有った説を譲る訳には行きません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　でも「邪馬台国も卑弥呼も古事記・日本書紀に記載が無いではないか」の意見もありますが、これ等はヤマト朝廷にとっては黒歴史、倭国の名や朝貢をしていた事を恥じるようなヤマト朝廷が載せる訳が有りません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　卑弥呼についても「鬼道に事へ、よく衆を惑はす」と書かれている処を見ると、当時から問題視する倭人が居たのでしょう。当然正史である日本書紀に書ける訳がありません。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　但し天照大御神が憑依してニニギ尊を天孫降臨させた南九州の地等については、ニニギの尊が「此処は俺達の神聖な土地だ」と言っても丸く収まった訳では無く、エルサレムを巡る紛争と同様、紛争地帯となり、ヤマト朝廷が武力で解決するはめになりました。</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">　これら黒歴史は有ったとしても、日本は先住民の王朝が築いた継続する世界最古の国であり、世界的規模の噴火を元にした神話と、それに伴う7000年前に生まれた世界最古の宗教を頂く国であり、これまた世界最古の縄文文明と長江文明が合体し、その文明を継承している国であると言えるでしょう。</span><br />
　</div>
</div>
</div>
<div><a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1694334995" title="">神話と赤ホヤ噴火 pdfファイル</a><a href="https://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1694237562" title=""><br />
<br />
</a>2023/09/09改編</div>
</div>]]>
    </description>
    <category>文化・歴史</category>
    <link>http://kojoryoshu83.edoblog.net/%E6%96%87%E5%8C%96%E3%83%BB%E6%AD%B4%E5%8F%B2/%E6%97%A5%E6%9C%AC%E7%A5%9E%E8%A9%B1%E3%81%A8%E8%B5%A4%E3%83%9B%E3%83%A4%E5%99%B4%E7%81%AB</link>
    <pubDate>Wed, 23 Nov 2022 02:51:04 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/329</guid>
  </item>
    <item>
    <title>地震波形表示プログラム２</title>
    <description>
    <![CDATA[<div><span style="font-size: small;" data-mce-mark="1">　前回の<strong style="margin: 0px; padding: 0px; border: 0px; outline: 0px; background-image: initial; background-position: initial; background-size: initial; background-repeat: initial; background-attachment: initial; background-origin: initial; background-clip: initial; line-height: 1.75; color: #333333;">W32BPFtoPS</strong>プログラムに続いて、今回は<strong>W32IIRtoPS</strong>プログラムの説明をする。<br />
<br />
　<strong>W32IIRtoPS</strong>プログラムはwin32データの中の選択されたチャネルにIIRフィルタを掛けてポストスクリプト・ファイル描画するプログラムである。フイルタの内容はテキストファイルで記述する(注3)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　<br />
　詳しくは、　<a href="http://blog.cnobi.jp/v1/blog/user/24157b60bd38d158da4d598e5b2336c1/1646190958" title=""><strong>W32IIRtoPS</strong>プログラムのCソース</a>　参照のこと。<br />
　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><strong>機能：</strong></span></div>
<div><span style="font-size: small;" data-mce-mark="1">・IIRフィルタは、チャンル毎に１～２次を最大16段まで可能。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">・フィルタとwinチャンネルの指定は、テキストファイルで指定</span></div>
<div><span style="font-size: small;" data-mce-mark="1">・適当なダンピング定数のフィルタを段重ねすることにより、任意のフィルタを指定することが出来る。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><strong>書式：</strong></span></div>
<div><span style="font-size: small;" data-mce-mark="1">W32IIRtoPS ch w32 ps IIR [t1]［tw] [s]</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　ch 　：チャネルテーブル</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　w32　：win32データファイル</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　ps 　：作成されるポストスクリプト・ファイル</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　IIR　：IIRフィルタ設定ファイル、０の場合は設定ファイル無し</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　t1 　：記録開始時間［秒］</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　tw 　：記録時間幅［秒］</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　s&nbsp; 　：Sの場合作業ファイルを削除しない</span></div>
<div></div>
<div><span style="font-size: small;" data-mce-mark="1">"W32IIRtoPS"　のみの場合は、上記help　が表示される。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">"W32IIRtoPS ？"　とした場合は、各種フィルタの例が表示される。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">"W32IIRtoPS ch ？"　とした場合は、tmp.fltの名のバンドパスフイルタのテキストファイルが作成されるので、このテキストファイルに必要な事項を記入して使用することが出来る。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"><strong>フィルタのテキストファイル書式</strong></span>：(チャンネル毎)</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　1行目：chID0,chID1,[g],[a],[t]</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　chID0　=　チャンネルID（４バイトHEX)</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　chID0　=　変更するチャンネルID（４バイトHEX)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　このプログラムでは元のwinチャンネルIDのみ。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　g&nbsp; &nbsp; 　=　ゲインを意味する(波形をg倍する）。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　小数点指定。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　通常は1.0（&times;1倍)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　マイナスを記入した場合は、波形を反転する。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　このプログラムでは１.0の方が良い。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　a　　 =　オフセット値の取り方を指定。（A、T、S の何れかを指定）</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　A と指定した場合は全サンプルの平均値をとる（tは不要）。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　T と指定した場合は、先頭からt カウントの平均値を取る。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　s と指定した場合は、設定した値(tカウント値)を零レベルとする。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　 2行目以降：filt,n,fc,h　(指定チャンネルに付、32段(行)記入可能)</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　filt　 =　フィルタ選択（HPF、LPF、DIF、INT、BEF、IIRの内どれか)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　HPF　は、ハイパスフィルタ。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　LPF 　は、ローパスフィルタ。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　DIF&nbsp; 　は、微分。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　INT&nbsp; 　は、積分。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　BEF　は、バンドストップフィルタ。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　IIR&nbsp; &nbsp;　は、IIR定数を個別に指定(注１)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　n 　 =　次数（2、1、0、-2の内どれか)。0はフィルタなし、</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　DIV、INTの次数は1次のみ可能。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　-2 は、2次のHPFの逆フィルタを掛ける場合に使用(補足説明の2次式参照)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　fc = カットオブ周波数（Hz)、注１。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　INI、DIFを指定した場合は、ダミーとして適当な値を記入。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　h =　ダンピング定数値(注２)。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　INI、DIFを指定した場合は、ダミーとして適当な値を記入。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">注１)、IIRを指定したときは、nより後の書式が異なる。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　補足説明にあるABCDE順に値を記入。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">注２)、n次のバタワース特性の定数は、<strong>Butter</strong>コマンドで得ることが出来る。<br />
　　　　</span><strong style="font-size: small;">Butter</strong><span style="font-size: small;" data-mce-mark="1">コマンドについては一番下にCソースを掲載した。</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー</span><br />
</span><span data-mce-mark="1"><strong><span data-mce-mark="1">使用例</span>：</strong></span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"></span><span style="font-size: 14px;" data-mce-mark="1">１，つくば広帯域速度計のフィルタ無しの波形図を作成</span><br />
<span style="font-size: 14px;" data-mce-mark="1">　<span style="font-size: xx-small;" data-mce-mark="1">$&nbsp; W32IIRtoPS TSKFch.tbl&nbsp; 01220108Bm12.w32 TSKFnon.ps 0 140 300</span></span></span><br />
</span><span style="font-size: 14px;" data-mce-mark="1"><br />
</span>
<div><span style="font-size: 14px;" data-mce-mark="1">２，つくば短周期速度計のフィルタ無しの波形図を作成<br />
&nbsp;　<span style="font-size: xx-small;" data-mce-mark="1">$ W32IIRtoPS TSKHch.tbl&nbsp; 01220108VM12.w32 TSKHnon.ps 0 140 300</span></span></div>
<div><span style="font-size: 14px;" data-mce-mark="1">&nbsp;</span></div>
<span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">３，つくば広帯域速度計の1HzHPFの波形図を作成（&nbsp;短周期速度計化）<br />
&nbsp;　<span style="font-size: xx-small;" data-mce-mark="1">$ W32IIRtoPS TSKFch.tbl&nbsp; 01220108Bm12.w32&nbsp;TSKFiHzHPF.ps&nbsp;</span></span><span style="font-size: xx-small;" data-mce-mark="1"><span data-mce-mark="1">TSKFiHzHPF.flt</span><span data-mce-mark="1">&nbsp;140 300</span></span></span><br />
<span style="font-size: 14px;" data-mce-mark="1">　</span><span style="font-size: 14px;" data-mce-mark="1"><br />
４，つくば短周期速度計の1Hz<span style="font-size: 14px;" data-mce-mark="1">HPFの逆フィルタ</span><span style="font-size: 14px;" data-mce-mark="1">の波形図を作成（&nbsp;広帯域速度計化）<br />
</span><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">　<span style="font-size: xx-small;" data-mce-mark="1">$ <span data-mce-mark="1">W32IIRtoPS TSKHch.tbl&nbsp; 01220108VM12.w32 TSKHwide.ps&nbsp;</span></span></span><span style="font-size: xx-small;" data-mce-mark="1">TSKHwide.filt&nbsp;</span></span><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: xx-small;" data-mce-mark="1">140 300</span><br />
</span><span style="font-size: 14px;" data-mce-mark="1"><br />
<br />
左が<span style="font-size: 14px;" data-mce-mark="1">TSKFiHzHPF.flt</span><span style="font-size: 14px;" data-mce-mark="1">&nbsp;ファイルの中身で、右が</span>TSKHwide.filtファイルの中身<br />
　　<img src="//kojoryoshu83.edoblog.net/File/TSKF_TSKH_filt.jpg" alt="" /></span></span></span></span>
<div><span style="font-size: 14px;"><br />
</span><span style="font-size: 14px;"><strong><span style="font-size: 14px;">結果：</span></strong></span><span style="font-size: 14px;"><br />
　&nbsp;短周期速度計化した広帯域速度計（上)と短周期速度計生波形(下)<br />
<img src="//kojoryoshu83.edoblog.net/File/0bc5fdc5.jpeg" alt="" /> <br />
　 広帯域速度計生波形（上)と広帯域速度計化した短周期速度計波形(下)<br />
<img src="//kojoryoshu83.edoblog.net/File/TSKF-TSKHwid.jpg" alt="" /> <br />
<br />
<span style="font-size: 14px;">　短周期化した広帯域速度計(TSKF)と短周期速度計(TSKH)生波形、広帯域速度計生波形と広帯域化した短周期の波形は似ているようであるが多少違う。TSKH200mの地下埋設でTSKFは横孔と設置場所に違うがあるので当然とも言えるが、正否の判断はよく吟味する必要があるだろう。<br />
<br />
<span style="font-size: small;">でもこれはあくまで、</span></span></span><span style="font-size: small;"><strong style="font-size: small;">W32IIRtoPS</strong>は、こようなことも出来るとのデモンステトレーションである。</span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">&nbsp;</span></span></div>
<span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1"><span style="font-size: 14px;" data-mce-mark="1">ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー</span></span></span></div>
<div><span style="font-size: 14px;" data-mce-mark="1"><strong>補足説明：</strong></span></div>
<div><span style="font-size: small;" data-mce-mark="1">　W32IIRtoPSは、指定されたフィルタ定数を下記の式に当てはめて実行する。H(s)はラプラス変換による伝達関数式、H(z)はZ変換による伝達関数式である。つまり上のラプラス変換の式は下のZ変換の式と粗等しいものとしてZ変換されて実行される。従って、完全に等価でないことを注意する必要がある。</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　２次式：</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　&nbsp; &nbsp;C･s^2 + D･s + E</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　 H(s) = --------------------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　&nbsp; s^2 + A･s + B</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　 a =2/T , G = 1/(a^2 + A*a + B),&nbsp; b=C*a^2</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　(b + D･a + E) + 2･(E - b)･z^-1 + (b - D･a + E)･z^-2</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　 H(z) =G ＊ -----------------------------------------------------------------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　1 + 2･G･(B - a^2)･z^-1 + G･(a^2 - A･a + B)･z^-2</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　a2･z^-2 + a1･z^-1 + a0</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　 H(z) =G * -------------------------------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　b2･z^-2 + b1･z^-1 + b0</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　１次式：</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　 　Bs + C</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　H(s) = -----------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　s + A</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　1　　　 (B*a + C)+(C - B*a)*z^-1</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　H(z) = ---------- ＊------------------------------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　A + a　 　　　A - a</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　　　 　1 + -------------* z^-1</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　　　　 　 　A + a5</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　　a0 + a1*z^-1</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　H(z) = G * -----------------------</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　　　　　　　　　　b0 + b1*z^-1</span></div>
<div><span style="font-size: small;" data-mce-mark="1">　</span></div>
<div><span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"><span size="2" style="font-size: small;" data-mce-mark="1">　　　　 a = 2/T</span><br />
<span size="2" style="font-size: small;" data-mce-mark="1">ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー<br />
</span><strong><span style="font-size: 14px;" data-mce-mark="1">Butter　</span><span style="font-size: 14px;" data-mce-mark="1">コマンドのソース</span><span style="font-size: 14px;" data-mce-mark="1">：</span></strong><br />
</span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">/********************************************************************************/</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">// &lt; Butter.c &gt; バタワース・フィルタの次数に対するダンピング定数値を出力</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">#include&nbsp; &nbsp; &lt;stdio.h&gt;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">#include&nbsp; &nbsp; &lt;string.h&gt;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">#include&nbsp; &nbsp; &lt;stdlib.h&gt;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">#include&nbsp; &nbsp; &lt;math.h&gt;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">#define PI&nbsp; &nbsp;3.14159265358979323846264338327950288419716939937510</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">int main(int argc, char *argv[])</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">{</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp;n0,i,j;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; double&nbsp; a,k,n;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; if(argc==1){</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; printf("Butter n\n");</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; printf(" n : 2.. oder\n");</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; printf("ver.1.2: 2016/05/19\n");</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; exit(0);</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; }</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; n0=atoi(argv[1]);&nbsp;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; if(n&lt;=0){ printf("bad oder %d\n",n0); exit(0);}</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; n=(double)n0;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; if(n0-(n0/2*2)==0){</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; for(i=1; i&lt;=n0/2; i++){</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; k=(double)i;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a=-1.0*cos((2.0*k+n-1.0)*PI/(2.0*n));</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; printf("%2d : 2: %40.38G\n",i,a);</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; }else{</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; printf("%2d :1: \n",1);</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; for(i=1; i&lt;=n0/2; i++){</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; k=(double)i;</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; a=-1.0*cos((2.0*k+n-1.0)*PI/(2.0*n));</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; printf("%2d :2: %40.38G\n",i+1,a);</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; }</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">&nbsp; &nbsp; exit(0);</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div><span size="2" style="font-size: small;" data-mce-mark="1">}</span></div>
<span style="font-size: small;" data-mce-mark="1"><span style="font-size: small;" data-mce-mark="1"></span></span>
<div style="font-size: small;"></div>
</div>
<div></div>]]>
    </description>
    <category>科学技術</category>
    <link>http://kojoryoshu83.edoblog.net/%E7%A7%91%E5%AD%A6%E6%8A%80%E8%A1%93/%E5%9C%B0%E9%9C%87%E6%B3%A2%E5%BD%A2%E8%A1%A8%E7%A4%BA%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%EF%BC%92</link>
    <pubDate>Wed, 02 Mar 2022 03:17:54 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/328</guid>
  </item>
    <item>
    <title>地震波形表示プログラム１</title>
    <description>
    <![CDATA[<div><strong>初めに</strong>。</div>
<div><span style="font-size: small;"><span style="font-size: 14px;">地震波形表示プログラムを作成したのでソースを掲載する。</span><br />
動作環境はgccが使えることと、<strong>GMT</strong>(注１)と防災科学技術研究所（以下防災科研とする）の<strong>WIN32</strong>（注2)ツールが使えてパスが通っていることである。従ってlinuxならターミナル（DOS窓）からコマンドを入力しなければならない。</span></div>
<div><span style="font-size: small;">Windowsの場合は<strong>cygwin</strong>をインストールしておく必要がある。</span></div>
<div>　</div>
<div><span style="font-size: small;"><span style="color: #333399;"><strong>注１</strong>、</span>GMTとは地図を描くためのオープンソースのソフトである。地図だけなくグラフも描けるので地震波形表示プログラムで使用した。波形表示出力はポストスクリプクト・ファイルなのでポストスクリプト・ファイルを表示出来るプログラム（winidowsの場合は、 GhostScript +GSViewGSView　等）も必要である。使用したGMTのバージョンは4.5.18であるが、他のバージョンで動くか不明である。<br />
　</span></div>
<div><span style="font-size: small;">GMT 4.5.18のダウンロード先は、</span></div>
<div><span style="font-size: xx-small;"><a href="https://github.com/GenericMappingTools/gmt/wiki/GMT-4.5.18" title="" target="_blank">https://github.com/GenericMappingTools/gmt/wiki/GMT-4.5.18</a></span></div>
<div><span style="font-size: small;">日本語マニュアルは、</span></div>
<div><span style="font-size: xx-small;"><a href="http://www.ofgs.aori.u-tokyo.ac.jp/~okino/gmtscripts/GMT_Tutorial_KO_2017+_jp.pdf" title="" target="_blank">http://www.ofgs.aori.u-tokyo.ac.jp/~okino/gmtscripts/GMT_Tutorial_KO_2017+_jp.pdf</a></span></div>
<div><span style="font-size: xx-small;"><a href="http://www2.kobe-u.ac.jp/~kakehi/GMT/watanabe/watanabe_gmt.pdf" title="" target="_blank">http://www2.kobe-u.ac.jp/~kakehi/GMT/watanabe/watanabe_gmt.pdf</a></span></div>
<div><span style="font-size: xx-small;"><a href="https://staff.aist.go.jp/h.horikawa/GMT/GMT4.4guide/yoiyoi4.4.html" title="" target="_blank">https://staff.aist.go.jp/h.horikawa/GMT/GMT4.4guide/yoiyoi4.4.html</a></span></div>
<div><span style="font-size: small;">等がある。</span></div>
<div></div>
<div><span style="font-size: small;"><span style="color: #333399;"><strong>注２</strong>，</span>WIN32ツールは防災科研が公開している地震波形データを取り扱うための処理プログラムである。</span></div>
<div><span style="font-size: small;">入手先は <strong>&darr;</strong> にあるが、ダウンロードするにはユーザー登録をしておかなければならない（波形データのダウンロードも同じく）。</span></div>
<div><span style="font-size: xx-small;"><a href="https://hinetwww11.bosai.go.jp/auth/?LANG=ja" title="" target="_blank">https://hinetwww11.bosai.go.jp/auth/?LANG=ja</a></span></div>
<div><span style="font-size: small;">WIN32ツールは適当な場所（例えば\cygwin\usr\local\w32　とか）にダウンロードして解凍したら、そこのディレクトリのターミナル窓で</span></div>
<div><span style="font-size: small;">------------------------------</span></div>
<div><span style="font-size: small;">$ make</span></div>
<div><span style="font-size: small;">------------------------------</span></div>
<div><span style="font-size: small;">と入力すれば使えるようになる筈である。</span></div>
<div><span style="font-size: small;">ついでに東大の<strong>winシスーテム</strong>・ツールもインストールした方が良いだろう。ダウンロード先は、<br />
&darr; を参照。</span></div>
<div><span style="font-size: xx-small;"><a href="https://wwweic.eri.u-tokyo.ac.jp/WIN/" title="" target="_blank">https://wwweic.eri.u-tokyo.ac.jp/WIN/</a></span></div>
<div>　</div>
<div><span style="font-size: small;"><span style="font-size: 14px;"><strong>地震波形表示プログラムの説明</strong></span>：</span></div>
<div><span style="font-size: small;">今回作成した地震波形表示プログラムは、<strong>W32BPFtoPS.c</strong> と <strong>W32IIRtoPS.c</strong> の2つである。</span></div>
<div><span style="font-size: small;">どちらも<strong>C</strong>で書かれており、実効ファイルにするには、<strong>gcc</strong>でコンパイルする必要がある。</span></div>
<div><span style="font-size: small;">例えば</span></div>
<div><span style="font-size: small;">-----------------------------------------------------------</span></div>
<div><span style="font-size: small;">$ gcc -o W32BPFtoPS W32BPFtoPS.c -lm</span></div>
<div></div>
<div><span style="font-size: small;">$ gcc -o W32IIRtoPS W32IIRtoPS.c -lm</span></div>
<div><span style="font-size: small;">------------------------------------------------------------</span></div>
<div></div>
<div><span style="font-size: small;">これらのプログラムはCで書かれているが、動けば良いとの考え方で作ったので、余計な部分も有りあまり教育的ではないが、別プログラムを作成するときには参考にはなるだろう。</span></div>
<div>　</div>
<div><span style="font-size: 14px;"><strong>W32BPFtoPSについて</strong>：</span></div>
<div><span style="font-size: small;">W32BPFtoPS　は、防災科研からダウンロードしたwin32のデータファイル(****.cntの名称になっている)から、指定したID(４バイトのHEX）の波形データを抜き出してバンドパス・フィルタを掛けてポストスクリプト・ファイルに波形を描く。</span></div>
<div><span style="font-size: small;">コマンドの入力の仕方は、まず、W32BPFtoPS　と入力すると、ヘルプ機能として以下の画面が出てくる。<br />
　</span></div>
<div><span style="font-size: small;">W32BPFtoPS tbl w32 ps fl fh [t1] [tw] [s]</span></div>
<div><span style="font-size: small;">　 tbl : chanel tbl file(in)</span></div>
<div><span style="font-size: small;">&nbsp;　w32 : win32 file&nbsp; &nbsp; &nbsp;(in)</span></div>
<div><span style="font-size: small;">&nbsp;　ps&nbsp; : ps file&nbsp; &nbsp; &nbsp; &nbsp;(out)</span></div>
<div><span style="font-size: small;">&nbsp;　fl&nbsp; &nbsp; : hi&nbsp; pass filter file[Hz]: fl=0 fh=0 then no filter</span></div>
<span style="font-size: small;">&nbsp;　fh&nbsp; &nbsp;: low pass filter file[Hz]: fl=x fh=y then Banded pass filter</span>
<div><span style="font-size: small;">　 t1&nbsp; : first time for display[sec]</span></div>
<div><span style="font-size: small;">&nbsp;　tw&nbsp; : time width for display[sec]</span></div>
<div><span style="font-size: small;">&nbsp;　s&nbsp; &nbsp;: if S then do not erase the work file</span></div>
<div>　</div>
<div><span style="font-size: small;">引数の意味：</span></div>
<div><span style="font-size: small;">tbl　は目的のIDが記述されたチャネル・テーブル・ファイル名で、防災科研から波形データをダウンロードした時、"01_**_******.sjis.ch"と"01_**_******.euc.ch"の２つのファイルが添付されてくるが、これが全地点のチャネル・テーブル・ファイルで、そこから目的のIDが記述された箇所を新たなテキストファイルにコピーして(注3）、適当なファイル名にしたものである。</span></div>
<div></div>
<div><span style="font-size: small;">W32　はwin32の波形データファイルの名。</span></div>
<div></div>
<div><span style="font-size: small;">ps 　は作成するポストスクリプト・ファイルの名。</span></div>
<div></div>
<div><span style="font-size: small;">fl 　 はバンドパス・フィルタのローカット周波数[Hz]。</span></div>
<div><span style="font-size: small;">fh 　はバンドパス・フィルタのハイカット周波数[Hz]。</span></div>
<div><span style="font-size: small;">&nbsp; &nbsp;　　fl　と　fh　を0にした場合、バンドパス・フィルタ無しの生波形描画となる。</span></div>
<div><span style="font-size: small;">t1 　波形データファイルの先頭時刻のt1秒後から波形を描画する。(省略した場合は先頭から)</span></div>
<div><span style="font-size: small;"><span style="font-size: small;">tw 　tw が指定された場合は、t1からtw秒間の波形を描画する。(省略した場合は最後まで)<br />
</span>ｓ　</span><span style="font-size: small;">W32BPFtoPSは使用したテンポラリ・ファイルを削除して終了するが、</span><span style="font-size: small;">Sと記入した場合は<br />
　　</span><span style="font-size: small;">テンポラリ・ファイルを削除しない。<br />
　　そこで "XXX.sh.eu" ファイルを編集して、sh&nbsp;</span><span style="font-size: small;">XXX.sh.eu　と入力すれば、編集した<br />
　　とおりのポストスクリプトファイルが出来る。</span></div>
<div><span style="font-size: small;"><span style="font-size: small;">　</span><br />
<span style="font-size: small;">注３，チャネル・テーブルの内容の例（</span></span><span style="font-size: small;">北川地点と日向地点）</span><span style="font-size: small;">は以下のようになっている。</span></div>
<div>-------------------------------------------------------------------------------------------------------<br />

<div><span style="font-size: xx-small;"># n.kigh Kitagawa myzh02</span></div>
<div><span style="font-size: xx-small;">6c83&nbsp; 1&nbsp; 0&nbsp; N.KIGH&nbsp; U&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;170.80&nbsp; m/s&nbsp; &nbsp; &nbsp;1.00&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.6972 131.6829&nbsp; -192&nbsp; 0&nbsp; 0&nbsp; Kitagawa</span></div>
<div><span style="font-size: xx-small;">6c84&nbsp; 1&nbsp; 0&nbsp; N.KIGH&nbsp; N&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;170.80&nbsp; m/s&nbsp; &nbsp; &nbsp;1.00&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.6972 131.6829&nbsp; -192&nbsp; 0&nbsp; 0&nbsp; Kitagawa</span></div>
<div><span style="font-size: xx-small;">6c85&nbsp; 1&nbsp; 0&nbsp; N.KIGH&nbsp; E&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;169.00&nbsp; m/s&nbsp; &nbsp; &nbsp;0.99&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.6972 131.6829&nbsp; -192&nbsp; 0&nbsp; 0&nbsp; Kitagawa</span></div>
<div><span style="font-size: xx-small;"># n.hygh Hyuga myzh15</span></div>
<div><span style="font-size: xx-small;">6e43&nbsp; 1&nbsp; 0&nbsp; N.HYGH&nbsp; U&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;171.20&nbsp; m/s&nbsp; &nbsp; &nbsp;1.02&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.3654 131.5893&nbsp; &nbsp;-28&nbsp; 0&nbsp; 0&nbsp; Hyuga</span></div>
<div><span style="font-size: xx-small;">6e44&nbsp; 1&nbsp; 0&nbsp; N.HYGH&nbsp; N&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;167.00&nbsp; m/s&nbsp; &nbsp; &nbsp;1.02&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.3654 131.5893&nbsp; &nbsp;-28&nbsp; 0&nbsp; 0&nbsp; Hyuga</span></div>
<div><span style="font-size: xx-small;">6e45&nbsp; 1&nbsp; 0&nbsp; N.HYGH&nbsp; E&nbsp; &nbsp; &nbsp;6&nbsp; &nbsp;27&nbsp; &nbsp;177.00&nbsp; m/s&nbsp; &nbsp; &nbsp;1.00&nbsp; 0.70&nbsp; 0&nbsp; 1.023e-07&nbsp; 32.3654 131.5893&nbsp; &nbsp;-28&nbsp; 0&nbsp; 0&nbsp; Hyuga</span></div>
<div style="font-size: small;">------------------------------------------------------------------------------------------------------------------</div>
　　</div>
<div><span style="font-size: small;">例１，</span></div>
<div><span style="font-size: small;">---------------------------------------------------------------------------------------------------------------</span></div>
<div><span style="font-size: small;">$ W32BPFtoPS KIG_HYGch.tbl 202201220108m15.w32 KIG_HYG.ps 0 0 40 60</span></div>
<div><span style="font-size: small;">----------------------------------------------------------------------------------------------------------------</span></div>
<div><span style="font-size: small;">意味、202201220108m15.w32の名称のwin32ファイルから、宮崎2地点が記述されたチャネルテーブルのチャネルのデータを抜き出し。先頭40秒から60秒間の生波形をKIG_HYG.psに描画する。<br />
　</span></div>
<div><span style="font-size: small;">注、***.cntファイルは１分ファイルなので、202201220108m15.w32は15個の***.cntファイルを結合したものである。結合するには"<strong>catwin_32</strong>"か"CatCnts2w32&rdquo;コマンドを使用する必要がある。<strong>CatCnts2w32</strong>コマンドについては別に説明する。<br />
　</span></div>
<div>結果、<br />
<img src="//kojoryoshu83.edoblog.net/File/KYG_HYG2.jpg" alt="" /></div>
<div><span style="font-size: small;">例２，</span></div>
<div><span style="font-size: small;">--------------------------------------------------------------------------------------------------------------------</span></div>
<div><span style="font-size: small;">$ W32BPFtoPS KIG_HYGch.tbl 202201220108m15.w32 KIG_HYG2.ps 0.01 1.0 40 60</span></div>
<div><span style="font-size: small;">---------------------------------------------------------------------------------------------------------------------</span></div>
<div><span style="font-size: small;">上記と同様にから先頭40秒から60秒間の波形に0.01〜1.0Hzのバンドパスフィルタを掛けKIG_HYG2.psに描画する。<br />
　</span></div>
<div><span style="font-size: small;">結果、</span></div>
<div><img src="//kojoryoshu83.edoblog.net/File/341ef6cf.jpeg" alt="" /></div>
<br />
<strong>W32BPFtoPS.c Cソース</strong><br />
<a href="//kojoryoshu83.edoblog.net/File/W32BPFtoPS.c" target="_blank" title="">ダウンロード<br />
</a><br />
<br />
<strong><span style="font-size: 14px;">CatCnts2w32</span></strong><span style="font-size: small;"><strong><span style="font-size: 14px;">コマンドについて:</span></strong><br />
</span><span style="font-size: small;">CatCnts2w32コマンドは複数のwin32ファイルを繋げて一つのwin32ファイルにするものであるこれもソースファイルを以下に示すので、テキストファイルにコピーしてgccでコンパイルし、使えるようにしたら良い。<br />
</span>　<br />
<span style="font-size: small;">使用例：<br />
</span>-------------------------------------------------------------------<br />
$&nbsp;<span style="font-size: small;">CatCnts2w32&nbsp;</span><span size="2" style="font-size: small;">2022012201080103BM.cnt 6&nbsp;&nbsp;</span><span style="font-size: small;">202201220108m6.w32</span><br />
-------------------------------------------------------------------<br />
<span style="font-size: small;">意味、2022012201080103BM.cnに続く６つのcntファイルを繋げた</span><span style="font-size: small;">202201220108m6.w32のファイルを作成する。</span><span style="font-size: small;"><br />
　<br />
<br />
</span><strong><span style="font-size: small;">CatCnts2w32のCソース：</span></strong><br />

<div><span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">/*********************************************************************/</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//&nbsp; &lt;&lt; CatCnts2w32.c &gt;&gt; : 複数のcntファイル1を一つのw32ファイルにする</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">/*********************************************************************/</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">#include&nbsp; &nbsp; &lt;stdio.h&gt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">#include&nbsp; &nbsp; &lt;time.h&gt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">#include&nbsp; &nbsp; &lt;math.h&gt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">#include&nbsp; &nbsp; &lt;string.h&gt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">#include&nbsp; &nbsp; &lt;stdlib.h&gt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">int&nbsp; &nbsp; &nbsp;AtoToI(char *dec, int byt);&nbsp; &nbsp; &nbsp;//&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">time_t&nbsp; IncDayTim(char *dDayTim, char *sDayTim);&nbsp; &nbsp; //&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">int&nbsp; &nbsp; &nbsp;SplitLin(int max_n,char *bf,char *argv[]);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">long&nbsp; &nbsp; XtoL(char *dt);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">void&nbsp; &nbsp; CharCpy(char *dbf, char *sbf, int n);&nbsp; &nbsp;// ｷｬﾗｸﾀ ｺﾋﾟ-</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">/*********************************************************************/</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">int main(int argc ,char *argv[])</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; FILE&nbsp; &nbsp; *fp0,*fp2;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; char&nbsp; &nbsp; cntFnm[360][32],winFnm[64],daytim[16];</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; char&nbsp; &nbsp; bf0[256],bf1[256];</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp;i,mint;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if((argc&lt;3)||(0==strcmp("--h",argv[1]))){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("CatCnts2w32 cnt_file minute [win32_file]\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("&nbsp; cnt_file : first win32file (*****.cnt)\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("&nbsp; minute&nbsp; &nbsp;: 1..60 (default: minute=1)\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("&nbsp; win32_file: win32 file name\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("&nbsp; .. 2008/10/14 ..\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; exit(0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if(0==(mint=atoi(argv[2]))){ printf("syntax error\n"); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; for(i=0;i&lt;mint;i++){&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // get 先頭 cnt ﾌｧｲﾙ名</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; strncpy(cntFnm[i],argv[1],31); cntFnm[i][31]=16;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if(argc&gt;=4){&nbsp; &nbsp; strcpy(winFnm,argv[3]); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; else{&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strcpy(winFnm,argv[1]); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; CharCpy(daytim,cntFnm[0],12); daytim[12]=0;&nbsp; &nbsp; &nbsp;// get 先頭時刻</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; for(i=1;i&lt;mint;i++){&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // 次の1分時刻</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; IncDayTim(daytim, daytim);&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // set 次のcnt ﾌｧｲﾙ名</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; CharCpy(cntFnm[i],daytim,12);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sprintf(bf0,"cp %s tmp0_w32.tmp\n",cntFnm[0]);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if(0==(fp0=popen(bf0,"r"))){&nbsp; &nbsp; printf("error : %s\n",bf0); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; do{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==fgets(bf1,255,fp0)){&nbsp; break; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==strncmp("***** ERR",bf1,9)){ printf("error %s\n",bf1); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }while(1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; pclose(fp0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; for(i=1; i&lt;mint; i++){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; // -- cat_win32</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; sprintf(bf0,"catwin32 tmp0_w32.tmp %s &gt; tmp1_w32.tmp\n",cntFnm[i]);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; printf("%s",bf0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==(fp0=popen(bf0,"r"))){&nbsp; &nbsp; printf("error : %s\n",bf0); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; do{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(0==fgets(bf1,255,fp0)){&nbsp; break; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(0==strncmp("***** ERR",bf1,9)){ printf("error %s\n",bf1); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; }while(1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; pclose(fp0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; sprintf(bf0,"cp tmp1_w32.tmp tmp0_w32.tmp\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==(fp0=popen(bf0,"r"))){&nbsp; &nbsp; printf("error : %s\n",bf0); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; do{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(0==fgets(bf1,255,fp0)){&nbsp; break; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(0==strncmp("***** ERR",bf1,9)){ printf("error %s\n",bf1); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; }while(1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; pclose(fp0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sprintf(bf0,"cp tmp1_w32.tmp %s\n",winFnm);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if(0==(fp0=popen(bf0,"r"))){&nbsp; &nbsp; printf("error : %s\n",bf0); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; do{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==fgets(bf1,255,fp0)){&nbsp; break; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(0==strncmp("***** ERR",bf1,9)){ printf("error %s\n",bf1); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }while(1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; pclose(fp0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; if(0==(fp0=popen("rm *.tmp\n","r"))){ printf("error : rm tmp1.w32\n"); exit(0); }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; do{&nbsp; &nbsp; &nbsp;if(0==fgets(bf1,255,fp0)) break;&nbsp; &nbsp; }while(1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; pclose(fp0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; printf("seiko\n");</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; exit(0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//=====================================================================</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">int AtoToI(char *dec, int byt)&nbsp; &nbsp; &nbsp; //&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; char bf[6];</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int d;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; strncpy(bf,dec,byt); *(bf+byt)=0;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; d=atol(bf);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; return(d);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//=====================================================================</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">// yyyymmddhhmm+1&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">time_t IncDayTim(char *dTim, char *sTim)</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; time_t&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; st,dt;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; struct tm&nbsp; &nbsp; &nbsp; &nbsp;sT,*dT;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ye,mo,dy,ho,mi,cy;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_isdst = -1;&nbsp; &nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_sec = 0;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_min = (*(sTim+10) &amp; 0x0F)*10+(*(sTim+11) &amp; 0x0F);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_hour= (*(sTim+8)&nbsp; &amp; 0x0F)*10+(*(sTim+9) &amp; 0x0F);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_mday= (*(sTim+6)&nbsp; &amp; 0x0F)*10+(*(sTim+7) &amp; 0x0F);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_mon = (*(sTim+4)&nbsp; &amp; 0x0F)*10+(*(sTim+5) &amp; 0x0F) - 1;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sT.tm_year= (*(sTim+2) &amp; 0x0F)*10+(*(sTim+3) &amp; 0x0F)</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; + (*sTim &amp; 0x0F)*1000&nbsp; +(*(sTim+1) &amp; 0x0F)*100 -1900;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; st = mktime(&amp;sT);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; dt = st + (time_t)60;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; dT = localtime(&amp;dt);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; sprintf(dTim,"%04d%02d%02d%02d%02d",</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; dT-&gt;tm_year+1900,dT-&gt;tm_mon+1,dT-&gt;tm_mday,dT-&gt;tm_hour,dT-&gt;tm_min);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; return(0);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//=====================================================================</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">// 1ﾗｲﾝの文字列をﾃﾞﾘﾐﾀ毎分割する&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 03/06/19</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">int SplitLin(int max_n,char *bf,char *argv[])</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp;n;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; char&nbsp; &nbsp; *cp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; n=0;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; cp=bf;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; argv[0]=cp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; while(*cp!=0){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; switch(*cp){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;case 0:&nbsp; &nbsp; &nbsp; &nbsp; return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;case 0x0d:</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *cp=0;&nbsp; &nbsp; &nbsp; return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;case 0x0a:</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *cp=0;&nbsp; &nbsp; &nbsp; return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;case ' ':&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // 先頭がｽﾍﾟｰｽなら</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; while(*cp==' '){&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //&nbsp; &nbsp;ｽﾍﾟｰｽが続くかぎり</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *cp=0;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //&nbsp; &nbsp;0を書込</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cp++;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// ﾎﾟｲﾝﾀを++</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(*cp==0) return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; break;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;case ',':&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; // ｶﾝﾏなら</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; while(*cp==','){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *cp=0; cp++;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //&nbsp; 0を書く、ﾎﾟｲﾝﾀを++</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(*cp!=',') break;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; argv[n]=cp;&nbsp; n++;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//&nbsp; ｱﾄﾞﾚｽを保存、ﾎﾟｲﾝﾀを++</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(n&gt;=max_n) return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(*cp==0) return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; break;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;default:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;// それ以外なら</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; argv[n]=cp; n++;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; //&nbsp; &nbsp;先頭ｱﾄﾞﾚｽを保存、ﾎﾟｲﾝﾀを++</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(n&gt;=max_n) return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; while((*cp!=' ')&amp;&amp;(*cp!=',')){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if((*cp==0x0a)||(*cp==0x0d)){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *cp=0; return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if(*cp==0) return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cp++;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; };</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; break;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; return(n);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//-------------------------------------------------------------------------------</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">long XtoL(char *dt)</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp;i,j,l,n;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; long&nbsp; &nbsp; a,c;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; l=strlen(dt);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; a=0; n=0;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; for(i=l-1;i&gt;=0;i--){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; c=*(dt+i);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(c&lt;'0') return(-1);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; if(c&lt;='9'){</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;c =c &amp; 0x0f;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; }else{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c =c &amp; 0x0f;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c =c + 9;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; for(j=0;j&lt;n;j++) c = c &lt;&lt; 4;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; a = a + c;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; &nbsp; &nbsp; n++;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; }</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; return(a);</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">//-------------------------------------------------------------------------------</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">void CharCpy(char *dbf, char *sbf, int n)&nbsp; &nbsp;// ｷｬﾗｸﾀ ｺﾋﾟ-</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">{</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; int&nbsp; &nbsp; &nbsp;i;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp;&nbsp;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; for(i=0;i&lt;n;i++)&nbsp; &nbsp; *dbf++=*sbf++;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">&nbsp; &nbsp; return;</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div><span style="font-size: xx-small;">}</span></div>
<span style="font-size: xx-small;"><span style="font-size: xx-small;"></span></span>
<div style="font-size: xx-small;"></div>
</div>
<div><span style="font-size: xx-small;">/*********************************************************************/<br />
ここまで。</span></div>
<a href="//kojoryoshu83.edoblog.net/File/W32BPFtoPS.c" target="_blank" title=""></a>]]>
    </description>
    <category>科学技術</category>
    <link>http://kojoryoshu83.edoblog.net/%E7%A7%91%E5%AD%A6%E6%8A%80%E8%A1%93/%E5%9C%B0%E9%9C%87%E6%B3%A2%E5%BD%A2%E8%A1%A8%E7%A4%BA%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%EF%BC%91</link>
    <pubDate>Tue, 01 Mar 2022 10:02:36 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/327</guid>
  </item>
    <item>
    <title>共産主義は言葉を崇めるカルト宗教</title>
    <description>
    <![CDATA[<div>この度の大統領選挙の不正で思い浮かんだのはオウム事件である。不正を行う者、不正を隠蔽する者、不正を無視する者、嘗てのオウム信者そっくりである。そう、これは宗教戦争だったのである。</div>
<div>　</div>
<div>またロシア革命がそうだったように、この度の不正選挙の首魁はユダヤ人であり、共産主義革命、即ちカルト宗教戦争と言えるものである。</div>
<div>　</div>
<div>首魁がユダヤ人と推論出来るのは、不正選挙と言わせないように言論封殺を行ったYoutube、Twitter、Facebookは何れもユダヤ人が運営している会社であり、不正選挙の事実を隠蔽し、トランプをマイナスになるようにイメージ操作を行ったのもユダヤ人のマスメディアだったからである。彼らの力なくしては不正は多くの人の知ることになり、選挙結果は別の結果になっていたであろう。</div>
<div>　</div>
<div>不正を行う者、不正を隠蔽する者、不正を無視する者の殆どはユダヤ人以外の者であるが、彼らはカルト宗教に洗脳された一般信者にすぎない。しかしユダヤ人も信仰の力としか考えられない程、トランプ追い落としの不正に加担したのは、彼ら自身が自分達が作り上げた宗教即ち共産主義の信者だからである。</div>
<div>　</div>
<div>と言っても共産主義は神を否定しているので宗教では無いと思われるかも知れない。確かに共産主義は神を否定する。選ばれた民であり優秀な民と自認するユダヤ人にとって、イブがアダムの肋骨から生まれたなどの御伽話を信じるのは沽券に関わるのであろう。しかし共産主義はユダヤ教、即ち旧約聖書を元にしたカルト宗教である。</div>
<div>　</div>
<div>では旧約聖書の何処の部分が共産主義者が信じる対象になっているかと言えば此処である。</div>
<div>全能の神（主）が行ったのは光を作ったのであるが、どのようにして作ったかと言えば、聖書には「そのとき 神が『光よ。あれ。』と仰せられた。すると光ができた」とある。</div>
<div>　</div>
<div>と言う事は、始めに『光』と言う言葉が有ったのである。神が存在する以前に言葉が有ったことになる。確して共産主義を作ったユダヤ人は神を捨て、言葉が絶対的な物として信仰する対象となった。</div>
<div>　</div>
<div>ジェンダー、LGBT、BLM、歴史修正主義、等々、彼らが作ったこれ等の言葉に異論を差し挟む者がいると、彼らはまるで異端裁判をするかのように吊るし上げる。まさしく宗教裁判ではないか。それ等は共産主義にとって絶対的な信仰の対象だからである。</div>
<div>　</div>
<div>ところが日本人にとっての言葉とは、事の葉っぱにすぎない。言葉は和歌であれば誰かを思う心を伝える道具であり、俳句であれば情景を感じたことを表す一つの手段であり、信仰の対象では無い。</div>
<div>　</div>
<div>それどころか日本人は釈迦が言った『色即是空』の言葉を知っている。これは諸々の事は『空（空っぽ）』であり無であるの意味である。つまり、釈迦は人間が作り上げた概念、即ち言葉に意味など無いよと言っているのである。</div>
<div>　</div>
<div>釈迦が修行するに至ったのは、「人は何故苦しむのか？」であった。その解答が『無』であり『空』であった。結局は人は自分たちが作り上げた概念（言葉）によって苦しむのある。そして釈迦が言ったもう一つの言葉『空即是色』は、言葉によって縛られるのでは無く、言葉を自由に使って楽しみなさいと言うことであろう。それは正に和歌や俳句の世界である。</div>
<div>　</div>
<div>結局のところ共産主義は、言葉によって人を縛り自由な心を奪う人を不幸にするカルト宗教だと言えるだろう。事実、共産主義国の国民は皆不幸であった。</div>
<div>　</div>
<div>ユダヤ人は優秀と言われるが、そんなカルト宗教を作り自らも縛っているユダヤ人が多いのは、実は馬鹿が多いのではないか。</div>]]>
    </description>
    <category>共産主義・グローバル主義</category>
    <link>http://kojoryoshu83.edoblog.net/%E5%85%B1%E7%94%A3%E4%B8%BB%E7%BE%A9%E3%83%BB%E3%82%B0%E3%83%AD%E3%83%BC%E3%83%90%E3%83%AB%E4%B8%BB%E7%BE%A9/%E5%85%B1%E7%94%A3%E4%B8%BB%E7%BE%A9%E3%81%AF%E8%A8%80%E8%91%89%E3%82%92%E5%B4%87%E3%82%81%E3%82%8B%E3%82%AB%E3%83%AB%E3%83%88%E5%AE%97%E6%95%99</link>
    <pubDate>Sat, 23 Jan 2021 10:20:29 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/326</guid>
  </item>
    <item>
    <title>日本の再生の鍵はオタク</title>
    <description>
    <![CDATA[<div><strong>日本はオタクの国</strong></div>
<div>外国人の中にはそれなりの日本ファンがいるが、日本の名を高めている要因の一つにはオタクの存在がある。でもオタクと聞けばアニメ・オタクや鉄道オタク等を思い浮かぶかかも知れないが、ここで言うオタクとは物事にはまり熱中する人達全般を言う。そのオタクの代表である葛飾北斎や伊藤若冲の名を聞けばオタクの評価の意味を納得するだろう。北斎や若冲は絵画オタクであるが、オタクは美術工芸品の分野だけでは無い。関孝和もそうだろうし、からくり職人から東芝の創業者になった田中久重や自働織機を発明して現在のトヨタグループの創始者となった豊田佐吉もオタクである。彼らの特徴は寝食を忘れ、物事を追求する事である。彼らにとって金や名声も二の次である。田中久重や豊田佐吉まで行かないが、金や名声も二の次で物事をとことん突き詰めようとするオタク達が多いのが日本の特徴なのである。</div>
<div>　</div>
<div>例えばミシュランは2007年に東京を世界一の美食の街と評したが、東京版を作成するに当たって調査した結果分かった事は、東京の料理店は一つの食材を追求した専門店が多い事だった。また東京の料理店の中にはミシュランの評価など歯牙にかけない店が多い事も彼らを驚かせた。つまり東京の料理人は金や名声など二の次のオタクが多かったのである。東京の料理人に言わせて見れば、他人の舌より自分の舌、他人の評価より自分による評価と言うことになるであろう。</div>
<div>　</div>
<div>次に示すのは別の分野のオタクの例である。それは雑誌『歴史通』の記事で世界的ギターリストであるマーティ・フリードマンが述べていた事である。彼が日本に居着いたのは日本が面白い国だからだそうである。例えば新宿に海賊版の音楽CDを売っているレコードショップ店がある。ライブコンサートで録音するのは違法であるが、その店で売っているのはライブコンサートで録音したCDだったりする。そんな物を買いに来る客もオタクなら店の主人もオタクである。客は安いから買うわけではなく、店も金儲けのために売るわけでは無い。純粋に音楽ヘに対する愛からである。そんな店の主人とマーティ・フリードマンが街でばったり合った。店の主人は「マーティさん此処でちょっと待ってて下さい」と言って戻ってきて「これは絶対アンタが持っていなけばならいよ」と言ってマーティ・フリードマンのライブコンサートのCDを手渡した。マーティ曰く「こんなサービスをしてくれる場所が他にあるかな？ないよ（笑）」、「絶対に儲かってない」である。これが中国だったらどうだろう。彼らが海賊版を売るのは金儲けのためだけである。マーティ・フリードマンは音楽だけで無く、あらゆる分野の専門に特化した店が東京に有ることも言う。彼がそれを発見したのは、勿論彼自身が音楽を追求するオタクだからである。</div>
<div>　</div>
<div><strong>オタクの原動力</strong></div>
<div>ではオタクの原動力は何んだろうか。それは脳内麻薬とか脳内報酬物質とも言われるドーパミンであろう。ドーパミンは覚醒剤と似た快楽物質であることが知られている。ドーパミンは物事の構想を練るとき、その構想で何かを作るときに脳内から分泌され、眠気も飛びハイになるのである。つまり何かに打ち込んで事を成し遂げた人は、ただ気力を振り絞って努力したのでは無く、脳内からの報酬が関係していたのである。個人的経験でも、難しい開発の仕事を請け負ったとき、重圧で打ちひしがれそうになると共に、それを打開するためのソフトウェア、ハードウェア、構成・配置などを思い巡らすと、ワクワクするような快感を覚えるのが常で有った。田中久重や豊田佐吉が執念をもって発明をやり遂げたのは、恐らくドーパミンの喜びを知っていたからと思われる。従ってオタクとは、田中久重や豊田佐吉まで行かずとも、脳内からの報酬を知っている人達のことである。</div>
<div>　</div>
<div>オタク型人間の原動力は脳内報酬物質すなわちドーパミンであるが、しかし殆どの人の原動力は生存欲や性欲である。性欲であればホルモンは男性ホルモンである。資本主義は競争の原理が働いているから発展すると言われている。生存欲や性欲があるから競争が生まれるのだがオタク同士にも競争は存在する。そしてオタク同士の競争はより良い結果を生み出す。競争という熟語から争う文字を外し競う合うだけにしたように。例えば剣道に「負けて感謝、勝って反省」と言う言葉があるが、これは切磋琢磨する競争であり、剣道オタク同士がお互いに影響を与えながら剣道を追求していく様を表して示している。また江戸時代、和算の世界では難しい数学の問題が解けたときに算額と言う絵馬を神社や仏閣に奉納する慣習があったが、その絵馬にはさらに難しい問題を載せる（遺題継承）のが常であった。これにより和算は一層進歩・発展したのである。オタク同士の競争が良い結果が得られたのは、オタク達が物事を深く追求するからである。</div>
<div>　</div>
<div><strong>性欲が原動力の人間</strong></div>
<div>それに対して生存欲や性欲が原動力の人間同士の競争は金や地位や名声を得るための人との競争である。確かに生存欲や性欲が原動力の人間も努力をするのでそれなり結果を生み出す。いや資本主義の競争原理はそれである。しかし彼らの努力は金や地位や名声を得れば終了する。これが料理の世界であれば、彼らの料理がミシュランが評価した東京の料理人の域に達する訳がない。つまり生存欲や性欲が原動力の人間は物事をとことん追求することが無い。それだけは無い。生存欲や性欲が原動力の人間同士の競争は、こと日本ではマイナスに作用する場合が多々有る。</div>
<div>　</div>
<div>まず何故日本にはオタク型人間の割合が他の国、例えば中国や韓国などより多いのだろうか？。これは逆に中国や韓国では金や名声や地位に拘る人間が何故多いのか？と考えれば分かる。その理由は中国や韓国の国の生存競争が熾烈だったからである。つまり中国や韓国ではオタクのような人間などが生き残れる社会では無く、オタクは淘汰され金や名声や地位に拘る人間ばかりになったのである。そう考えると日本の社会が如何に生存競争に優しいかが分かるだろう。オタクまで行かないが、金や名声や地位に拘る人間が少ないのも日本の社会が優しいからである。日本に生存欲や性欲が原動力の人間が少なかったからである。だがその日本のような社会に金や名声や地位に拘る人間がいたらどうだろう。高い地位は金や名声や地位に拘る人間ばかりに占められてしまうのである。結果オタク達の気持ちは腐り才能は殺される。</div>
<div>　</div>
<div>例えば先の大戦の航空戦を見ると、戦果を上げていたのは坂井三郎や岩本徹三のような操縦技術を追求する下士官の操縦オタク達であった。それに対して士官パイロットはどうかと言うと、坂井氏によれば士官パイロットと下士官パイロットの宿舎は数キロも離れており、戦術の打ち合わせ打ち合わせなど一度も無かったというから驚きである。操縦が下手な低い士官パイロットに「上官が技量が低いのはまずいのでは無いか」と坂井氏が訪ねたところ、若い士官の答えは「何時までもこんなことはやってないよ」であった。もちろん彼は操縦技術に興味を持つオタクでは無い。彼が海軍兵学校に入学した理由は軍事技術を学ぶためでは無く、人との競争に打ち勝つためであった。結果日本海軍は、腕の良いパイロットの気持ちを腐らせ、消耗させ、みじめな敗戦に繋げたのである。</div>
<div>　</div>
<div>陸軍も同じである。陸軍でも陸大出身者が陸士出身者を馬鹿にする風潮があった。馬鹿馬鹿しいことに陸軍は、陸大出身者に天保銭を胸につけさせ、誇示させることでさらにその風潮を増長させたのである。競わせることでより向学心の向上を目的とする筈が、地位や名声を巡っての人と競うことが目的となってしまったのである。天保銭は昭和11年に廃止されたが、その後の二二六事件に繋がる皇道派と統制派の抗争も、原因は陸軍の生存欲や性欲が原動力の人間達を量産させた教育の結果である。</div>
<div>　</div>
<div><strong>李氏朝鮮に向かう日本</strong></div>
<div>そして現在、学問の世界でも学問の追求することをそっちのけで人との競争が続いている。結果は東大を頂点とするカースト制か築かれることになっている。彼らが如何に勉強して東大卒の覇者になったとしても、生存欲や性欲が原動力の人間たちが覇者となることは、現物の物に接して物を追求するオタクの存在を脅かすことになる。両班が社会を席巻していた李氏朝鮮を思い出して欲しい。李氏朝鮮が停滞したのは両班達が物に接して格闘している人間を馬鹿にして、四六時中朱子学について空理空論の議論を戦わせていたからである。その議論の理由も、己のカーストの順位を上げるために仲間を蹴落とすためにである。学問で競い合うだけなら良い。だがそのような人間に限って上に諂い下を腐らすのが常である。</div>
<div>　</div>
<div>現在日本は間違いなく李氏朝鮮に向かっている。共通一次学力試験の結果などを有難がっているのがその証拠ではないか。李氏朝鮮の両班がそうだったように、少なくとも東大卒の政治家で賢いと思った政治家は殆どいない。それどこか専門の分野でも同様の場合がある。例えば東大出身の経済学者が、日銀の借金にすぎない財政赤字を大問題にして、緊縮財政を言っているのがそれである。両班がそうだったように、彼らは学問は知識を誇示するためだけに学ぶもので、物事を自分の頭で追求するものでは無いと思っているようである。</div>
<div>　</div>
<div>ここで彼らとオタク型人間と対比させるために、生存欲や性欲が原動力が顕著な人間を両班型人間としよう。</div>
<div>　</div>
<div><strong>日本の再生</strong></div>
<div>そして本題の日本の再生であるが、それには日本の良き特質であるオタク型人間を発掘し彼らへの教育支援と資金投資を行うこと。そしてオタク型人間の敵である両班型人間が増えないような措置と国民の意識改革が必要である。</div>
<div>　</div>
<div>ではオタク型人間の発掘と彼らへの教育支援と資金投資が何かと言うと、例えば第二の第三の田中久重や豊田佐吉のような人間を探しだし、彼らに科学教育を行うことである。理由は、もし田中久重や豊田佐吉が科学の知識を持っていたら、彼らの発明はとてつもないものになっていたと考えれば分かるだろう。また田中久重や豊田佐吉まで行かずとも現在の単なるフィギュア・オタクでも彼らにロボット工学を学ばされば有用なロボット開発をするかも知れないのだ。そう考えれば当然投資すべきはオタク型人間となるが難しく考える必要は無い。オタクの原動力はドーパミン、彼らを腐らせず食わせてやるだけで、オタク達は勝手に走ってくれるのである。</div>
<div>　</div>
<div>では両班型人間が増えないような措置と国民の意識改革が何かと言うと、やはり教育である。それも必要なのは理数系の教育である。理数系教育の結果が人間同士の競争になったとしても、そこは数字の結果が物を言う世界、文系であった両班型人間は育ちにくい。例えば国家公務員上級職試験などは理数系の試験とすべきである。現在の官僚は法学部出身者ばかりであるが、法学部出身者に対しては別枠で法律の専門職として採用すべきである。また多数の移民は考えものである<span style="font-size: 14px;" data-mce-mark="1">。理由は、移民は日本ではマイナスに作用する<span style="color: #333333;" data-mce-mark="1">生存欲や性欲が原動力の人間が多いからである</span>。そして国民の意識改革とは学歴崇拝や地位の崇拝を止めることある。</span></div>
<div style="text-align: center;">　　<br />
<img src="//kojoryoshu83.edoblog.net/File/76eb4f02.jpeg" alt="" /> <img src="//kojoryoshu83.edoblog.net/File/e47b7ac5.jpeg" alt="" /> <br />
<img src="//kojoryoshu83.edoblog.net/File/76eb4f02.jpeg" alt="" /><img src="//kojoryoshu83.edoblog.net/File/76eb4f02.jpeg" alt="" /></div>
<div style="text-align: center;">『反秀才論』柘植俊一著</div>
<div>この本で述べている反秀才は今回の記事のオタクと通じる。この本にはその反秀才の代表として、後退翼理論の元になった斜め翼を発明したロバート・Ｔ・ジョーンズ博士が登場する。彼は飛行機オタクだで大学へも行かず航空機理論は独学である。もっともジョーンズ博士の興味は飛行機だけでは無い。ストラディバリウスより音響効果の良いバイオリンを自作するほど多方面のオタクである。だが後退翼効果さえ理解する人がいなかった時代で、さらに上を行く斜め翼を発明したジョーンズ博士はオタクと言うより天才と言うべきである。NASAで「20世紀の最高の航空エンジニアの1人」とされているのだ。でもジョーンズを大天才とすると、現在の日本のオタク達は小小天才と言っても良いのではないだろうか。</div>
<div>　</div>
<div>この『反秀才論』には超秀才とも言える人物も登場する。それはエイムス研究所所長でロバート・ジョーンズの上司であるハンス・Ｍ・マーク博士である。マーク博士は研究所の色々の分野の天才達が生み出した理論をあっという間に理解する頭を持ちながら、彼自身自分は自分を天才だと思っていない。多くの研究所には一人の基礎研究を行っている研究員に対して十人の応用間研究員がいる。これは基礎研究をやる能力ある人が少ないからであるが、マーク博士は「私自身、そのタイプではありません」非常に控えめであり、実際無私の人のようである。今回の記事ではオタクの有用性を述べたが、マーク博士のような人間を育てることも必要である。</div>
<div>　</div>
<div><strong>追記</strong>：</div>
<div>日本は天才が出ない国と思っている日本人は大勢いる。しかし嘆くことは無い。小天才は山のようにいる国なのである。日本は小天才の宝庫なのである。小天才、それがオタクである。</div>]]>
    </description>
    <category>日本</category>
    <link>http://kojoryoshu83.edoblog.net/%E6%97%A5%E6%9C%AC/%E6%97%A5%E6%9C%AC%E3%81%AE%E5%86%8D%E7%94%9F%E3%81%AE%E9%8D%B5%E3%81%AF%E3%82%AA%E3%82%BF%E3%82%AF</link>
    <pubDate>Fri, 27 Mar 2020 06:37:29 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/325</guid>
  </item>
    <item>
    <title>書評：反日種族主義</title>
    <description>
    <![CDATA[現在韓国では反日が隆盛を極めているが、『反日種族主義』李栄薫編集(日本語訳、文芸春秋出版)は、李承晩学堂(校長李栄薫)の５人の学者(主に経済学)と１人のジャナーリストが、その反日の根源を追求し、その記録と考察をした本である。彼らは土地台帳等の公的資料および経済データを丹念に調べ上げ、また民間人が残した記録や体験者の聞き取り調査した結果がこの本の大部分を占めている。彼らが真実を追求した結果は、現在日韓で揉めている従軍慰安婦問題、徴用工問題等についてが、ことごとく韓国側の主張は事実に反している事が証明されるに至った。それどころか竹島(韓国名独島)についてさえも、韓国側の主張が根拠が無い事も判明した。<br />
<br />
これを公表した事で、恐らく李栄薫氏達の韓国国内での立場は悪くなると思うが、それにもかかわらず真実を追求する学者魂と韓国に不利な事実を敢えて公表する勇気に、まずは敬意を表したい。そしてこの『反日種族主義』が、日韓問題や韓国の本質に関心を持つ人にとっての必読の書であると推薦したい。<br />
<br />
李栄薫氏達が真実を追求した結果は韓国政府不利、日本政府有利となったが、この『反日種族主義』は日本人の為に書かれたのでは無い。李栄薫氏達を走らせたのは「このままでは韓国が破綻にするかも知れない」と言う強い危機感からである。<br />
<br />
その危機感を表すのが冒頭にある『嘘の国』である。例えば韓国で偽証罪で起訴された人の数は一人当たり日本の1250倍。国民も嘘つきなら政府も嘘つき、学問も裁判も嘘、嘘の国が韓国と言う訳である。韓国社会が嘘を許容しているので人々は実証精神に乏しく、一人の嘘つきのシャーマンが出ると人々は唯唯諾諾と従ってしまうのである。<br />
<br />
韓国社会の嘘ともう一つの病巣が韓国社会の身分制度である。日本の身分制度は、むしろ職能別身分制度と言えるようなもので、例えば元百姓が主人で天皇の血を引く者が家来等もあり得るが、韓国社会の身分制度は「下男の身分の人間はあの世でも下男」と、その人の身分は死でもあの世でも変わらない厳しいものである。ところがこれでは一つの韓国民族としてまとまることは出来ない。そこで登場するのが日本である。<br />
<br />
現在の韓国は日本を永遠の敵とすることでまとまることが出来たのである。韓国は日本より上の身分としてまとまったのだ。そこで日本より身分が上の韓国は日本に負ける事は許されないが、至上命題になった(注1)。つまり民族が身分を持ったのだ。しかしこれは民族主義とも違う。そこには個人の自由は無くシャーマンの言葉に従う全体主義の国のようである。その行き着く先は北朝鮮と同じ国家である。李栄薫氏が韓国で今起きている現象を『反日民族主義』とせず、『反日種族主義』と命名したのは上記の理由からである。<br />
<br />
ここで韓国社会の身分制度をもう少し詳しく見てみよう。韓国社会では、他人と比較して自分が上か下かが重要な要素である。勿論自分が下の身分では不利だし、なにより精神的に不満である。そのため韓国人は常に自分が相手より上になろうと懸命になる。<br />
<br />
韓国が何故国を上げて反日になったかと言うと、韓国(李氏朝鮮/新羅)は長年支那の冊封体制下で屈辱外交を強いられた反動からか、「日本を蛮族の国」と下に見ることで優越感を抱いていたのであるが、それは日本が日清戦争・日露戦争に勝利したため後の日韓併合時代ではやや収まっていたが、先の大戦が日本の敗戦で終わった事により「日本は下の身分の国」であるとの思いが吹き返したのである。<br />
<br />
例えば徴用工問題では「完全かつ最終的に解決された」と記された1965年に結ばれた日韓請求権協定を破ったり、前政権が「最終的不可逆的解決」と認めた慰安婦合意を反故にしたり、2011年以前は韓国国内でなんら問題視されなかった旭日旗を突如掲げないように要求してきたりしている様は、韓半島で行われていた主人が従者や奴隷を躾けるために理不尽な要求に従わせる様と似ている(注2)。つまり日本を侮辱することで優越感を味わい、日帝に支配された事や支那冊封体制下で培われた屈辱感を開放したいのである。<br />
<br />
そこで「日本を侮辱することで優越感を得る」これを『反日種族主義』を支える『侮日優越主観』と名付けたい。「日本を侮辱することで優越感を得る」？、と思い巡らすと、日本人にもそれらしい人々が大勢いることに気が付く。李栄薫氏が本の中で「慰安婦問題や徴用工問題に最初に火をつけたのは日本人だ」と言っているその日本人達である。<br />
<br />
でも何故韓国人でも無い彼らが、事実を捏造してまで韓国人に嘘を植え付けるのか？(例えば従軍慰安婦問題を最初に火をつけたのは朝日新聞)。何故自分と同胞である日本人を貶める事をするのか?(例えば吉見義明名誉教授は、従軍慰安婦ではインパクトが無いとして、従軍慰安婦は性奴隷と世界に拡散)。しかしこれらは彼らが『反日種族主義』の韓国人と同様、日本人を貶める事で自分達は一般の日本人より上の身分であるとの優越感を持ちたいからだったとすれば理解出来るだろう。つまり彼らも『侮日優越主観』の持ち主だったのである。<br />
<br />
この度の日本側に落ち度がない輸出管理問題や徴用工問題、レーダ照射事件等で、韓国人かと思わせる程に韓国側の肩を持って日本を非難する人がいるが、これも同類であろう(注3)。また日本人が偉業を成し遂げたりすると発狂したり、お通夜状態になる日本人コメテータ達がいるが、彼らも『侮日優越主観』の持ち主と見て間違いない。さらに韓国関係で無くても、例えば朝日新聞の珊瑚記事捏造事件(注4)のように、彼らも身分の上下にこだわる『侮日優越主観』の持ち主だからこそ、上から目線で一般日本人を叱り付けたい為に事件を捏造したと考えられる。<br />
<br />
また共産主義思想を持つ日本人の多くが『反日種族主義』者と似ているのは、彼らも人間を上か下かで見る人間で、彼らが共産主義思想に飛びついたのは、舶来思想で自らを着飾って一般日本人を馬鹿にする為であり、すなわち『侮日優越主観』の持ち主だからである。それを裏付けるように彼らの多くが他人を蹴落とす受験戦争で打ち勝った高学歴者である。<br />
<br />
話を韓国の『反日種族主義』に戻すと、『侮日優越主観』の元になっている韓国人の人を身分の上下で見ることを克服しないと何れ韓国は崩壊するだろう。その証拠と言えるのが、反日ではあれほどまとまっているのに国を捨てて他国に出て行く人間多い事である。理由は、韓国国内は反日意外では国民同士の足の引っ張り合いの社会だからである。<br />
<br />
最後に、李栄薫氏はじめとする６人の執筆者はこれから困難な戦いをすることになると思うが、その戦いに勝利するためにはこの本の英訳本を出版して、アメリカの歴史学者に論争をいどみ彼らを論破することが最善であることを提案する。何故なら韓国の反日運動に燃料を注いでいるのは、『侮日優越主観』の反日日本人だけでなく、世界に影響力があるアメリカにいる悪意有る歴史学者達だからである。<br />
<br />
<br />
<strong>注1、スイーツ世界大会</strong><br />
2011年に行われた<a href="https://www.youtube.com/watch?v=DWZlj5yF_oU" title="">スイーツ世界大会</a>で、韓国チームは日本チームに妨害行為を行っていたのを審判員に見つかり、咎められることになった。これもと言う意識があるからである。(<a href="https://www.youtube.com/watch?v=Bpd9efuJnqg&amp;feature=player_detailpage#t=37s" title="">参考動画</a>)<br />
<br />
<strong>注２、日東壮遊歌</strong><br />
1764年頃に朝鮮通信使であった金仁謙が書いた『日東壮遊歌』に、些細な事をした下僕を棒で叩いて躾ける様子が書かれている。<br />
<br />
<strong>注３、韓国を擁護する面々</strong><br />
例えば、朝日新聞、毎日新聞、NHK、立憲民主党、共産党、福山哲郎、小倉智昭、山口二郎、玉川徹、前川喜平、等々がいるが、彼らは韓国を愛している訳ではない。他の日本人を貶めることで優越感るため韓国の反日を利用しているにすぎない。<br />
<br />
<strong>注４、朝日新聞珊瑚記事捏造事件</strong><br />
珊瑚記事捏造事件とは、1989年朝日新聞カメラマンが沖縄県西表島の珊瑚にK･Yと傷を付け、日本人がやったような記事を書いた事件である。<br />
以下は記事の内容の一部「・・日本人は、落書きにかけては今や世界に冠たる民族かもしれない。だけどこれは、将来の人たちが見たら、八〇年代日本人の記念碑になるに違いない。百年単位で育ってきたものを、瞬時に傷つけて恥じない、精神の貧しさの、すさんだ心の&hellip;&hellip;。 にしても、一体「K・Y」ってだれだ」。<br />
まさに『侮日優越主観』そのものである。韓国の『反日種族主義』同様、嘘つきでもある。<br />
<br />
<img src="//kojoryoshu83.edoblog.net/File/BRW541379135E11_000169.jpg" alt="" />]]>
    </description>
    <category>書評</category>
    <link>http://kojoryoshu83.edoblog.net/%E6%9B%B8%E8%A9%95/%E6%9B%B8%E8%A9%95%EF%BC%9A%E5%8F%8D%E6%97%A5%E7%A8%AE%E6%97%8F%E4%B8%BB%E7%BE%A9</link>
    <pubDate>Fri, 20 Dec 2019 05:43:19 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/324</guid>
  </item>
    <item>
    <title>ゴミ・人間移動ゴミ箱</title>
    <description>
    <![CDATA[<a target="_blank" href="//kojoryoshu83.edoblog.net/File/80ec7661.jpeg" title=""><img src="//kojoryoshu83.edoblog.net/File/450e6944.jpeg" alt="" /> <br />
</a>
<ul>
<li style="text-align: left;">　　　　　　　　　　<a target="_blank" href="//kojoryoshu83.edoblog.net/File/80ec7661.jpeg" title="">（拡大）</a></li>
</ul>
<a target="_blank" href="//kojoryoshu83.edoblog.net/File/80ec7661.jpeg" title=""></a>]]>
    </description>
    <category>未選択</category>
    <link>http://kojoryoshu83.edoblog.net/%E6%9C%AA%E9%81%B8%E6%8A%9E/%E3%82%B4%E3%83%9F%E3%83%BB%E4%BA%BA%E9%96%93%E7%A7%BB%E5%8B%95%E3%82%B4%E3%83%9F%E7%AE%B1</link>
    <pubDate>Thu, 07 Nov 2019 09:19:40 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/323</guid>
  </item>
    <item>
    <title>反日種族主義、反日優越主義</title>
    <description>
    <![CDATA[<div><strong><span style="color: #000000; font-size: x-large;">反日優越主義</span></strong><br />
副題の『反日優越主義』は今韓国でベストセラーになっている『反日種族主義』のもじりである。もじりでなので対象は韓国人では無い。『反日優越主義』とは日本人、特に日本にいる韓国人と見分けがつかない日本人サヨク達の言動から付けた題名である。</div>
<div>　</div>
<div>然しながら『反日種族主義』は凄い。日本語版も出版されるようだが、その前に『反日種族主義』を書いた複数の韓国人学者達の講演がyoutubeにあるので是非見て欲しい。</div>
<div>　</div>
<div>内容は、従軍慰安婦や日本の朝鮮統治について調べた事のある日本人なら常識的な事柄であるが、韓国が世界中に広めようとしていた嘘を、複数の韓国人学者が膨大なデータを調べ上げて悉く否定する結論になっていることである。</div>
<div>　</div>
<div>例えば、韓国人の間に流布している世界最悪の植民地支配なる話は、古くはアレン・アイルランドの『The New Korea』やジョージ・アキタの『日本の朝鮮統治を検証する』等を読めば否定可能であるが、従軍慰安婦や強制連行のように次々出て来る嘘については困難であった。</div>
<div>　</div>
<div>ところが『反日種族主義』では、それらの嘘を生みだす韓国人社会の土壌まで掘り下げて実例を上げて論じているのである。恐らく出版される『反日種族主義』は『The New Korea』や『日本の朝鮮統治を検証する』等を超える本になる筈である。まあ敢えて足りない処を言うと、この問題の背後にいるアメリカの事を追求していなかった事が残念であった。</div>
<div>　</div>
<div>では『反日種族主義』の何が凄いのかと言うと、韓国にとって不利な事を指摘するだけでく、事実を曲げ捏造した情報を流布した韓国人学者の実名を上げて論駁している事である。勿論真実を真実であると言うのは学者として当然であるが、相手の学者を叩き切るような内容になっているのは、李栄薫教授を初めとする彼らにそれだけの覚悟があったからであろう。</div>
<div>　</div>
<div>『反日種族主義』が韓国にとって不利な内容になっているからと言っても、李栄薫教授等が親日と言う訳ではない。むしろ彼等は愛国者である。彼等は嘘を付き嘘に付和雷同する韓国の国民性を憂い、このままでは韓国は滅びると説いているのである。</div>
<div>　</div>
<div>李栄薫教授が愛国者であることは『17. 竹島（独島）、反日種族主義の最高の象徴』の動画を見れば分かるであろう。この動画の中で李栄薫教授は竹島が韓国領であることを悉く否定する根拠を列挙しながら、この問題で日本を刺激するべきではないと述べているのである。つまりそれは、実行支配しているのだから荒立てないのが賢明であると、韓国側に立って韓国政府への処方箋を示しているのである。</div>
<div>　</div>
<div>日本人としては拒否するべき意見であるが好感が持てる考え方である。但しこの李栄薫教授のグループが、公海上で44人の日本人漁民を殺傷し又彼らを政治的人質とし、交渉を有利に進めて竹島を力ずくで得た李承晩を理想の政治家としているのは気に掛かる。まあ理想とする政治家が韓国にいなかったのだから止む得なかったのだろう。　<br />
　</div>
<div>この『反日種族主義』が英訳でもされれば、日本を貶める国際的言動は静かになり、韓国社会にも嘘を排除し真実を追求する動きも出てくると思うが、それより心配なのは日本である。韓国人と見分けが付かない日本人サヨクが増えて来たことである。</div>
<div>　</div>
<div>李栄薫教授等は韓国社会の病理として社会に蔓延する嘘を上げる。例えば一人当たりの偽証罪数が日本の430倍とか。しかし韓国人社会の嘘が蔓延る理由は、恐らく支那文明に影響された為と考えられるだろう。支那文明は法無き熾烈な生存競争の社会である。彼等の嘘は生存競争を生き抜く武器だったと考えれば理解できる。韓国ではそれに加えて中華秩序の序列の劣等感から誰かを貶めてでも自分が上に這い上がらなくてはならない社会だったのである。従軍慰安婦問題などはそんな背景で起きた事件なのであろう。</div>
<div>　</div>
<div>それに対して日本は私のことより公を優先する社会である。当然嘘を嫌う正直を前提にした社会である。ところが日本人サヨク達は捏造・歪曲も平気である。慰安婦問題は日本人サヨクの捏造から始まったことを思い出して欲しい。嘘が蔓延している韓国ならまだしも正直社会の日本での日本人サヨクは筋金入りの嘘つきなのである。</div>
<div>　</div>
<div>それが学者・教師・マスコミ・法曹界・政治家に多数いる。否、増殖中である。今回の輸出管理問題で韓国擁護に出てきた全員が該当者である。何故なら彼等全員が『反日種族主義』で否定した、韓国人と同様な「過酷な日本の植民地朝鮮半島支配を謝罪せよ」と日本人に発信しているのである。韓国での洗脳教育を受けた訳でもなく、調べれば分かる日本で生活しているにも関わらずである。</div>
<div>　</div>
<div>何故日本人サヨクがそんな考え持つに至った理由は、韓国人が中華秩序の劣等感から日本人に優越感を持ちい故にと似ているが、日本人サヨクの場合は彼等と同じ仲間である筈の日本人に優越観を持ちたい一点からである。</div>
<div>　</div>
<div>その証拠の一つ。朝日新聞珊瑚記事捏造事件。</div>
<div>「これは一体なんのつもりだろう。沖縄・八重山群島西表島の西端、崎山湾へ、直径８メートルという巨大なアザミサンゴを撮影に行った私たちの同僚は、「K・Y」のイニシャルを見つけたとき、しばし言葉を失った。（中略）日本人は、落書きにかけては今や世界に冠たる民族かもしれない。だけどこれは、将来の人たちが見たら、八〇年代日本人の記念碑になるに違いない百年単位で育ってきたものを、瞬時に傷つけて恥じない、精神の貧しさの、すさんだ心の&hellip;&hellip;。 　にしても、一体「Ｋ・Ｙ」ってだれだ。」</div>
<div>日本人を貶めて優越感に浸りたいのが日本人サヨク『<strong>反日優越主義</strong>』者である。</div>
<div>　</div>
<div>==========================================================</div>
<div>
<div>　</div>
<div>１. 反日種族主義を打破しようシリーズを始めるにあたって&nbsp;（李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=PNlSgJa_gtw" title="">https://www.youtube.com/watch?v=PNlSgJa_gtw</a></div>
<div>　</div>
<div>2.嘘の国民、嘘の政治、嘘の裁判 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=EmVzs4yNBtw&amp;t" title="">https://www.youtube.com/watch?v=EmVzs4yNBtw&amp;t</a></div>
<div>　</div>
<div>３. 鉄杭神話の真実 （金容三）</div>
<div><a href="https://www.youtube.com/watch?v=RUqOBfJBH0c" title="">https://www.youtube.com/watch?v=RUqOBfJBH0c</a></div>
<div>　</div>
<div>4. 片手にピストルを、もう一方の手には測量器を （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=T4pzMamxgig&amp;t" title="">https://www.youtube.com/watch?v=T4pzMamxgig&amp;t</a></div>
<div>　</div>
<div>5.&ldquo;強制徴用＂の神話 （李宇衍）</div>
<div><a href="https://www.youtube.com/watch?v=CC4sDzrlNCQ" title="">https://www.youtube.com/watch?v=CC4sDzrlNCQ</a></div>
<div>　</div>
<div>6. 果たして＂奴隷労働＂だったのか （李宇衍）</div>
<div><a href="https://www.youtube.com/watch?v=rfMnrCUiof0" title="">https://www.youtube.com/watch?v=rfMnrCUiof0</a></div>
<div>　</div>
<div>7. 人身売買、公娼への道 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=NlF7sgjY2Ic" title="">https://www.youtube.com/watch?v=NlF7sgjY2Ic</a></div>
<div>　</div>
<div>7. そもそも請求するものがあまりなかった - 請求権協定の真実 (朱盒鍾)</div>
<div><a href="https://www.youtube.com/watch?v=NlF7sgjY2Ic" title="">https://www.youtube.com/watch?v=NlF7sgjY2Ic</a></div>
<div>　</div>
<div>8.食糧を収奪したって？ （金洛年）</div>
<div><a href="https://www.youtube.com/watch?v=fXZRt2F3w10" title="">https://www.youtube.com/watch?v=fXZRt2F3w10</a></div>
<div>　</div>
<div>8. 売春業の域外進出（李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=2LQZPaeByY8" title="">https://www.youtube.com/watch?v=2LQZPaeByY8</a></div>
<div>　</div>
<div>9. 日本軍慰安婦&nbsp; （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=jt_1srirqsY" title="">https://www.youtube.com/watch?v=jt_1srirqsY</a></div>
<div>　</div>
<div>10. 日本の植民地支配の方式 （金洛年）</div>
<div><a href="https://www.youtube.com/watch?v=yzILJHdB6qY" title="">https://www.youtube.com/watch?v=yzILJHdB6qY</a></div>
<div>　</div>
<div>10. 或る慰安所の 帳場人の日記 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=1fGampvrKGE" title="">https://www.youtube.com/watch?v=1fGampvrKGE</a></div>
<div>　</div>
<div>11. 楯師団の慰安婦、文玉珠 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=3siNUCt4pXg" title="">https://www.youtube.com/watch?v=3siNUCt4pXg</a></div>
<div>　</div>
<div>12. Never ending story ー＂賠償！賠償！賠償！＂ (朱盒鍾)</div>
<div><a href="https://www.youtube.com/watch?v=AhImt5hndzE" title="">https://www.youtube.com/watch?v=AhImt5hndzE</a></div>
<div>　</div>
<div>13 解放後の40余年間、日本軍慰安婦問題はなかった (朱盒鍾)</div>
<div><a href="https://www.youtube.com/watch?v=Z9pKdNd6S-k" title="">https://www.youtube.com/watch?v=Z9pKdNd6S-k</a></div>
<div>　</div>
<div>13. 捏造された金日成の真実 (1) （金容三）</div>
<div><a href="https://www.youtube.com/watch?v=nZm9Lx3wp6U" title="">https://www.youtube.com/watch?v=nZm9Lx3wp6U</a></div>
<div>　</div>
<div>14. 捏造された金日成の真実 (2) （金容三）</div>
<div><a href="https://www.youtube.com/watch?v=9IZMgf-zeFo" title="">https://www.youtube.com/watch?v=9IZMgf-zeFo</a></div>
<div>　</div>
<div>14. 挺対協は、日本軍慰安婦問題をこのようにして大きくした (朱盒鍾)</div>
<div><a href="https://www.youtube.com/watch?v=FNggHEwN2KQ" title="">https://www.youtube.com/watch?v=FNggHEwN2KQ</a></div>
<div>　</div>
<div>15. 日帝下 朝鮮人徴兵制、誰のための徴兵なのか！ （鄭安基）</div>
<div><a href="https://www.youtube.com/watch?v=aStF0vycc7o" title="">https://www.youtube.com/watch?v=aStF0vycc7o</a></div>
<div>　</div>
<div>15. 韓日関係が破綻するまで (朱盒鍾)</div>
<div><a href="https://www.youtube.com/watch?v=-mf3GM0bVm4" title="">https://www.youtube.com/watch?v=-mf3GM0bVm4</a></div>
<div>　</div>
<div>16. 白頭山神話の内幕 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=IqUKIik6J_s" title="">https://www.youtube.com/watch?v=IqUKIik6J_s</a></div>
<div>　</div>
<div>17. 竹島（独島）、反日種族主義の最高の象徴 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=dEgp-dOrEQM&amp;t" title="">https://www.youtube.com/watch?v=dEgp-dOrEQM&amp;t</a></div>
<div>　</div>
<div>18. 反日種族主義の神学 （李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=73cUE8D6yo8" title="">https://www.youtube.com/watch?v=73cUE8D6yo8</a></div>
<div>　</div>
<div>19. 大韓民国 解体、 反日種族主義の業報（完）（李栄薫）</div>
<div><a href="https://www.youtube.com/watch?v=KoXpDjO1M5g" title="">https://www.youtube.com/watch?v=KoXpDjO1M5g</a></div>
<div>-------------------------------------------------------------------------------<br />
<br />
<img src="//kojoryoshu83.edoblog.net/File/b9c0ce69.jpeg" alt="" /> <img src="//kojoryoshu83.edoblog.net/File/fd37d8fb.jpeg" alt="" /> <img src="//kojoryoshu83.edoblog.net/File/5fe99d6e.jpeg" alt="" /></div>
</div>]]>
    </description>
    <category>従軍慰安婦問題</category>
    <link>http://kojoryoshu83.edoblog.net/%E5%BE%93%E8%BB%8D%E6%85%B0%E5%AE%89%E5%A9%A6%E5%95%8F%E9%A1%8C/%E5%8F%8D%E6%97%A5%E7%A8%AE%E6%97%8F%E4%B8%BB%E7%BE%A9%E3%80%81%E5%8F%8D%E6%97%A5%E5%84%AA%E8%B6%8A%E4%B8%BB%E7%BE%A9</link>
    <pubDate>Wed, 18 Sep 2019 05:41:27 GMT</pubDate>
    <guid isPermaLink="false">kojoryoshu83.edoblog.net://entry/322</guid>
  </item>

    </channel>
</rss>