新 Excel コンピュータシミュレーション サンプルページ この本の定価 判型などは, 以下の URL からご覧いただけます. http://www.morikita.co.jp/books/mid/084871 このサンプルページの内容は, 初版 1 刷発行当時のものです.
Microsoft Excel Excel Visual Basic Visual Basic 2007 Excel Excel 2010 3 i
I 1 1... 3 1.1 3 1.2 14 1 19 2... 20 2.1 20 2.2 20 2.3 21 2.4 Excel 23 2.5 31 2 32 3... 33 3.1 33 3.2 34 3.3 35 3.4 Excel 35 3 44 4... 45 4.1 45 4.2 45 4.3 46 4.4 Excel 48 4 56 ii
5... 57 5.1 57 5.2 59 5.3 Excel 61 5 70 6... 71 6.1 71 6.2 Excel 75 6 84 II 85 7... 87 7.1 87 7.2 87 7.3 89 7.4 91 7.5 101 7 107 8... 108 8.1 108 8.2 109 8.3 109 8.4 110 8.5 10 cm 111 8.6 Excel 112 8 127 9... 128 9.1 128 9.2 130 9.3 Excel 131 iii
9 143 10... 144 10.1 144 10.2 144 10.3 Excel 146 10 166 11... 167 11.1 167 11.2 167 11.3 Excel 169 11 188 12... 190 12.1 190 12.2 191 12.3 P 192 12.4 Excel 193 12 216... 217... 32... 43... 56... 70... 127 iv
3 SIR 3.1 ( ) 500 1 5000 14 3 1 1918 1919 6 40001 Kermack () McKendrick () (1927) susceptible, infections, 33
3 removed S, I, R 3.2 I (3.1) I(t + t) I(t) =λs(t)i(t) t (3.1) t λ S I t 2 2 3 3 t S (3.2) S(t + t) S(t) = λs(t)i(t) t (3.2) R (3.3) R(t + t) R(t) =γi(t) t (3.3) γ 3.1 (3.1) lsi gi S I R 3.1 34 I
3.4 Excel I(t + t) I(t) =λs(t)i(t) t γi(t) t (3.4) (3.2)(3.4) 2 S(t + t) =S(t) λs(t)i(t) t (3.5) I(t + t) =I(t)+λS(t)I(t) t γi(t) t (3.6) R(t + t) =R(t)+γI(t) t (3.7) (3.5)(3.7) 3.3 λ γ t 1 1 4 1 10000 1 λ =4 0.0001 = 0.0004 S 1000 I 1 t =10 10 (3.1) 4 1 20 γ =0.2 Excel 3.4 Excel (3.5)(3.7) γλ t t (3.5)(3.7) t S(t + t)i(t + t)r(t + t) Excel I 35
3 1 Excel Excel Sheet1 A1 tb1 S(t)C1 I(t)D1 R(t)F1 λ =F2 γ = ( 3.2) 3.2 Book 2 0 1000 1 0 λ =0.0004, γ =0.2 A2 0B2 1000C2 1D2 0G1 0.0004G2 0.2 ( 3.3) 3.3 3 () t 0.1 A3A4A5 0.10.20.3 90 A2 ( 3.4) 0.1 36 I
3.4 Excel 3.4 3.5 3.6 90OK ( 3.5) 0 90 A ( 3.6) 4 0.1 S(t + t) (3.5) λ G1 $G$1 S(t) I(t) B2 C2 t 0.1 B3 ( 3.7) =B2-$G$1*B2*C2*0.1 3.7 I 37
6 6.1 6.1 ( 6.2) 6.1 6.2 1 ( 6.3) 6.4 6.2 71
6 6.3 6.4 (6.1) ma = F (6.1) m a F 6.5 l (x, y) θ x = l cos θ y = l sin θ (6.2) (6.3) o y q T cosq T sinq (x, y) x 6.5 l θ x θ θ(t) x y ẋẏ ẋ = l θ sin θ (6.4) ẏ = l θ cos θ (6.5) 72 I
6.1 () ẍÿ t ẍ = l θ sin θ l θ 2 cos θ (6.6) ÿ = l θ cos θ l θ 2 sin θ (6.7) (6.1) ml( θ sin θ θ 2 cos θ) =f x (6.8) ml( θ cos θ θ 2 sin θ) =f y (6.9) 6.5 x y f x,f y f x = mg T cos θ (6.10) f y = T sin θ (6.11) mg x T T x y ml( θ sin θ θ 2 cos θ) =mg T cos θ (6.12) ml( θ cos θ θ 2 sin θ) = T sin θ (6.13) (6.12)(6.13) 6.5 (O, X, Y ) 6.6 r r (ξ,η) (x, y) (ξ,η) X = x + ξ (6.14) Y = y + η (6.15) O r=(x, h) Y o x X y (x, y) 6.6 I 73
10 10.1 (John Conwey) 1970 10.2 1 0 1) 1 10.110.2 1) 144
10.2 10.1 10.2 2 10.310.5 10.3 10.4 10.5 3 10.610.7 10.8 10.9 10.6 10.7 10.8 10.9 10.1 10.7 10.1 1 II 145
10 4 10.1 0 10.1 0 1 2 3 4 5 6 7 8 0 0 0 0 1 0 0 0 0 0 1 0 0 1 1 0 0 0 0 0 10.3 Excel 1 Excel Excel Sheet1 Sheet1 Sheet2 Sheet3 1 ( 10.10)4 10.10 4 A AD ( 10.11) 10.11 3 AAD 146 II
10.3 Excel 10.12 10.13 2 10.14 10.15 B2U21 II 147
Excel Excel 4 INT() 196 INDEX 140, 155, 176, 208 Excel 2010 200 Excel 87 Excel 106, 187, 215 Office 4, 87 93, 103, 157, 179, 201 122 4, 87 COUNTIF 154, 174 101, 117 Caption 93, 103, 157, 179, 201 170 170, 193 9 39, 66 13, 29, 40, 52, 80, 120 95, 159, 181, 210 90 90 98, 182 93, 156, 178, 200 15 9 212 SIN() 78 sin 78 8, 28, 39, 51, 66, 79, 119 10 66 5 199 101, 117, 134, 149, 170, 197, 205 SQRT() 50 14 7, 25, 27, 37, 50, 64, 78, 208 149, 197, 205 135 115 7, 25 148 100, 163, 183 124 90 11, 52, 66, 80 5 18 132, 170 159, 181, 210 8, 9, 41, 121 PI() 76 Visual Basic Editor 87, 157, 201 98, 104, 162, 182, 212 F9 208 7, 26, 91 24 3 93, 103, 179, 201 50, 64 40 87, 89 95, 179, 209 11 Module1 98, 104, 162, 182, 212 RAND( ) 196 4, 88 217
4 41 89, 112, 131, 148, 170, 193 6, 36, 63, 77, 113 57 58 87 145 129 33 : Stephen Wolfram(1959) 129 191 SIR 43 44 76 109 57 84 33 72 57 33 33 189 133 115, 136 128 128 57 144 191 71 33 74 57 70 128 20 57 144 57 128 57 111 60 144, 145 22 129 72 21 151 56 47, 59 21 189 167 130 167, 191 167 33 144 21 144 108 129 128 192 144 72 167 54 191 30 188 47 128 130 72 108, 110 110, 127 109 110 109 47, 48 218
144, 207 190 189 191 20 33 108 20 71 60 58 109 18 191 47 33 56 20 54 58 33 144 33 192 128 49 32 219
2010 Printed in Japan ISBN978-4-627-84871-9