芥川龍之介が「蜘蛛の糸」を発表して百年。高二の秋の文化祭,クラスの仮装行列のテーマが 蜘蛛の糸だった。お釈迦様の極楽タワーの竹を近所から切り出し,地獄の焔と煙の絵を描いた。犍陀多に続いて蜘蛛の糸(登山部の赤いザイル)に群がる地獄の亡者だったころ。
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番ハ長調祈り・イタリアの覚醒・恵まれた結婚