ÃæÅÀ¸ø¼°¤Ç¤Î¸íº¹¤ÎÀâÌÀ¥Ú¡¼¥¸¤òÉü½¬¤·¤Æ²¼¤µ¤¤¡£
¥·¥ó¥×¥½¥ó¸ø¼°¤Î¾ì¹ç¤Ë¤Ï¡¢¤½¤ì¤¾¤ì¤Îûºý¤Ç¦¤5¤Î¸íº¹¤¬¤Ç¤ë¤Î¤Ç¡¢
N = (b-a)/¦¤ ¤ò¤«¤±¤Æ ¦¤4 ¤È¤Ê¤ê¤Þ¤¹¡£
¤¿¤À¤·¡¢¤³¤ì¤Ï¦¤¤Î°ìÈÖÄ㤤¤Ù¤¤Ë¤Ä¤¤¤Æ¤ÎÏäǡ¢
¤¸¤Ã¤µ¤¤¤Ë¤Ï¸íº¹¤Ï ¦¤¤Î4¾è + ¦¤¤Î5¾è + ... ¤È¤¤¤¦·Á¤Ë¤Ê¤ê¤Þ¤¹¡£
¤è¤Ã¤Æ¡Ö½½Ê¬¦¤¤¬¾®¤µ¤¤¤È¤¤Ë¤Î¤ß ¦¤¤Î4¾è¤ËÈæÎ㤹¤ë¡×¤È¤¤¤¨¤Þ¤¹¡£
¤¦¡¼¤ó¡¢Ê¬¤«¤ê¤Ë¤¯¤¤¤«¤Ê¤¢¡£
Ʊ¤¸ÀâÌÀ¤ò¤¯¤êÊÖ¤¹¤Î¤Ï¤¤¤ä¤Ê¤Î¤Ç¡¢ÈùʬÊýÄø¼°¤Î¸íº¹¤òÀâÌÀ¤·¤Æ¤ß¤Þ¤¹¡£
¸íº¹¤¬ 1.0e-14 ÄøÅٰʲ¼¤Ë¤Ê¤ë¤È¡¢ ¡Ö¿ôÃÍÀÑʬ¡×¤Ë¤È¤â¤Ê¤¦¸íº¹¤è¤ê¤â¡¢ lesson01 ¤Ç¹Ô¤Ê¤Ã¤¿¡Ö´Ý¤á¸íº¹¡×(·×»»µ¡Ãæ¤Ç¼Â¿ô¤ò͸¤ηå¤Çɽ¸½¤·¤Æ¤¤¤ë¤³¤È¤«¤é ¤¯¤ë¸íº¹)¤¬½ÅÍפˤʤê¤Þ¤¹¡£ N=500 ÄøÅ٤ˤʤë¤È¡¢¥·¥ó¥×¥½¥ó¸ø¼°¤Ç¤Ï¥³¥ó¥Ô¥å¡¼¥¿¤Î¸Â³¦¤Þ¤ÇÀÑʬ¤ÎÀºÅÙ¤ò ¤À¤·¤Æ¤¤¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¤Í¡£(¤½¤ì°Ê¾å N ¤òÁý¤ä¤¹¤Î¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£)
Floating¡¡exception ¤Ï log(0), 1.0d0/0.0d0, sqrt(-1.0d0)... ¤Ê¤É ·×»»½ÐÍè¤Ê¤¤¾ì¹ç¤Ë¤ª¤³¤ê¤Þ¤¹¡£
implicit real*8(a-h,o-z) ¤Ç¡¢abc...h, opq...z ¤Ç»Ï¤Þ¤ëÊÑ¿ô¤Ï ¼«Æ°Åª¤ËÇÜÀºÅټ¿ô¤Ë¤Ê¤ê¤Þ¤¹¡£ÇÜÀºÅټ¿ô¤Ï 8 byte=64bit ¤ò»È¤¦¤Î¤Ç¡¢ ͸ú¿ô»ú¤¬Â礤¤¤³¤È¤¬ÆÃħ¤Ç¤¹¡£ ñÀºÅټ¿ô(4 byte)¤Ç·åÍî¤Á¤·¤Æ¤â¡¢ÇÜÀºÅټ¿ô¤Ç·åÍî¤Á¤·¤Ê¤¤¤³¤È¤Ï ¤·¤Ð¤·¤Ð¤ª¤³¤ë¤Î¤Ç¡¢ÀºÅÙ¤¬¤¢¤¬¤ê¤Þ¤¹¡£
subroutine chutenf ¤ÇÀÑʬ¤¹¤ë´Ø¿ô FUNC ¤Î̾Á°¤Ë¥á¥¤¥ó¥×¥í¥°¥é¥à¤«¤é
´Ø¿ô̾(f1)¤ò¤ï¤¿¤·¤Æ¤ª¤¯¤È¡¢¡Ö¥á¥¤¥ó¥×¥í¥°¥é¥à¤«¤é¸Æ¤ÓÊý¤òÊѤ¨¤ë¤À¤±¤Ç¡×
°ã¤¦´Ø¿ô¤òÀÑʬ½ÐÍè¤Þ¤¹¡£¤¿¤À¡¢ex031.f ¤Ê¤É¤Ç¼ÂºÝ¤ËÀë¸À¤·¤¿´Ø¿ô
(function f1 ¤Ê¤É) ¤Î̾Á°¤ò subroutine Æâ¤ÇľÀܻȤäÆÀÑʬ¤·¤Æ¤â¡¢
Åú¤¨¤ÏƱ¤¸¤Ç¤¹¤Í¡£(¤¿¤À¤·¡¢¥×¥í¥°¥é¥à¤È¤·¤Æ¤Ï¸Æ¤ÓÊý¤ÇÀÑʬ¤¹¤ë´Ø¿ô¤ò
Êѹ¹¤Ç¤¤Ê¤¤¤Î¤ÇÉÔËþ¤Ǥ¹¡£)
¥¨¥é¡¼¤¬½Ð¤ë¾ì¹ç¤Ï¡¢
´Ø¿ô̾¤Î¼õ¤±ÅϤ·¤¬¥¥Á¥ó¤È½ÐÍè¤Æ¤¤¤Ê¤¤¡¢
external Àë¸À¤¬¤Ê¤¤¡¢
¥¹¥Ú¥ë¥ß¥¹¤¬¤¢¤ë¡¢¤Ê¤É¤¬¹Í¤¨¤é¤ì¤Þ¤¹¡£
Double Exponential formula ¤Ë¤è¤ë integral (ÀÑʬ) ¥×¥í¥°¥é¥à¡¢ epsilon (¦Å) ¤Îά¤Ç¤¹¡£
¼«Âð¤Î¥Ñ¥½¥³¥ó¤«¤é¥»¥ó¥¿¡¼¤Î Unix ¥³¥ó¥Ô¥å¡¼¥¿¤Ø¤ÎÀܳ¤Ë¤Ä¤¤¤Æ¤Ï¡¢
¥»¥ó¥¿¡¼¤Î¥Ú¡¼¥¸¤òÀâÌÀ¤·¤Æ²¼¤µ¤¤¡£
´Êñ¤Ë¤¤¤¦¤È¡¢Windows ¤«¤é DOS Window ¤ò³«¤¤¤Æ
telnet server ¤È¤¤¤¦¥³¥Þ¥ó¥É¤ÇÀܳ¤·¤Þ¤¹¡£
Ãí°ÕÅÀ¤È¤·¤Æ¤Ï¡¢mule ¤Ç¾å¤Î¥Ð¡¼ (File, Edit, ... ¤Ê¤É)¤¬»È¤¨¤Ê¤¤¤Î¤Ç¡¢
Ctrl Key¡¢Meta (Escape) Key ¤ÎÁȤ߹ç¤ï¤»¤ò¤ª¤Ü¤¨¤Æ¤ª¤¯É¬Íפ¬¤¢¤ê¤Þ¤¹¡£
¤Þ¤¿¡¢gnuplot ¤Ï»È¤¨¤Þ¤»¤ó¡£
(gnuplot ¤Î prompt ¤Ç
set term kc-tek40xx ¤È¤¹¤ì¤Ð»È¤¨¤ë¤«¤âÃΤì¤Þ¤»¤ó¡£)
¼«Âð¤Î¥Ñ¥½¥³¥ó¤Ç fortran ¤òư¤«¤¹¤Ë¤Ï¤¤¤¯¤Ä¤«¤ÎÊýË¡¤¬¤¢¤ê¤Þ¤¹¡£
2, 3 ¤ÎÊýË¡¤À¤È perl, c, c++ Åù¤â»È¤¨¤Þ¤¹¡£
¤Á¤Ê¤ß¤Ë»ä¤Î¼«Âð¤Î¥Ñ¥½¥³¥ó¤Ï¡¢
Windows + Linux (RedHat) ¤Î Dual boot ¤Ç¡¢Windows ¤Ë¤Ï Cygwin ¤â
¥¤¥ó¥¹¥È¡¼¥ë¤·¤Æ¤¢¤ê¤Þ¤¹¡£
¿ôËü±ß¤«¤«¤ê¤Þ¤¹¡£
¤¤¤í¤¤¤í¤È¥¨¥é¡¼¤Î¾ì½ê¤òõ¤·¤Æ¤¯¤ì¤¿¤ê¤·¤ÆÊØÍø¡£
¤Þ¤¿ Windows ¤Î application ¤Ê¤Î¤Ç»È¤¤Êý¤Ïʬ¤«¤ê¤ä¤¹¤¤¤È»×¤¤¤Þ¤¹¡£
´ðËÜŪ¤Ë¤Ï¡Ö¥¿¥À¡×¤Ç¤¹¡£¤¿¤À¤·¡¢¥Æ¥¯¥Ë¥Ã¥¯¤¬É¬ÍפʤΤǡ¢
RedHat ¤Ê¤É¤Î CD ¤¬¤Ä¤¤¤¿»¨»ï¤òÇ㤦Åù¤ÎÅê»ñ¤Ï¤·¤¿¤Û¤¦¤¬
¤è¤¤¤È»×¤¤¤Þ¤¹(1500 ±ß¤°¤é¤¤)¡£
CD ¤Ä¤¤ÎÀâÌÀ½ñ¤òÇ㤦¤È 3000 ±ß¤°¤é¤¤¡£
ËÜÅö¤Î¥Ñ¥Ã¥±¡¼¥¸¤òÇ㤦¤È 5000 ±ß¡Á20000 ±ß¤°¤é¤¤¤Ç¤¹¡£
ËܳÊŪ¤Ë unix ¤ò»È¤¦¤Ê¤é¤ª¿ä¤á¡£
¤Á¤ç¡Á´ÊñCygwin ¤Îinstall ¤Ê¤É¤Î²òÀâ¤ò»²¹Í¤Ë¤·¤Æ¡¢
Windows ¤«¤é Unix ´Ä¶¤ò»È¤¨¤ë
Cygwin ¤ò¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë¡£
ADSL Åù¤Î¾ï»þÀܳ´Ä¶¤Ê¤é¡Ö¥¿¥À¡×¤Ç¥¤¥ó¥¹¥È¡¼¥ë¤Ç¤¤Þ¤¹¤·¡¢
¤½¤ì¤Ê¤ê¤Ë»È¤¨¤Þ¤¹¡£
»ä¤Ï
¥ê¥ó¥¯¤Î¥Ú¡¼¥¸
¤Ë¤¢¤²¤Æ¤ª¤¤¤¿
±º ¾¼Æó ÊÔ¡ÖFORTRAN77 ÆþÌç¡×(ÇÜÉ÷´Û)¤òÍøÍѤ·¤ÆÊÙ¶¯¤·¤Þ¤·¤¿¡£
¤Þ¤¿¡¢ÊªÍý¤È¤Î´ØÏ¢¤Ç¤Ï
²¬ÉôÀ®¸¼ Ãø¡Ö¥·¥ß¥å¥ì¡¼¥·¥ç¥óʪÍý³Ø5¡¢ÎÌ»ÒÏÀ(±¿Æ°¤ÈÊýË¡)¡×¤¬
Èó¾ï¤ËÌò¤ËΩ¤Ã¤Æ¤¤¤Þ¤¹¡£(¤¿¤À¤·¡¢¤³¤ÎËܤÏÎÌ»ÒÎϳؤòÊÙ¶¯¤·¤¿¤¢¤È¤Ç¤¹¤Í¡£)
¥³¥ó¥Ô¥å¡¼¥¿¤Î»È¤¤Êý¤Ë¤Ä¤¤¤Æ¤Ï¿Í¤½¤ì¤¾¤ìÌò¤ËΩ¤ÄËܤ¬°ã¤¦¤Î¤Ç¡¢
Ëܲ°¤«¿Þ½ñ¼¼¤Ë¤¤¤Ã¤Æ ¡Ö¼«Ê¬¤¬µ¤¤ËÆþ¤Ã¤¿¤â¤Î¡×¤òõ¤¹¤Î¤¬°ìÈÖ¤À¤È»×¤¤¤Þ¤¹¡£