{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20100914%2F1284396710\" title=\" LOG(2) \u306e\u30d0\u30a4\u30ca\u30ea\u30fc\u8868\u793a\u3000\u6628\u65e5\u306e\u7d9a\u304d - fortran66\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/f/fortran66/20100914/20100914014944.gif","version":"1.0","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/fortran66/","published":"2010-09-14 01:51:50","categories":["Fortran90"],"url":"https://fortran66.hatenablog.com/entry/20100914/1284396710","blog_url":"https://fortran66.hatenablog.com/","provider_url":"https://hatena.blog","type":"rich","author_name":"fortran66","description":"\u4e8c\u9032\u6cd5\u8868\u793a\u3067\u5c0f\u6570\u70b9\u4ee5\u4e0b n+1 \u6841\u76ee\u304b\u3089\u59cb\u307e\u308b LOG(2) \u306e\u30d3\u30c3\u30c8\u5217\u8868\u793a\u3067\u3059\u3002\u8a08\u7b97\u3059\u308b\u5f0f \u3053\u3053\u3067 {} \u306f\u3001\u5c0f\u6570\u90e8\u3092\u610f\u5473\u3057\u307e\u3059\u3002 \u30bd\u30fc\u30b9\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0 \u6574\u6570\u306b\u5909\u63db\u3059\u308b\u3053\u3068\u3067\u30d3\u30c3\u30c8\u5217\u306e\u8868\u793a\u3092\u3059\u308b\u3088\u3046\u306b\u76f4\u3057\u307e\u3057\u305f\u3002 PROGRAM test ! LOG(2) IMPLICIT NONE INTEGER :: i, k, n REAL(8) :: x, y, v, w DO n = 0, 1000 ! 1st term x = 0.0d0 DO k = 1, n v = 1.0d0 w = 2.0d0 DO i = 1, 31 IF ( IBITS(n - k, i - 1, 1) == 1 ) \u2026","width":"100%","title":" LOG(2) \u306e\u30d0\u30a4\u30ca\u30ea\u30fc\u8868\u793a\u3000\u6628\u65e5\u306e\u7d9a\u304d","height":"190","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0"}