{"id":905,"date":"2012-06-13T14:43:20","date_gmt":"2012-06-13T06:43:20","guid":{"rendered":"http:\/\/www.hsyyf.me\/?p=905"},"modified":"2014-08-13T12:19:53","modified_gmt":"2014-08-13T04:19:53","slug":"%e5%85%89%e5%9c%a8%e9%9d%9e%e5%9d%87%e5%8c%80%e4%bb%8b%e8%b4%a8%e4%b8%ad%e4%bc%a0%e6%92%ad%e7%9a%84%e6%a8%a1%e6%8b%9f","status":"publish","type":"post","link":"https:\/\/www.hsyyf.me\/?p=905","title":{"rendered":"\u5149\u5728\u975e\u5747\u5300\u4ecb\u8d28\u4e2d\u4f20\u64ad\u7684\u6a21\u62df"},"content":{"rendered":"<p>\u5149\u7ebf\u5728\u5747\u5300\u4ecb\u8d28\u4e2d\u6cbf\u76f4\u7ebf\u4f20\u64ad\uff0c\u5728\u975e\u5747\u5300\u4ecb\u8d28\u4e2d\u7684\u4f20\u64ad\uff0c\u5219\u53ef\u5229\u7528\u6298\u5c04\u5b9a\u5f8b\u8fdb\u884c\u89e3\u6790\u6c42\u89e3\uff0c\u800c\u5bf9\u4e8e\u8f83\u4e3a\u590d\u6742\u7684\u60c5\u51b5\uff0c\u53ef\u4ee5\u5229\u7528\u6570\u503c\u65b9\u6cd5\u6a21\u62df\u6c42\u89e3\u3002<\/p>\n<p>\u5177\u4f53\u53ef\u4ee5\u5c06\u8fde\u7eed\u4ecb\u8d28\u79bb\u6563\u5316\uff0c\u6bcf\u4e00\u5c0f\u5757\u533a\u95f4\u5185\u7684\u6298\u5c04\u7387\u8fd1\u4f3c\u770b\u4f5c\u4e0d\u53d8\uff0c\u7531\u8d77\u59cb\u4f4d\u7f6e\u5f00\u59cb\u9010\u6b65\u6c42\u51fa\u4e0b\u4e00\u70b9\u4f4d\u7f6e\uff0c\u76f4\u5230\u7ec8\u70b9\u3002\u5f53\u5c0f\u533a\u95f4\u5f88\u5c0f\u65f6\uff0c\u6563\u70b9\u4e4b\u95f4\u7684\u8fde\u7ebf\u8fd1\u4f3c\u53ef\u770b\u4f5c\u5149\u7ebf\u7684\u8def\u5f84\u3002<\/p>\n<p>\u6b64\u5904\uff0c\u5bf9\u6298\u5c04\u7387\u4e00\u7ef4\u7ebf\u6027\u53d8\u5316\u7684\u4ecb\u8d28\u505a\u4e86\u4e00\u6b21\u6a21\u62df\uff0c\u6298\u5c04\u7387\u4ec5\u4e0ey\u65b9\u5411\u4e0a\u6210\u7ebf\u6027\u5173\u7cfb\u3002\u5bf9\u4e8e\u5176\u4ed6\u6298\u5c04\u7387\u4e00\u7ef4\u53d8\u5316\u7684\u4ecb\u8d28\u53ea\u9700\u4fee\u6539\u4e00\u4e0b\u6298\u5c04\u7387\u51fd\u6570\uff08Nfun\u90e8\u5206\uff09\u5373\u53ef\uff0c\u5bf9\u4e8e\u4e8c\u7ef4\uff0c\u4e43\u81f3\u4e09\u7ef4\u7684\u60c5\u51b5\uff0c\u9700\u8981\u9996\u5148\u5bf9\u5168\u7a7a\u95f4\u8fdb\u884c\u6298\u5c04\u7387\u7684\u6c42\u89e3\uff0c\u5176\u8fc7\u7a0b\u7c7b\u4f3c\u3002<\/p>\n<p>&nbsp;<code lang=\"fortran\">!========================================================================<br \/>\n!   FileName: ConsoleApp.f90<br \/>\n!     Author: hsyyf<br \/>\n!      Email: 931107419@qq.com<br \/>\n!   HomePage: http:\/\/www.hsyyf.me<br \/>\n! LastChange: 2012-06-13 14:35:32<br \/>\n!========================================================================<br \/>\nPROGRAM Main()<br \/>\nIMPLICIT NONE<br \/>\nINTEGER,PARAMETER :: N=1000<br \/>\nREAL(8) :: y(N),x(N),h,N12(N)<br \/>\nINTEGER :: i<br \/>\nOPEN(10,FILE='Data.txt')<br \/>\nh=0.01d0<br \/>\nDO i=0,N<br \/>\n    y(i)=i*h<br \/>\nENDDO<br \/>\nx(0)=0<\/p>\n<p>CALL Nfun(N,Y,N12)<br \/>\nCALL Line(N,x,y,N12,h)<\/p>\n<p>DO i=1,N-1<br \/>\n   write(10,*) X(i),Y(i)<br \/>\nENDDO<br \/>\nEND PROGRAM Main<\/p>\n<p>SUBROUTINE Line(N,x,y,N12,h)<br \/>\nREAL(8) :: x(N),y(N),N12(N),h,N1<br \/>\nREAL(8) :: pi,delta1,delta2<br \/>\nINTEGER :: i<br \/>\nx(0)=0.d0<br \/>\npi=3.1415926d0<br \/>\ndelta1=pi\/3.d0<br \/>\nDO i=1,N<br \/>\n    N1=N12(i)\/N12(i-1)<br \/>\n    delta2=asin(sin(delta1)\/N1)<br \/>\n    x(i)=x(i-1)+h*tan(delta2)<br \/>\n    delta1=delta2<br \/>\nENDDO<br \/>\nEND<\/p>\n<p>SUBROUTINE Nfun(N,Y,N12)<br \/>\n    REAL(8) :: Y(N),N12(N)<br \/>\n    INTEGER :: N,i<br \/>\n    DO i=0,N<br \/>\n        N12(i)=1+y(i)<br \/>\n    ENDDO<br \/>\nEND<\/code><\/p>\n<p>\u8fd0\u884c\u7ed3\u679c\u5982\u56fe\u6240\u793a\uff0c\u53ef\u89c1\uff0c\u5355\u7eaf\u7684\u7ebf\u6027\u5173\u7cfb\uff0c\u6700\u540e\u5bfc\u81f4\u7684\u7ed3\u679c\u5c06\u4f7f\u5f97\u5149\u7ebf\u6709\u4e00\u4e2a\u8f83\u5927\u7684\u504f\u6298\uff1a<\/p>\n<p><a href=\"http:\/\/www.hsyyf.me\/wp-content\/uploads\/2012\/06\/light.png\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-medium wp-image-906\" title=\"light\" src=\"http:\/\/www.hsyyf.me\/wp-content\/uploads\/2012\/06\/light-300x222.png\" alt=\"\" width=\"300\" height=\"222\" srcset=\"https:\/\/www.hsyyf.me\/wp-content\/uploads\/2012\/06\/light-300x222.png 300w, https:\/\/www.hsyyf.me\/wp-content\/uploads\/2012\/06\/light.png 564w\" sizes=\"auto, (max-width: 300px) 100vw, 300px\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5149\u7ebf\u5728\u5747\u5300\u4ecb\u8d28\u4e2d\u6cbf\u76f4\u7ebf\u4f20\u64ad\uff0c\u5728\u975e\u5747\u5300\u4ecb\u8d28\u4e2d\u7684\u4f20\u64ad\uff0c\u5219\u53ef\u5229\u7528\u6298\u5c04\u5b9a\u5f8b\u8fdb\u884c\u89e3\u6790\u6c42\u89e3\uff0c\u800c\u5bf9\u4e8e\u8f83\u4e3a\u590d\u6742\u7684\u60c5\u51b5\uff0c\u53ef\u4ee5\u5229\u7528 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[16],"tags":[108],"class_list":["post-905","post","type-post","status-publish","format-standard","hentry","category-16","tag-fortran"],"_links":{"self":[{"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=\/wp\/v2\/posts\/905","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=905"}],"version-history":[{"count":0,"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=\/wp\/v2\/posts\/905\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=905"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=905"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hsyyf.me\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=905"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}