willbelisperapr04
LightNews LightNews
willbelisperapr04.bsky.social
willbelisperapr04
@willbelisperapr04.bsky.social
3 followers 4 following 3 posts
Posts Replies Media Videos
willbelisperapr04.bsky.social
『量子コンピューターが本当にわかる!』 武田俊太郎著　技術評論社

他の本や雑誌では肝心の核心部分の量子コンピューターの基本的概念の説明がなく、もやもやしていたものがスッキリとわかる.

また、現在のコンピューターの説明、その後、量子コンピューターとの対比などの記述もあり、論理回路や現在のコンピュータのおさらいも出来る.

#本
#量子コンピューター
February 16, 2025 at 1:43 PM
willbelisperapr04.bsky.social
位置天文学、時間の(h,m,s)の値を角度の(°, ', ")の値に冠算するプログラムを作ってみました.

参照した本
天体の位置計算 増補版 長沢工著 地人書館
p.16 計算例

はくちょう座61番星
①赤経：α1950 = 21h4m39s.935
②赤緯：δ1950 = 38°29'59".10

演算結果
①赤経
[3]> (raRadDeg 21 4 39.935)
(316.16638 5.518144)

②赤緯
[4]> (deRadDeg 38 29 59.10)
(38.499752 0.6719474)
(度による値　 弧度法)

#本
#天文学
#Lisp
(defun raRadDeg(rah ram ras) (list (+ (*(/ rah 24) 360) (*(/ (/ ram 60) 24) 360) (*(/ (/ (/ ras 60) 60) 24) 360) ) (* (/ (+ (*(/ rah 24) 360) (*(/ (/ ram 60) 24) 360) (*(/ (/ (/ ras 60) 60) 24) 360) ) 360 ) 2 pi ) ) ) ; 計算結果 ; [4]> (raRadDeg 21 4 39.935) ; (316.16638 5.518144) (defun deRadDeg(ded dem des) (list (+ ded (/ dem 60) (/(/ des 60) 60) ) (* (/ (+ ded (/ dem 60) (/(/ des 60) 60) ) 360 ) 2 pi ) ) ) ; 計算結果 ; [9]> (deRadDeg 38 29 59.10) ; (38.499752 0.6719474)
February 16, 2025 at 1:17 PM
willbelisperapr04.bsky.social
スーパーで米と餅を買った後に果たしてどちらが安かったのだろう？と思い プログラムを作ってみました.

米 5kg 3990円、餅 1.1kg 646円　最近スーパーで買った値段.
結果：この値段の場合は餅の方が安い.

実行時は
①(kome-mochi 5 3990 1.1 646)
または
②(multiple-value-list (kome-mochi 5 3990 1.1 646))

結果
①
"Mochi" ;
587.2727 ;
"Yen/Kg"
②
("Mochi" 587.2727 "Yen/Kg")

lisp-lang.org
#Lisp
#| 米と餅どっちが安いか？ 2025.02.16 Sunday |# (defun kome-mochi ( KomeKg KomeYen MochiKg MochiYen) (if (< (/ KomeYen KomeKg) (/ MochiYen MochiKg)) (values "Kome" (/ KomeYen KomeKg) "Yen/Kg") (values "Mochi" (/ MochiYen MochiKg) "Yen/Kg") ) ) #| 呼び出す時、(multiple-value-list) 利用すると綺麗に1行になる. (multiple-value-list (kome-mochi 5 3990 1.1 646)) 米 5.0kg, 3990円 餅 1.1kg, 646円 実行結果例 [1]> (load "kome-mochi.lisp") ;; Loading file kome-mochi.lisp ... ;; Loaded file kome-mochi.lisp 1)関数呼び出しの時 [2]> (kome-mochi 5 3990 1.1 646) "Mochi" ; 587.2727 ; "Yen/Kg" 2)multiple-value-list 利用の時 [3]> (multiple-value-list (kome-mochi 5 3990 1.1 646)) ("Mochi" 587.2727 "Yen/Kg") |#
February 16, 2025 at 11:33 AM