情報活用資料
|
|
|
- きみつぐ ままだ
- 9 years ago
- Views:
Transcription
1 cp hello.f90 echo.f90 mv echo.f90 echofile.f90 cp echofile.f90 echo.f90 7
2 8
3 9
4 Echo key input program echo character(80):: A read (5,*) A write (6,*) A stop end program echo chracter read 10
5 Echo key input to file program echo2file character(80):: A open (10,file='outfile.dat') read (5,*) A write (10,*) A stop end program echo2file open write open (10,file='outfile.dat',status='new') 11
6 volume of rotating ellipsoid program ellips implicit none real(4):: a, b, pi, v write (6,*) 'input equatorial radius a (km)' read (5,*) a write (6,*) 'input polar radius b (km)' read (5,*) b pi = 4.0e0 * atan(1.0e0) a = a * 1.0e3 write (6,*) 'a =',a,'m' b = b * 1.0e3 write (6,*) 'b =',b,'m' v = 4.0 / 3.0 * pi * a**2 * b write (6,*) 'The volume is',v,'m^3' stop end program ellips implicit none 12
7 implicit real*4 (a-h,o-z) implicit integer (i-n) Real(4)::(4) (4) real pi=4.0e0*atan(1.0e0) 4.0e0 atan a = a * 1.0e3 v = 4.0e0 / 3.0e0 * pi * a**2 * b a**2 13
8 type of numerical variables program type1 implicit none real(4):: a1,a2 real(8):: da1,da2 integer:: i a1 = 4.0e0*atan(1.0e0) da1 = 4.0d0*atan(1.0d0) da2 = dble(a1) i = int(a1) a2 = float(i) write (6,*) 'a1 =', a1 write (6,*) 'da1 =', da1 write (6,*) 'da2 =', da2 write (6,*) 'i =', i write (6,*) 'a2 =', a2 stop end program type1 real*8 *8 double precision integer 14
9 da1=4.0d0*atan(1.0d0)4.0d0 da2 = dble(a1)dble sngl( ) i = int(a1) a2 = float(i)real( ) dfloat( ) 15
10 integer devide by real or integer variable program type2 implicit none real(4):: a,b,c,d,e,f,g,h integer:: i,j,k i = 5 j = 3 k = 2 watch out the automatic type transfomation a = float(i)/float(j) b = i/j c = float(i/j) d = i*j/k e = i/k*j f = i/k*float(j) g = float(i)/k*j write (6,*) 'a,b,c =', a,b,c write (6,*) 'd,e write (6,*) 'f,g =', d,e =', f,g stop end program type2 16
11 e = i*j/k e = float(i*j/k) 17
12 + c = a+b - c = a-b c = -a * c = a*b / c = a/b ** c = a**2 c = a*a () f = a*((b+c)*d+e) int(x) float(i) dfloat(i) sngl(x) dble(x) sin(x) acos(x) tanh(x) sqrt(x) log(x) log10(x) exp(x) abs(x) mod(x,y) min(x,y) max(x,y) cp file_a file_b cp file1 file2 directoryname 18
13 cp directoryname/filename. filename *? mv file_a file_b mv file1 file2 directoryname rm file1 file2 *(アスタリスク)? cp *.f directoryname rm *
14 20
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!
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
情報活用資料
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"
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
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 (
合併後の交付税について
(1) (2) 1 0.9 0.7 0.5 0.3 0.1 2 3 (1) (a), 4 (b) (a), (c) (a) 0.9 0.7 0.5 0.3 0.1 (b) (d),(e) (f) (g) (h) (a) (i) (g) (h) (j) (i) 5 (2) 6 (3) (A) (B) (A)+(B) n 1,000 1,000 2,000 n+1 970 970 1,940 3.0%
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
Ł½’¬24flNfix+3mm-‡½‡¹724
571 0.0 31,583 2.0 139,335 8.9 310,727 19.7 1,576,352 100.0 820 0.1 160,247 10.2 38,5012.4 5,7830.4 9,5020.6 41,7592.7 77,8174.9 46,425 2.9 381,410 24.2 1,576,352 100.0 219,332 13.9 132,444 8.4 173,450
2 3
20 2 3 5 4 6 7 9 8 1 2 1 2 10 11 13 12 0220226123 02258731112244 0226463680 0228562311 0222759252 0224533111414 http://www.pref.miyagi.jp/oksgsin/ 0229211466 15 14 @ @ ª ª π @ @ @ @ ª π @ @ @ º π @ º π
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
OpenMP¤òÍѤ¤¤¿ÊÂÎó·×»»¡Ê£±¡Ë
2011 5 26 scalar Open MP Hello World Do (omp do) (omp workshare) (shared, private) π (reduction) scalar magny-cours, 48 scalar scalar 1 % scp. ssh / authorized keys 133. 30. 112. 246 2 48 % ssh 133.30.112.246
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
コンピュータ概論
4.1 For Check Point 1. For 2. 4.1.1 For (For) For = To Step (Next) 4.1.1 Next 4.1.1 4.1.2 1 i 10 For Next Cells(i,1) Cells(1, 1) Cells(2, 1) Cells(10, 1) 4.1.2 50 1. 2 1 10 3. 0 360 10 sin() 4.1.2 For
2002.N.x.h.L.......g9/20
1 2 3 4 5 6 1 2 3 4 5 8 9 1 11 11 12 13 k 14 l 16 m 17 n 18 o 19 k 2 l 2 m 21 n 21 o 22 p 23 q 23 r 24 24 25 26 27 28 k 28 l 29 m 29 3 31 34 42 44 1, 8, 6, 4, 2, 1,2 1, 8 6 4 2 1, 8, 6, 4, 2, 1,2 1, 8
OpenMP¤òÍѤ¤¤¿ÊÂÎó·×»»¡Ê£±¡Ë
2012 5 24 scalar Open MP Hello World Do (omp do) (omp workshare) (shared, private) π (reduction) PU PU PU 2 16 OpenMP FORTRAN/C/C++ MPI OpenMP 1997 FORTRAN Ver. 1.0 API 1998 C/C++ Ver. 1.0 API 2000 FORTRAN
PowerPoint プレゼンテーション
0 1 2 3 4 5 6 1964 1978 7 0.0015+0.013 8 1 π 2 2 2 1 2 2 ( r 1 + r3 ) + π ( r2 + r3 ) 2 = +1,2100 9 10 11 1.9m 3 0.64m 3 12 13 14 15 16 17 () 0.095% 0.019% 1.29% (0.348%) 0.024% 0.0048% 0.32% (0.0864%)
( )
5 60 2 1 54 ( ) 0.8 2 37 3 180 4 1 9 123654789 1 2 3 4 5 6 7 8 9 5 32 4 9 3 8 2 5 6 0 7 30 36 24 8 8 6 450 3 9 26 5 2 2016 2013-2015 14 10 ABC 24DEF BCADAB BEF A F E B D C 11 4 4 1 5 5 2 6 6 3 12 54 24
tebiki00.dvi
(Linux) [ UNIX ] CMD Workshop ( ) 1 *********************************************************************** * Linux PC-UNIX UNIX * * 99% FreeBSD BSD PC-UNIX * * * ***********************************************************************
2 / 37
INTA No.00149 1 / 37 2 / 37 3 / 37 4 / 37 5 / 37 6 / 37 7 / 37 8 / 37 9 / 37 10 / 37 11 / 37 12 / 37 13 / 37 14 / 37 15 / 37 16 / 37 17 / 37 18 / 37 19 / 37 20 / 37 21 / 37 November.2008 22 / 37 23 / 37
26 2 3 4 5 8 9 6 7 2 3 4 5 2 6 7 3 8 9 3 0 4 2 4 3 4 4 5 6 5 7 6 2 2 A B C ABC 8 9 6 3 3 4 4 20 2 6 2 2 3 3 4 4 5 5 22 6 6 7 7 23 6 2 2 3 3 4 4 24 2 2 3 3 4 4 25 6 2 2 3 3 4 4 26 2 2 3 3 27 6 4 4 5 5
76 3 B m n AB P m n AP : PB = m : n A P B P AB m : n m < n n AB Q Q m A B AQ : QB = m : n (m n) m > n m n Q AB m : n A B Q P AB Q AB 3. 3 A(1) B(3) C(
3 3.1 3.1.1 1 1 A P a 1 a P a P P(a) a P(a) a P(a) a a 0 a = a a < 0 a = a a < b a > b A a b a B b B b a b A a 3.1 A() B(5) AB = 5 = 3 A(3) B(1) AB = 3 1 = A(a) B(b) AB AB = b a 3.1 (1) A(6) B(1) () A(
ネットショップ・オーナー２ ユーザーマニュアル
1 1-1 1-2 1-3 1-4 1 1-5 2 2-1 A C 2-2 A 2 C D E F G H I 2-3 2-4 2 C D E E A 3 3-1 A 3 A A 3 3 3 3-2 3-3 3-4 3 C 4 4-1 A A 4 B B C D C D E F G 4 H I J K L 4-2 4 C D E B D C A C B D 4 E F B E C 4-3 4
EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編
K L N K N N N N N N N N N N N N L A B C N N N A AB B C L D N N N N N L N N N A L B N N A B C N L N N N N L N A B C D N N A L N A L B C D N L N A L N B C N N D E F N K G H N A B C A L N N N N D D
ありがとうございました
- 1 - - 2 - - 3 - - 4 - - 5 - 1 2 AB C A B C - 6 - - 7 - - 8 - 10 1 3 1 10 400 8 9-9 - 2600 1 119 26.44 63 50 15 325.37 131.99 457.36-10 - 5 977 1688 1805 200 7 80-11 - - 12 - - 13 - - 14 - 2-1 - 15 -
EPSON エプソンプリンタ共通 取扱説明書 ネットワーク編
K L N K N N N N N N N N N N N N L A B C N N N A AB B C L D N N N N N L N N N A L B N N A B C N L N N N N L N A B C D N N A L N A L B C D N L N A L N B C N N D E F N K G H N A B C A L N N N N D D
公務員人件費のシミュレーション分析
47 50 (a) (b) (c) (7) 11 10 2018 20 2028 16 17 18 19 20 21 22 20 90.1 9.9 20 87.2 12.8 2018 10 17 6.916.0 7.87.4 40.511.6 23 0.0% 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2.0% 4.0% 6.0% 8.0%
198
197 198 199 200 201 202 A B C D E F G H I J K L 203 204 205 A B 206 A B C D E F 207 208 209 210 211 212 213 214 215 A B 216 217 218 219 220 221 222 223 224 225 226 227 228 229 A B C D 230 231 232 233 A
/9/ ) 1) 1 2 2) 4) ) ) 2x + y 42x + y + 1) 4) : 6 = x 5) : x 2) x ) x 2 8x + 10 = 0
1. 2018/9/ ) 1) 8 9) 2) 6 14) + 14 ) 1 4 8a 8b) 2 a + b) 4) 2 : 7 = x 8) : x ) x ) + 1 2 ) + 2 6) x + 1)x + ) 15 2. 2018/9/ ) 1) 1 2 2) 4) 2 + 6 5) ) 2x + y 42x + y + 1) 4) : 6 = x 5) : x 2) x 2 15 12
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 &....................................
num2.dvi
[email protected] 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,
2 1 Octave Octave Window M m.m Octave Window 1.2 octave:1> a = 1 a = 1 octave:2> b = 1.23 b = octave:3> c = 3; ; % octave:4> x = pi x =
1 1 Octave GNU Octave Matlab John W. Eaton 1992 2.0.16 2.1.35 Octave Matlab gnuplot Matlab Octave MATLAB [1] Octave [1] 2.7 Octave Matlab Octave Octave 2.1.35 2.5 2.0.16 Octave 1.1 Octave octave Octave
2 (4)-7
2 (4)-7 (4)-7 3 4 p r f > 5 6 7 8 9 10 11 r q!1 o!0!2!3!4!5 w e t y u i!6!7 q w e r t y 12 u i o!0!1!7!2!3!4!5 p r f >!6!7 13 !8!8!9!9 @0 @0 14 @1 @2 @3 @4 @5 @6 @7 @8 @9 @1 @2 @3 @5 @6 @7 @8 @9 @4 15
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,
MultiWriter5150/5140 ユーザーズガイド
3 4 P.40 P.47 Windows Macintosh P.77 P.47 Windows Macintosh P.77 P.47 Windows Macintosh P.77 P.47 Windows Macintosh P.77 P.28 P.49 Windows Macintosh P.80 P.51 Windows Macintosh P.80 P.57 Windows Macintosh
O157 6/23 7/4 6 25 1000 117,050 6 14:00~15:30 1 2 22 22 14:30~15:30 8 12 1 5 20 6 20 10 11 30 9 10 6 1 30 6 6 0 30 6 19 0 3 27 6 20 0 50 1 2 6 4 61 1 6 5 1 2 1 2 6 19 6 4 15 6 1 6 30 6 24 30 59
ab c d 6 12 1:25,000 28 3 2-1-3 18 2-1-10 25000 3120 10 14 15 16 7 2-1-4 1000ha 10100ha 110ha ha ha km 200ha 100m 0.3 ha 100m 1m 2-1-11 2-1-5 20cm 2-1-12 20cm 2003 1 05 12 2-1-13 1968 10 7 1968 7 1897
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.....................................
Compiled MODELSでのDFT位相検出装置のモデル化と評価
listsize TPBIG.EXE /Mingw32 ATP (Alternative Transients Program)- EMTP ATP ATP ATP ATP(TPBIG.EXE) EMTP (ATP)FORTAN77 DIMENSION C malloc listsize TACS DIMENSIONEMTP ATP(TPBIG.EXE) listsize (CPU ) RL 4040
