Fortran90/ (standard i/o ( input/output)) Fortran * * 2 read write read(*, )[, ] write(*, )[, ] read print read ( )[, ]) print ( )[, ]) 2
|
|
|
- ようた あいしま
- 7 years ago
- Views:
Transcription
1 Fortran90/ (Man-Machine) Interface Fortran (file) 1. Fortran 3 (1) + 2 (2) ( ) ( ) Fortran (3) * 2. (data transfer i/o statement) 3 read write print ( ) 3. read write {read write}( [, ]) (unit identifier) * (format specifier) * (input/output list)
2 Fortran90/ (standard i/o ( input/output)) Fortran * * 2 read write read(*, )[, ] write(*, )[, ] read print read ( )[, ]) print ( )[, ]) 2. < input.txt < input.txt > >> 1 (1)-(6) a (error ) real :: a read(*,*) a (1) 1 (2).0 (3) 0. (4). (5) e (6) 1e (1) (2) E+00 (3) E+00 (4)) E+00 (5)) E+00 (6) (1)-(5) i (error ) integer :: i read(*,*) i (1) 1.6 (2).0 (3) 0. (4) e (5) 1e *1 Windows UNIX (stdin) (stdout)
3 Fortran90/95 (1) (2) (3) (4) (5)
4 Fortran90/ * 2 1. Fortran (file operation i/o statement) open close inquire backspace endfile rewind Fortran (1) open open (2) (read write print ) open 1 1 ( -buffer) (3) close open 5 6 read(5, )[, ] write(6, )[, ] 5 6 open (stderr) 0 * 3 *2 *3 (stderr)
5 Fortran90/95 2. EOF (End Of File) OS 1 EOR (End Of Record) *4 Linux 0A (16) (LF) Windows 0D0A (16) (CR LF) (text file) (binary file) *5 (current position) Fortran ( ) E E E E 1 O 2 O 3 O O R R R F EOR *4 ( ) = *
6 Fortran90/95 3. open open open open([unit=]un[,para-list]) [unit=]un open( unit= un [,para-list],para=parameter para= (1) [unit=]un un open un (2) file=filename filename (scratch file) OS * 6 open ( ) (3) status={ new old replace unknown scratch } new open old open replace open unknown status * 7 scratch (scratch file) close status= scratch new (4) action={ read write readwrite } *6 Fortran filename Windows Linux *7 Intel Fortran new old
7 Fortran90/95 read write print * 8 write read readwrite read * 9 (5) position={ rewind asis append } rewind asis Fortran i/o system rewind append EOF write (6) err=stmt stmt open stmt open(20, file= test2.txt, status= new, err=90) 90 write(*,*) "file open error" open err iostat (7) iostat=ist open ist integer :: ier open(10, file= test1.txt, status= new, iostat=ier, err=99) 99 write(*,*) "file open error code=",ier open ist 0 open ist open iostat err iostat open * 10 (8) blank={ null zero } null0 BZ BN null BN zero BZ *8 open read *9 status= new action= read *10 iostat err
8 Fortran90/95 (9) delim={ apostrophe quote null } *, " apostrophe quote " null (10) pad={ yes no } EOR yes no ( ) pad= yes pad= no 4. close close close close([unit=]un[,para-list]) [unit=]un open( unit= un [,para-list],para=parameter open status iostat err 3 close end close close open close open close (1) [unit=]un un open (2) status={ keep delete } keep close delete close open status scratch delete keep (3) iostat=ist open (4) err=stmt open
![close close close close([unit=]un[,para-list]) [unit=]un open( unit= un [,para-list],para=parameter open status](/docs-images/47/20505870/images/page_8.jpg "iostat err 3 close end close close open close open close (1) [unit=]un un open (2) status={ keep delete } keep")
9 Fortran90/95 5. inquire inquire inquire open inquire inquire inquire([unit=]un[,para-list]) inquire([file=]filename[,para-list]) [unit=]un [file=]filename [,para-list],para=parameter para= (1) [exist=]ex ex.true..false. 3 open (1) abc.txt 10 (2) def.txt 20 (3) ghi.txt 30 quote " (4) 40 (1) open(10,file= abc.txt,action= read ) (2) open(20,file= def.txt,position= append ) (3) open(30,file= ghi.txt,delim= quote ) (4) open(40,status= scratch )
![[unit=]un [file=]filename [,para-list],para=parameter para= (1) [exist=]ex ex.true..false. 3 open (1) abc.](/docs-images/47/20505870/images/page_9.jpg "txt 10 (2) def.txt 20 (3) ghi.txt 30 quote \" (4) 40 (1) open(10,file= abc.")
10 Fortran90/ Fortran open (read write ) open blank pad 2. read character(10) :: str="abc " integer :: i, ios read(str, (i3),err=91,iostat=ios) i 91 write(*,*) i, ios read(str, (8x,i3),end=93,iostat=ios) i 93 write(*,*) i, ios read fmt iostat err end 4 advance eor size fmt * write character(15) :: str integer :: ios real :: a=1.23 write(str, (5x,f5.2),iostat=ios) a write(*,*) str, ios write(str, (i3),err=91,iostat=ios) a 91 write(*,*) ios write fmt iostat err 3 advance fmt *
11 Fortran90/ (list-directed i/o) read write print * (list-directed input) (list-directed output) 1. " "" ", 1 * 11 ( ) 1 1 * (value separator), ( ), 1 * 1.0, 3*2.0, 3 1.0, 2.0, 2.0, 2.0, 3.0 *11 open DELIM= apostrophe DELIM="quote" *12 open recl ( )
12 Fortran90/95 read /read, / " ( ) * " null aaa bbb aaa bbb,,,, null /, null 7-a null 1 program null_value 2 implicit none 3 integer :: i, n, m(5)=0 4 5 read(*,*) n,(m(i),i=1,n)! 4 6 write(*,*) m 7 read(*,*) m!, null 8 write(*,*) m! 13 9 read(*,*) m! 15 null 10 write(*,*) m! 16, stop 13 end program null_value 4, 1, 2, 3 4, 5, 6, 7, 8, 9, 10, 11,12, 13 / 14 15,,16, 17, 18,
13 Fortran90/95 4 (1)-(8) c character(10) :: c read(*,*) c (1) """" (2) abc,def (3) "abc,def" (4) "abc""def" (5) abc""def (6) "abc"def" (7) abc"def (8) """ ab" (2 ) ( ) ctrl-c JOB write(*,*) c (1) " (2) abc (3) abc,def (4) abc"def (5) abc""def (6) abc (7) abc"def (8) "ab
14 Fortran90/ read write print * (format specification) (edit descriptor) () read write, 2 (1) write(*,"( x=,f10.2)") x (2) character(20) :: form="(2x,i5)" write(*,form) j (3) character(4) :: forms(2) forms(1)="(3x," ; forms(2)="i10)" write(*,forms) k (4) format read(*,200) i, j 200 format(2i5) print read () read 100, m, n print "1x,2i5", m, n 2. (data edit descriptor) ( ) ( ) ( ) (string edit descriptor) (control edit descriptor)
15 Fortran90/95 3. read ( ) * 13 write print integer :: i real :: r character(4) :: c read(*, (i4,f10.0,a4) ) i, r, c 10 * 14 () (3x,3(f6.1," m "),i5) (3x,f6.1," m ",f6.1," m ",f6.1," m ",i5) () (1) (2) (3) 1 (4) *13 backspace rewind *
16 Fortran90/ w 1 * 15 * I B O Z F w 0 * 16 A r 1( ) r 2. I 10 I Iw [.m ] m m 0 m w m < = w I 10 I ( ) read(*, (3i3) ) i1, i2, i3 i1 1 i2 23 i3 456 ( ) write(*, (i4, i4.3, i4) ) 99, 99, **** **** B O Z 2, 8, 16 I Bw [.m ] Ow [.m ] Zw [.m ] B 2 O 8 Z 16 B 01 O Z abcdef *15 *16 Excel *.CSV
17 Fortran90/95 3. ( ) _kind d e d e F,D e = 2 F D e = 2 F F F w.d d < = w d 1 1 d < = w 3 * 17 1 (2 ) d.e0 ( ) e1 read(*, (7f5.2) ) r1, r2, r3, r4,r5, r6, r7 r r r r r r r ( ) write(*, (7f5.2) ) r1, r2, r3, r4,r5, r6, r7 ********** ***** E E E w.d[ee] d + e < = w Ee d < = w 7 d E ( 100 ) 7 *17 F Intel Fortran
18 Fortran90/95 2 e 3 e 1 2 E 1 e15.7 ( ) a write(*, (e15.7) ) a e+51 D D D w.d E E D e b1 = d D E e16.7e e+101 ES (science) (90) ES ES w.d [Ee] es E E+01 1 EN (engineering) (90) EN 3 SI EN w.d [Ee] en E E+00 ( )3 3 3 d < = w 9 4. L L Lw
![2000000e+101 ES (science) (90) ES ES w.d [Ee] 123.45 12.2 es15.7 1.2345000E+02-1.](/docs-images/47/20505870/images/page_18.jpg "2200000E+01 1 EN (engineering) (90) EN 3 SI EN w.d [Ee] 123.45 12.2 en17.7 123.4499969E+00-12.")
19 Fortran90/95.true..T.t T t.false..f.f F f w 1 T F 5. A A Aw c l w > l l c w < l w c(1:w) l-w w = l w l c w > l c l w < l c w w = l w c ( ) * G G G w.d [Ee] Iw Fw.d F E r 0.1 < = r < 10 m F 4 r E Lw Aw 7. " " () *18 open pad= no
![l w < l c w w = l w c ( ) * 18 6. G G G w.d [Ee] Iw Fw.](/docs-images/47/20505870/images/page_19.jpg "d F E r 0.1 < = r < 10 m F 4 r E Lw Aw 7.")
20 Fortran90/95 5 π 4π (1) (f15.7) (2) (e15.7) (3) (d15.7) (4) (es15.7) (5) (en17.7) (6) (g15.7) (1) (2) E+02 (3) D+02 (4) E+01 (5) E+00 (6) real :: a read(*, (7f5.2) ) a write(*, (7f5.2) ) a (1) (2) (3) 1.2 (4) 13 (5). (6) 1.2e1 (1) ***** (2) (3) 1.20 (4) 0.13 (5) 0.00 (6) (1) 10 str abcdefghij (a8) (a12) str (2) 10 str abcdefghij (a8) (a12) (1) (a8) abcdefgh (a12) cdefghij (2) (a8) abcdefgh (a12) abcdefghij 8 j(1:10) 1 10 write (1) write(*, (i5(3i5)) ) j (2) write(*, (i5(3i5/)) ) j (3) write(*, (i5(3i5/2i5)) ) j (4) write(*, (i5,(3i5/2i5)) ) j (5) write(*, (i5,(3i5)) ) j (6) write(*, (i5,(2i5),i5) ) j (1) (2) (3) _
21 Fortran90/ _ 9 10 (4) (5) (6)
22 Fortran90/ (Tab) T T Tn n 1 T TL TL n TLn TL TR TR n TRn X X n Xn X ( ) i = j = k = write(20, (t11,i10,tl20,i10,tl5,i10) ) i, j, k t11,i i tl20,i j tl5,i k 2. (+) SP SS S + SP + SS + S + S
23 Fortran90/95 3. BN BZ null0 BN BZ 0 BN * 19 ( ) ir read(*, (bn,i5,f8.0) ) i, r i = 12 r = read(*, (bz,i5,f8.0) ) i, r i = 1020 r = P n P n 1 n P, P ( ) (F,E,D,ES,EN,G ) n ( ) 1.2 2p,f F n ( ) 1.1 2p,f G P P E,D,G n n ( ) e e+04 1p,e e+03 d n d < n < d + 2 P P 1pg15.7 Fortran90/95 ES *19 open blank= zero BZ
24 Fortran90/95 5. / /, / / 2 // 1 1 : :, ( ) write(*, (3(i5,",")) ) i, j, k k, write(*, (3(i5:",")) ) i, j, k i
25 Fortran90/ read read read read([unit=]un[,fmt=]form[,para-list]) input-list [unit=]un read( unit= un [fmt=]format read unit= un fmt= format [,para-list],para=parameter para= input-list do (1) [unit=]un un open * * (2) [fmt=]format format (3) end=stmt EOF () stmt n=0 do read(12, (i5), end=90) a(n+1) n=n+1 enddo 90 write(*,*) n, " data read" read EOF end iostat read EOF iostat (4) err=stmt stmt read(21, (i5),err=99) j 99 write(*,*) " data read error" read err iostat (5) advance={ yes no } (90/95) read advance (
26 Fortran90/95 ) yes read EOR read no read read eor iostat (6) size=ic ic ic (7) eor=stmt (EOR) stmt * 20 n=0 do read(10, (i5), eor=90, advance= no, size=ic) a(n+1) n=n+1 write(*,*) n, ic enddo 90 write(*,*) " n data read" eor iostat (8) iostat=stmt read ist integer :: j, ios open(20, file= test3.txt ) do read(20, (i5), eor=90, end=99, iostat=ios, advance= no ) j write(*,*) j cycle 90 write(*,*) "eor encounterd",ios enddo 99 write(*,*) "eof encounterd",ios close(20) read ist 0 read ist read EOR EOF ist * 21 *20 open pad= no eor err *21 Intel Fortran EOR -2 EOF -1 ist
27 Fortran90/95 2. a, b, c, 2,1,12 integer :: i,j,m(2,2) read(*,*) i,j,m(i,j) read m(2,1) 12 DO (implied-do list) ( 1[, 2 ], DO =, [, ]) DO DO-LOOP read(*,*) (a(i), b(2,i), i=1,5,2) a(1) b(2,1) a(3) b(2,3) a(5) b(2,5) DO read(*,*) n, (a(i), i=1,n) n a(1) a(2) a(n) ( ) DO 3. write read write write([unit=]un[,fmt=]form[,para-list]) output-list [unit=]un write( unit= un [fmt=]format write unit= un fmt= format
28 Fortran90/95 [,para-list],para=parameter read err advance iostat 3 eor end size output-list do (1) [unit=]un read (2) [fmt=]format read (3) err=stmt read (4) advance={ yes no } (90/95) write advance yes read (EOR) write no read write (5) iostat=stmt write ist integer :: i, ios open(30,file= test3.out ) do i=1, 10 write(30, (i2), err=90, iostat=ios, advance= no ) i cycle 90 write(*,*) "write error at ",i, "error code= ", ios enddo close(30) read ist 0 read ist 4. write(*,*) (a, i*2, i=1,2) a( ), 2, a( ),
29 Fortran90/ (1) abcde 1 (1 ) 16 (2) 1 16 (3) Linux iconv Windows JIS(ISO2022JP) SJIS EUC(EUCJP) 7-2 5*6= *1= 1 2*1= 2 3*1= 3 4*1= 4 5*1= 5 6*1= 6 7*1= 7 8*1= 8 9*1= 9 1*2= 2 2*2= 4 3*2= 6 4*2= 8 5*2=10 6*2=12 7*2=14 8*2=16 9*2=18 1*3= 3 2*3= 6 3*3= 9 4*3=12 5*3=15 6*3=18 7*3=21 8*3=24 9*3=27 1*4= 4 2*4= 8 3*4=12 4*4=16 5*4=20 6*4=24 7*4=28 8*4=32 9*4=36 1*5= 5 2*5=10 3*5=15 4*5=20 5*5=25 6*5=30 7*5=35 8*5=40 9*5=45 1*6= 6 2*6=12 3*6=18 4*6=24 5*6=30 6*6=36 7*6=42 8*6=48 9*6=54 1*7= 7 2*7=14 3*7=21 4*7=28 5*7=35 6*7=42 7*7=49 8*7=56 9*7=63 1*8= 8 2*8=16 3*8=24 4*8=32 5*8=40 6*8=48 7*8=56 8*8=64 9*8=72 1*9= 9 2*9=18 3*9=27 4*9=36 5*9=45 6*9=54 7*9=63 8*9=72 9*9= exercise2.txt ( ) eor n k n k exercie5.csv / ( ) abc,def,g/h read
Fortran90/95 [9]! (1 ) " " 5 "Hello!"! 3. (line) Fortran Fortran 1 2 * (1 ) 132 ( ) * 2 ( Fortran ) Fortran ,6 (continuation line) 1
![Fortran90/95 [9]! (1 ) 5 Hello!! 3. (line) Fortran Fortran 1 2 * (1 ) 132 ( ) * 2 ( Fortran ) Fortran ,6 (continuation line) 1](/thumbs/48/24845697.jpg "Fortran90/95 [9]! (1 ) 5 Hello!! 3. (line) Fortran Fortran 1 2 * (1 ) 132 ( ) * 2 ( Fortran ) Fortran ,6 (continuation line) 1")
Fortran90/95 2.1 Fortran 2-1 Hello! 1 program example2_01! end program 2! first test program ( ) 3 implicit none! 4 5 write(*,*) "Hello!"! write Hello! 6 7 stop! 8 end program example2_01 1 program 1!
untitled
Fortran90 ( ) 17 12 29 1 Fortran90 Fortran90 FORTRAN77 Fortran90 1 Fortran90 module 1.1 Windows Windows UNIX Cygwin (http://www.cygwin.com) C\: Install Cygwin f77 emacs latex ps2eps dvips Fortran90 Intel
1 1.1 (JCPRG) 30 Nuclear Reaction Data File (NRDF) PC GSYS2.4 JCPRG GSYS2.4 Java Windows, Linux, Max OS X, FreeBSD GUI PNG, GIF, JPEG X Y GSYS2
(GSYS2.4) GSYS2.4 Manual SUZUKI Ryusuke Hokkaido University Hospital Abstract GSYS2.4 is an update version of GSYS version 2. Main features added in this version are Magnifying glass function, Automatically
グラフ数値読み取りシステム (GSYS2.4) 利用の手引
(GSYS2.4) GSYS2.4 Manual SUZUKI Ryusuke Hokkaido University Hospital 2011 6 7 Abstract GSYS2.4 is an update version of GSYS version 2. Main features added in this version are Magnifying glass function,
1 C STL(1) C C C libc C C C++ STL(Standard Template Library ) libc libc C++ C STL libc STL iostream Algorithm libc STL string vector l
C/C++ 2007 6 18 1 C STL(1) 2 1.1............................................... 2 1.2 stdio................................................ 3 1.3.......................................... 10 2 11 2.1 sizeof......................................
main.dvi
1 F77 5 hmogi-2008f@kiban.civil.saitama-u.ac.jp 2013/5/13 1 2 f77... f77.exe f77.exe CDROM (CDROM D D: setupond E E: setupone 5 C:work\T66160\20130422>f77 menseki.f -o menseki f77(.exe) f77 f77(.exe) C:work\T66160\20130422>set
情報活用資料-03-20150604
cp hello.f90 echo.f90 mv echo.f90 echofile.f90 cp echofile.f90 echo.f90 7 8 9 Echo key input program echo character(80):: A read (5,*) A write (6,*) A stop end program echo chracter read 10 Echo key input
Microsoft PowerPoint - 講義10改.pptx
計算機プログラミング ( 後半組 ) Computer Programming (2nd half group) 担当 : 城﨑知至 Instructor: Tomoyuki JOHZAKI 第 9 回ファイルの入出力 Lesson 9 input/output statements 教科書 7.3 章 1 ファイル入出力 : サンプル 1 下記プログラムを outin1.f90 として作成し コンパイル実
. (.8.). t + t m ü(t + t) + c u(t + t) + k u(t + t) = f(t + t) () m ü f. () c u k u t + t u Taylor t 3 u(t + t) = u(t) + t! u(t) + ( t)! = u(t) + t u(
3 8. (.8.)............................................................................................3.............................................4 Nermark β..........................................
X Window System X X &
1 1 1.1 X Window System................................... 1 1.2 X......................................... 1 1.3 X &................................ 1 1.3.1 X.......................... 1 1.3.2 &....................................
tebiki00.dvi
(Linux) [ UNIX ] CMD Workshop ( ) 1 *********************************************************************** * Linux PC-UNIX UNIX * * 99% FreeBSD BSD PC-UNIX * * * ***********************************************************************
... 3... 3... 3... 3... 4... 7... 10... 10... 11... 12... 12... 13... 14... 15... 18... 19... 20... 22... 22... 23 2
1 ... 3... 3... 3... 3... 4... 7... 10... 10... 11... 12... 12... 13... 14... 15... 18... 19... 20... 22... 22... 23 2 3 4 5 6 7 8 9 Excel2007 10 Excel2007 11 12 13 - 14 15 16 17 18 19 20 21 22 Excel2007
GNU Emacs GNU Emacs
GNU Emacs 2015 10 2 1 GNU Emacs 1 1.1....................................... 1 1.2....................................... 1 1.2.1..................................... 1 1.2.2.....................................
01_OpenMP_osx.indd
OpenMP* / 1 1... 2 2... 3 3... 5 4... 7 5... 9 5.1... 9 5.2 OpenMP* API... 13 6... 17 7... 19 / 4 1 2 C/C++ OpenMP* 3 Fortran OpenMP* 4 PC 1 1 9.0 Linux* Windows* Xeon Itanium OS 1 2 2 WEB OS OS OS 1 OS
A/B (2018/10/19) Ver kurino/2018/soft/soft.html A/B
A/B (2018/10/19) Ver. 1.0 kurino@math.cst.nihon-u.ac.jp http://edu-gw2.math.cst.nihon-u.ac.jp/ kurino/2018/soft/soft.html 2018 10 19 A/B 1 2018 10 19 2 1 1 1.1 OHP.................................... 1
Microsoft Word - 資料 docx
y = Asin 2πt T t t = t i i 1 n+1 i i+1 Δt t t i = Δt i 1 ( ) y i = Asin 2πt i T 29 (x, y) t ( ) x = Asin 2πmt y = Asin( 2πnt + δ ) m, n δ (x, y) m, n 30 L A x y A L x 31 plot sine curve program sine implicit
PowerPoint プレゼンテーション
"# "# $%&' "#$% $# & $# $% % ' ()(*"#$% +,(- ()(*"#$%.' ()(* $/.0##'' %0$&0% 1*2#/0/%'&0343$56 789#/0/'%&04../ "3"0##"$ "0%0$" "7 1*2#.30///04%.$ 789#.30///0#$'4 http://www.ibie2016.com/exhibitorlist/
3. :, c, ν. 4. Burgers : u t + c u x = ν 2 u x 2, (3), ν. 5. : u t + u u x = ν 2 u x 2, (4), c. 2 u t 2 = c2 2 u x 2, (5) (1) (4), (1 Navier Stokes,.,
B:,, 2017 12 1, 8, 15, 22 1,.,,,,.,.,,,., 1,. 1. :, ν. 2. : u t = ν 2 u x 2, (1), c. u t + c u x = 0, (2), ( ). 1 3. :, c, ν. 4. Burgers : u t + c u x = ν 2 u x 2, (3), ν. 5. : u t + u u x = ν 2 u x 2,
10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV
tutimura@mist.i.u-tokyo.ac.jp kaneko@ipl.t.u-tokyo.ac.jp http://www.misojiro.t.u-tokyo.ac.jp/ tutimura/sem3/ 2002 11 20 p.1/34 10/16 1. 10/23 2. 10/30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20
A
A 3 2017 4 24 1 1 1.1.......................................... 1 1.2................................ 1 1.2.1................................ 1 1.2.2............................. 1 1.2.3................................
Fortran90/95 2. (p 74) f g h x y z f x h x = f x + g x h y = f y + g y h z = f z + g z f x f y f y f h = f + g Fortran 1 3 a b c c(1) = a(1) + b(1) c(
Fortran90/95 4.1 1. n n = 5 x1,x2,x3,,x4,x5 5 average = ( x1 + x2 + x3 + x4 + x5 )/5.0 n n x (subscript) x 1 x 2 average = 1 n n x i i=1 Fortran ( ) x(1) x(2) x(n) Fortran ( ) average = sum(x(1:n))/real(n)
11042 計算機言語7回目 サポートページ:
11042 7 :https://goo.gl/678wgm November 27, 2017 10/2 1(print, ) 10/16 2(2, ) 10/23 (3 ) 10/31( ),11/6 (4 ) 11/13,, 1 (5 6 ) 11/20,, 2 (5 6 ) 11/27 (7 12/4 (9 ) 12/11 1 (10 ) 12/18 2 (10 ) 12/25 3 (11
●70974_100_AC009160_KAPヘ<3099>ーシス自動車約款（11.10）.indb
" # $ % & ' ( ) * +, -. / 0 1 2 3 4 5 6 7 8 9 : ; < = >? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y " # $ % & ' ( ) * + , -. / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B
Microsoft PowerPoint - fortran2.ppt [互換モード]
![Microsoft PowerPoint - fortran2.ppt [互換モード]](/thumbs/81/84211083.jpg "Microsoft PowerPoint - fortran2.ppt [互換モード]")
大型計算機システム利用講習会 Fortran 90/95 入門 2 情報基盤センター 大型計算機システム Fortran 90/95 入門 2 2 講習内容 関数 サブルーチンの補足構造体モジュール演習課題 1 ファイル操作, 演習課題 2 文字列の処理演習課題 3 および 4 大型計算機システム Fortran 90/95 入門 2 3 関数 サブルーチンの補足 : 文関数 自分で定義した関数を文のように定義することができる
( ) 1 Windows HTML ( ) ( ) ( ) WWW 10 ( )
( ) 1 Windows HTML ( ) ( ) ( ) 1. 2. 3. 4. WWW 10 ( ) 2 1. 2. 1 3. ( ) 4. 5. 3 Windows 2 7 8 MS Word MS Excel 1. MS Word 600 2. MS Excel 1 34 2 83 3 23 4 70 5 100 6 45 7 58 8 29 9 68 10 72 11 37 12 12
情報活用資料
y = Asin 2πt T t t = t i i 1 n+1 i i+1 Δt t t i = Δt i 1 ( ) y i = Asin 2πt i T 21 (x, y) t ( ) x = Asin 2πmt y = Asin( 2πnt + δ ) m, n δ (x, y) m, n 22 L A x y A L x 23 ls -l gnuplot gnuplot> plot "sine.dat"
web07.dvi
93 7 MATLAB Octave MATLAB Octave MAT MATLAB Octave copyright c 2004 Tatsuya Kitamura / All rights reserved. 94 7 7.1 UNIX Windows pwd Print Working Directory >> pwd ans = /home/kitamura/matlab pwd cd Change
all.dvi
fortran 1996 4 18 2007 6 11 2012 11 12 1 3 1.1..................................... 3 1.2.............................. 3 2 fortran I 5 2.1 write................................ 5 2.2.................................
program.dvi
2001.06.19 1 programming semi ver.1.0 2001.06.19 1 GA SA 2 A 2.1 valuename = value value name = valuename # ; Fig. 1 #-----GA parameter popsize = 200 mutation rate = 0.01 crossover rate = 1.0 generation
ohp08.dvi
19 8 ( ) 2019.4.20 1 (linked list) ( ) next ( 1) (head) (tail) ( ) top head tail head data next 1: 2 (2) NULL nil ( ) NULL ( NULL ) ( 1 ) (double linked list ) ( 2) 3 (3) head cur tail head cur prev data
Autumn 2005 1 9 13 14 16 16 DATA _null_; SET sashelp.class END=eof; FILE 'C: MyFiles class.txt'; /* */ PUT name sex age; IF eof THEN DO; FILE LOG; /* */ PUT '*** ' _n_ ' ***'; END; DATA _null_;
Platypus-QM β ( )
Platypus-QM β (2012.11.12) 1 1 1.1...................................... 1 1.1.1...................................... 1 1.1.2................................... 1 1.1.3..........................................
דוח דירקטוריון - חברה 012010 - גר 9 - 300510
13060608060408 0704 0609030606 060705 050607 040007030501 0606070804060708 0300''6 1 6 1''06''6 1 0606050706010708 31.03.10 04010705 030902010105 0507090708 13050607 060705 060608060408 0704 0609030606
SNJ HQカリキュラム パソコン入門コース
...1... 2... 2... 4... 5... 5... 6... 9... 12... 13... 13... 13... 14... 16... 16... 17... 18... 19... 20... 22 1.... 22 2.... 22 1 1 1 CPU 106/109 2 3 J ( ) K L F ( ) D S A 4 URL / 5 ffjj Enter / 6 7
このcsvファイルを GraphR で 表 示 する あるいはエクセルで 読 み 込 んで 処 理 できる BMP 形 式 のファイルは Windows のソフトで 表 示 できる Mercury CCD では1ピクセルが2バイトで 記 述 されているが BMP でコンパクトに 表 すため 1 ピク
Mercuryの img ファイルの 画 像 データを ASCI 変 換 し excel や GraphR にて 表 示 する 実 行 例 (アンダーライン 部 が 入 力 ) C:\Documents and Settings\My Documents >img-bmp_csv.exe > Input file
OHP.dvi
0 7 4 0000 5.. 3. 4. 5. 0 0 00 Gauss PC 0 Gauss 3 Gauss Gauss 3 4 4 4 4 3 4 4 4 4 3 4 4 4 4 3 4 4 4 4 u [] u [3] u [4] u [4] P 0 = P 0 (),3,4 (,), (3,), (4,) 0,,,3,4 3 3 3 3 4 4 4 4 0 3 6 6 0 6 3 6 0 6
解きながら学ぶＣ言語
printf 2-5 37 52 537 52 printf("%d\n", 5 + 37); 5370 source program source file.c ex00.c 0 comment %d d 0 decimal -2 -p.6 3-2 5 37 5 37-22 537 537-22 printf("537%d\n", 5-37); function function call ( )argument,
cover-1
BMP 21-LAB BRADY Worldwide, Inc. BRADY BRADY BRADY BMP 21-LAB BRADY, Inc. Worldwide Microsoft Windows Microsoft Corporation BRADY 2013 BRADY Worldwide, Inc. All Rights Reserved 2014 1 Firmware 1 Brady
KL-V450 Printer Driver
Windows J 1 2 3 4 5 1 2 1 6 2 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 8 1 2 3 4 1 2 3 5 6 4 5 6 9 10 1 2 3 1 2 3 11 1 2 3 4 5 6 7 1 2 3 4 ABCDE ABCDE 5 6 7 12 1 2 3 4 1 2 1 3
Microsoft Word - 資料 (テイラー級数と数値積分).docx
δx δx n x=0 sin x = x x3 3 + x5 5 x7 7 +... x ak = (-mod(k,2))**(k/2) / fact_k ( ) = a n δ x n f x 0 + δ x a n = f ( n) ( x 0 ) n f ( x) = sin x n=0 58 I = b a ( ) f x dx ΔS = f ( x)h I = f a h h I = h
compiler-text.dvi
2018.4 1 2 2.1 1 1 1 1: 1. (source program) 2. (object code) 3. 1 2.2 C if while return C input() output() fun var ( ) main() C (C-Prime) C A B C 2.3 Pascal P 1 C LDC load constant LOD load STR store AOP
ワードプロセッシングについて
Word Word ONOFF (U)(P) ******** 1 OS Windows2000 Windows2000 (U) OK 2 Windows 3 Word 1) 2) (F)(O) A() FD(A) Word 4 1) / > < *.? " : ; 2) SAMPLE2 A SAMPLE2 5 .doc 6 Alt f6f9 7 + 8 ) 2) 9 1) 2) 1) 10 2)
MPI usage
MPI (Version 0.99 2006 11 8 ) 1 1 MPI ( Message Passing Interface ) 1 1.1 MPI................................. 1 1.2............................... 2 1.2.1 MPI GATHER.......................... 2 1.2.2
13 Student Software TI-Nspire CX CAS TI Web TI-Nspire CX CAS Student Software ( ) 1 Student Software 37 Student Software Nspire Nspire Nspir
13 Student Software TI-Nspire CX CAS TI Web TI-Nspire CX CAS Student Software ( ) 1 Student Software 37 Student Software 37.1 37.1 Nspire Nspire Nspire 37.1: Student Software 13 2 13 Student Software esc
R1LV0416Dシリーズ データシート
Wide Temperature Range Version 4M SRAM (256-kword 16-bit) RJJ03C0237-0100 Rev. 1.00 2007.05.24 262,144 16 4M RAM TFT 44 TSOP II 48 CSP 0.75mm 3.0V 2.7V 3.6V 55/70ns max 3µW typ V CC =3.0V 2CS 40 +85 C
R1LV1616H-I シリーズ
お客様各位 カタログ等資料中の旧社名の扱いについて 2010 年 4 月 1 日を以って NEC エレクトロニクス株式会社及び株式会社ルネサステクノロジが合併し 両社の全ての事業が当社に承継されております 従いまして 本資料中には旧社名での表記が残っておりますが 当社の資料として有効ですので ご理解の程宜しくお願い申し上げます ルネサスエレクトロニクスホームページ (http://www.renesas.com)
R1RW0408D シリーズ
お客様各位 カタログ等資料中の旧社名の扱いについて 2010 年 4 月 1 日を以って NEC エレクトロニクス株式会社及び株式会社ルネサステクノロジが合併し 両社の全ての事業が当社に承継されております 従いまして 本資料中には旧社名での表記が残っておりますが 当社の資料として有効ですので ご理解の程宜しくお願い申し上げます ルネサスエレクトロニクスホームページ (http://www.renesas.com)
PowerPoint プレゼンテーション
計算機実習 Ⅰ FORTRAN 担当 2018.05.29 本日の課題 プログラムの基本ルールを理解し 以下が含まれるプログラムを作成する (1) 文法の基礎 ( フローチャートなど ) (2) 変数宣言 (3) 入出力 (4) 四則演算 (5) 組込関数 (6) 判定文 (7) リダイレクション PROGRAM MAIN INTEGER I, J, K REAL A, B, C CHARACTER
ap0 ap1 ap2 ap3 ap4 ap5 ap6 ap7 ap8 ap9 aq0 aq1 aq2 aq3 aq4 aq5 aq6 aq7 aq8 aq9 aw0 aw1 aw2 aw3 aw4 aw5 aw6 aw7 aw8 aw9 ae0 ae1 ae2 ae3 ae4 ae5 ae6 ae7 ae8 ae9 ar0 ar1 ar2 ar3 ar4 ar5 ar6 ar7 ar8 ar9 at0
(2-1) x, m, 2 N(m, 2 ) x REAL*8 FUNCTION NRMDST (X, M, V) X,M,V REAL*8 x, m, 2 X X N(0,1) f(x) standard-norm.txt normdist1.f x=0, 0.31, 0.5
2007/5/14 II II agata@k.u-tokyo.a.jp 0. 1. x i x i 1 x i x i x i x x+dx f(x)dx f(x) f(x) + 0 f ( x) dx = 1 (Probability Density Funtion 2 ) (normal distribution) 3 1 2 2 ( x m) / 2σ f ( x) = e 2πσ x m
プラズマ核融合学会誌５月号【８１－５】／内外情報＿ソフト【注：欧フォント特殊！】
PROGRAM PLOTDATA USE NUM_KINDS, ONLY : wp=>dp, i4b USE MYLIB, ONLY : GET_SIZE, GET_DATA INTEGER(i4b) :: ntime, nx REAL(wp), ALLOCATABLE :: time(:), x(:), Temp(:,:) Fortran Temp, temp, TEMP temporal REAL(wp)
インテル(R) Visual Fortran Composer XE 2013 Windows版 入門ガイド
Visual Fortran Composer XE 2013 Windows* エクセルソフト株式会社 www.xlsoft.com Rev. 1.1 (2012/12/10) Copyright 1998-2013 XLsoft Corporation. All Rights Reserved. 1 / 53 ... 3... 4... 4... 5 Visual Studio... 9...
都道府県別経済財政モデル（平成２７年度版）_02
-1 (--- 10-2 ---- 4.- 5-3 () 10 13 3 5-4 () 13 16 14-5 () 11 30-1 10 1. 1() Cw j C SNA 47 47 Chi LikL i k1 47 Chi k1 ij Cw j Ch i C SNA L ij j i SNA i j - 2 - -2 5-5 19-3 4 3 4-5 - 3 - 茨 - 4 - -1 (---
New version (2.15.1) of Specview is now available Dismiss Windows Specview.bat set spv= Specview set jhome= JAVA (C:\Program Files\Java\jre<version>\
![New version (2.15.1) of Specview is now available Dismiss Windows Specview.bat set spv= Specview set jhome= JAVA (C:\Program Files\Java\jre<version>\](/thumbs/92/109450602.jpg "New version (2.15.1) of Specview is now available Dismiss Windows Specview.bat set spv= Specview set jhome= JAVA (C:\Program Files\Java\jre<version>\")
Specview VO 2012 2012/3/26 Specview Specview STSCI(Space Telescope SCience Institute) VO Specview Web page http://www.stsci.edu/resources/software hardware/specview http://specview.stsci.edu/javahelp/main.html
n 第1章 章立ての部分は、書式(PC入門大見出し)を使います
FORTRAN FORTRAN FORTRAN ) DO DO IF IF FORTRAN FORTRAN(FORmula TRANslator)1956 IBM FORTRAN IV FORTRAN77 Fortran90 FORTRAN77 FORTRAN FORTARN IF, DO C UNIX FORTRAN PASCAL COBOL PL/I BASIC Lisp PROLOG Lisp
液晶プロジェクター CP-S317J/X327J 取扱説明書
CP-S317/CP-X327/CP-X328 STANDBY/ON VIDEO RGB SEARCH ASPECT MAGNIFY ON OFF FREEZE POSITION ESC HOME END PAGE DOWN ENTER AUTO PAGE UP BLANK VOLUME MUTE KEYSTONE MENU RESET TANDBY/ON INPUT KEYSTONE RESET
NL-22／NL-32取扱説明書_操作編
MIC / Preamp ATT NL-32 A C ATT AMP 1 AMP 2 AMP 3 FLAT FLAT CAL.SIG. OVER LOAD DET. AMP 4 AMP 5 A/D D/A CONV. AMP 6 AMP 7 A/D CONV. Vref. AMP 8 AMP 10 DC OUT AMP 9 FILTER OUT AC DC OUT AC OUT KEY SW Start
R1RW0416DI シリーズ
お客様各位 カタログ等資料中の旧社名の扱いについて 2010 年 4 月 1 日を以って NEC エレクトロニクス株式会社及び株式会社ルネサステクノロジが合併し 両社の全ての事業が当社に承継されております 従いまして 本資料中には旧社名での表記が残っておりますが 当社の資料として有効ですので ご理解の程宜しくお願い申し上げます ルネサスエレクトロニクスホームページ (http://www.renesas.com)
joho09.ppt
s M B e E s: (+ or -) M: B: (=2) e: E: ax 2 + bx + c = 0 y = ax 2 + bx + c x a, b y +/- [a, b] a, b y (a+b) / 2 1-2 1-3 x 1 A a, b y 1. 2. a, b 3. for Loop (b-a)/ 4. y=a*x*x + b*x + c 5. y==0.0 y (y2)
Kumagai09-hi-2.indd
CSR2009 CONTENTS 1 2 3 4 5 6 7 8 9 10 350 11 12 13 14 15 16 17 18 Do Check Action Plan 19 20 INPUT r r r r k k OUTPUT 21 22 Plan Action Check Do 23 24 25 26 27 28 16:50 7:30 8:00 8:30 9:30 10:00 18:00
: CR (0x0d) LF (0x0a) line separator CR Mac LF UNIX CR+LF MS-DOS WINDOWS Japan Advanced Institute of Science and Technology
I117 8 1 School of Information Science, Japan Advanced Institute of Science and Technology : CR (0x0d) LF (0x0a) line separator CR Mac LF UNIX CR+LF MS-DOS WINDOWS Japan Advanced Institute of Science and
卒業論文.PDF
234 1 1 1.1 1 1.2 4 1.3 4 2 5 2.1 5 2.2 6 2.3 7 2.3.1 7 2.3.2 8 2.3.3 9 2.3.4 9 2.3.5 9 2.3.6 9 3 1 3.1 3.2 3.3 11 3.4 14 3.4.1 14 3.4.2 15 3.5 16 3.6 17 i 4 2 18 4.1 18 4.2 19 4.2.1 2m/sec 2 4.2.2 3m/sec
橡挿入法の実践
PAGE:1 7JFC1121 PAGE:2 7JFC1121 PAGE:3 7JFC1121 Kadai_1.pas program input_file;{7jfc1121 19 20 { type item = record id : integer; math : integer; english : integer; var wfile data flag id_no filename :
1 1 1 1 7-7 - 0 % % 1 d w v 2 2 2 1 3 - - - - - - d 2 2 1 12 11 10 2 9 3 8 7 6 5 4 2 - - d - 2 - 2 1 2 2 % % % % % % % % % % % - d - - - - 2 % % 2 - - - - - - 3 3 3 e e e e e e e e e e e e e e 3 e e e
まえがきIntroduction
Array Corporation DICOM Pro Server DICOM 3.0 Conformance Statement 0. INTRODUCTION...3 1. IMPLEMENTATION MODEL...4 1.1...4 1.2...4 1.3...5 2. AE SPECIFICATIONS...6 2.1 DICOM Pro Server...6 2.1.1... 7 2.1.2...
1 1.1 (PAC-YW01BAC) 1.1 Y GR R2 GR WR2 Eeco WY Eeco S Y ICE YkP ECO Y GR R2 Eeco WR2 Eeco Y A K PAC PAC (RAC) (HAC) *1) 24-4 - 1.2 PAC-YW01BAC (1) M-NET 1 50 ICAICLCFU ICAICA LCFU (2) (3) (4) UPS (5) (6)
4 2018 5 1 1 1 1.1.............................. 1 1.1.1....................... 1 1.1.2.................... 1 1.2...................... 1 1.2.1........................... 1 1.2.2............................
2004/01/12 1 2004/01/23 2 I- - 10 2004/04/02 3-6 2004/04/03 4-1-5-1,-1-8-1,-2-2-1,-3-4-1,-3-5-1,-4-2-1, -5-4-2,-5-6-1,-6-2-1 4. _.doc 1
4 2004 4 3 2004/01/12 1 2004/01/23 2 I- - 10 2004/04/02 3-6 2004/04/03 4-1-5-1,-1-8-1,-2-2-1,-3-4-1,-3-5-1,-4-2-1, -5-4-2,-5-6-1,-6-2-1 4. _.doc 1 - - I. 4 I- 4 I- 4 I- 6 I- 6 I- 7 II. 8 II- 8 II- 8 II-
2.2 Sage I 11 factor Sage Sage exit quit 1 sage : exit 2 Exiting Sage ( CPU time 0m0.06s, Wall time 2m8.71 s). 2.2 Sage Python Sage 1. Sage.sage 2. sa
I 2017 11 1 SageMath SageMath( Sage ) Sage Python Sage Python Sage Maxima Maxima Sage Sage Sage Linux, Mac, Windows *1 2 Sage Sage 4 1. ( sage CUI) 2. Sage ( sage.sage ) 3. Sage ( notebook() ) 4. Sage
num2.dvi
kanenko@mbk.nifty.com http://kanenko.a.la9.jp/ 16 32...... h 0 h = ε () 0 ( ) 0 1 IEEE754 (ieee754.c Kerosoft Ltd.!) 1 2 : OS! : WindowsXP ( ) : X Window xcalc.. (,.) C double 10,??? 3 :, ( ) : BASIC,
untitled
I 9 MPI (II) 2012 6 14 .. MPI. 1-3 sum100.f90 4 istart=myrank*25+1 iend=(myrank+1)*25 0 1 2 3 mpi_recv 3 isum1 1 isum /tmp/120614/sum100_4.f90 program sum100_4 use mpi implicit none integer :: i,istart,iend,isum,isum1,ip
2 1,384,000 2,000,000 1,296,211 1,793,925 38,000 54,500 27,804 43,187 41,000 60,000 31,776 49,017 8,781 18,663 25,000 35,300 3 4 5 6 1,296,211 1,793,925 27,804 43,187 1,275,648 1,753,306 29,387 43,025
情報処理概論（第二日目）
情報処理概論 工学部物質科学工学科応用化学コース機能物質化学クラス 第 8 回 2005 年 6 月 9 日 前回の演習の解答例 多項式の計算 ( 前半 ): program poly implicit none integer, parameter :: number = 5 real(8), dimension(0:number) :: a real(8) :: x, total integer
ohp1.dvi
2008 1 2008.10.10 1 ( 2 ) ( ) ( ) 1 2 1.5 3 2 ( ) 50:50 Ruby ( ) Ruby http://www.ruby-lang.org/ja/ Windows Windows 3 Web Web http://lecture.ecc.u-tokyo.ac.jp/~kuno/is08/ / ( / ) / @@@ ( 3 ) @@@ :!! ( )
mstrcpy char *mstrcpy(const char *src); mstrcpy malloc (main free ) stdio.h fgets char *fgets(char *s, int size, FILE *stream); s size ( )
2008 3 10 1 mstrcpy char *mstrcpy(const char *src); mstrcpy malloc (main free ) stdio.h fgets char *fgets(char *s, int size, FILE *stream); s size ( ) stream FILE ( man ) 40 ( ) %./a.out String : test
Microsoft Word - 03-数値計算の基礎.docx
δx f x 0 + δ x n=0 a n = f ( n) ( x 0 ) n δx n f x x=0 sin x = x x3 3 + x5 5 x7 7 +... x ( ) = a n δ x n ( ) = sin x ak = (-mod(k,2))**(k/2) / fact_k 10 11 I = f x dx a ΔS = f ( x)h I = f a h I = h b (
I? 3 1 3 1.1?................................. 3 1.2?............................... 3 1.3!................................... 3 2 4 2.1........................................ 4 2.2.......................................
20 15 14.6 15.3 14.9 15.7 16.0 15.7 13.4 14.5 13.7 14.2 10 10 13 16 19 22 1 70,000 60,000 50,000 40,000 30,000 20,000 10,000 0 2,500 59,862 56,384 2,000 42,662 44,211 40,639 37,323 1,500 33,408 34,472
- 2 -
- 2 - - 3 - (1) (2) (3) (1) - 4 - ~ - 5 - (2) - 6 - (1) (1) - 7 - - 8 - (i) (ii) (iii) (ii) (iii) (ii) 10 - 9 - (3) - 10 - (3) - 11 - - 12 - (1) - 13 - - 14 - (2) - 15 - - 16 - (3) - 17 - - 18 - (4) -
2 1980 8 4 4 4 4 4 3 4 2 4 4 2 4 6 0 0 6 4 2 4 1 2 2 1 4 4 4 2 3 3 3 4 3 4 4 4 4 2 5 5 2 4 4 4 0 3 3 0 9 10 10 9 1 1
1 1979 6 24 3 4 4 4 4 3 4 4 2 3 4 4 6 0 0 6 2 4 4 4 3 0 0 3 3 3 4 3 2 4 3? 4 3 4 3 4 4 4 4 3 3 4 4 4 4 2 1 1 2 15 4 4 15 0 1 2 1980 8 4 4 4 4 4 3 4 2 4 4 2 4 6 0 0 6 4 2 4 1 2 2 1 4 4 4 2 3 3 3 4 3 4 4
1 (1) (2)
1 2 (1) (2) (3) 3-78 - 1 (1) (2) - 79 - i) ii) iii) (3) (4) (5) (6) - 80 - (7) (8) (9) (10) 2 (1) (2) (3) (4) i) - 81 - ii) (a) (b) 3 (1) (2) - 82 - - 83 - - 84 - - 85 - - 86 - (1) (2) (3) (4) (5) (6)
E for LINUX UNIX Windows 10
E for LINUX UNIX Windows 10 ...3...4 DASmini...5 1...5...6...7 DASmini...8 3.1 inet_io_open...9 3.2 inet_io_close... 10 3.3 inet_io_packet... 11 3.4 inet_io_cond... 12 3.5 inet_io_stat... 13 3.6 inet_io_stop...
入院操作マニュアル（第１０版３部）.PDF
101 5010 Project code name ORCA - 97 - Copyright(C) 2006 JMARI 1 1 3 [ 1 ] [ 2 ] 1 2 [ 3 ] 2 3 1 1 [ ] 2 2 [ ] F12 Project code name ORCA - 98 - Copyright(C) 2006 JMARI 33 [ ] [ ] [ ] [1 2 3 ] [ ] [ ]F1
( )!?
(2) Copyright 2006 Kota Abe ( )!? : This is a pen. 84 104 105 83 (, encode) ( ) 84 104 105 83 This is a pen. (, decode) Do you know Tom Riddle? Yes!! ASCII American Standard Code for Information Interchange