{"id":2861,"date":"2008-12-18T03:43:14","date_gmt":"2008-12-17T18:43:14","guid":{"rendered":"http:\/\/www.ibi-square.jp\/blog\/?p=105"},"modified":"2023-05-13T16:19:42","modified_gmt":"2023-05-13T07:19:42","slug":"tech-calc-ptp","status":"publish","type":"post","link":"https:\/\/atmtech.net\/main\/tech-calc-ptp\/","title":{"rendered":"\u30d1\u30e9\u30dc\u30ea\u30c3\u30af\u30fb\u30bf\u30a4\u30e0\u30fb\u30d7\u30e9\u30a4\u30b9\uff08\u8a08\u7b97\u5f0f\u3001\u30c1\u30e3\u30fc\u30c8\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9\uff09\u30c6\u30af\u30cb\u30ab\u30eb\u6307\u6a19"},"content":{"rendered":"

 <\/p>\n

\u30d1\u30e9\u30dc\u30ea\u30c3\u30af\u30fb\u30bf\u30a4\u30e0\u30fb\u30d7\u30e9\u30a4\u30b9\u306b\u3064\u3044\u3066\u3002\u8a08\u7b97\u5f0f\u3001\u30c1\u30e3\u30fc\u30c8\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9\u3002<\/h1>\n

 <\/p>\n

\u30c8\u30ec\u30f3\u30c9\u7cfb\u306e\u6307\u6a19\u3067\u3059\u304c\u3001\u9023\u7d9a\u3057\u305f\u30e9\u30a4\u30f3\u3092\u63cf\u304f\u306e\u3067\u306f\u306a\u304f\u3001\u8cb7\u3044\u65b9\u5411\u3001\u58f2\u308a\u65b9\u5411\u306b\u653e\u7269\u7dda\u3092\u63cf\u304f\u5f62\u3067\u63cf\u753b\u3055\u308c\u308b\u6307\u6a19\u3067\u3059\u3002<\/p>\n

\u8a08\u7b97\u5f0f\u3001\u8a08\u7b97\u65b9\u6cd5\u3001\u52a0\u901f\u56e0\u5b50\u3084\u4e0a\u9650\u5024\u306a\u3069\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u5909\u66f4\u3057\u305f\u5834\u5408\u306e\u30e9\u30a4\u30f3\u306e\u5909\u5316\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9\u3092\u63b2\u8f09\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

 <\/p>\n

<\/p>\n

 <\/p>\n

 <\/p>\n

PTP\u306e\u8a08\u7b97\u5f0f\uff08N\u306f\u8db3\u6570\u3001PTP=\u30d1\u30e9\u30dc\u30ea\u30c3\u30af\u30fb\u30bf\u30a4\u30e0\u30fb\u30d7\u30e9\u30a4\u30b9\uff09<\/h2>\n

 <\/p>\n

PTP = ( ep – \u76f4\u524d\u306ePTP ) \u00d7 AF + \u524d\u65e5\u306ePTP<\/p>\n

\u203bep
\nPTP\u304c\u8cb7\u3044\u30b5\u30a4\u30f3\u3092\u793a\u3057\u3066\u3044\u308b\u671f\u9593\u306e\u6700\u9ad8\u5024
\nPTP\u304c\u58f2\u308a\u30b5\u30a4\u30f3\u3092\u793a\u3057\u3066\u3044\u308b\u671f\u9593\u306e\u6700\u4f4e\u5024<\/p>\n

\u203bAF = \u52a0\u901f\u56e0\u5b50
\n( 0.02 \u2266 AF \u2266 0.20 )<\/p>\n

 <\/p>\n

 <\/p>\n

PTP\u306e\u30c1\u30e3\u30fc\u30c8<\/h2>\n

\"\"<\/p>\n

\uff08\u52a0\u901f\u56e0\u5b50\uff1a0.02\uff5e0.2\uff09<\/p>\n

 <\/p>\n

\"\"<\/p>\n

\uff08\u52a0\u901f\u56e0\u5b50\uff1a0.05\uff5e0.15\uff09<\/p>\n

 <\/p>\n

\"\"<\/p>\n

\uff08\u52a0\u901f\u56e0\u5b50\uff1a0.1\uff5e0.5\u3000\u901a\u5e38\u5916\uff09<\/p>\n

 <\/p>\n

\"\"<\/p>\n

\uff08\u52a0\u901f\u56e0\u5b50\uff1a0.005\uff5e0.3\u3000\u901a\u5e38\u5916\uff09<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

PTP\u306e\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9<\/h2>\n

\u2018\u203b\u3000\u30a8\u30af\u30bb\u30eb\u306e1\u5217\u76ee(A\u5217)\u306b\u884c\u756a\u53f7\u30012\u5217\u76ee(B\u5217)\u306b\u65e5\u6642\u3001
\n\u2018\u203b\u30003\u5217\u76ee(C\u5217)\uff5e6\u5217\u76ee(F\u5217)\u306b\u59cb\u5024\u30fb\u9ad8\u5024\u30fb\u5b89\u5024\u30fb\u7d42\u5024
\n\u2018********************************
\n\u2018 af_min \uff1a\u52a0\u901f\u56e0\u5b50AF\u6700\u5c0f\u5024
\n\u2018 af_max \uff1a\u52a0\u901f\u56e0\u5b50AF\u6700\u5927\u5024
\n\u2018 cell_ptp\uff1aPTP\u8a08\u7b97\u5024\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_pos : \u65b9\u5411\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_ep:EP\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_ptp1:\u6b21\u30ed\u30a6\u30bd\u30af\u8db3PTP\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_af:\u73fe\u5728\u52a0\u901f\u56e0\u5b50\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_epmax:EPMAX\u66f8\u8fbc\u307f\u5217
\n\u2018 cell_epmin:EPMIN\u66f8\u8fbc\u307f\u5217
\n\u2018********************************
\nIf Cells(num – 1, 6) <> “” And Cells(num – 1, cell_pos) = “” _
\nAnd Cells(num, cell_pos) = “” Then
\nCells(num, cell_af) = af_min
\nCells(num, cell_epmax) = af_max
\nEnd If<\/p>\n

If Cells(num – 1, 6) <> “” And Cells(num – 1, cell_epmax) <> “” _
\nAnd Cells(num – 1, cell_epmax) <> “” _
\nAnd Cells(num – 1, cell_epmin) = “” _
\nAnd Cells(num – 1, cell_ep) = “” Then
\nCells(num, cell_pos) = 1
\nCells(num, cell_ptp) = Cells(num, 4)
\nCells(num, cell_ep) = Cells(num, 4)
\nCells(num, cell_af) = Cells(num – 1, cell_af)
\nCells(num, cell_ptp1) = (Cells(num, cell_ep) – _
\nCells(num, cell_ptp)) * Cells(num, cell_af) + _
\nCells(num, cell_ptp)
\nCells(num, cell_epmax) = Cells(num – 1, 3)
\nCells(num, cell_epmin) = Cells(num – 1, 4)
\nEnd If<\/p>\n

If Cells(num – 1, 6) <> “” And Cells(num – 1, cell_pos) <> “” Then
\nIf Cells(num – 1, cell_ptp1) > Cells(num, 4) _
\nAnd Cells(num – 1, cell_pos) = 1 Then
\nCells(num, cell_pos) = 0
\nElse
\nIf Cells(num – 1, cell_ptp1) < Cells(num, 3) _
\nAnd Cells(num – 1, cell_pos) = 0 Then
\nCells(num, cell_pos) = 1
\nElse
\nCells(num, cell_pos) = Cells(num – 1, cell_pos)
\nEnd If
\nEnd If
\nIf Cells(num – 1, cell_pos) = 0 And Cells(num, cell_pos) = 1 Then
\nCells(num, cell_ptp) = Cells(num – 1, cell_epmin)
\nElse
\nIf Cells(num – 1, cell_pos) = 1 And Cells(num, cell_pos) = 0 Then
\nCells(num, cell_ptp) = Cells(num – 1, cell_epmax)
\nElse
\nCells(num, cell_ptp) = (Cells(num – 1, cell_ep) – _
\nCells(num – 1, cell_ptp)) * _
\nCells(num – 1, cell_af) + _
\nCells(num – 1, cell_ptp)
\nEnd If
\nEnd If
\nIf Cells(num – 1, cell_pos) <> Cells(num, cell_pos) Then
\nCells(num, cell_epmax) = Cells(num, 3)
\nElse
\nIf Cells(num – 1, cell_epmax) < Cells(num, 3) Then
\nCells(num, cell_epmax) = Cells(num, 3)
\nElse
\nCells(num, cell_epmax) = Cells(num – 1, cell_epmax)
\nEnd If
\nEnd If<\/p>\n

If Cells(num – 1, cell_pos) <> Cells(num, cell_pos) Then
\nCells(num, cell_epmin) = Cells(num, 4)
\nElse
\nIf Cells(num – 1, cell_epmin) > Cells(num, 4) Then
\nCells(num, cell_epmin) = Cells(num, 4)
\nElse
\nCells(num, cell_epmin) = Cells(num – 1, cell_epmin)
\nEnd If
\nEnd If
\nIf Cells(num, cell_pos) = 0 Then
\nCells(num, cell_ep) = Cells(num, cell_epmin)
\nElse
\nCells(num, cell_ep) = Cells(num, cell_epmax)
\nEnd If
\nIf Cells(num – 1, cell_pos) <> Cells(num, cell_pos) Then
\nCells(num, cell_af) = af_min
\nElse
\nIf Cells(num – 1, cell_af) + af_min <= af_max Then
\nCells(num, cell_af) = Cells(num – 1, cell_af)
\nIf Cells(num – 1, cell_pos) = 1 _
\nAnd Cells(num – 1, cell_epmax) <> Cells(num, cell_epmax) Then
\nCells(num, cell_af) = Cells(num – 1, cell_af) + af_min
\nEnd If
\nIf Cells(num – 1, cell_pos) = 0 _
\nAnd Cells(num – 1, cell_epmin) <> Cells(num, cell_epmin) Then
\nCells(num, cell_af) = Cells(num – 1, cell_af) + af_min
\nEnd If
\nElse
\nCells(num, cell_af) = Cells(num – 1, cell_af)
\nEnd If
\nEnd If
\nCells(num, cell_ptp1) = (Cells(num, cell_ep) – Cells(num, cell_ptp)) _
\n* Cells(num, cell_af) + Cells(num, cell_ptp)<\/p>\n

End If<\/p>\n

 <\/p>\n

 <\/p>\n

\u30c6\u30af\u30cb\u30ab\u30eb\u6307\u6a19\u4e00\u89a7<\/a><\/p>\n

\u7f6b\u7dda\u8ac7\u7fa9\u4e00\u89a7<\/a><\/p>\n

(\u5916\u90e8\u30ea\u30f3\u30af)\u30c6\u30af\u30cb\u30ab\u30eb\u6307\u6a19(Wikipedia)<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

  \u30d1\u30e9\u30dc\u30ea\u30c3\u30af\u30fb\u30bf\u30a4\u30e0\u30fb\u30d7\u30e9\u30a4\u30b9\u306b\u3064\u3044\u3066\u3002\u8a08\u7b97\u5f0f\u3001\u30c1\u30e3\u30fc\u30c8\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9\u3002   \u30c8\u30ec\u30f3\u30c9\u7cfb\u306e\u6307\u6a19\u3067\u3059\u304c\u3001\u9023\u7d9a\u3057\u305f\u30e9\u30a4\u30f3\u3092\u63cf\u304f\u306e\u3067\u306f\u306a\u304f\u3001\u8cb7\u3044\u65b9\u5411\u3001\u58f2\u308a\u65b9\u5411\u306b\u653e\u7269\u7dda\u3092\u63cf\u304f\u5f62\u3067\u63cf\u753b\u3055\u308c\u308b\u6307\u6a19\u3067\u3059\u2026 \u7d9a\u304d\u3092\u8aad\u3080 »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":2862,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[30],"tags":[50,80,37,55,56,52],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2861"}],"collection":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/comments?post=2861"}],"version-history":[{"count":5,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2861\/revisions"}],"predecessor-version":[{"id":3867,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2861\/revisions\/3867"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/media\/2862"}],"wp:attachment":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/media?parent=2861"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/categories?post=2861"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/tags?post=2861"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}