°æ¾å¤µ¤ó - 04/09/25 00:53:35
¥³¥á¥ó¥È:
¤¢¤Ø¤¢¤Ø
¾ë - 04/09/02 17:30:46
¥³¥á¥ó¥È:
¤¢¤¤¤¿¤¿¤¿¤¡¡¼¡¦¡¦¡¦
kazu - 04/09/01 04:42:17
¥³¥á¥ó¥È:
¤³¤³¤â¤À¡¦¡¦¡¦
kazu - 04/09/01 04:41:40
¥³¥á¥ó¥È:
°æ¾å¤µ¤ó - 04/08/26 23:21:42
¥³¥á¥ó¥È:
¥¨¥Ó¥Õ¥é¥¤¤Ï¿¬Èø¤«¤é¿©¤Ù¤ë
¤«¤â¤·¤ì¤Ê¤¤
°æ¾å¤µ¤ó - 04/08/26 23:21:29
¥³¥á¥ó¥È:
¥¨¥Ó¥Õ¥é¥¤¤Ï¿¬Èø¤«¤é¿©¤Ù¤ë
¤«¤â¤·¤ì¤Ê¤¤
¤°¤ó - 04/02/15 16:39:54
¥Û¡¼¥à¥Ú¡¼¥¸¥¢¥É¥ì¥¹:http://www.dreampassport.net/
¥³¥á¥ó¥È:
¤Ï¤¸¤á¤Þ¤·¤Æ¡£
¤°¤ó¡¡¤È¤¤¤¤¤Þ¤¹¡£¡¡
¥Û¡¼¥à¥Ú¡¼¥¸¤Ï¤³¤ì¤«¤é¤È¤¤¤Ã¤¿´¶¤¸¤Ã¤¹¤Í¤§¡Á¡Á¡ª¡¡
»ä¤â£È£Ð¤òºî¤Ã¤Æ¤¤¤Þ¤¹¡£¡¡
¥¢¥¦¥È¥É¥¢¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¬¡¢
¤è¤«¤Ã¤¿¤é¸«¤ËÍè¤Æ²¼¤µ¤¤¤Ê¡£¡Ê¡°o¡°¡Ë¡¡
³Ú¤·¤á¤ë¤È»×¤¤¤Þ¤¹¡£
¤Þ¤¿¡¢Íè¤Þ¡¼¤¹¡£
m - 03/10/18 05:08:32
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:usfhrtisadus@yahoo.co.jp
¥³¥á¥ó¥È:
¶õ¤¤¤Æ¤¤¤ë»þ´Ö¤òÍøÍѤ·¤Æ¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤ò³èÍѤ·¤Þ¤¹¡£
¥À¥¤¥¨¥Ã¥È¤ò¤·¤¿¤¤¡¢
¥Í¥Ã¥È¥ï¡¼¥¯¥Ó¥¸¥Í¥¹¤Ë¶½Ì£¤Î¤¢¤ë¡¢
·ò¹¯¤ò°Ý»ý¤·¤¿¤¤¡¢
û´ü´Ö¤Ç¹â¼ýÆþ¤òÆÀ¤¿¤¤¡¢
Éû¼ýÆþ¤òÆÀ¤¿¤¤¡¡etc¡¢¡¢¡¢¡¢
¶½Ì£¤Î¤¢¤ëÊý¤Ï¡¢À§ÈóE-mail¤ò¡ª
¥µ¥Ý¡¼¥ÈÂÎÀ©ËüÁ´¡£
̤·Ð¸³Âç´¿·Þ¡£
£±£µËü±ß¡Á¡¿¥Ñ¡¼¥È¥¿¥¤¥à
£³£µËü±ß¡Á¡¿¥Õ¥ë¥¿¥¤¥à
¥¢¥Ã¥×¥ë - 03/08/10 08:34:27
¥Û¡¼¥à¥Ú¡¼¥¸¥¢¥É¥ì¥¹:http://csx.jp/~applecarmax/
¥³¥á¥ó¥È:
¡ú¡ú¡ú¥á¡¼¥ë¤È·Ç¼¨ÈĤνñ¤¹þ¤ß¤À¤±¤Ç·î¼ý£µ£°Ëü±ß¡ª¡ª¡ú¡ú¡ú
Åê¹Æ¼Ô¡§¥¢¥Ã¥×¥ë
¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£
½é¿´¼Ô¤Î»ä¤Ç¤â´Êñ¤Ë¼ÂÁ©½ÐÍè¤Þ¤·¤¿¡ª
Á°Âå̤ʹ¤Î¥Þ¥ëÈë¾ðÊó¡õ¥µ¥¤¥É¥Ó¥¸¥Í¥¹Åо졪
¥Þ¥ëÈëÆÃ¼ì¾ðÊó¤òÆÀ¤Ê¤¬¤é¡¢¥á¡¼¥Ð¡¼¥º¥µ¥¤¥È¤ÎÈÎÇä¡×¤¬½ÐÍè¤Þ¤¹¡ª
¼çÉØ¤ÎÊý¤â¿ô¿¤¯¤ä¤Ã¤Æ¤¤¤Þ¤¹¡£
¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£
¡»Å»ö¤Ï¡¢ÀëÅÁ¤Î¤ß¡ªÂ¨Æü¥¹¥¿¡¼¥È²Äǽ¡ª
¢¼ý±×£±£°£°¡ó¤Ò¤È¤êÀê¤á¡ª£±¿ÍÆþ²ñ¤Ç£±£°£°£°£°±ß¥²¥Ã¥È¡ª
£º£¥á¥ó¥Ð¡¼¤Ë¤Ê¤ë¤È°Ê²¼¤Î¾ðÊó¤¬ÌµÎÁ¤Ç¡¦¡¦¡¦
¡¡¡¡¢£¶Ã¤¤Î³Æ¼ï¥Þ¥ëÈë¾ðÊó¿ôÉ´¼ïÎà
¡¡¡¡¢£¹«¤ÇÇä¤é¤ì¤ë¥á¡¼¥ë¥¢¥É¥ì¥¹£µ£°Ëü·ï
¡¡¡¡¢£¥Ó¥¸¥Í¥¹¤ä±Ä¶È¤Ë³èÍѽÐÍè¤ëÆÃ¼ìFAXÈֹ棵£°£°£°·ï
¡¡¡¡¢£¹ðÃΤ˺ÇŬ·Ç¼¨ÈÄ¥¢¥É¥ì¥¹Ìó£²£°£°£°·ï
¡¡¡¡¢£³Æ¼ï¥Û¡¼¥à¥Ú¡¼¥¸¤Î¹ðÃΤ˳èÍѤǤ¤ë¥ê¥ó¥¯¥µ¥¤¥ÈÌó£³£°£°£°·ï
¡¡¡¡¢£³Æ¼ï¥Û¡¼¥à¥Ú¡¼¥¸¹ðÃΤ˰ÒÎϤòȯ´ø¤¹¤ëÈëÌ©¤Î¥½¥Õ¥È¾ðÊó
¡¡¡¡¤½¤Î¾¡¢¾Ü¤·¤¯¤Ï¥Û¡¼¥à¥Ú¡¼¥¸¤Ë¤Æ¡ª¡ª
¤³¤ì¤ÇÂÌÌܤʤé¥Ó¥¸¥Í¥¹¤Ê¤ó¤Æ²¿¤ò¤ä¤Ã¤Æ¤â̵Â̤Ǥ¹¡ª
¸«¤ë¤Î¤Ï¥¿¥À¡ª¤Ç¤â¡¢¸«¤Ê¤¤¤È»¤¹¤ë¡ª
¤·¤«¤âº£¤Ê¤é£¹£°Æü´ÖÊݾÚÉÕ¤¤À¤è¡£
- 03/06/20 12:27:46
¥³¥á¥ó¥È:
dimension t(30,30), t1(30,30)
C*** read data & set initial conditions ***
open(10, FILE='INPDT', STATUS='UNKNOWN')
read(10,*) im, nend, nout, c, dx, tb1, tb2, qb1, qb2
close(10)
do 10 i=6,11
t(i,6)=7.0
t(i,11)=3.0
10 continue
do 20 j=6,11
t(6,j)=3.0
t(11,j)=7.0
20 continue
t(6,6)=5.0
t(11,6)=7.0
t(6,11)=3.0
t(11,11)=5.0
do 30 i=1,16
do 30 j=1,5
t(i,j)=0.0
30 continue
do 31 i=1,5
do 31 j=6,16
t(i,j)=0.0
31 continue
do 32 i=6,16
do 32 j=12,16
t(i,j)=0.0
32 continue
do 33 i=12,16
do 33 j=6,11
t(i,j)=0.0
33 continue
n=0
open(11, FILE='OUTDT', STATUS='UNKNOWN')
go to 200
C*** calculate new temperture ***
100 n=n+1
do 110 i=1,16
do 110 j=1,5
if (i.eq.16) then
tip2=t(i-1,j)+2.0*dx*-1
else
tip2=t(i+1,j)
endif
if (i.eq.1)then
tip1=t(i+1,j)+2.0*dx*-1
else
tip1=t(i-1,j)
endif
if (j.eq.1) then
tjp2=t(i,j-1)+2.0*dx*-1
tjp1=t(i,j-1)
else
tjp2=t(i,j+1)
tjp1=t(i,j-1)
endif
t1(i,j)=t(i,j)+c*(tip1-2.0*t(i,j)+tip2
# tjp1-2.0*t(i,j)+tjp2)
110 continue
do 111 i=1,5
do 111 j=6,16
if (i.eq.1) then
tip1=t(i+1,j)+2.0*dx*-1
tip2=t(i+1,j)
else
tip1=t(i-1,j)
tip2=t(i+1,j)
endif
if (j.eq.16) then
tjp1=t(i,j+1)+2.0*dx*-1
tjp2=t(i,j+1)
else
tjp1=t(i,j-1)
tjp2=t(i,j+1)
endif
t1(i,j)=t(i,j)+c*(tip1-2.0*t(i,j)+tip2
# tjp1-2.0*t(i,j)+tjp2)
111 continue
do 112 i=6,16
do 112 j=12,16
if (i.eq.16) then
tip2=t(i-1,j)+2.0*dx*-1
tip1=t(i-1,j)
else
tip2=t(i+1,j)
tip1=t(i-1,j)
endif
if (j.eq.16) then
tjp2=t(i,j-1)+2.0*dx*-1
tjp1=t(i,j-1)
else
tjp2=t(i,j+1)
tjp1=t(i,j-1)
endif
t1(i,j)=t(i,j)+c*(tip1-2.0*t(i,j)+tip2
# tjp1-2.0*t(i,j)+tjp2)
112 continue
do 113 i=12,16
do 113 j=6,11
if (i.eq.16) then
tip2=t(i-1,j)+2.0*dx*-1
tip1=t(i-1,j)
else
tip2=t(i+1,j)
tip1=t(i-1,j)
tjp2=t(i,j+1)
tjp1=t(i,j-1)
endif
t1(i,j)=t(i,j)+c*(tip1-2.0*t(i,j)+tip2
# tjp1-2.0*t(i,j)+tjp2)
113 continue
C*** t <- t1 ***
do 120 i=1,16
do 120 j=1,5
t(i,j)=t1(i,j)
120 continue
do 121 i=1,5
do 121 j=6,16
t(i,j)=t1(i,j)
121 continue
do 122 i=6,16
do 122 j=12,16
t(i,j)=t1(i,j)
122 continue
do 123 i=12,16
do 123 j=6,11
t(i,j)=t1(i,j)
123 continue
C*** output ***
200 nn=mod(n,nout)
if (nn.eq.0)
write(11,*)
do 210 i=1,im
do 210 j=1,jm
write(11,*) i,j,t(i,j)
210 continue
endif
C*** next ctcle ***
if (n,1t.nend) go to 100
close(11)
stop
end
¥Æ¥Õ¥¡ - 02/03/13 23:03:11
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:tefa_tifa@yahoo.co.jp
¥³¥á¥ó¥È:
¤Ï¤¸¤á¤Þ¤·¤Æ¡ª¥Ð¥¹¥µ¥¤¥Èõ¤·¤Æ¤¿¤é¸«¤Ä¤±¤¿¤Î¤Ç´ó¤Ã¤Æ¤ß¤Þ¤·¤¿¡£¤Þ¤¿ÌÀÆü¤Ç¤â¤¸¤Ã¤¯¤ê¸«¤è¤¦¤«¤È»×¤¤¤Þ¤¹¡ª¤½¤í¤½¤í¤¤¤¤»þ´ü¤À¤·¡¢¤¤¤¤¾ðÊ󤬤¢¤ì¤Ð¤ª¸ß¤¤¤Ë¸ò´¹¤·¤Þ¤·¤ç¤¦¡ªÃ˽÷¡¢Ç¯Îð¤È¤¤¤Þ¤»¤ó¡£¤è¤í¤·¤¯¤Í¡ª
³Á²¬µþÌé - 02/02/07 16:29:18
¥Û¡¼¥à¥Ú¡¼¥¸¥¢¥É¥ì¥¹:../../PowderRoom-Rose/6605/index.html
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:kyouya_kakioka@yahoo.co.jp
¥³¥á¥ó¥È:
¤â¤¦¤¹¤°ÃÂÀ¸Æü¤À¤Í¡Á¡¢¤ª¤á¤Ç¤È¤¦¡£
Ëͤâ¤â¤¦¤¹¤°¡Ê2/14¡Ë¤À¤è¡Á¡Á
£²£²£²£² - 01/10/17 19:00:39
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:danjig2222@infoseek.jp
¥³¥á¥ó¥È:
¤É¤â¡Á¡£Ê¡²¬¤Ë½»¤ó¤Ç¤ë¹â°ì¤Ã¤¹¡£
¥Ð¥¹Äà¤ê³Ú¤·¤¤¤è¤Í¡Á¡£¤è¤«¤Ã¤¿¤éÊÖ»ö¤¯¤À¤µ¤¤¡£
oruka-2001 - 01/08/22 04:02:10
¥³¥á¥ó¥È:
MS-Web¥ì¥ó¥¿¥ë¥µ¡¼¥Ð¡¼
http://oruka-2001.mariansela.com/service/shopping/saba/index.html
¥Õ¥ì¥Ã¥Ä£É£Ó£Ä£Î
http://oruka-2001.mariansela.com/service/shopping/4d/index.html
£É £Ó £Ä £Î
http://oruka-2001.mariansela.com/service/shopping/4d/index.html
£Á¡¡£Ä¡¡£Ó¡¡£Ì
http://oruka-2001.mariansela.com/service/shopping/ddfactory/index[2].htm
£Î£Ô£Ô¡¥£Ã£Ï£Í¡¡¥Þ¥¤¥é¥¤¥ó¥×¥é¥¹
http://oruka-2001.mariansela.com/service/shopping/4d/index.html
£Ë£Ä£Ä£É¡¡¥Þ¥¤¥é¥¤¥ó¥×¥é¥¹
http://oruka-2001.mariansela.com/service/shopping/clicom/my_line/kddi.html
£Ó£Ô¥¹¥Æ¡¼¥·¥ç¥ó
http://oruka-2001.mariansela.com/service/shopping/suehiro/indexst.html
¥Ñ¥½¥³¥ó´ØÏ¢
£Ï£Ã£Î¡¡£Ð£Ã¥Ñ¥Ã¥¯
http://oruka-2001.mariansela.com/service/shopping/4d/index.html
¥Ñ¥½¥³¥ó¸¡Äê¹ÖºÂ
http://oruka-2001.mariansela.com/service/shopping/tomo/indextm.htm
¥Ñ¥½¥³¥ó¡¦¼þÊÕµ¡´ï
http://oruka-2001.mariansela.com/service/shopping/ddfactory/dshop.htm
¶È̳´ÉÍý¥·¥¹¥Æ¥à¥½¥Õ¥È
http://oruka-2001.mariansela.com/service/shopping/nextgood/ngood3.html
À¸¡¡³è
¥Ö¥é¥ó¥ÉÉÊ
http://oruka-2001.mariansela.com/service/shopping/4d/bland/indexbd.html
²½¾ÑÉÊ¡¦·ò¹¯´ï¶ñ
http://oruka-2001.mariansela.com/service/shopping/belljp/indexb.htm
¥À¥¤¥¨¥Ã¥È
http://oruka-2001.mariansela.com/service/shopping/paradise/indexpd.html
¥¥ã¥é¥¯¥¿¡¼¥°¥Ã¥º
http://oruka-2001.mariansela.com/service/shopping/nextgood/ngood1.html
¼ù±Õ¥·¡¼¥È¡Ê·ò¹¯¡Ë
http://oruka-2001.mariansela.com/service/shopping/life-up/life-up.html
·ÈÂÓÅÅÏÃ
´Ø¡¡Åì
http://oruka-2001.mariansela.com/service/shopping/keitai/medipa/index_mdp.html
´Ø¡¡À¾
http://oruka-2001.mariansela.com/service/shopping/keitai/msweb/index.html
¶å¡¡½£
http://oruka-2001.mariansela.com/service/shopping/keitai/bellnet/indexK.html
¤½¤Î¾
Ãøºî¸¢¥Õ¥ê¡¼²»³ÚÁǺà
http://oruka-2001.mariansela.com/service/shopping/mk/indexmk.html
ÂÀÍÛ¸÷ȯÅÅ¥·¥¹¥Æ¥à
http://oruka-2001.mariansela.com/service/shopping/nextgood/ngood2.html
(¡¦£í¡¦¡Ë¼ÓÆà - 01/07/24 21:53:14
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:¡ù¡úÈëÌ©¡ú¡ù
¥³¥á¥ó¥È:
¤ªµ¤¤ËÆþ¤ê¤Î¥µ¥¤¥È¤Ï²¿¤Ç¤¹¤«¡©
º£ÅÙ¤Þ¤¿Í·¤Ó¤Ë¤¯¤ë»þ¤Ë¤Ï½ñ¤¤¤Æ¤¢¤ë¤È
¤¦¤ì¤·¤¤¤«¤â¡£¢ö¢ö
¥Ð¥¹Äà¤ê¡£¼ÓÆà¤Ï2²ó¤ª·»¤Á¤ã¤ó¤È¤ä¤Ã¤¿¤³¤È¤¢¤ë¤ó¤À¡ù
¤¸¤ã¤¢¤Þ¤¿¡£¡Ê¡±U¡±¡Ë/~~~~
(o__O) - 01/07/24 21:47:37
¥³¥á¥ó¥È:
( - 01/07/24 21:47:10
¥³¥á¥ó¥È:
¡Ê¡°¡²¡°¡Ë - 01/07/01 09:29:35
¥³¥á¥ó¥È:
¥Ð¥¹Äà¤ê¤«¡¼¡ª
¤¹¤´¤¤¡ª¡ª¡ª
¤Ò¤È¤ß - 01/06/23 10:25:22
¥³¥á¥ó¥È:
½é¤á¤Þ¤·¤Æ¡Á¡ª
ºÇ¶á¡¢Äà¤ê¤ò»Ï¤á¤¿¤Ð¤«¤ê¤ÇÄà¤ê¤Ë¥Ï¥Þ¤Ã¤Æ¤·¤Þ¤¤¤½¤¦¤Ç¤¹¡£
¤À¤±¤ÉÆ»¶ñ¤ò·¤¨¤è¤¦¤È»×¤Ã¤¿¤é¤ª¶â¤¬¤«¤«¤Ã¤Á¤ã¤¦¤ó¤Ç¤¹¤Í¡Á
ͧã¤Îͧ㤬Ë䢶â¥É¥Ã¥È¥³¥àhttp://www.maizoukin.com/
¤Ã¤Æ¥µ¥¤¥È¤Ç5Ëü±ßÅö¤¿¤Ã¤¿¤Ã¤ÆÊ¹¤¤¤¿¤«¤é
ÅÐϿ̵ÎÁ¤À¤·»ä¤âÅÐÏ¿¤·¤Á¤ã¤Ã¤¿¡Á
¼¡¤Ï100Ëü±ß¤¬Åö¤¿¤ë¤«¤â¤·¤ì¤Ê¤¤¤ó¤À¤Ã¤Æ¡ª
¥Ð¥¹¤Î¾ðÊó¡¢³Ú¤·¤ß¤Ë¤·¤Æ¤Þ¡Á¤¹¡ª
¤Þ¤¿Íè¤Þ¤¹¤Í¡Á¡ª
2¥Á¡û¥ó¡û¥é¡¼¤¸¤ã¤Ê¤¤¤è - 01/05/24 20:30:36
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:sage
¥³¥á¥ó¥È:
(¡¨¡§¥¡®)¤¤¤¤¤Ê¤³¤ó¤Ê¥Ú¡¼¥¸¤¤¤¤¤Ê¡£
¤È¤ê¤¢¤¨¤ºÀ¤äƤ褷¡ª
¡¡¦« ¦« ¡¿¡±¡±¡±¡±
¡¡(;¡¬§¥¡¬)¢¿¡ã¡¡¥´¥ë¥¡¡ª
¡Á/U / ¡À¡²¡²¡²¡²
¡¡U U
¥Á¥§¥ê¡¼ - 01/04/13 19:50:06
ÅŻҥ᡼¥ë¥¢¥É¥ì¥¹:sacra@saku2.com
¥³¥á¥ó¥È:
¤Á¤Ï¡ª
¥Þ¥°¥Í¥Ã¥È¤«¤é¥Õ¥é¥Õ¥é¡Á¤Ã¤ÈΩ¤Á´ó¤Ã¤Æ¤ß¤Þ¤·¤¿¡£
¤Ê¤ó¤«¡¢£È£Ð¤«¤Ã¤³¤¤¤¤¤Ê¤¡¡¦¡¦¡Ê¡°¡°¡¨¡Ë
¤Ñ¤Ñ¤Ñ£ð - 01/01/25 16:05:44
¥³¥á¥ó¥È:
¤¢¤Ø¤¢¤Ø¤¢¤Ø¤¢¤Ø¤¢¤Ø\\
PEANUTS - 00/12/07 16:12:03
¥³¥á¥ó¥È:
¤¢¤Ê¤¿¤Ï¥Ü¥Ö¤Ç¤¹¤Í¡©¡ª
ËͤÏÃΤäƤޤ¹¤è¤ó¢ö
¤ä¤Ã¤È¸«¤Ä¤±¤Þ¤·¤¿¡£
ËͤÎ̾¤ÏPEANUTS¤Ç¤¹¡£
¤³¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ï¥´¡¼¥¸¥ã¥¹¤Ç¤¹¤Í¡£
Åí - 00/11/01 15:50:26
¥Û¡¼¥à¥Ú¡¼¥¸¥¢¥É¥ì¥¹:../7263
¥³¥á¥ó¥È:
½é¤á¤Þ¤·¤Æ¡¢Îɤ¤Äà¤ê¾ì¤¬¤¢¤Ã¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤