時代に逆行してCOBOL(GnuCOBOL)を学んでみる(4) 10進31桁まで計算できることを生かして4段4次のルンゲクッタ法でローレンツ方程式を計算して図示してみる。テキストベース(アスキーアート)で!
さてこれまでは以下のプログラムを作ってみた。COBOLでは絶対やらないようなフラクタルとカオスのプログラム。
時代に逆行してCOBOL(GnuCOBOL)を学んでみる(3) ロジスティック写像の分岐図を31桁まで10進計算ができることを生かして描いてみる。テキストベースで!今回は2次元配列の練習。
今回もカオス。おなじみ4段4次のルンゲクッタ法を実装して、ローレンツ方程式を図示してみよう。
プログラムはこんな感じで。やっぱりめちゃくちゃ冗長にはなる。ユーザー定義関数もあるにはあるが古いCOBOLにはない、ということで使わなかった。
でめちゃくちゃフォントを小さくしてテキストとして図示してみた。おなじみの波形が見られる。
XYは#で、XZは*で描いているがつぶれてわからん、、、が区別はできる。
基本的な計算はだいたい分かった。
あとはファイル操作とかかな。
« (5/21まで)修理のあとに エトセトラ@中之島香雪美術館を観てきた。折れ伏せというのを初めて知ったがこれは大変な労力…頭が下がる。 | トップページ | 吉野家で焦がしねぎ焼き鳥丼(大)をいただく。あ、これは焦がしてるのはネギだけで焼き鳥はあまりそういう感じはなかった。でもなかなか美味しかった。 »
「パソコン・インターネット」カテゴリの記事
- PythonでFDTD法で電磁界シミュレーションできるopenEMSを使う(1)例題にあるマイクロストリップラインのノッチフィルタ(スタブ)を動かして電磁界分布を動画で見てみる。CSXCADでモデルは確認できるし、ParaViewで電磁界分布が見られる。Sパラメータも計算できる。(2025.05.14)
- ユニクロとAkamaiのコラボTシャツに書かれているコードを解読してみる。base64でデコードするとbashのシェルスクリプトが出てきて実行すると♥PEACE♥FOR♥ALL♥FOR♥ALL♥PEACE♥FOR♥ALL♥という文字が色付きで正弦波で流れた。(2025.05.01)
- Google Gemini 2.5 Pro experimentalに高周波で使われるSパラメータのTouchstoneファイルを読み込んでプロットするC#コードを書いてもらうと570行のコードができて動いた。ファイルの拡張子snpのnでポート数を判別するが人間を信じないのでデータ数えて確認するのに笑った。(2025.04.21)
「学問・資格」カテゴリの記事
- 高周波・RFニュース 2025年5月16日 BAWフィルタのAkoustisがSpace Xの子会社に売却へ、DuPontがPyraluxなどのエレクトロニクス部門をスピンオフさせQnityという名前に、Microwave Journal5月号でローデ・シュワルツが最新スペアナ解説、GSAが5G Advancedレポート発行(2025.05.16)
- 高周波・RFニュース 2025年5月15日 2025 104th ARFTG のプロシーディング公開、R&SがRF Testing Innovations Forum開催、IEEE Journal of Microwaves5月号発行、Microwave Journal5月特別号は宇宙特集、QorvoがMatter用SoC 3種発売、MediaTekが5G FWA用T930発売(2025.05.15)
- 高周波・RFニュース 2025年5月14日 TDKが8A流せる積層チップビーズを発表、Samsungが5.8㎜の薄さのGalaxy 25 Edge発表、InfineonがマルチセンステクノロジーのPSOC 4100T Plus発表、u-bloxがPointPerfect Global発表、下院委員会が3GHzと6GHzをオークションから除外(2025.05.14)
「日記・コラム・つぶやき」カテゴリの記事
- 高周波・RFニュース 2025年5月16日 BAWフィルタのAkoustisがSpace Xの子会社に売却へ、DuPontがPyraluxなどのエレクトロニクス部門をスピンオフさせQnityという名前に、Microwave Journal5月号でローデ・シュワルツが最新スペアナ解説、GSAが5G Advancedレポート発行(2025.05.16)
- 高周波・RFニュース 2025年5月15日 2025 104th ARFTG のプロシーディング公開、R&SがRF Testing Innovations Forum開催、IEEE Journal of Microwaves5月号発行、Microwave Journal5月特別号は宇宙特集、QorvoがMatter用SoC 3種発売、MediaTekが5G FWA用T930発売(2025.05.15)
- 高周波・RFニュース 2025年5月14日 TDKが8A流せる積層チップビーズを発表、Samsungが5.8㎜の薄さのGalaxy 25 Edge発表、InfineonがマルチセンステクノロジーのPSOC 4100T Plus発表、u-bloxがPointPerfect Global発表、下院委員会が3GHzと6GHzをオークションから除外(2025.05.14)
« (5/21まで)修理のあとに エトセトラ@中之島香雪美術館を観てきた。折れ伏せというのを初めて知ったがこれは大変な労力…頭が下がる。 | トップページ | 吉野家で焦がしねぎ焼き鳥丼(大)をいただく。あ、これは焦がしてるのはネギだけで焼き鳥はあまりそういう感じはなかった。でもなかなか美味しかった。 »
コメント