芥川龍之介が「蜘蛛の糸」を発表して百年。高二の秋の文化祭,クラスの仮装行列のテーマが 蜘蛛の糸だった。お釈迦様の極楽タワーの竹を近所から切り出し,地獄の焔と煙の絵を描いた。犍陀多に続いて蜘蛛の糸(登山部の赤いザイル)に群がる地獄の亡者だったころ。
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)
2022年10月29日土曜日
せとちとせ(2)
2022年10月28日金曜日
キュリー夫人
2022年10月27日木曜日
ドーナツ地球(3)
m = 1000000; R = 2.0; r = 1.0;t = Table[{RandomReal[{-3, 3}], RandomReal[{-3, 3}],RandomReal[{-3, 3}]}, m];(* s = Select[t,(#[[1]]^2+#[[2]]^2+#[[3]]^2)<1 &]; *)s = Select[t, ((Sqrt[#[[1]]^2 + #[[2]]^2] - R)^2 + #[[3]]^2) < 1 &];smax = Length[s]n[w_] := 1/Sqrt[w[[1]]^2 + w[[2]]^2 + w[[3]]^2 + 1/smax]ListPointPlot3D[s, BoxRatios -> Automatic]
p = {4 - z, 0, 0};d = Table[p - s[[i]], {i, 1, smax}];w = 1/smax*Sum[n[d[[k]]], {k, 1, smax}];v[z_] := wg[1] = Plot[v[z], {z, 0, 8}]
p = {0, 0, z - 4};d = Table[p - s[[i]], {i, 1, smax}];w = 1/smax*Sum[n[d[[k]]], {k, 1, smax}];v[z_] := wg[2] = Plot[v[z], {z, 0, 8}]
2022年10月26日水曜日
ドーナツ地球(2)
v = Table[{2 r Cos[Pi/6 i], 2 r Sin[Pi/6 i], 0}, {i, 1, 12}];d = Table[{2 r + r Cos[t], 0, r Sin[t]} - v[[i]], {i, 1, 12}];n[w_] := w/Sqrt[w[[1]]^2 + w[[2]]^2 + w[[3]]^2]m[i_] := (1 + Mod[i + 1, 2])/2f = Sum[n[d[[i]]]*m[i], {i, 1, 12}];g[t_] := f /. r -> 1.0Plot[g[t], {t, 0, Pi}]Plot[{Sqrt[g[t][[1]]^2 + g[t][[3]]^2],180/Pi*ArcTan[g[t][[3]]/g[t][[1]]]}, {t, 0, Pi}];vp = Table[{{Cos[t], Sin[t]}, {-g[t][[1]], -g[t][[3]]}},{t, 0., Pi, Pi/30}];g1 = ListVectorPlot[vp, AspectRatio -> 0.5];g2 = Graphics[{White, Disk[{0, -0.05}, 0.95, {0, Pi}]}];Show[g1, g2]
2022年10月25日火曜日
ドーナツ地球(1)
2022年10月24日月曜日
ウィーンの変位則
2022年10月23日日曜日
宗教法人法
第一章 総則(この法律の目的)第一条 この法律は、宗教団体が、礼拝の施設その他の財産を所有し、これを維持運用し、その他その目的達成のための業務及び事業を運営することに資するため、宗教団体に法律上の能力を与えることを目的とする。2 憲法で保障された信教の自由は、すべての国政において尊重されなければならない。従つて、この法律のいかなる規定も、個人、集団又は団体が、その保障された自由に基いて、教義をひろめ、儀式行事を行い、その他宗教上の行為を行うことを制限するものと解釈してはならない。(宗教団体の定義)第二条 この法律において「宗教団体」とは、宗教の教義をひろめ、儀式行事を行い、及び信者を教化育成することを主たる目的とする左に掲げる団体をいう。一 礼拝の施設を備える神社、寺院、教会、修道院その他これらに類する団体二 前号に掲げる団体を包括する教派、宗派、教団、教会、修道会、司教区その他これらに類する団体(法人格)第四条 宗教団体は、この法律により、法人となることができる。2 この法律において「宗教法人」とは、この法律により法人となつた宗教団体をいう。(公益事業その他の事業)第六条 宗教法人は、公益事業を行うことができる。2 宗教法人は、その目的に反しない限り、公益事業以外の事業を行うことができる。この場合において、収益を生じたときは、これを当該宗教法人、当該宗教法人を包括する宗教団体又は当該宗教法人が援助する宗教法人若しくは公益事業のために使用しなければならない。第六章 解散(解散の事由)第四十三条 宗教法人は、任意に解散することができる。2 宗教法人は、前項の場合のほか、次に掲げる事由によつて解散する。
五 第八十一条第一項の規定による裁判所の解散命令
第八章 宗教法人審議会(設置及び所掌事務)第七十一条 文部科学省に宗教法人審議会を置く。2 宗教法人審議会は、この法律の規定によりその権限に属させられた事項を処理する。3 宗教法人審議会は、所轄庁がこの法律の規定による権限(前項に規定する事項に係るものに限る。)を行使するに際し留意すべき事項に関し、文部科学大臣に意見を述べることができる。4 宗教法人審議会は、宗教団体における信仰、規律、慣習等宗教上の事項について、いかなる形においても調停し、又は干渉してはならない。第九章 補則(報告及び質問)第七十八条の二 所轄庁は、宗教法人について次の各号の一に該当する疑いがあると認めるときは、この法律を施行するため必要な限度において、当該宗教法人の業務又は事業の管理運営に関する事項に関し、当該宗教法人に対し報告を求め、又は当該職員に当該宗教法人の代表役員、責任役員その他の関係者に対し質問させることができる。この場合において、当該職員が質問するために当該宗教法人の施設に立ち入るときは、当該宗教法人の代表役員、責任役員その他の関係者の同意を得なければならない。一 当該宗教法人が行う公益事業以外の事業について第六条第二項の規定に違反する事実があること。・・・三 当該宗教法人について第八十一条第一項第一号から第四号までの一に該当する事由があること。2 前項の規定により報告を求め、又は当該職員に質問させようとする場合においては、所轄庁は、当該所轄庁が文部科学大臣であるときはあらかじめ宗教法人審議会に諮問してその意見を聞き、当該所轄庁が都道府県知事であるときはあらかじめ文部科学大臣を通じて宗教法人審議会の意見を聞かなければならない。3 前項の場合においては、文部科学大臣は、報告を求め、又は当該職員に質問させる事項及び理由を宗教法人審議会に示して、その意見を聞かなければならない。4 所轄庁は、第一項の規定により報告を求め、又は当該職員に質問させる場合には、宗教法人の宗教上の特性及び慣習を尊重し、信教の自由を妨げることがないように特に留意しなければならない。5 第一項の規定により質問する当該職員は、その身分を示す証明書を携帯し、宗教法人の代表役員、責任役員その他の関係者に提示しなければならない。6 第一項の規定による権限は、犯罪捜査のために認められたものと解釈してはならない。(解散命令)第八十一条 裁判所は、宗教法人について左の各号の一に該当する事由があると認めたときは、所轄庁、利害関係人若しくは検察官の請求により又は職権で、その解散を命ずることができる。一 法令に違反して、著しく公共の福祉を害すると明らかに認められる行為をしたこと。二 第二条に規定する宗教団体の目的を著しく逸脱した行為をしたこと又は一年以上にわたつてその目的のための行為をしないこと。・・・3 第一項の規定による裁判には、理由を付さなければならない。4 裁判所は、第一項の規定による裁判をするときは、あらかじめ当該宗教法人の代表役員若しくはその代務者又は当該宗教法人の代理人及び同項の規定による裁判の請求をした所轄庁、利害関係人又は検察官の陳述を求めなければならない。5 第一項の規定による裁判に対しては、当該宗教法人又は同項の規定による裁判の請求をした所轄庁、利害関係人若しくは検察官に限り、即時抗告をすることができる。この場合において、当該即時抗告が当該宗教法人の解散を命ずる裁判に対するものであるときは、執行停止の効力を有する。6 裁判所は、第一項の規定による裁判が確定したときは、その解散した宗教法人の主たる事務所の所在地の登記所に解散の登記の嘱託をしなければならない。