{"id":7631,"date":"2007-08-18T16:43:00","date_gmt":"2007-08-18T16:43:00","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=7631"},"modified":"2007-08-18T16:43:00","modified_gmt":"2007-08-18T16:43:00","slug":"%ed%8d%bc%ed%81%98%eb%a0%88%ec%9d%b4%ec%85%98","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=7631","title":{"rendered":"\ud37c\ud058\ub808\uc774\uc158"},"content":{"rendered":"
\n<\/p>\n

\n \ud6c4\ubc30\uac00 \uc880 \ub3c4\uc640\ub2ec\ub798\uc11c \uc9dc\uc900 \ud504\ub85c\uadf8\ub7a8. \ucd9c\ub825\ubb3c\uc744 gnuplot\uc73c\ub85c \uc810 \ucc0d\uc5b4\ubcf4\uba74 \ubb54\uac00 \uc7ac\ubbf8\ub09c\uac8c \ub098\uc628\ub2e4. \ubb50\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc77c\uae4c\uc694? Giordano\uc758 \uc804\uc0b0\ubb3c\ub9ac \uad50\uc7ac\uc5d0 \ubcf4\uba74 \uc815\ub2f5\uc774 \uc788\ub2e4\uace0 \ud569\ub2c8\ub2e4. \uc800\ub294 \uadf8\ub0e5 \uc54c\uace0\ub9ac\uc998\ub9cc \uc774\ud574\ud558\uace0 \uc808\ubc18\uc815\ub3c4 \ub3c4\uc640\uc92c\uc9c0\uc694.\n <\/p>\n

\n \ucc38\uace0\ub85c \ud3ec\ud2b8\ub780 \ud504\ub85c\uadf8\ub7a8\uc785\ub2c8\ub2e4.
\n \n<\/p>\n

\n
\n more..
\n <\/span>\n<\/p>\n

\n
\n dimension I2(0:101,0:101)
\n <\/font><\/p>\n

\n
\n do ii=0,101
\n <\/font>\n<\/p>\n

\n
\n do jj=0,101
\n <\/font>\n<\/p>\n

\n
\n I2(ii,jj)=0
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n I2(50,50)=1
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n DO k=1,100
\n <\/font>\n<\/p>\n

\n
\n 100 i=2
\n <\/font>\n<\/p>\n

\n
\n j=2
\n <\/font>\n<\/p>\n

\n
\n if (I2(3,2).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 300
\n <\/font>\n<\/p>\n

\n
\n else if (I2(1,2).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 300
\n <\/font>\n<\/p>\n

\n
\n else if (I2(2,3).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 300
\n <\/font>\n<\/p>\n

\n
\n else if (I2(2,1).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 300
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n 101 if (I2(i+1,j).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 100
\n <\/font>\n<\/p>\n

\n
\n else if (I2(i-1,j).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 100
\n <\/font>\n<\/p>\n

\n
\n else if (I2(i,j+1).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 100
\n <\/font>\n<\/p>\n

\n
\n else if (I2(i,j-1).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n goto 100
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n

\n
\n call random_number(a)
\n <\/font>\n<\/p>\n

\n
\n c print *,a
\n <\/font>\n<\/p>\n

\n
\n if ((0.0.LT.a).and.(a.LT.0.25)) then
\n <\/font>\n<\/p>\n

\n
\n if (i.EQ.100) then
\n <\/font>\n<\/p>\n

\n
\n I2(1,j)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n i=1
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n

\n
\n I2(i+1,j)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n i=i+1
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n else if ((0.25.LT.a).and.(a.LT.0.5)) then
\n <\/font>\n<\/p>\n

\n
\n if (i.EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n I2(100,j)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n i=100
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n

\n
\n I2(i-1,j)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n c print *,i
\n <\/font>\n<\/p>\n

\n
\n i=i-1
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n else if ((0.5.LT.a).and.(a.LT.0.75)) then
\n <\/font>\n<\/p>\n

\n
\n if (j.EQ.100) then
\n <\/font>\n<\/p>\n

\n
\n I2(i,1)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n j=1
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n

\n
\n I2(i,j+1)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n j=j+1
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n else if ((0.75.LT.a).and.(a.LT.1.0)) then
\n <\/font>\n<\/p>\n

\n
\n if (j.EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n I2(i,100)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n j=100
\n <\/font>\n<\/p>\n

\n
\n else
\n <\/font>\n<\/p>\n

\n
\n I2(i,j-1)=1
\n <\/font>\n<\/p>\n

\n
\n I2(i,j)=0
\n <\/font>\n<\/p>\n

\n
\n j=j-1
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n

\n
\n goto 101
\n <\/font>\n<\/p>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n

\n
\n 300 i=i
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n 200 open(1,file=’bbb.dat’)
\n <\/font>\n<\/p>\n

\n
\n do i=1,100
\n <\/font>\n<\/p>\n

\n
\n do j=1,100
\n <\/font>\n<\/p>\n

\n
\n if (I2(i,j).EQ.1) then
\n <\/font>\n<\/p>\n

\n
\n write(1,999) i,j
\n <\/font>\n<\/p>\n

\n
\n end if
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n close(1)
\n <\/font>\n<\/p>\n

\n
\n 999 format (2x,I10,2x,I10)
\n <\/font>\n<\/p>\n

\n
\n cccccccc mass versus radius cccccccccccccc
\n <\/font>\n<\/p>\n

\n
\n ll=0
\n <\/font>\n<\/p>\n

\n
\n open(2,file=’density.dat’)
\n <\/font>\n<\/p>\n

\n
\n do n=1,49
\n <\/font>\n<\/p>\n

\n
\n do i=50-n,50+n
\n <\/font>\n<\/p>\n

\n
\n j=50+n
\n <\/font>\n<\/p>\n

\n
\n ll=ll+I2(i,j)
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n do j=50-n,49+n
\n <\/font>\n<\/p>\n

\n
\n i=50+n
\n <\/font>\n<\/p>\n

\n
\n ll=ll+I2(i,j)
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n do i=50-n,49+n
\n <\/font>\n<\/p>\n

\n
\n j=50-n
\n <\/font>\n<\/p>\n

\n
\n ll=ll+I2(i,j)
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n do j=49-n,49+n
\n <\/font>\n<\/p>\n

\n
\n i=50-n
\n <\/font>\n<\/p>\n

\n
\n ll=ll+I2(i,j)
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n write(2,999) n,ll
\n <\/font>\n<\/p>\n

\n
\n end do
\n <\/font>\n<\/p>\n

\n
\n close(2)
\n <\/font>\n<\/p>\n

\n
\n end
\n <\/font>\n<\/p>\n<\/div>\n

<\/font><\/p>\n

\n
\n
\n\"\uc2e0\uace0\"
\n<\/a>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

\ud6c4\ubc30\uac00 \uc880 \ub3c4\uc640\ub2ec\ub798\uc11c \uc9dc\uc900 \ud504\ub85c\uadf8\ub7a8. \ucd9c\ub825\ubb3c\uc744 gnuplot\uc73c\ub85c \uc810 \ucc0d\uc5b4\ubcf4\uba74 \ubb54\uac00 \uc7ac\ubbf8\ub09c\uac8c \ub098\uc628\ub2e4. \ubb50\ud558\ub294 \ud504\ub85c\uadf8\ub7a8\uc77c\uae4c\uc694? Giordano\uc758 \uc804\uc0b0\ubb3c\ub9ac \uad50\uc7ac\uc5d0 \ubcf4\uba74 \uc815\ub2f5\uc774 \uc788\ub2e4\uace0 \ud569\ub2c8\ub2e4. \uc800\ub294 \uadf8\ub0e5 \uc54c\uace0\ub9ac\uc998\ub9cc \uc774\ud574\ud558\uace0 \uc808\ubc18\uc815\ub3c4 \ub3c4\uc640\uc92c\uc9c0\uc694. \ucc38\uace0\ub85c \ud3ec\ud2b8\ub780 \ud504\ub85c\uadf8\ub7a8\uc785\ub2c8\ub2e4. more.. dimension I2(0:101,0:101) do ii=0,101 do jj=0,101 I2(ii,jj)=0 end do end do I2(50,50)=1 DO k=1,100 100 i=2 j=2 if (I2(3,2).EQ.1) then goto 300 else if […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[12],"tags":[],"class_list":["post-7631","post","type-post","status-publish","format-standard","hentry","category-12"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-1Z5","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/7631","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7631"}],"version-history":[{"count":0,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/7631\/revisions"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7631"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7631"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7631"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}