( ) 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 2
13 92 14 70 15 42 16 81 17 100 18 73 19 55 20 19 21 29 22 80 23 69 24 99 25 25 26 56 27 70 28 91 29 61 30 100 31 51 32 18 33 74 34 69 35 79 4 WWW(World Wide Web) WWW ( ) 4.1 WWW Internet Explorer( IE ) IE 3
http://www-sci.kj.yamagata-u.ac.jp/~phys/phys.html http://ksjoho1.kj.yamagata-u.ac.jp/ http://kspirit.kj.yamagata-u.ac.jp/ http://www.yahoo.co.jp/ http://www.infoseek.co.jp/ 2 4.2 (telnet ) WWW ( ) Telnet (2 ) kdeve ( kdeve ) login: Passwd: ( kdeve kdeve ) sg046@kdeve% ( ) 4
kdeve (... ) ( ) EUC OK exit ( exit ) session 4.3 mule test.txt sg046@kdeve% mule test.txt <--- test.txt x c y mule (mule ) sg046@kdeve% mailx sg046 <test.txt mailx sg046 (sg046 kdeve ) < test.txt kdeve kdeve 5
% mailx sg046@kdeve.kj.yamagata-u.ac.jp <mail.dat @ kdeve kj (kojirakawa) k j yamagata-u ac academy jp (japan) % mailx gunji@tkyosf1.phys.s.u-tokyo.ac.jp <mail.dat mule canna sg046@kdeve% mailx q ( ) 4.4 ftp ftp ftp Windows MS-DOS C:\WINDOWS>A: A\> ftp kdeve kdeve telnet FTP> (mule ) get put get put test.txt test1.txt FTP>get test.txt test1.txt 6
test.txt test1.txt FTP>put test.txt test1.txt mule Word put get binary ftp 5 WWW 2 ( Word ) HTML HTML WWW 5.1 WWW (Word HTML Word ) <HTML> <HEAD> <TITLE> 7
</TITLE> </HEAD> <BODY> </BODY> </HTML> <TILTE> </TITLE> <BODY> </BODY> Plain Text Explorer <HTML> </HTML> <BODY> </BODY> HTML <HTML> </HTML> HTML <BODY> </BODY> HTML HTML Explorer 5.2 HTML <BODY> </BODY> <BODY> <BODY> 2 <BODY> </BODY> 1 2 <BODY> </BODY> <BR> <BODY> </BODY> 1 8
2 3 <BR> 4 1 2 3 4 <BR> <BODY> </BODY> <H1> 1 </H1><BR> <H2> 2 </H2><BR> <H3> 3 </H3><BR> <H4> 4 </H4> <H1> </H1> <HR> 1 <HR> <BLINK> 1 </BLINK> 1 <BLINK> </BLINK> 9
<A HREF="http://ksjoho1.kj.yamagata-u.ac.jp/ ~phys/phys.html"> </A> http://ksjoho1.kj.yamagata-u.ac.jp/ phys/phys.html </A> <UL> <li> 1 <li> 2 <li> 3 </UL> <IMG SRC="test.gif"> test.gif GIF JPEG PICT ( ) 6 Fortran ( )? C 10
6.1 sg046@kdeve%mkdir program program Windows program program Windows cd sg046@kdeve% cd program program sg046@kdeve% mule temp.f mule temp.f (.f ) mule (mule ) ( sauce source ) sg046@kdeve% frt -o temp temp.f temp.f temp ( ) temp ( temp ) temp.f temp 11
sample1.f sample1 ( ) 6.2 ( ( ) ) TEST c---------- c test c---------- Write(6,*) TEST End 1 3 c c 1 3 4 5 7 Write 7 72 Write 7 Write(6,*) TEST 6 7 End End Write End End END 12
TEST 2 a,b,c 3 a b 2 c c-------- c sample c-------- Implicit none Real a,b,c Write(6,*) a= Read(5,*)a Write(6,*) b= Read(5,*)b c=a+b Write(6,*) c=,c End 1 3 4 7 Implicit none 7 5 a,b,c 3 Real 7,9 a= b= 8 10 7 Read a 10 b 11 a b c = 12 Write(6,*) c=,c c= c End sample1.f sample2.f.f sample1.f sample1 sample2.f sample2 mule 1. c 2. 7 72 3. End 13
4. 5. Implicit none 6. Write(6,*) 7. (, ) Real a,b a b Write(6,*) c=,c c= c 8. Read(5,*) ( ) Read(5,*)a a 9. = 6.3 ( ) 6.3.1 Do Do mule c---------- c sample do c---------- Implicit none Integer i Integer sum sum=0 Do i=1,100 sum=sum+i End do Write(6,*) sum=,sum End 1 100 Integer i sum 2 sum Do 14
Do End do Do i 1 sum=sum+i sum (0) i (1) sum sum 1 End do Do i 2 sum=sum+i sum (1) i (2) Do 2 sum 3 i 100 Do i 100 Write sum i Do Write Integer (...) Do End do Do End do (Mule ) ( )(1+ +11)+(2+ +12)+ +(10+ +20) Do 6.3.2 If If a b 2 If c-------- c sample If_1 c-------- Implicit none Real a,b Write(6,*) a= Read(5,*)a Write(6,*) b= Read(5,*)b If(a.gt.b) Then Write(6,*) a>b End If If(a.lt.b) Then Write(6,*) a<b End If If(a.eq.b) Then Write(6,*) a=b 15
End If End If If End If 12 14 a b If() Then... End If If( )a b (Then) a>b.gt..ge..eq..ne..le..lt..gt..ge..eq..ne..le..lt. Do If Else c-------- c sample If_2 c-------- Implicit none Real a,b Write(6,*) a= Read(5,*)a Write(6,*) b= Read(5,*)b If(a.gt.b) Then Write(6,*) a>b Else if(a.lt.b) Then Write(6,*) a<b Else Write(6,*) a=b End If End Else If a b a>b a b a<b a=b c-------- 16
c sample If_3 c-------- Implicit none Real a,b Write(6,*) a= Read(5,*)a Write(6,*) b= Read(5,*)b If(a.gt.b) Then Write(6,*) a>b Else If(a.lt.b) Then Write(6,*) a<b Else Write(6,*) a=b End If End If End sample If 2 sample If 3 If Else If If If((a.ge.c).AND.(a.le.b)) Then Write(6,*) a=,a End If <---a c b a If((a.ge.c).OR.(a.le.b)) Then Write(6,*) a=,a End If <---a c b a ( ) 3 3 3 3 success 3 fail 6.3.3 goto goto If Do c------------- 17
c sample goto1 c------------- Implicit none Real a Write(6,*) a= Read(5,*)a 10 Continue a=a+0.001 If(a.lt.1.0) Then goto 10 End If Write(6,*) a=,a End <---a a 1 goto continue goto goto Continue 2 Continue 7 ( ) (N ) N<2 n n goto 6.3.4 Implicit none Implicit none Implicit none Implicit none Implicit none Real Integer i,j,k,l,m,n Implicit none 2 c---------- c implicit c---------- Write(6,*) a1= Read(5,*)a1 Write(6,*) a2= Read(5,*)a2 18
Write(6,*) a1+a2=,al+a2 <---!! End al+a2 1 Implicit none Implicit none 6.3.5 (+,-,*,/) c---------- c test_func c---------- Implicit none Real a,b Write(6,*) a= Read(5,*)a b=sin(a) <---a sin Write(6,*) sin(a),b End sin sind log log10 sin sind log log10 10!! ( )x 2 = y e x/0.3 = y 0.01 6.3.6 2 2 a(6) a(2,3) a(3,4,5) c------- 19
sin(a),cos(a),tan(a) sind(a),cosd(a),tand(a) asin(a),acos(a),atan(a) asind(a),acosd(a),atand(a) exp(a) log(a),log10(a) sqrt(a) max(a,b,c),min(a,b,c) mod(a,b) int(a) float(a) abs(a) a sin,cos,tan a a sin,cos,tan a sin,cos,tan a sin,cos,tan a e a log e a,log 10 a a a,b,c a/b a a a 1: c matrix c------- Implicit none Real a(2,2),b(2,2),c(2,2) <---2 2 Integer i,j Do i=1,2 Do j=1,2 Read(5,*)a(j,i) End do End do Do i=1,2 Do j=1,2 Read(5,*)b(j,i) End do End do Do i=1,2 Do j=1,2 c(j,i)=a(j,i)+b(j,i) Write(6,*) c(,j,i, )=,c(j,i) End do End do 20
End ( )2 2 7 2 22 gunji@kspirit 8 8.1 UNIX exit ls more filename cd dirname pwd mkdir dirname rmdir dirname cp file1 file2 mv file1 file2 rm filename frt man finger grep keyword filename mailx talk telnet ftp lpr lprm lpq ( ) file1 file2 file1 file2 2: UNIX man 21
8.2 Mule CTRL-x CTRL-c CTRL-n CTRL-p CTRL-f CTRL-b CTRL-a CTRL-e CTRL-v ESC-v ESC-> ESC-< ESC-x goto-line CTRL-d CTRL-k CTRL-SPACE CTRL-w CTRL-y CTRL-s CTRL-r ESC-% CTRL-x i CTRL-x CTRL-w CTRL-x 2 CTRL-x o CTRL-x 1 CTRL-x CTRL-b CTRL-x b ( ) include 2 ( q ) 3: Mule CTRL- ESC- 8.3 canna canna canna Mule canna mule 22
sg046@kdssf% mule test.dat o ( CTRL-o ) watashihahajimetenihongowotsukaimasu canna yatsunokanojyohaiijimaaininiteiruna CTRL f CTRL f 2 watashikamone CTRL i CTRL o canna CTRL o CTRL f CTRL b CTRL i CTRL o 4: canna CTRL o 8.4 (-2000-) 23
Fortran 77 24