芥川龍之介が「蜘蛛の糸」を発表して百年。高二の秋の文化祭,クラスの仮装行列のテーマが 蜘蛛の糸だった。お釈迦様の極楽タワーの竹を近所から切り出し,地獄の焔と煙の絵を描いた。犍陀多に続いて蜘蛛の糸(登山部の赤いザイル)に群がる地獄の亡者だったころ。
2022年11月23日水曜日
軸対称電荷分布(1)
2022年11月22日火曜日
Mathics(2)
Mathics 5.0.2on CPython 3.10.8 (main, Oct 13 2022, 09:48:40) [Clang 14.0.0 (clang-1400.0.29.102)]using SymPy 1.10.1, mpmath 1.2.1, numpy 1.23.4Copyright (C) 2011-2022 The Mathics Team.This program comes with ABSOLUTELY NO WARRANTY.This is free software, and you are welcome to redistribute itunder certain conditions.See the documentation for the full license.
前回より,かなりバージョンがあがっている。 GUIの画面も実装しているようなので試してみたが,これがなかなか難渋する。どうやら,Three.jsというJavascriptによる三次元グラフックシステムを利用しているらしい。これも7-8年前に流行ったようだが全く知らなかった。MathicsのGUI版の方は,Mathics-Djangoという名前で,PythonのウェブフレームワークのDjangoの上で動いていた。
djangoは,作業ディレクトリ(~/mathics-django-master/mathics_django)で,manage.py runserver を実行すると,ローカルのウェブサーバー( http://127.0.0.1:8000/)が立ち上がる仕組みになっている(エラーが出たら指示に従ってディレクトリに必要なファイルを持ってくる)。最初のエラーは,scipy-stackのインストールで,次のエラーは,データベースの場所の問題だったが,~/.local/var/mathicsというデフォルトのディレクトリを作成することでようやく解決することができた。pip3 install Mathics-Djangocd mathics-django-master/mathics_django*You have 21 unapplied migration(s).python3 manage.py migratepython3 manage.py runserver*error AttributeError: module 'scipy.linalg' has no attribute 'inv'pip3 install scipy-stackpython3 manage.py runserver*error sqlite3.OperationalError: unable to open database file*error django.db.utils.OperationalError: unable to open database filemkdir ~/.local/var/mathics
早速実行してみたが,相変わらず,計算量の制限は大きく,1500!(10進 4114桁)くらいまでしか計算できない。本物のMathematicaならば,10000000!(10進 65 657 059桁)でも平気で計算できるのだけれど。
なお,List of computer algebra systems には無事に掲載されていた。2022年11月21日月曜日
マストドン(4)
サーバ ユーザ数 ポスト数mastodon.social 87.7万 42.3Mpawoo.net 77.9万 67.3Mmstdn.jp 28.8万 62.0Mmastodon.cloud 22.8万 4.5Mmastodon.online 16.5万 2.5Mmas.to 12.7万 1.7Mmastodon.world 7.4万 0.2M
2022年11月20日日曜日
マストドン(3)
国内(MAU) 世界(MAU)
なお,世界的にはこれらの他に,WhatsApp(20億,メタ=米国) ,WeChat(13億…中国国内分,テンセント=中国)などもある。
7つのSNSすべてについて自分のアカウントを作っている。LINEは家族連絡用のみ,YouTubeは情報検索・情報入力用,noteは無料コンテンツに誘導された場合だけ,Twitterは世の中の動きをみるため(エコーチェンバーになっているのであまり意味がないかも),Instagramは散歩スナップの発信用,高齢者ユーザが多いFacebookでは友人・知人の様子がわかる,若者向けTikTokはほとんど使っていない。
マストドンには,分散サーバ(インスタンス)の数が1650ほどある。その合計ユーザ数が700万人だ。各サーバ平均4000人だが,フォローしていればどのインスタンスのユーザでも自分のタイムラインに見える。ただし,Twitterに比べて1桁小さい規模である。Twitterでは900人ほどをフォローしフォローされているが,5年前のマストドンで自分がリンクしていたのは200人ほどであったが多くは休眠状態だ。そんなわけで,タイムラインを眺めていても世界の様子を知ることはまだできない。
2022年11月19日土曜日
弾道ミサイルの軌道(5)
2022年11月18日金曜日
マストドン(2)
2022年11月17日木曜日
無敵
2022年11月16日水曜日
三宅雪嶺記念館
2022年11月15日火曜日
80億人の日
2022年11月14日月曜日
Intel Fortran
https://www.intel.com/content/www/us/en/develop/documentation/get-started-with-intel-oneapi-base-hpc-macos/top/before-you-begin.html?cid=oth&campid=iags_install&source=installer?cid=oth&campid=iags_install&source=installer. /opt/intel/oneapi/setvars.sh
(4) 簡単なプログラム a.f を作って実行してみた。
implicit complex*16(a-h,o-z)
write(*,*) "input a,b,c"
read(*,*) a,b,c
x1=(-b+sqrt(b**2-4*a*c))/2
x2=(-b-sqrt(b**2-4*a*c))/2
write(*,*) " x1= ",x1," x2= ",x2
end
$ ifort a.f
$ ./a.out
$ input a,b,c
$ 1,1,1
$ x1= (-0.500000000000000,0.866025403784439) x2=
(-0.500000000000000,-0.866025403784439)
できた。
SIN基底とQUADPACKによる1次元時間依存しないシュレーディンガー方程式のページの例題も試してみる。調和振動子のエネルギー準位が再現できた。なお,行列の対角化ライブラリがはいっているインテル・マス・カーネルライブラリのオプション -mkl を -qmkl にせよとの警告がでていた。
$ ifort -qmkl quadpack.f90 main.f90
$ ls
a.out main.f90 quadpack.f90
$ ./a.out
1 0.499999999999997
2 1.50000000000004
3 2.50000000000008
4 3.50000000000073
5 4.50000000003176
6 5.50000000018886
7 6.50000000502383
8 7.50000002123218
9 8.50000037227348
10 9.50000121353051
2022年11月13日日曜日
ホール・アース・カタログ
2022年11月12日土曜日
一谷嫩軍記
2022年11月11日金曜日
最小交換硬貨枚数(2)
2022年11月10日木曜日
最小交換硬貨枚数(1)
[46, 10, 10, 10, 10, 5, 1, -6]
[46, 1, 1, 1, 1, -4][50, 50, -5]
[46, 1, 1, 1, 1, 50, -5][100, 100, -6]
[46, 1, 1, 1, 1, 50, 100, 100, 100, 100, -9][500, 500, -10]
そこで,1000円以下なら数もしれているということで,方針を変えて総当たりで確認するアルゴリズムに変更した。全くスマートではないのである。この中から最小値を探すのは目の子でできる。出力される配列 [ ] の中身は,交換される硬貨枚数が並んでいて,マイナスがついたものは店から客へのバック分を表わしている。最後の出力値が交換硬貨枚数だ。
function foop(y)
c=[1,5,10,50,100,500]
k=[0,0,0,0,0,0]
for k[1] in -4:4
for k[2] in -1:1
for k[3] in -4:4
for k[4] in -1:1
for k[5] in -4:4
for k[6] in 0:2
z = 0
n = 0
for j in 1:6
n = n + abs(k[j])
z = z + c[j]*k[j]
end
if z==y
println(z," : ",k," : ",n)
end
end
end
end
end
end
end
end
foop(46)
46 : [-4, 0, 0, -1, -4, 1] : 10
46 : [-4, 0, 0, -1, 1, 0] : 6
46 : [-4, 0, 0, 1, 0, 0] : 5
46 : [1, -1, 0, -1, -4, 1] : 8
46 : [1, -1, 0, -1, 1, 0] : 4
46 : [1, -1, 0, 1, 0, 0] : 3
46 : [1, 1, -1, -1, -4, 1] : 9
46 : [1, 1, -1, -1, 1, 0] : 5
46 : [1, 1, -1, 1, 0, 0] : 4
46 : [1, 1, 4, 0, 0, 0] : 6
ここまでくるのに2時間くらいかかったので,とてもじゃないけれど自分の場合60分で大問4問も解けそうにはない。ループ変数を配列にするなんていうのは初めての経験だった。
2022年11月9日水曜日
ブルーダイアリー
2022年11月8日火曜日
世阿弥の佐渡状
2022年11月7日月曜日
NARASIA
2022年11月6日日曜日
質量とは何か
2022年11月5日土曜日
戦争と人間(3)
2022年11月4日金曜日
弾道ミサイルの軌道(4)
北朝鮮は本日7時台から8時台にかけ,ICBM級の可能性があるものも含め,少なくとも3発の弾道ミサイルを,東方向に向けて発射しました。詳細については現在分析中ですが,落下したのはいずれも我が国の排他的経済水域(EEZ)外であり,飛翔距離等については以下の通りと推定しています。① 7時39分頃,北朝鮮西岸付近から発射し,最高高度約2000 km程度で,約750 km程度飛翔し,朝鮮半島東側の日本海に落下。当該ミサイルはICBM級の可能性があります。② 8時39分頃,北朝鮮内陸部から発射し,最高高度約50 km程度で,約350 km程度飛翔し,朝鮮半島東岸付近に落下。③ 8時48分頃,北朝鮮内陸部から発射し,最高高度約50 km程度で,約350 km程度飛翔し,朝鮮半島東岸付近に落下。なお,日本列島を超えて飛翔する可能性があると探知したものについては,その後,当該情報を確認したところ,探知したものは日本列島を超えず,日本海上空にてレーダーから消失したことが確認されました。
実際に弾道ミサイルの飛来を探知した場合は,まず航空総隊/BMD統合任務部隊にデータが送信され,防衛省を経て内閣総理大臣および各省庁にデータが送られる。総務省は,全国瞬時警報システム(J-アラート)を通じてマスメディアや地方公共団体に警報を伝達する。国民には,報道や防災無線を通じて屋内退避などの自己防衛が指示される(Wikipedia J/FPS-5から引用)。
2022年11月3日木曜日
團十郎への道
2022年11月2日水曜日
戦争と人間(2)
2022年11月1日火曜日
戦争と人間(1)
2022年10月31日月曜日
門の会
阪大マンドリンクラブの歴史 (注:昭和41年〜昭和52年まで)
S. 41. 1 松本守氏 阪大マンドリンクラブを創設・・・(中略)S. 47. 1 部長 塚本氏→西村氏教養部 スト突入4 高松にて合宿 合宿中流れたはずの後期試験がありとの報にあわてて帰阪するも試験は流れる5 箕面帝釈寺にて新入生歓迎合宿はじめて外国人留学生入部和歌山での選曲をめぐってビートルズ派とオリジナル派論争7 和歌山特別演奏会司会者のうまさか,とにかく部員と観客が一体となって演奏を楽しんだ8 信州黒岩にて合宿山の上の池で泳ぐ 合宿でもハイキング恒例化 はじめて酒が入る(コンパ以外で)S. 47.12 第4回定期演奏会そのまま泊まり込みコンパへへ突入S. 48. 1 部長西村氏→徳井氏大量留年時代に入る4 土庄(小豆島)にて春合宿 自動車(若者)バス(幼児)自転車組(老人)と分かれて小豆島を動きまわる銀杏祭に出演し大好評…酒を飲んで演奏した人がいたとか…7 九重高原にて夏合宿 寒さのためカゼ大流行ハイキングの帰り人と車の競争…人が勝つ10 服部緑地YHにて合宿11 第5回定期演奏会S. 49. 1 部長 徳井氏→井元氏3 加古川演奏会に向けて加古川へ数十回でかける(車の所有者ガソリン代に泣く 有留も泣く)小豆島にて4度めの春合宿5 加古川特別演奏会(会場前から長蛇の列,マンドリンの人気に一同驚くやら喜ぶやら)教養部スト突入 麻雀大流行S. 49. 8 白馬大池(信州)にて夏合宿11 びわこ青少年の家にて強化合宿第6回定期演奏会S. 50. 1 部長 井元氏→土岐氏・・・6 奈良特別演奏会・・・(以下略)第4回定期演奏会 1972.12プロバンズ序曲・森の写影・海の悲劇LP「ABBY ROAD」より・カストリュークの歌・海に来たれメリアの平原にて・マッサリア・劇的序楽第5回定期演奏会 1973.11青春の思い出・夜想的間奏曲・情熱的組曲夢うつつ・過去への憧れ管弦楽組曲第2番序曲小英雄・マルネリラ・序曲ニ短調第6回定期演奏会 1974.11バートバカラック特集祝典輪舞曲序曲5番ハ長調祈り・イタリアの覚醒・恵まれた結婚
2022年10月30日日曜日
待兼山俳句会
二〇〇一年,(株)博報堂の社内俳句会「源八句会」に参加。二〇〇六年,待兼山俳句会に投句を始め,現在に至る。「雲」同人,俳人協会会員。著書に「たのしい回文」「笑う回文教室」(創元社)
瀬戸さんは 基礎工学部の情報工学科を卒業したのだけれど,本人もおっしゃっているように,文科系人間,言葉の人だったのだ。これにビートルズマニアが加わっている。 それは広告会社博報堂にぴったりの人材だった。
待兼山俳句会の会員は,ほとんど高齢者なのだけれど,つらつらと眺めていると向井邦夫先生の名前があった。大阪教育大学でフランス語を教えており,瀬戸さんより10歳年上だ。阪大の文学部・大学院を修了されている。フランス語の先生といえば,なんだか近寄りがたい人が多かったので,在職時代に向井先生とお話したことはなかった。
P. S. 半導体の大塚穎三先生や元総長の平野俊夫先生のお名前もあった。「待兼山」第4集に寄稿された会員の年齢構成は60代以下が2名,70代が8名,80代が19名,90代が6名だ。出身学部等は,文学部11名,薬学部6名,浪高6名などとなっていた。
[1]せとちとせ(Instagram)