{"id":2853,"date":"2008-12-01T10:42:48","date_gmt":"2008-12-01T01:42:48","guid":{"rendered":"http:\/\/www.ibi-square.jp\/blog\/?p=65"},"modified":"2023-05-13T16:20:05","modified_gmt":"2023-05-13T07:20:05","slug":"tech-calc-stochastics","status":"publish","type":"post","link":"https:\/\/atmtech.net\/main\/tech-calc-stochastics\/","title":{"rendered":"\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\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

\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306b\u3064\u3044\u3066\u3067\u3059\u3002\u8a08\u7b97\u5f0f\u3001\u30c1\u30e3\u30fc\u30c8\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9<\/h1>\n

 <\/p>\n

\u30aa\u30fc\u30bd\u30c9\u30c3\u30af\u30b9\u306a\u30c6\u30af\u30cb\u30ab\u30eb\u6307\u6a19\u306e\u4e00\u3064\u3067\u3001\u30aa\u30b7\u30ec\u30fc\u30bf\u7cfb\u306e\u6307\u6a19\u306e\u4ee3\u8868\u683c\u3068\u3044\u3048\u307e\u3059\u3002<\/p>\n

 <\/p>\n

\u904e\u53bb\u4e00\u5b9a\u671f\u9593\u306e\u9ad8\u5024\u3068\u5b89\u5024\u306e\u5024\u5e45\u306b\u5bfe\u3057\u3066\u3001\u73fe\u5728\u306e\u30ec\u30fc\u30c8\u306e\u76f8\u5bfe\u7684\u306a\u4f4d\u7f6e\u3092\u8a08\u6e2c\u3057\u3001\u305d\u306e\u30d1\u30fc\u30bb\u30f3\u30c6\u30fc\u30b8\u3092\u8868\u793a\u3059\u308b\u6307\u6a19\u3067\u3059\u3002<\/p>\n

 <\/p>\n

 <\/p>\n

\u30e9\u30a4\u30f3\u306f\u3001%K\u3001%D\u3001S%D\u306e3\u672c\u3002%K\u3068%D\u306e\u4e8c\u3064\u306e\u30e9\u30a4\u30f3\u3092\u7528\u3044\u3066\u3001\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u30fb\u30d5\u30a1\u30b9\u30c8\u3001%D\u3068S%D\u306e2\u672c\u3092\u7528\u3044\u3066\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u30fb\u30b9\u30ed\u30fc\u3068\u3082\u8868\u73fe\u3057\u307e\u3059\u3002<\/p>\n

 <\/p>\n

\u8a08\u7b97\u5f0f\u3001\u8a08\u7b97\u65b9\u6cd5\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9\u3001\u30c1\u30e3\u30fc\u30c8\u3092\u63b2\u8f09\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

 <\/p>\n

<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306e\u8a08\u7b97\u5f0f<\/h2>\n

 <\/p>\n

\u8a08\u7b97\u65b9\u6cd5\u306f\u904e\u53bb\u4e00\u5b9a\u671f\u9593\u306e\u6700\u9ad8\u5024\u30fb\u6700\u5b89\u5024\u3001\u73fe\u5728\u306e\u7d42\u5024\u306e3\u3064\u306e\u5024\u3092\u4f7f\u7528\u3057\u3066\u8a08\u7b97\u3092\u884c\u3044\u307e\u3059\u3002<\/p>\n

 <\/p>\n

\u8a08\u7b97\u65b9\u6cd5\u306f\u4e0b\u8a18\u306e\u901a\u308a\u3002\uff08\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9[x,y,z]\u306e\u8a08\u7b97\uff09<\/p>\n

<%K><\/p>\n

%K\u3000=\u3000(\u7d42\u5024\uff0dmin_a)\u00a0\u00f7\u00a0(max_a\uff0dmin_a) \u00d7 100<\/p>\n

max_a = \u904e\u53bbx\u672c\u306e\u6700\u9ad8\u5024<\/p>\n

min_a = \u904e\u53bbx\u672c\u306e\u6700\u5b89\u5024<\/p>\n

<%D><\/p>\n

%D\u3000=\u3000(max_b \u00f7 min_b) \u00d7 100<\/p>\n

max_b =(\u7d42\u5024 – min_a ) \u306ey\u672c\u5408\u8a08<\/p>\n

min_b =(max_a –\u00a0min_a )\u306ey\u672c\u5408\u8a08<\/p>\n

<S%D><\/p>\n

S%D\u3000=\u3000%D\u30e9\u30a4\u30f3\u306ez\u672c\u79fb\u52d5\u5e73\u5747<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306e\u30c1\u30e3\u30fc\u30c8<\/h2>\n

\"\"<\/p>\n

(\u9ec4\u8272\u7dda=%K\u3001\u8d64\u7dda=%D\u3001\u6c34\u8272\u7dda=S%D)<\/p>\n

 <\/p>\n

 <\/p>\n

\u901a\u5e38\u300180%\u8d85\u3067\u8cb7\u308f\u308c\u3059\u304e\u3068\u5224\u65ad\u3057\u3001\u58f2\u308a\u30b5\u30a4\u30f3\u300120%\u672a\u6e80\u3067\u58f2\u3089\u308c\u3059\u304e\u3068\u5224\u65ad\u3057\u8cb7\u3044\u30b5\u30a4\u30f3\u3068\u306a\u308a\u307e\u3059\u304c\u3001\u5927\u304d\u306a\u30c8\u30ec\u30f3\u30c9\u3092\u767a\u3059\u308b\u3088\u3046\u306a\u5834\u5408\u306b\u306f\u3001\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306e\u30e9\u30a4\u30f3\u304c\u4e0a\u3084\u4e0b\u306b\u5f35\u308a\u4ed8\u3044\u3066\u3057\u307e\u3044\u3001\u610f\u5473\u3092\u6210\u3057\u307e\u305b\u3093\u3002<\/p>\n

 <\/p>\n

\u3067\u306f\u3001\u6700\u5f8c\u306bVBA\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

 <\/p>\n

 <\/p>\n

 <\/p>\n

\u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306e\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9<\/h2>\n

‘\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‘\u203b\u30003\u5217\u76ee(C\u5217)\uff5e6\u5217\u76ee(F\u5217)\u306b\u59cb\u5024\u30fb\u9ad8\u5024\u30fb\u5b89\u5024\u30fb\u7d42\u5024
\n‘********************************
\n‘ k \uff1a%K\u63a1\u7528\u672c\u6570
\n‘ d \uff1a%D\u63a1\u7528\u672c\u6570
\n‘ s \uff1aS%D\u63a1\u7528\u672c\u6570
\n‘ num\uff1a\u73fe\u5728\u306e\u884c
\n‘ cell_k\uff1a%K\u66f8\u8fbc\u307f\u5217\u756a\u53f7
\n‘ cell_d\uff1a%K\u66f8\u8fbc\u307f\u5217\u756a\u53f7
\n‘ cell_sd\uff1a%K\u66f8\u8fbc\u307f\u5217\u756a\u53f7
\n‘ cell_nm\uff1a\uff08\u7d42\u5024-\u904e\u53bb%K\u63a1\u7528\u672c\u6570\u5206\u306e\u6700\u5b89\u5024\uff09\u66f8\u8fbc\u307f\u5217\u756a\u53f7
\n‘ cell_mm\uff1a\uff08\u904e\u53bb%K\u63a1\u7528\u672c\u6570\u5206\u306e\u6700\u9ad8\u5024-\u904e\u53bb%K\u63a1\u7528\u672c\u6570\u5206\u306e\u6700\u5b89\u5024\uff09\u66f8\u8fbc\u307f\u5217\u756a\u53f7
\n‘********************************<\/p>\n

‘****\u30d1\u30e9\u30e1\u30fc\u30bf
\nk = 9
\nd = 3
\nsd = 3
\n‘****************<\/p>\n

‘****\u66f8\u8fbc\u307f\u5217
\ncell_k = 9
\ncell_d = 10
\ncell_sd = 11
\ncell_nm = 7
\ncell_mm = 8
\n‘****************<\/p>\n

‘———%K
\nIf num – (k – 1) >= 2 Then
\nr_max = Application.WorksheetFunction.Max _
\n(Range(Cells(num – (k – 1), 4), Cells(num, 3)))
\nr_min = Application.WorksheetFunction.Min _
\n(Range(Cells(num – (k – 1), 5), Cells(num, 4)))
\nn_min = r_now – r_min
\nm_min = r_max – r_min
\nCells(num, cell_nm) = n_min
\nCells(num, cell_mm) = m_min<\/p>\n

If n_min = 0 Or m_min = 0 Then’****\uff10\u5024\u3067\u9664\u7b97\u3059\u308b\u3053\u3068\u306b\u3088\u308b\u30a8\u30e9\u30fc\u56de\u907f
\nCells(num_1, cell_k) = 0
\nElse
\nCells(num_1, cell_k)) = n_min \/ m_min * 100
\nEnd If
\nEnd If<\/p>\n

‘———%D
\nIf num – (k + d – 1) >= 2 Then
\nn_mins = Application.WorksheetFunction.Sum _
\n(Range(Cells(num – (d – 1), cell_nm), Cells(num, cell_nm)))
\nm_mins = Application.WorksheetFunction.Sum _
\n(Range(Cells(num – (d – 1), cell_mm), Cells(num, cell_mm)))<\/p>\n

If n_min = 0 Or m_min = 0 Then’****\uff10\u5024\u3067\u9664\u7b97\u3059\u308b\u3053\u3068\u306b\u3088\u308b\u30a8\u30e9\u30fc\u56de\u907f
\nCells(num, cell_d) = 0
\nElse
\nCells(num, cell_s) = n_mins \/ m_mins * 100
\nEnd If
\nEnd If<\/p>\n

‘——–S%D
\nIf num – (k + d + sd – 1) >= 2 Then
\nCells(num, cell_sd) = Application.WorksheetFunction.Average _
\n(Range(Cells(num – (sd – 1), cell_d), Cells(num, cell_d)))
\nEnd 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

 <\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

  \u30b9\u30c8\u30ad\u30e3\u30b9\u30c6\u30a3\u30af\u30b9\u306b\u3064\u3044\u3066\u3067\u3059\u3002\u8a08\u7b97\u5f0f\u3001\u30c1\u30e3\u30fc\u30c8\u3001\u30a8\u30af\u30bb\u30ebVBA\u30b3\u30fc\u30c9   \u30aa\u30fc\u30bd\u30c9\u30c3\u30af\u30b9\u306a\u30c6\u30af\u30cb\u30ab\u30eb\u6307\u6a19\u306e\u4e00\u3064\u3067\u3001\u30aa\u30b7\u30ec\u30fc\u30bf\u7cfb\u306e\u6307\u6a19\u306e\u4ee3\u8868\u683c\u3068\u3044\u3048\u307e\u3059\u3002   \u904e\u53bb\u4e00\u5b9a\u671f\u9593\u306e\u9ad8\u5024\u3068\u5b89\u5024\u306e\u2026 \u7d9a\u304d\u3092\u8aad\u3080 »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":2854,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[30],"tags":[33,40,80,45,17,36,46],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2853"}],"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=2853"}],"version-history":[{"count":5,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2853\/revisions"}],"predecessor-version":[{"id":3871,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/posts\/2853\/revisions\/3871"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/media\/2854"}],"wp:attachment":[{"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/media?parent=2853"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/categories?post=2853"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/atmtech.net\/main\/wp-json\/wp\/v2\/tags?post=2853"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}