fortran66のブログ

fortran について書きます。

【寝言】巧言令色鮮いかな仁

森元首相

雄弁会出身で話の長い森元首相が話を簡潔にするように言ったことが面白いところでしたが、協賛金目当てで客寄せのために陸上競技やビーチバレー等で女子運動選手だけに裸の様な格好を強いていることに無批判な外人どもが説教を垂れ始めてさらに滑稽さが増しました。

字義そのままの言葉尻にのみ囚われるのはアスペや発達障害の典型的な症状ですが、実際の行動や現実の状況をみて判断しても良かろうかと思います。

菅首相には、初心に帰ってクーベルタン男爵のアマチュアリズムの精神を取り戻すべきと一般論を語りつつ、賄賂と金儲けに走っている IOC の腐れ外人どもに皮肉を飛ばしてもらいたいものです。

f:id:fortran66:20210213113417p:plain


OH MY GAH!

老人問題まで絡んできましたが、老若男女を問わず、話は要点だけにして短く切り上げてもらいたいものです。

【乞食速報】Humble Bundle で Manning の Modern Fortran 電子版が安い!

Manning の 数学関係本がセットで安い!

今回は code for America ではなく、別の団体が後援しているようなので、鬼畜米英・親ソ反米思想の方も遠慮なくどうぞw 私はお米大好き。赤飯大好き。

$12 で Modern Fortran + 他12 冊(電子版)買えます。期限はあと3週間弱。

www.humblebundle.com

f:id:fortran66:20210126110720p:plain

精米 精日

精米を食べるのは精神的米国人 

www.newsweekjapan.jp

そろそろ玄米じゃなく白米を好むのは、白人優位主義の犬笛だとか言い出すサヨちゃんがでてもいいはず。

www.bbc.com

【精米】 山形県産 白米 つや姫 5kg. 令和2年産

【精米】 山形県産 白米 つや姫 5kg. 令和2年産

  • 発売日: 2014/01/27
  • メディア: 食品&飲料

【精米】 青森県産 白米 青天の霹靂 2kg 令和2年産

【精米】 青森県産 白米 青天の霹靂 2kg 令和2年産

  • 発売日: 2016/06/14
  • メディア: 食品&飲料

【寝言】水星見えた!

水星 

水星は24日が東方最大離角とのことでまさに今がチャンスと、夕方なんとなく夕焼け空を眺めやると、小さく水星が光っておりました。日没後四五十分おおむね太陽が沈んだ場所からやや北よりの方角でした。 www.nao.ac.jp

今日は日本晴れの快晴で、珍しく西の空にも全然雲がなく格好の日和でした。

水星はなかなか肉眼では見るチャンスが少ないのでめでたいですね。

スマホ 5 倍 (光学2倍、残りデジタル)からの切り取り画像。

f:id:fortran66:20210125230251j:plain

fortran66.hatenablog.com

【寝言】未来世紀

フレネルレンズ

AU通販のお勧めでメールで、スマホの画面を拡大するフレネルレンズが出て来たんですが、未来世紀ブラジルそのままで草。 文明が退化しているような・・・

f:id:fortran66:20210123005759j:plain

https://www.film.ru/sites/default/files/styles/thumb_1024x450/public/movies/frames/Brazil-03.jpg

wm.auone.jp

www.film.ru

リボからローンへ

クレジットカードは、「支払いが楽になりますよ」とやたらとリボ払いを勧めてきますが、AU はその上で「リボ払いが苦しいならローンで一括返済すれば楽ですよ」と、サラ金ローンまで勧めてくるので面白いです。

大麻は無害と称して、次はヘロインを勧めてくるようなものw

本来クレジットカードはリボやミニマムペイメントなどを使わせつつ、先送り分に高金利をかけて儲けるものなのだから、日本流の無利息月極め一括つけ払いではやってられんとは思います。

【メモ帳】きぼう Nature に FORTRAN

宇宙ステーション きぼうを見よう

今日の夕方、雲間からきぼう(というか国際宇宙ステーション)を見ることが出来ました。かなり明るいですね。

きぼうの予報サイトが移っていたのでメモっておきます。

地上からの見え方の予報図が見易くなっていました。 当然ですが、衛星は予報の時間通りに現れるので見つけやすいです。

lookup.kibo.space

Nature の FORTRAN 記事に誤り

Nature に科学を変えたコンピュータ・プログラム10傑のような記事がでて、その中の筆頭が FORTRAN でした。しかし、記事中に誤りがあると思います。

That changed in the 1950s with the development of symbolic languages — in particular the ‘formula translation’ language Fortran, developed by John Backus and his team at IBM in San Jose, California.

とありますが、Backus が FORTRAN を開発していた頃、彼の率いる開発グループは東海岸ニューヨーク市内を転々としたと記録には書かれています。Backus は 1970年代には西海岸に移っていたようですが。

www.nature.com

www.softwarepreservation.org

http://www.softwarepreservation.org/projects/FORTRAN/paper/Backus-Think.pdf

足やすり

かかとがガサガサにひび割れてきたので、ダイソー100円のかかとやすりでゴシゴシこすったところ、2~3日でがさつきが無くなってナイスでした。目視ではまだ荒れてますけど。光の波長以上、手触りのスケール長以下の乱れに変化!

【寝言】共通テストで鼻出しマスク

お尻を出した子一等賞!

mainichi.jp

鼻出しマスクで失格の40代受験生、トイレにこもり警察出動 注意されせき込む仕草も

16、17日に実施された大学入学共通テストで、鼻をマスクで覆うように試験監督者から何度も注意を受けながら指示に従わず失格となった受験生が、失格を告げられた後、会場内のトイレに立てこもり警察に退去させられていたことが文部科学省関係者への取材で判明した。

 関係者らによると、この受験生は40代で、16日に東京都内の会場で地理歴史・公民、国語、外国語を受験した。マスクから鼻が出ていたため、各科目の試験監督者が試験中に計6回注意したほか、休憩時間中にも正しい着用を促したが、従わなかった。注意を受けた後、せき込むような仕草を見せることもあったという。

 共通テストの実施主体である大学入試センターは、試験中のマスク着用を義務づけ、試験監督者の指示に従わなかった場合は不正と認定される可能性があることを受験生に伝えている。【大久保昂】

news.abs-cbn.com

鼻出しマスク

口にもチャックが40代ジェントルマンのたしなみ。 f:id:fortran66:20210119000812j:plain

【メモ帳】多重ディスパッチ YRYR その他

Fortran で多重ディスパッチ

Julia 方面で多重ディスパッチがどうのこうのと言うのを聞いて分かったふりをしつつ、実はよくオーバーロードとの違いが分からないので調べてみることにします。

多重ディスパッチ (multiple dispatch) とオーバーロード (overload) の違いは、前者が動的に(実行時に)呼び先を解決するのに対し、後者は静的に(コンパイル時に)呼び先を解決するもののようです。「多重」とついているのは、まず文脈的に class によるオブジェクト指向的な動的呼び先解決という前提があるようです。この場合いわゆる this/self/me で書かれるような第一引数にのみに依存する単一ディスパッチになるのに対して、複数の引数の組み合わせによる呼び先解決が出来ることを誇って多重ディスパッチと言うようです。

Fortran では Fortran90 で interface 定義によって総称名による静的な overloading を実現していました。これは複数の引数の型の組み合わせで、呼び先が解決されます。

さらに Fortran 2003 以降で class システムによるオブジェクト指向的な動的呼び先解決が導入されるとともに、class 内の generic type-bound procedure によって、いわゆる this/self/me の第一引数以外の引数に対しても呼び先解決を依存させられるようになりました。これは一種の多重ディスパッチと言っていいのではないかと思えます。(よく概念の定義を消化していないので、正しいのかどうか分かりませんが。)

Fortran による多重ディスパッチ例

    module test_m
        implicit none
        
        type :: base_t
            integer :: n = 0
        contains 
            procedure :: pri, prr
            generic :: pr => pri, prr
        end type base_t
        
    contains
        
        subroutine pri(me, i)
            class(base_t), intent(in) :: me
            integer, intent(in) :: i
            integer :: k
            print *, (i, k = 1, me%n)
        end subroutine pri

        subroutine prr(me, x)
            class(base_t), intent(in) :: me
            real, intent(in) :: x
            integer :: k
            print *, (x, k = 1, me%n)
        end subroutine prr
        
    end module test_m
    
    
    program multiple_dispatch
        use test_m
        implicit none
        
        type, extends(base_t) :: deriv_t
            real :: x = 99.0
        end type deriv_t
        class(base_t), allocatable :: t(:)
        integer :: i
        
        allocate(t(2))
        t(1) = base_t(3)
        t(2) = deriv_t(2, 1.0)
        
        do i = 1, 2
            call t(i)%pr(i)
            call t(i)%pr(real(i))
        end do
    end program multiple_dispatch

実行結果

Compiling with Intel(R) Visual Fortran Compiler 19.1.3.311 [IA-32]...

           1           1           1
   1.000000       1.000000       1.000000
           2           2
   2.000000       2.000000

昆虫物語 新みなしごハッチ DVD-BOX

昆虫物語 新みなしごハッチ DVD-BOX

  • 発売日: 2007/05/30
  • メディア: DVD

YRYR 第19巻 ネタバレあり

ゆるゆり第19巻、綾乃と京子が仲良くしていたので良かったです!

ゆるゆり (19) 特装版 (百合姫コミックス)

ゆるゆり (19) 特装版 (百合姫コミックス)

  • 作者:なもり
  • 発売日: 2020/12/23
  • メディア: コミック

付録で結衣がおみくじで凶をひいていましたが、ごゆるりさんとして大室家の方と泥沼展開の期待。

偽ジャミロ・クワイさん

例のバッファロー男が旧民主党の鳩山ポッポみたいなことを言っていて草

「チャンズリー容疑者は自分は宇宙人で高次の存在で、地球にいるのは別の現実にアセンション(上昇)を行うためだと公言している」

アニメ化して欲しい。

https://afpbb.ismcdn.jp/mwimgs/6/7/-/img_67a54a8612842058c93e94de20d6c6b9165085.jpg

でも歯並びが良すぎて、ナチュラル感が無いのでアセンションは無理だと思いますw 俗人は俗人らしく天地の化育に参画するあるよろし。

HIGH TIMES : SINGLES 1992-2006(初回生産限定盤)(DVD付)

HIGH TIMES : SINGLES 1992-2006(初回生産限定盤)(DVD付)

www.afpbb.com

https://afpbb.ismcdn.jp/mwimgs/8/7/-/img_872858b7cf3c6b8d22451909398fa728205269.jpg

【1月16日 AFP】米連邦議会議事堂乱入で、ドナルド・トランプ(Donald Trump)米大統領の支持者らが「議員らの拘束と暗殺」を計画していたと、連邦検察当局が主張した。

 検察当局は14日深夜に裁判所に提出した書類の中で、アリゾナ州のジェイク・アンジェリ(Jake Angeli)ことジェイコブ・アンソニー・チャンズリー(Jacob Anthony Chansley)容疑者(33)の勾留を求めた。同容疑者は、米極右陰謀論「Qアノン(QAnon)」の信奉者で、角つきの毛皮の帽子をかぶってマイク・ペンス(Mike Pence)副大統領のデスクにいるところを写真に捉えられている。

 検察当局は6日の議事堂占拠について、「議事堂でのチャンズリー容疑者自身の言動をはじめとする有力な証拠が、暴徒が連邦政府の議員らの拘束と暗殺を意図していたことを裏付けている」と主張した。

 チャンズリー容疑者はペンス氏に宛てて「時間の問題にすぎない。正義の裁きが下される」と書かれたメモを残していたという。

 検察当局は、チャンズリー容疑者は薬物常習者で、心に問題を抱えている可能性があると指摘。「チャンズリー容疑者は自分は宇宙人で高次の存在で、地球にいるのは別の現実にアセンション(上昇)を行うためだと公言している」と述べ、同容疑者が「逃亡し、社会に危険をもたらす恐れが大きい」として勾留を求めている。(c)AFP

補足

www.youtube.com

(ネタ元 https://mobile.twitter.com/masatheman/status/1353610774485233664 )