‰È–Ú–¼ ”’l‰ðÍŠî‘b Žž@ŒÀ
…|4E5

’P ˆÊ ” Šw”N”z“– ŠJuŠúŠÔ ’S@“–@‹³@ˆõ
4
2
Œã Šú
™@]@“úoŸ

ƒe[ƒ} C ‚Ü‚½‚Í FORTRAN ‚É‚æ‚é”’l‰ðÍŠî‘b

u‹`‚ÌŠT—vE‚Ë‚ç‚¢
@C Œ¾Œê‚Å”’l‰ðÍ‚ð’¼ÚŠw‚Ñ‚½‚¢ŽÒ‚ÆA ”’lŒvŽZ—p‚ÌŒ¾Œê FORTRAN ‚ð‚Ü‚¸Šw‚ÑA C Œ¾Œê‚Æ‚ÌŠÖ˜A‚âƒvƒƒOƒ‰ƒ~ƒ“ƒO‚Ì’mŽ¯•â[‚È‚Ç‚ðs‚Á‚½Œã‚É”’l‰ðÍ‚ðŠw‚Ñ‚½‚¢ŽÒ‚ƂɃOƒ‹[ƒv‚𕪂¯‚ÄŽw“±‚·‚éB
@ŠeŽí‚Ì”Šw“I”–â‘è‚ðA ”’l“I‚É‰ð‚­‚½‚ß‚ÌŽè–@‚ðŠw‚΂¹‚éB ‹ï‘Ì“I‚É‚ÍA •û’öŽ®‚Ì‹ªA ˜A—§ 1 ŽŸ•û’öŽ®‚Æ‹ts—ñA Ŭ 2 æ‹ßŽ—A •âŠÔ–@A ”’lÏ•ª–@A í”÷•ª•û’öŽ®A Œë·‚È‚ÇB Žå‚Æ‚µ‚ĉ‰KŒ`Ž®‚ÅK“¾‚³‚¹‚éB –ˆT‚ÌŽö‹ÆŒ`‘Ô‚ÍA –`“ª‚ɉðÍŽè–@‚È‚Ç‚Ìà–¾‚ð‚µ‚½ŒãA ƒvƒƒOƒ‰ƒ~ƒ“ƒOì‹Æ‚ðs‚킹‚éB

u‹`‚Ì‚È‚ª‚ê
‘æ 1 T@@FƒKƒCƒ_ƒ“ƒXA ƒOƒ‹[ƒv•ª‚¯A ¡Œã‚ÌŠwK‚Ì€”õB Šw¶‚Ì”\—͂ɉž‚¶‚ÄŠwK‚Ìi“x‚ð•Ï‚¦‚éB
C Œ¾ŒêƒOƒ‹[ƒv‚Ì•W€i“x
‘æ 2 ` 3 TF•û’öŽ®‚Ì‹ª iNewton –@/Regula falsi –@/“ñ•ª–@/2 •Ï”“ñ•ª–@/Bairstow –@j
‘æ 4 ` 5 TF˜A—§ 1 ŽŸ•û’öŽ®‚Æ‹ts—ñ iGauss-Jordan –@/Thomas –@/Gauss-Seidel –@/‹ts—ñj
‘æ 6 ` 7 TFŬ 2 æ‹ßŽ— iüŒ`Ŭ 2 æ–@/’¼Ú’Tõ–@/‚±‚Ì 2 –@‚Ì•¹—pj
‘æ 8 ` 9 TF•âŠÔ–@ iLagrange •âŠÔ–@/Aitkin •âŠÔ–@/Newton •âŠÔ–@j
‘æ 10 T@@F”’lÏ•ª–@ i‘äŒ`ŒöŽ®/Simpson ŒöŽ®j
‘æ 11 T@@Fí”÷•ª•û’öŽ® iRunge-Kutta –@/Runge-Kutta-Gill –@/Milne –@/˜A—§í”÷•ª•û’öŽ®j
‘æ 12 T`@FŒë· i“ü—̓f[ƒ^‚ÉŠÜ‚Ü‚ê‚éŒë·/ŠÛ‚ߌë·/‘ÅØ‚èŒë·/Œ…—Ž‚¿Œë·‚È‚Çj
FORTRAN ƒOƒ‹[ƒv‚Ì•W€i“x
‘æ 2 ` 4 TF’è”A •Ï”A ”z—ñA Ž®‚ÆŠÖ” iŽZpŽ®A ŠÖŒWŽ®A ˜_—Ž®A ‘gž‚ÝŠÖ”A •¶ŠÖ”j
‘æ 5 ` 6 TF“üo—Í•¶ iREAD, WRITE, FORMAT •¶j
‘æ 7 ` 8 TF§Œä•¶ iGOTO, IF, DO, CONTINUE •¶j
‘æ 9 `10 TF錾•¶‚Æ DATA •¶A •›ƒvƒƒOƒ‰ƒ€
‘æ 11 T`@F”’l‰ðÍ‚Ì“ü–å i•û’öŽ®‚Ì‹ªA —LŒø”ŽšA Œë·‚È‚Çj

ŠwKã‚Ì—¯ˆÓ“_
EŠeT 2 ƒRƒ}˜A‘±B –ˆTA ƒeƒLƒXƒg‚ɉˆ‚Á‚ÄÍ’PˆÊ‚ÉA Žå‚Æ‚µ‚ĉ‰KŒ`Ž®‚Ås‚¤B
E’mŽ¯‚ÌÏ‚Ýã‚°Œ^‚Ìu‹`‰‰K‚ÅA —‰ð‚Å‚«‚È‚¢Ž–‚ª‚ ‚ê‚ÎA ‚»‚Ì“s“xŒÂ•Ê‚ÉŽw“±‚·‚éB

¬Ñ•]‰¿‚Ì•û–@
E–ˆTA ‰Û‘茋‰Ê‚̇”ÛŽw“±‚ðs‚¢A ‰‰K¬‰Ê‚É‚æ‚Á‚Ä•]‰¿‚·‚éB

Žg—pƒeƒLƒXƒg
EwC Œ¾Œê‚Æ”’lŒvŽZ–@x ™]A —é–Ø@‹¤’˜ ”|•—ŠÙ i2001 ”N 10 ŒŽj
EwFORTRAN77 ‚Æ”’lŒvŽZ–@x ™]A ‰ªèA Šâ–xA ¬ŒI@‹¤’˜ ”|•—ŠÙ i2000 ”N 9 ŒŽj



(C) Copyright 2004 Nihon Fukushi University. all rights reserved.
–{ƒz[ƒ€ƒy[ƒW‚©‚ç‚Ì“]Ú‚ð‹Ö‚¶‚Ü‚·B