龍谷大学>理工学部>数理情報学科>樋口>担当科目>2012年>計算科学☆演習II>01回め
目次 前回 次回 略解
計算科学☆演習 II
樋口さぶろお
*1 配布: 2012-04-18 Wed更新: Time-stamp: ”2012-04-18 Wed 08:12 JST hig”1 略解 : ランダムウォークと乱数 1.1 略解 : 疑似乱数の使いかた
ソースコード1 乱数
1 /* 各1 / 3 , 2/3の 確 率 で -1 , +1 , の 正 解 */
2 # d e f i n e _ C R T _ S E C U R E _ N O _ W A R N I N G S 3 # i n c l u d e < s t d i o . h >
4 # i n c l u d e < s t d l i b . h >
5 d o u b l e g e t u n i f o r m ();
6 int g e t r a n d o m ();
7
8 int m a i n (){
9 int s e e d ;
10 d o u b l e y ;
11 int t ;
12 int t m a x = 1 0 0 ;
13 int s ;
14
15 s c a n f ("% d " ,& s e e d );
16 s r a n d ( s e e d );
17 for ( t =0; t < t m a x ; t + + ) {
18 p r i n t f ("% d \ n " , g e t r a n d o m ( ) ) ;
19 }
20 r e t u r n 0;
21 } 22
23 int g e t r a n d o m (){
24 if ( g e t u n i f o r m () < 1 . 0 / 3 . 0 ){
25 r e t u r n -1;
26 }
27 r e t u r n +1;
28 } 29
30 /** [0 ,1) 疑 似 乱 数 を 返 す */
31 d o u b l e g e t u n i f o r m (){
32 r e t u r n r a n d ( ) / ( R A N D _ M A X + 1 . 0 ) ; 33 }
*1Copyright c⃝2011-2012Saburo HIGUCHI. All rights reserved.
, http://hig3.net(講義のページもここからたどれます), へや:1
号館5階502.