f0=: ' %: 1r2 ' f1=: ' + 1r2 * %: 1r2 '
\[\dfrac{2}{\pi}\] |
2%1p1 0.63662 | |
\[\sqrt{\dfrac{1}{2}}\] | %: 1r2 |
". f0 0.707107 |
\[ \sqrt{\dfrac{1}{2}+\dfrac{1}{2}\sqrt{\dfrac{1}{2}}} \] | %: 1r2 + 1r2 * %: 1r2 |
". f0,f1 0.92388 |
\[ \sqrt{\dfrac{1}{2}+\dfrac{1}{2}\sqrt{\dfrac{1}{2}+\dfrac{1}{2}\sqrt{\dfrac{1}{2}}}}\] | %: 1r2 + 1r2 * %: 1r2 + 1r2 * %: 1r2 |
". f0,f1,f1 0.980785 |
*/ (". f0) , (".f0 , f1) 0.653281 */ (". f0) , (".f0 , f1),(". f0,f1,f1) 0.640729 */ (". f0) , (".f0 , f1),(". f0,f1,f1),(". f0,f1,f1,f1) 0.637644 */ (". f0) , (".f0 , f1),(". f0,f1,f1),(". f0,f1,f1,f1),(". f0,f1,f1,f1,f1) 0.636876
require 'numeric trig' sin +/ rfd 30 45 0.965926 sin rfd 75 0.965926
\( sin \alpha=\dfrac{1}{3}\)のとき、 \(sin 2 \alpha\)を求める。
ただし、\(0 < \alpha < \dfrac{\pi}{2} \)とする |
\(sin^{2}+cos^{2}=1 \)より
\(cos ^{2}=1-sin^{2}=1-\dfrac{1}{9}\) ( \(cos \alpha > 0\)なので ) \(cos \alpha = \sqrt{\dfrac{8}{9}}=\dfrac{2 \sqrt{2}}{3}\) \(sin 2 \alpha = 2 sin \alpha cos \alpha \) \( = 2 \cdot \dfrac{1}{3} \cdot \dfrac{2\sqrt{2}}{3}=\dfrac{4 \sqrt{2}}{9}\) |
arcは円関数の逆関数である。
sin 2* arcsin 1r3 0.628539 2*1r3* %: 8r9 0.628539
哲学者デカルトは万物を数で表したいと思っていた。この思いは孫弟子の哲学者 ライプニッツに受け継がれた。
!/~ i.5 1 1 1 1 1 0 1 2 3 4 0 0 1 3 6 0 0 0 1 4 0 0 0 0 1
1r6 * >:i.6 NB. 各々の目の出る確率 1r6 1r3 1r2 2r3 5r6 1 +/ 1r6 * >:i.6 NB. 一個のサイコロの期待値 7r2
目の出ない方の確率を求めることが大切。
_1 x: ^&4] 5r6 0.482253
24x binom 1r36 0 0.508596 NB. 一度も出ない確率 1 0.348752 NB. 1回出る確率 2 0.11459 NB. 2回出る 3 0.0240093 4 0.00360139 5 0.000411588 6 3.72389e_5 .......... +/ }. 24x binom 1r36 0.491404 概ね51:49
NB. binoinal distribution binom0=:4 : '(k!x )*(y ^ k)*(-. y )^|.k=: i. >: x ' NB. written by Giichiro Suzuki binom=: 4 : '(i.>: x) ,._1 x: x binom0 y'
_1 x: ^&24] 35r36 0.508596
フェルマの大定理も含まれている $$x^{n}+y^{n}=z^{n}$$
残念ながらフェルマ素数とはならなかった。
ferma >:i.6x 5 17 257 65537 4294967297 18446744073709551617 1 2 3 4 5 6 NB. q: ferma 5x NB. 641 6700417 q: ferma 6x 274177 67280421310721
ferma=: 3 : 0 >: 2^(2^y) )
n番目の三角数は \[T_{n}=\dfrac{n(n+1)}{2} \]
<\>:i.7 +-+---+-----+-------+---------+-----------+-------------+ |1|1 2|1 2 3|1 2 3 4|1 2 3 4 5|1 2 3 4 5 6|1 2 3 4 5 6 7| +-+---+-----+-------+---------+-----------+-------------+ ] a=. +/\>:i.10 NB. 最初の7個 1 3 6 10 15 21 28
3 10 $ ferma2 '' 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
ferma2=: 3 : 0 NB. Usage ferma2 '' tri=:+/\ >:i.7 tmp=: tap 7 x1=:~. /:~ +/"1 (~.3{."1 tmp){ tri x2=:~. /:~ +/"1 (~.2{."1 tmp){ tri x30=: { (~. 2{."1 tmp){tri x3=: ~. /:~ ;+/ L:0 (2 1 * L:0 x30 ) , 1 2 * L:0 X30 x4=. 2 * tri ~./:~x1,x2,x3,x4 )
フランスも革命、王政復古、7月革命と似たパターンをたどったが、国王が国政を 議会側に委ねることなく2月革命で国王が退位して共和制を選んだ。