うだうだWeblog2

2020-04-062020-04-06

工藤美代子「サザエさんと長谷川町子」幻冬舎新書

[ Amazon ] ISBN 978-4-344-98584-1, \840 + TAX

　いやいやいや，久々に一気読み，面白かった。「月刊Hanada」に連載されたルポルタージュというから，コッテコテのバカ右翼，とはいかなくても，やっぱそれなりに偏っているんだろうと疑っていたが全くの杞憂であった。長谷川町子のエッセイマンガ，三女・長谷川洋子のエッセイを読んでも靴下痛痒だった所がクリアに調査されており，全部ではないが主要な「長谷川家の謎」のあらましはほぼ掴めた。つーことで，「長谷川家上京時の台所事情」「サザエさん朝日新聞移籍前の不可解な連載・休載の繰り返し」「数々の著作権裁判」「長女・長谷川毬子・町子と洋子との決裂」「長谷川町子と毬子の死」，そして本書冒頭には「長谷川町子遺骨盗難事件の顛末」が述べられている。もちろん，プライベートな三姉妹＋母親で構成された結束の固い一家のこと，全てが詳らかになるわけではないが，ワシの下世話な知識欲は大方満たされたのだから，幻冬舎新書のページ水増し用としか思えない，ページ上部マージンの不自然な長さには目を瞑ってやろうというものである。

　ベテランノンフィクション作家として手堅い仕事を続けている著者であるが，保守政治家の評伝については興味が持てず，ワシがきちんと読んだのは本作が初めてである。筆力はさすがで一気呵成に読めたのは当然としても，小泉純一郎の姉とコンタクトが取れたり（花田編集長のツテか？），最晩年に近い長谷川家の内情に詳しい人物から話を聞いたりして，内容の信憑性に疑問が所が無いでは無いが，不自然なこじつけ的推理は皆無で，ははぁなるほどねぇとワシは読みながら感心しっぱなしであった。

　今よりずっと苛烈な女性蔑視的社会状況の中，父親を早くに亡くし，未亡人となった母親と三姉妹が戦争を挟んでの激動の時代を生き抜いてきたのである。尋常でない程の硬い血縁的結束があってこその，町子の「サザエさん」の成功があった訳で，莫大な収入があろうがなかろうが，自分が作ったキャラクターを無断で使用するなどということを許すことは，女性蔑視時代の昭和日本を爆進してきた長谷川家にはあり得ない選択であったのだろう。それ以上に，おしとやかな日本女性を表面的には見せていた町子の性格がかなり激しいものであることも本書には幼少期からの証拠と共に述べられており，社会的成功も数々の告発も，通底にはこの負けん気の強さ故のものであることが理解できるようになっている。

　最晩年に三姉妹が仲違いした真の理由は不明であるが，これについては当事者二人が亡くなっている以上，永遠の謎であろう。著者によれば「莫大な財産の相続」に起因すると読めるが，これについても存命の当事者が語らない以上，分からないとしか言いようがない。実は長谷川洋子の著作を読んだワシも「本当かそれ？」と疑っていたから，工藤の疑問は当然である。しかしまぁ，そのぐらいが本件については限界であろう。ワシら長谷川町子愛好者は，長谷川町子美術館，そして今度開設した長谷川町子記念館の財源になったことを寿げばいいのである。

　暴かれたくないプライベートが記述された本書に対して毬子・町子はあの世で大激怒していることであろうが，「サザエさん」（描線・風俗の変遷が凄い）や「いじわるばあさん」（孤独感の描写が良い），そして現在のエッセイマンガの元祖である「サザエさんうちあけ話」「サザエさん旅あるき」が現在に至るも面白く読める不朽の名作であることに水を差すものではなく，読了後はむしろ益々畏敬の念を持つに違いない。本書では作品論にあまり踏み込んでいない所が個人的には物足りないが，より深く長谷川一家のあらましを知りたい向きには必読の一冊であり，世間に抗いながらキャリアを重ねて生きていくことの尊さに打ち震えること間違いないのである。　

2020-04-052020-04-05

4/5(日) 駿府・晴

　ピーカン晴の春のうららかな日曜日。神さんから言われて気が付いたが，この土日は本来，大々的に静岡まつりが開催されており，それを当て込んでの商売の準備に勤しんでいたはずの方々が多数いたはずなのである。それがこのコロナウイルス騒動で中止となり，さぞかし打撃は大きかろう。ちょうど駿府城公園の桜は満開であるので，開催されていれば，どんぴしゃりの行楽日和にソメイヨシノの花見客でさぞかし賑わったであろうに，残念なことである。

　ちなみに，駿府城公園の桜は大手門の方より，水落から市立静岡病院の方に回った外堀沿いが一番いい。セノバ側の桜も良かったのだが，昨年（だっけか？）の台風で，堀に伸びた枝が軒並み折れてしまったようで，だいぶん小規模になってしまったのである。ということで，感染防止を心がけながら，ウォーキングがてら神さんと桜見物。

　ついでに2年以上は履き続けている靴の代わりを購入，初めて足の３D形状を計測してもらい（足スキャンという奴かな？）， 26.5cm, 2Eサイズであることが判明した。とはいえ，紳士靴は３Eが普通のようで，ワシの足高が若干高めであることから，３Eを靴紐できっちり結えることでちょうど良くなるというアドバイスも頂いた。この新調した靴で明日からの新学期準備期間を乗り切りたいものである。

　高性能・高精度計算で科研費を頂戴したからには，次に繋がるものも考えておく必要があるということで，Chebfunあたりを勉強しなきゃなぁと，つらつら親玉のTrefethenのテキストを眺めている。どうせコロナ騒ぎでGWは引き籠もらざるを得ないに決まっているので，この間にお試し的な数値実験に勤しむことにしようかな。9月の学会シーズンまでにこの騒動が収まっていればいいけど，どーせできたところでバーチャルでしょ，情報処理学会みたいに金のあるところはZoomで実行できるんだろうけど，金のない応用数理学会みたいなところはどうなることやら。はっ，ひょっとして飲食業だけじゃなく学会もコロナ淘汰に巻き込まれてしまうのかしらん？

　3年目に突入したフィリピーナとの英会話教室でも，話の冒頭はコロナばかり。治療薬の目星がつき，ワクチンの治験が終了して大量生産できる見込みが立つまでは感染が広がるばかりで治る筈もないから，今年いっぱいは国内出張すらままならない状況は続くだろうと覚悟している。・・・最もワシみたいな根っからのヒッキーはプログラミングに勤しむ時間が増えるのは有り難いのではあるが。

　つらつら，春のうららかな気候を楽しみます。感染したらそれどころじゃないから，健康なうちに有り難みを味わっておくことにしよう。

2020-04-042020-04-04

4/4(土) 駿府・晴

　天気晴朗，そよ風が吹く，穏やかな春の土曜日であるが，コロナウイルス騒動で，全世界的にメメントモリ状況に陥っていて心穏やかならず。爆発的な感染が広がった中国，イタリア，アメリカではロックダウンを行うにも理解が得られ易かろうが，日本では個々人の行動が抑制されているせいか，まだその状況には至っていないという認識が一般的で，故に政府も非常事態宣言が出せずにいるらしい。起こってからでは遅いが，早ければ後々そんな必要はなかったと批難される可能性が高いし，大打撃を受けている飲食業・旅行業・その他もろもろの企業や個人への補償策がまとまらないうちは宣言もできないだろう。さりとてワクチンもない現状では感染者が減ることは当面考えられないので，早い話が「さっさとやれ」に尽きる。

　職場の方は，当然，例年通りの全学的入学式は挙行できないので，感染防止策をしっかり取った上で，学科別に分散して新入生ガイダンスを行った。学長以下，ワシも額縁ょ〜として付き従って水戸黄門御一行の如く，各教室を回っては祝意を述べて回る事になる。ワシはいいけど，毎度しっかり挨拶をしなきゃならん学長は大変である。来年もこの状況だと，卒業式のように，挨拶は動画コンテンツを流し，顔見世程度でいいような気がする。・・・そんなことにならなきゃいいけど，早くワクチンできないかなぁ。 Bill Gatesの試みが成功することを祈るのみ。自分もせいぜい感染しない，させない努力をしないとなぁ。今年は東京行きも控えることにする。アキバと神保町の散策，できないとなると無性に行きたくなるのは人間のサガだな。

　WordPress 5.4にUpdate。何が変わったかよく分からんけど，Pluginに広告が表示されるようになってきたのは正直ウザい。かすみ食って生きていける訳じゃないけど，Adwareの適切な管理はしっかりやってほしい。

　Python数値計算入門，第２章見直し終了。演習問題は１０進ベースなので，decimalパッケージを使った回答例を作った。第３章はさらっと見ておき，Matplotlibの説明は全体的にグラフを作ってから，必要最低限の説明をしておく程度にしておくことにして，今のところ後回しにしておく予定。

　次週は，自分の担当分のオンラインコンテンツを作っておかないとなぁ。PowerPoint資料に動画と音声を流し込んで，Microsoft Streamでアップしておくのが一番楽かな。小テストはMS Formsで。Office356に頼りっぱなしだが，今こそCloudの力を発揮して持ち堪えて頂きたい。

　今日は溜まった漫画と新書の消化に充てます。

2020-04-022020-04-02

4/2(木) 袋井・？

　一日中，あれこれ忙殺されていたので天気が不明のままである。雨は降っていなかったと思われる。老眼鏡のネジが外れて使いづらいのなんの。今週末まで時間が取れないから，バックアップ用の奴で凌ぐしかない。

　ぼちぼち「Python数値計算」の完成が見えてきたので，進行メモがてら，個々の更新をマメにするついでにどこまで進んだかを書きつけておくことにする。但し内容は薄くなるけど。

　本日は第1章の手直し，大体終わった。次は第2章の手直し。

　コロナ，収束しそうにないので，感染防止しながら日々を過ごすしかない。こういう時に限って科研費が当たったりしても，折角確保した旅費の使い道がない！　まぁ，プログラミングを頑張るしかないなぁ。20年以上申請書書き続けてきたけど，今後3年間は報告書だけでいいので，気楽・・・じゃないな，業績重ねないと次がないのでかえってプレッシャーが増えるのだ。額縁ょ～は頑張るしかないのだ。

　明日も頑張ります。

2020-03-252020-03-25

LAPACK 3.9.0をGCCでインストール

　気が付いたらLAPACK 3.6.0のインストール方法を書いてから大分経ってたので，Ubuntu環境にTAR ballからインスト―する方法をメモ書きしておく。前提として

GCC (gcc, gfortran)が使える
make (GNU make)が使える
/usr/local/libにライブラリファイル(*.a)を，/usr/local/includeにインクルードファイル(*.h)をインストールできる権限(sudo)がある

を仮定している。 $ 太字がコマンドである。ついでに拙著「LAPACK/BLAS入門」のサンプルプログラム実行方法も書いておいた。

1. LAPACK 3.9.0のTAR ball(v3.9.0.tar.gz)をダウンロード

$ wget https://github.com/Reference-LAPACK/lapack/archive/v3.9.0.tar.gz
–2020-03-25 18:38:15– https://github.com/Reference-LAPACK/lapack/archive/v3.9.0.tar.gz
Resolving github.com… 52.192.72.89
Connecting to github.com|52.192.72.89|:443… connected.
HTTP request sent, awaiting response… 302 Found
Location: https://codeload.github.com/Reference-LAPACK/lapack/tar.gz/v3.9.0 [following]
–2020-03-25 18:38:16– https://codeload.github.com/Reference-LAPACK/lapack/tar.gz/v3.9.0
Resolving codeload.github.com… 52.193.111.178
Connecting to codeload.github.com|52.193.111.178|:443… connected.
HTTP request sent, awaiting response… 200 OK
Length: unspecified [application/x-gzip]
Saving to: “v3.9.0.tar.gz”
[ <=> ] 7,534,567 4.84M/s in 1.5s
2020-03-25 18:38:18 (4.84 MB/s) – “v3.9.0.tar.gz” saved [7534567]
$ ls -l v3.9.0.tar.gz
-rw-rw-r– 1 tkouya tkouya 7534567 Mar 25 18:38 v3.9.0.tar.gz
$ tar zxvf v3.9.0.tar.gz
lapack-3.9.0/
lapack-3.9.0/.appveyor.yml
(略)
lapack-3.9.0/meson.build
lapack-3.9.0/meson_options.txt
$

2. “lapack-3.9.0″ディレクトリに移動してMakefile用のincludeファイル(make.inc)をgfortran用に設定

$ cd lapack-3.9.0
$ ls
BLAS CTestCustom.cmake.in lapack.pc.in meson.build
CBLAS DOCS lapack_testing.py meson_options.txt
CMAKE INSTALL LICENSE README.md
CMakeLists.txt lapack_build.cmake Makefile SRC
CTestConfig.cmake LAPACKE make.inc.example TESTING
$ ls -l INSTALL
total 228
-rw-rw-r– 1 tkouya tkouya 483 Nov 21 16:57 CMakeLists.txt
-rw-rw-r– 1 tkouya tkouya 5355 Nov 21 16:57 dlamch.f
（略)
-rw-rw-r– 1 tkouya tkouya 2140 Nov 21 16:57 slamchtst.f
-rw-rw-r– 1 tkouya tkouya 21748 Nov 21 16:57 tstiee.f
$ cp INSTALL/make.inc.gfortran ./make.inc

3. Reference BLASを生成

$ cd BLAS
$ ls
blas.pc.in CMakeLists.txt Makefile SRC TESTING
$ make
make -C SRC
(略)

4. CBLASを生成

$ cd ../
$ cd CBLAS
$ ls
cblas.pc.in CMakeLists.txt include README testing
cmake examples Makefile src
$ make
cp include/cblas_mangling_with_flags.h.in include/cblas_mangling.h
make -C src

5. librefblas.a, libcblas.aが生成されていることを確認

$ cd ../
$ ls -l
-rw-rw-r– 1 tkouya tkouya 384424 Mar 25 18:44 libcblas.a <– cblas
-rw-rw-r– 1 tkouya tkouya 618312 Mar 25 18:43 librefblas.a <– reference BLAS

6. LAPACKを生成

$ make
make -C INSTALL run
make[1]: Entering directory /home/tkouya/pool/lapack/lapack-3.9.0/INSTALL' gfortran -O2 -frecursive -c -o lsame.o lsame.f （略) --> LAPACK TESTING SUMMARY <-- Processing LAPACK Testing output found in the TESTING directory SUMMARY nb test run numerical error other error ================ =========== ================= ================ REAL 1308195 0 (0.000%) 0 (0.000%) DOUBLE PRECISION 1309007 0 (0.000%) 0 (0.000%) COMPLEX 760590 1 (0.000%) 0 (0.000%) COMPLEX16 768086 1 (0.000%) 1 (0.000%)





--> ALL PRECISIONS 4145878 2 (0.000%) 1 (0.000%)



7. LAPACKEを生成

$ cd LAPACKE $ make (略) make[1]: Leaving directory/home/tkouya/pool/lapack/lapack-3.9.0/LAPACKE/utils’

8. ファイル確認

$ cd ../
$ ls -l
-rw-rw-r– 1 tkouya tkouya 384424 Mar 25 18:44 libcblas.a
-rw-rw-r– 1 tkouya tkouya 12336044 Mar 25 18:51 liblapack.a
-rw-rw-r– 1 tkouya tkouya 6898692 Mar 25 19:11 liblapacke.a
-rw-rw-r– 1 tkouya tkouya 618312 Mar 25 18:43 librefblas.a
-rw-rw-r– 1 tkouya tkouya 630092 Mar 25 18:51 libtmglib.a

9. /usr/local/libにライブラリ(*.a)ファイルを，/usr/local/includeにヘッダファイル(*.h)をコピー

$ sudo cp *.a /usr/local/lib
$ sudo cp CBLAS/include/*.h /usr/local/include
$ sudo cp LAPACKE/include/*.h /usr/local/include
$ ls -l /usr/local/lib
-rw-r–r– 1 root root 384424 Mar 25 19:15 libcblas.a
-rw-r–r– 1 root root 12336044 Mar 25 19:15 liblapack.a
-rw-r–r– 1 root root 6898692 Mar 25 19:15 liblapacke.a
-rw-r–r– 1 root root 618312 Mar 25 19:15 librefblas.a
-rw-r–r– 1 root root 630092 Mar 25 19:15 libtmglib.a
$ ls -l /usr/local/include
-rw-r–r– 1 root root 21243 Mar 25 20:42 cblas_f77.h
-rw-r–r– 1 root root 29918 Mar 25 20:42 cblas.h
-rw-r–r– 1 root root 444 Mar 25 20:42 cblas_mangling.h
-rw-r–r– 1 root root 8051 Mar 25 20:42 cblas_test.h
-rw-r–r– 1 root root 4236 Mar 25 19:15 lapacke_config.h
-rw-r–r– 1 root root 834528 Mar 25 19:15 lapacke.h
-rw-r–r– 1 root root 474 Mar 25 19:15 lapacke_mangling.h
-rw-r–r– 1 root root 33161 Mar 25 19:15 lapacke_utils.h
-rw-r–r– 1 root root 455216 Mar 25 19:15 lapack.h

10. 「LAPACK/BLAS入門」サンプルプログラムをインストール

$ git clone https://github.com/tkouya/lapack_blas_tutorial
$ cd lapack_blas_tutorial

Makefile.unix → 下記のように書き換え

#*************************************************#
# LAPACK/BLAS Tutorial                            #
# Makefile for Linux gcc or icc environment       #
# Last Update: 2016-12-02 (Fri) T.Kouya           #
#*************************************************#
# ------------------------ start of configuration --------------------------
# Intel C compiler
#include lapack_icc.inc ←コメント化

# GNU Compiler Collection
include lapack_gcc.inc ← コメント外して有効化

（略)
# ------------------------ end of configuration --------------------------
all: first matvec_mul linear_eq blas row_column_major eig dgecon openmp pthread ← "gpu"を外す
#all: first matvec_mul linear_eq blas row_column_major gpu eig dgecon openmp pthread spblas_mkl

#*************************************************#

# LAPACK/BLAS Tutorial #

# Makefile for Linux gcc or icc environment #

# Last Update: 2016-12-02 (Fri) T.Kouya #

#*************************************************#

# ------------------------ start of configuration --------------------------

# Intel C compiler

#include lapack_icc.inc ←コメント化

# GNU Compiler Collection

include lapack_gcc.inc ← コメント外して有効化

（略)

# ------------------------ end of configuration --------------------------

all: first matvec_mul linear_eq blas row_column_major eig dgecon openmp pthread ← "gpu"を外す

#all: first matvec_mul linear_eq blas row_column_major gpu eig dgecon openmp pthread spblas_mkl

lapack_gcc.inc → 下記のように書き換え

#*************************************************#
# LAPACK/BLAS Tutorial                            #
# Configuration file for GNU compiler collection  #
# Last Update: 2016-12-02 (Fri) T.Kouya           #
#*************************************************#
CC=gcc
FC=gfortran
CPP=g++

INC = -I/usr/local/include
#LIB = -L/usr/local/lib/gcc  -lgfortran -lm
LIB = -L/usr/local/lib  -lgfortran -lm

CBLAS_INC = $(INC)
CBLAS_LIB = $(LIB) -lcblas -lrefblas -lgfortran

LAPACKE_INC = -I/usr/local/include/lapacke $(CBLAS_INC)
#LAPACKE_LIB = -L/usr/local/lib/gcc -llapacke -llapack $(CBLAS_LIB)
LAPACKE_LIB = -L/usr/local/lib -llapacke -llapack $(CBLAS_LIB)

#IMKL_INC=-I/opt/intel/mkl/include
#IMKL_LIB=-L/opt/intel/mkl/lib/intel64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread -L/opt/intel/lib/intel64 -lifcore
#IMKL_LIB=-L/opt/intel/mkl/lib/intel64 -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -L/opt/intel/lib/intel64 -lifcore -liomp5

OPENMP = -fopenmp
OPENMP_LIB = -lgomp

#*************************************************#

# LAPACK/BLAS Tutorial #

# Configuration file for GNU compiler collection #

# Last Update: 2016-12-02 (Fri) T.Kouya #

#*************************************************#

CC=gcc

FC=gfortran

CPP=g++

INC = -I/usr/local/include

#LIB = -L/usr/local/lib/gcc -lgfortran -lm

LIB = -L/usr/local/lib -lgfortran -lm

CBLAS_INC = $(INC)

CBLAS_LIB = $(LIB) -lcblas -lrefblas -lgfortran

LAPACKE_INC = -I/usr/local/include/lapacke $(CBLAS_INC)

#LAPACKE_LIB = -L/usr/local/lib/gcc -llapacke -llapack $(CBLAS_LIB)

LAPACKE_LIB = -L/usr/local/lib -llapacke -llapack $(CBLAS_LIB)

#IMKL_INC=-I/opt/intel/mkl/include

#IMKL_LIB=-L/opt/intel/mkl/lib/intel64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread -L/opt/intel/lib/intel64 -lifcore

#IMKL_LIB=-L/opt/intel/mkl/lib/intel64 -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -L/opt/intel/lib/intel64 -lifcore -liomp5

OPENMP = -fopenmp

OPENMP_LIB = -lgomp

Makeしてコンパイル→実行ファイルの一つをお試し

$ make -f Makefile.unix
$./lapack_dgeev ←行列の固有値・固有ベクトルを計算
Dim = 3 ←次元数を入力
Eigenvalues =
0: ( 1.82216, 0)
1: ( 0.103726, 0.366921)
2: ( 0.103726, -0.366921)

(0.619085, 0) (0.634996, 0) (0.634996, 0)
(0.641249, 0) (-0.399111, -0.289681) (-0.399111, 0.289681)
(0.453358, 0) (-0.396179, 0.443416) (-0.396179, -0.443416)
||A * right_ev – lambda * right_ev||_F / ||A||_F = 4.35690729441612009e-16
||A^T * left_ev – lambda * left_ev||_F / ||A||_F = 3.79955740713784858e-16

2020年7月
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31