{"id":1110,"date":"2018-04-19T21:41:15","date_gmt":"2018-04-19T12:41:15","guid":{"rendered":"https:\/\/www.ktech.biz\/jp\/?p=1110"},"modified":"2022-09-01T12:07:16","modified_gmt":"2022-09-01T03:07:16","slug":"xlpack-5-revcom","status":"publish","type":"post","link":"https:\/\/www.ktech.biz\/jp\/manual\/xlpack-5-revcom\/","title":{"rendered":"XLPack 5 \u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248"},"content":{"rendered":"

\u5916\u90e8\u95a2\u6570\u3092\u5fc5\u8981\u3068\u3059\u308b\u30eb\u30fc\u30c1\u30f3\u306b\u3064\u3044\u3066\u306f, \u5f93\u6765\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u306b\u52a0\u3048, XLPack 5\u3088\u308a\u65b0\u305f\u306b\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u304c\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u307e\u3059.<\/p>\n

1. \u5f93\u6765\u578b\u30eb\u30fc\u30c1\u30f3(\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248)<\/h3>\n

\u4f8b\u3068\u3057\u3066, \u6b21\u306e\u5b9a\u7a4d\u5206\u3092\u6c42\u3081\u308b\u554f\u984c\u3092\u8003\u3048\u3066\u307f\u307e\u3059.<\/p>\n

  \r\n  \u222b 1\/(1 + x^2) dx [0, 4]\r\n\r\n<\/pre>\n
 
\nQk15\u3092\u4f7f\u3063\u305f\u4e00\u822c\u7684\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059.<\/p>\n
\n
Function F(X As Double) As Double\r\n    F = 1 \/ (1 + X ^ 2)\r\nEnd Function\r\n\r\nSub Ex_Qk15()\r\n    Dim A As Double, B As Double, Result As Double\r\n    A = 0: B = 4\r\n    Call Qk15(AddressOf F, A, B, Result)\r\n    Debug.Print \"S =\", Result\r\nEnd Sub<\/code><\/pre>\n<\/div>\n
\u7a4d\u5206\u30eb\u30fc\u30c1\u30f3Qk15\u306f, \u88ab\u7a4d\u5206\u95a2\u6570\u5024\u304c\u5fc5\u8981\u306b\u306a\u308b\u3068\u5916\u90e8\u30e6\u30fc\u30b6\u30fc\u30eb\u30fc\u30c1\u30f3F\u3092\u547c\u3073\u51fa\u3057\u3066(\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3057\u3066)\u5fc5\u8981\u306a\u70b9\u306b\u304a\u3051\u308b\u95a2\u6570\u5024\u3092\u8a08\u7b97\u3057\u3066\u3082\u3089\u3044\u307e\u3059. \u305d\u3057\u3066, \u6700\u7d42\u7684\u306a\u7a4d\u5206\u5024\u304c\u6c42\u307e\u3063\u305f\u3068\u304d\u306b\u547c\u3073\u51fa\u3057\u5143\u306b\u623b\u308a\u307e\u3059.<\/p>\n
2. \u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248<\/h3>\n
\u5f93\u6765\u578b\u30eb\u30fc\u30c1\u30f3\u306b\u5bfe\u3057\u3066, \u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u3067\u306f\u88ab\u7a4d\u5206\u95a2\u6570\u5024\u304c\u5fc5\u8981\u306b\u306a\u308b\u3068x\u306e\u5024\u3092\u8fd4\u3057\u3066\u3044\u3063\u305f\u3093\u547c\u3073\u51fa\u3057\u5143\u306b\u623b\u308a, \u5fc5\u8981\u306a\u95a2\u6570\u5024\u3068\u3068\u3082\u306b\u518d\u5ea6\u547c\u3073\u51fa\u3057\u3066\u3082\u3089\u3046\u624b\u9806\u3092\u6700\u7d42\u7684\u306a\u7a4d\u5206\u5024\u304c\u6c42\u307e\u308b\u307e\u3067\u7e70\u308a\u8fd4\u3057\u307e\u3059.<\/p>\n
\u4e0a\u306e\u4f8b\u306e\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306b\u3088\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059.<\/p>\n
\n
Sub Ex_Qk15_r()\r\n    Dim A As Double, B As Double, Result As Double\r\n    Dim XX As Double, YY As Double, IRev As Long\r\n    A = 0: B = 4\r\n    IRev = 0\r\n    Do\r\n        Call Qk15_r(A, B, Result, XX, YY, IRev)\r\n        If IRev = 1 Then YY = 1 \/ (1 + XX ^ 2)\r\n    Loop While IRev <> 0\r\n    Debug.Print \"S =\", Result\r\nEnd Sub<\/code><\/pre>\n<\/div>\n
\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306e\u30eb\u30fc\u30c1\u30f3\u540d\u306f, (Qk15\u306b\u5bfe\u3057\u3066Qk15_r\u3068\u3044\u3046\u3088\u3046\u306b)\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u306e\u30eb\u30fc\u30c1\u30f3\u540d\u306b “_r” \u3092\u4ed8\u3051\u305f\u3082\u306e\u306b\u306a\u308a\u307e\u3059.<\/p>\n
IRev\u306f\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u5236\u5fa1\u5909\u6570\u3067, \u5fc5\u305a\u521d\u3081\u306b0\u306b\u8a2d\u5b9a\u3057\u3066\u304b\u3089\u547c\u3073\u51fa\u3059\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059. \u6700\u7d42\u7d50\u679c\u304c\u6c42\u3081\u3089\u308c\u305f\u3068\u304d\u306b\u306fIRev=0\u3067\u623b\u3063\u3066\u304d\u307e\u3059. \u9014\u4e2d\u3067\u8ffd\u52a0\u60c5\u5831\u304c\u5fc5\u8981\u306a\u5834\u5408\u306b\u306fIRev<>0\u3067\u623b\u3063\u3066\u304d\u307e\u3059. \u305d\u306e\u5834\u5408\u306eIRev\u306e\u5024\u3068\u5fc5\u8981\u306a\u51e6\u7406\u306f\u30eb\u30fc\u30c1\u30f3\u3054\u3068\u306b\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u307e\u3059.<\/p>\n
Qk15_r\u306e\u5834\u5408\u306b\u306f, XX\u3068YY\u306f\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7528\u306e\u8ffd\u52a0\u5f15\u6570\u3067, IRev=1\u3067\u3042\u308c\u3070XX\u306b\u304a\u3051\u308b\u95a2\u6570\u5024\u3092YY\u306b\u5165\u308c\u3066\u518d\u5ea6\u547c\u3073\u51fa\u3059\u3053\u3068\u3092\u8981\u6c42\u3057\u3066\u3044\u307e\u3059.<\/p>\n
3. \u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306e\u30e1\u30ea\u30c3\u30c8\u3068\u30c7\u30e1\u30ea\u30c3\u30c8<\/h3>\n
\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306f\u6b21\u306e\u3088\u3046\u306a\u30e1\u30ea\u30c3\u30c8\u304c\u3042\u308a\u307e\u3059.<\/p>\n
    \n
  • AddressOf\u6f14\u7b97\u5b50\u3092\u4f7f\u308f\u306a\u304f\u3066\u3088\u3044\u306e\u3067\u5b89\u5168\u3067\u3059. \u3059\u306a\u308f\u3061, AddressOf\u3067\u306f\u5916\u90e8\u30eb\u30fc\u30c1\u30f3\u306e\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30fc\u30b9\u306e\u6b63\u3057\u3055\u306f\u30c1\u30a7\u30c3\u30af\u3055\u308c\u307e\u305b\u3093\u306e\u3067, \u8aa4\u308a\u304c\u3042\u308b\u3068Excel\u304c\u30af\u30e9\u30c3\u30b7\u30e5\u3057\u3066\u3057\u307e\u3046\u3053\u3068\u304c\u3042\u308a\u307e\u3059<\/li>\n
  • \u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u81ea\u7531\u5ea6\u304c\u9ad8\u304f\u306a\u308a\u307e\u3059. \u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u3067\u306f\u5916\u90e8\u30e6\u30fc\u30b6\u30fc\u30eb\u30fc\u30c1\u30f3\u306e\u5f15\u6570\u304c\u6c7a\u307e\u3063\u3066\u3044\u308b\u305f\u3081, \u8ffd\u52a0\u60c5\u5831\u3092\u6e21\u3059\u306e\u306b\u4e0d\u81ea\u7531\u306a\u3053\u3068\u304c\u3042\u308a\u307e\u3059.<\/li>\n<\/ul>\n
    \u4e00\u65b9\u3067\u6b21\u306e\u3088\u3046\u306a\u30c7\u30e1\u30ea\u30c3\u30c8\u3082\u3042\u308a\u307e\u3059.<\/p>\n
      \n
    • \u547c\u3073\u51fa\u3057\u624b\u9806\u304c\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u306b\u6bd4\u3079\u3066\u9762\u5012\u3067, \u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u8907\u96d1\u306b\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059.<\/li>\n<\/ul>\n
      \u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u3068\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306b\u304a\u3051\u308b\u8a08\u7b97\u7d50\u679c\u306f\u540c\u3058\u306b\u306a\u308a\u307e\u3059. \u72b6\u6cc1\u306b\u5fdc\u3058\u3066\u9069\u5207\u306a\u65b9\u3092\u4f7f\u7528\u3057\u3066\u304f\u3060\u3055\u3044.<\/p>\n","protected":false},"excerpt":{"rendered":"
      \u5f93\u6765\u306e\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u7248\u306b\u52a0\u3048\u65b0\u305f\u306bXLPack 5\u7248\u3088\u308a\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u308b\u30ea\u30d0\u30fc\u30b9\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u7248\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u307e\u3059.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[9],"tags":[],"class_list":["post-1110","post","type-post","status-publish","format-standard","hentry","category-manual"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/posts\/1110","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/comments?post=1110"}],"version-history":[{"count":5,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/posts\/1110\/revisions"}],"predecessor-version":[{"id":4022,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/posts\/1110\/revisions\/4022"}],"wp:attachment":[{"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/media?parent=1110"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/categories?post=1110"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ktech.biz\/jp\/wp-json\/wp\/v2\/tags?post=1110"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}