返回列表 上一主題 發帖

VBA 類神經運算 求助

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2015-11-24 10:20 | 顯示全部帖子
本帖最後由 c_c_lai 於 2015-11-24 11:32 編輯

回復 7# qwertyuio111
試試看 (依據你的程式碼修改)：
  1. Sub 類神經運算()
  2.     Dim lowerRange, upperRange, myRange, myCell As Range, cts As Integer, nxt As Integer
  3.     Dim rp5 As Integer, bf1 As Integer
  4.    
  5.     With Sheets("Sheet1")
  6.         Set lowerRange = .Range("C11")
  7.         Set upperRange = .Range("C10")
  8.         lowerRange.Name = "lowerbound"
  9.         upperRange.Name = "upperbound"
  10.         Set myRange = .Range("A13:J21")

  12.         For Each myCell In myRange
  13.             myCell.Formula = "=RANDBETWEEN(lowerbound,upperbound)/10"
  14.         Next
  15.    
  16.        .[A23] = "循環Ｗ"
  17.            
  18.        For cts = 0 To 7     '  inta1 = (intA * w1) + (intB * w9) + (intc * w17) + (intD * w25) + (intE * w33)
  19.            .[D1].Offset(cts) = (.[B1] * .[A13].Offset(cts)) + (.[B2] * IIf(cts = 0, .[A21], .[B12].Offset(cts))) + (.[B3] * IIf(cts <= 1, .[B20], .[C11].Offset(cts)) + (.[B4] * IIf(cts <= 2, .[C19], .[D10].Offset(cts)))) + (.[B5] * IIf(cts <= 3, .[D18], .[E9].Offset(cts)))
  20.            .[F1].Offset(cts) = 1 / (1 + Exp(-.[D1].Offset(cts)))   '  outa1 = 1 / (1 + Exp(-inta1))
  21.        Next cts

  23.        For cts = 0 To 4     '  inti1 = (outa1 * w41) + (outb1 * w46) + (outc1 * w51) + (outd1 * w56) + (oute1 * w61) + (outf1 * w66) + (outg1 * w71) + (outh1 * w76)
  24.            .[H1].Offset(cts) = (.[F1] * .[E17].Offset(cts)) + (.[F2] * .[F13].Offset(cts)) + (.[F3] * IIf(cts = 4, .[G13], .[F18].Offset(cts))) + (.[F4] * .[G14].Offset(cts)) + (.[F5] * IIf(cts > 2, .[H10].Offset(cts), .[G19].Offset(cts))) + (.[F6] * .[H15].Offset(cts)) + (.[F7] * IIf(cts > 1, .[I11].Offset(cts), .[H20].Offset(cts))) + (.[F8] * .[I16].Offset(cts))
  25.            .[J1].Offset(cts) = 1 / (1 + Exp(-.[H1].Offset(cts)))     '  outi1 = 1 / (1 + Exp(-inti1))
  26.        Next cts
  27.    
  28.        For cts = 0 To 1     '  intn1 = (outi1 * w81) + (outj1 * w83) + (outk1 * w85) + (outl1 * w87) + (outm1 * w89)
  29.            .[L1].Offset(cts) = (.[J1] * IIf(cts = 0, .[I21], .[J13])) + (.[J2] * .[J14].Offset(cts)) + (.[J3] * .[J16].Offset(cts)) + (.[J4] * .[J18].Offset(cts)) + (.[J5] * .[J20].Offset(cts))
  30.            .[N1].Offset(cts) = 1 / (1 + Exp(-.[L1].Offset(cts)))     '  outn1 = 1 / (1 + Exp(-intn1))
  31.        Next cts
  32.       
  33.        For cts = 0 To 1     '  errn = outn1 * (1 - outn1) * (tarn - outn1) ,   erro = outo1 * (1 - outo1) * (taro - outo1)
  34.            .[N5].Offset(cts) = .[N1].Offset(cts) * (1 - .[N1].Offset(cts)) * (.[L6].Offset(cts) - .[N1].Offset(cts))
  35.        Next cts
  36.       
  37.        For cts = 0 To 4     '  erri = outi1 * (1 - outi1) * (errn * w81 + erro * w82)   ~   errm = outm1 * (1 - outm1) * (errn * w89 + erro * w90)
  38.            .[P5].Offset(cts) = .[J1].Offset(cts) * (1 - .[J1].Offset(cts)) * (.[N5] * IIf(cts = 0, .[I21], .[J9].Offset(cts * 2 + 1))) + (.[N6] * .[J11].Offset(cts * 2 + 2))
  39.        Next cts
  40.       
  41.        For cts = 0 To 7     '  erra = outa1 * (1 - outa1) * (erri * w41 + errj * w42 + errk * w43 + errl * w44 + errm * w45)
  42.             .Range("Z1:Z5").Clear    '  清除傳存運算資料欄之內容值
  43.             
  44.             If (cts = 7) Then       '  7
  45.                .[Z1] = .[I16]
  46.                .[Z2] = .[I17]
  47.             ElseIf (cts > 4) Then   '  5,6
  48.                .[Z1] = .[H15].Offset((cts - 5) * 5)
  49.                .[Z2] = .[H16].Offset((cts - 5) * 5)
  50.             ElseIf (cts > 2) Then   '  3,4
  51.                .[Z1] = .[G14].Offset((cts - 3) * 5)
  52.                .[Z2] = .[G15].Offset((cts - 3) * 5)
  53.             ElseIf (cts = 0) Then   '  0
  54.                .[Z1] = .[E17]
  55.                .[Z2] = .[E18]
  56.                .[Z3] = .[E19]
  57.             Else                    '  1,2
  58.                .[Z1] = .[F13].Offset((cts - 1) * 5)
  59.                .[Z2] = .[F14].Offset((cts - 1) * 5)
  60.             End If

  62.             If (cts > 5) Then       '  6,7
  63.                .[Z3] = .[I13].Offset((cts - 6) * 5)
  64.                .[Z4] = .[I14].Offset((cts - 6) * 5)
  65.                .[Z5] = .[I15].Offset((cts - 6) * 5)
  66.             ElseIf (cts = 5) Then   '  5
  67.                .[Z3] = .[H17]
  68.                .[Z4] = .[H13].Offset((cts - 5) * 5)
  69.                .[Z5] = .[H14].Offset((cts - 5) * 5)
  70.             ElseIf (cts > 3) Then    '  4
  71.                .[Z3] = .[G16].Offset((cts - 4) * 5)
  72.                .[Z4] = .[H13].Offset((cts - 4) * 5)
  73.                .[Z5] = .[H14].Offset((cts - 4) * 5)
  74.             ElseIf (cts = 3) Then    '  3
  75.                .[Z3] = .[G16].Offset((cts - 3) * 5)
  76.                .[Z4] = .[G15]
  77.                .[Z5] = .[H14].Offset((cts - 3) * 5)
  78.             ElseIf (cts > 1) Then    '  2
  79.                .[Z3] = .[F15].Offset((cts - 2) * 5)
  80.                .[Z4] = .[F16].Offset((cts - 2) * 5)
  81.                .[Z5] = .[G13].Offset((cts - 2) * 5)
  82.             ElseIf (cts = 0) Then    '  0
  83.                .[Z3] = .[E19]
  84.                .[Z4] = .[E20]
  85.                .[Z5] = .[E21]
  86.             Else                      '  1
  87.                .[Z3] = .[F15].Offset((cts - 1) * 5)
  88.                .[Z4] = .[F16].Offset((cts - 1) * 5)
  89.                .[Z5] = .[F17]
  90.             End If
  91.             
  92.             
  93.             .[R5].Offset(cts) = .[F1].Offset(cts) * (1 - .[F1].Offset(cts)) * (.[P5] * .[Z1] + .[P6] * .[Z2] + .[P7] * .[Z3] + .[P8] * .[Z4] + .[P9] * .[Z5])
  94.             '  檢驗測試結果
  95.             '  .[V10].Offset(cts) = .[Z1]
  96.             '  .[V10].Offset(cts, 1) = .[Z2]
  97.             '  .[V10].Offset(cts, 2) = .[Z3]
  98.             '  .[V10].Offset(cts, 3) = .[Z4]
  99.             '  .[V10].Offset(cts, 4) = .[Z5]
  100.        Next cts
  101.    
  102.        .Range("Z1:Z5").Clear         '  清除傳存運算資料欄之內容值
  103.        '  .Range("V10:Z17").Clear    '  清除傳存運算資料欄之內容值

  105.        rp5 = -1: bf1 = 0
  106.        For nxt = 0 To 9         '  neww1 = w1 + (erra * intA)   ~  neww54 = w54 + (errl * outc1)
  107.            For cts = 0 To 8
  108.                rp5 = rp5 + 1

  110.                If ((nxt * 9 + cts + 1) > 80) Then          '  neww81 = w81 + (errn * outi1) ~ neww90 = w90 + (erro * outm1)
  111.                    If ((nxt * 9 + cts + 1) = 81) Then
  112.                        rp5 = 0
  113.                        bf1 = 0
  114.                    End If
  115.                   
  116.                    .[A24].Offset(cts, nxt) = .[A13].Offset(cts) + (.[N5].Offset(rp5) * .[J1].Offset(bf1))
  117.                   
  118.                    If (rp5 = 1) Then
  119.                        rp5 = -1
  120.                        bf1 = bf1 + 1
  121.                    End If
  122.                ElseIf ((nxt * 9 + cts + 1) > 40) Then      '  neww41 = w41 + (erri * outa1) ~ neww80 = w80 + (errm * outh1)
  123.                    If ((nxt * 9 + cts + 1) = 41) Then
  124.                        rp5 = 0
  125.                        bf1 = 0
  126.                    End If
  127.                   
  128.                    .[A24].Offset(cts, nxt) = .[A13].Offset(cts) + (.[P5].Offset(rp5) * .[F1].Offset(bf1))
  129.                   
  130.                    If (rp5 = 4) Then
  131.                        rp5 = -1
  132.                        bf1 = bf1 + 1
  133.                    End If
  134.                Else                                        '  neww1 = w1 + (erra * intA) ~ neww40 = w40 + (errh * intE)
  135.                    .[A24].Offset(cts, nxt) = .[A13].Offset(cts) + (.[R5].Offset(rp5) * .[B1].Offset(bf1))
  136.                   
  137.                    If (rp5 = 7) Then
  138.                        rp5 = -1
  139.                        bf1 = bf1 + 1
  140.                    End If
  141.                End If
  142.            Next cts
  143.        Next nxt
  144.    End With
  145.   類神經擴充迴圈運算
  146. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2015-11-24 11:03 | 顯示全部帖子
回復 7# qwertyuio111
  1. Sub 類神經擴充迴圈運算()
  2.     Dim cts As Integer, nxt As Integer
  3.     Dim rp5 As Integer, bf1 As Integer, i As Integer
  4.    
  5.     With Sheets("Sheet1")
  6.        For i = 2 To 150    ' 1500
  7.            .[A23] = "循環Ｗ (" & i & ")"
  8.            For cts = 0 To 7     '  inta1 = (intA * neww1) + (intB * neww9) + (intc * neww17) + (intD * neww25) + (intE * neww33)
  9.                .[D1].Offset(cts) = (.[B1] * .[A24].Offset(cts)) + (.[B2] * IIf(cts = 0, .[A32], .[B23].Offset(cts))) + (.[B3] * IIf(cts <= 1, .[B31], .[C22].Offset(cts)) + (.[B4] * IIf(cts <= 2, .[C30], .[D21].Offset(cts)))) + (.[B5] * IIf(cts <= 3, .[D29], .[E20].Offset(cts)))
  10.                .[F1].Offset(cts) = 1 / (1 + Exp(-.[D1].Offset(cts)))   '  outa1 = 1 / (1 + Exp(-inta1))
  11.            Next cts

  13.            For cts = 0 To 4     '  inti1 = (outa1 * neww41) + (outb1 * neww46) + (outc1 * neww51) + (outd1 * neww56) + (oute1 * neww61) + (outf1 * neww66) + (outg1 * neww71) + (outh1 * neww76)
  14.            .[H1].Offset(cts) = (.[F1] * .[E28].Offset(cts)) + (.[F2] * .[F24].Offset(cts)) + (.[F3] * IIf(cts = 4, .[G24], .[F29].Offset(cts))) + (.[F4] * .[G25].Offset(cts)) + (.[F5] * IIf(cts > 2, .[H21].Offset(cts), .[G30].Offset(cts))) + (.[F6] * .[H26].Offset(cts)) + (.[F7] * IIf(cts > 1, .[I22].Offset(cts), .[H31].Offset(cts))) + (.[F8] * .[I27].Offset(cts))
  15.                .[J1].Offset(cts) = 1 / (1 + Exp(-.[H1].Offset(cts)))     '  outi1 = 1 / (1 + Exp(-inti1))
  16.            Next cts
  17.    
  18.            For cts = 0 To 1     '  intn1 = (outi1 * neww81) + (outj1 * neww83) + (outk1 * neww85) + (outl1 * neww87) + (outm1 * neww89)
  19.                .[L1].Offset(cts) = (.[J1] * IIf(cts = 0, .[I32], .[J24])) + (.[J2] * .[J25].Offset(cts)) + (.[J3] * .[J27].Offset(cts)) + (.[J4] * .[J29].Offset(cts)) + (.[J5] * .[J31].Offset(cts))
  20.                .[N1].Offset(cts) = 1 / (1 + Exp(-.[L1].Offset(cts)))     '  outn1 = 1 / (1 + Exp(-intn1))
  21.            Next cts
  22.       
  23.            For cts = 0 To 1     '  errn = outn1 * (1 - outn1) * (tarn - outn1) ,   erro = outo1 * (1 - outo1) * (taro - outo1)
  24.                .[N5].Offset(cts) = .[N1].Offset(cts) * (1 - .[N1].Offset(cts)) * (.[L6].Offset(cts) - .[N1].Offset(cts))
  25.            Next cts
  26.       
  27.            For cts = 0 To 4     '  erri = outi1 * (1 - outi1) * (errn * neww81 + erro * neww82)   ~   errm = outm1 * (1 - outm1) * (errn * neww89 + erro * neww90)
  28.                .[P5].Offset(cts) = .[J1].Offset(cts) * (1 - .[J1].Offset(cts)) * (.[N5] * IIf(cts = 0, .[I32], .[J20].Offset(cts * 2 + 1))) + (.[N6] * .[J22].Offset(cts * 2 + 2))
  29.            Next cts
  30.       
  31.            For cts = 0 To 7     '  erra = outa1 * (1 - outa1) * (erri * w41 + errj * w42 + errk * w43 + errl * w44 + errm * w45)
  32.                 .Range("Z1:Z5").Clear    '  清除傳存運算資料欄之內容值
  33.             
  34.                 If (cts = 7) Then       '  7
  35.                    .[Z1] = .[I27]
  36.                    .[Z2] = .[I28]
  37.                 ElseIf (cts > 4) Then   '  5,6
  38.                    .[Z1] = .[H26].Offset((cts - 5) * 5)
  39.                    .[Z2] = .[H27].Offset((cts - 5) * 5)
  40.                 ElseIf (cts > 2) Then   '  3,4
  41.                    .[Z1] = .[G25].Offset((cts - 3) * 5)
  42.                    .[Z2] = .[G26].Offset((cts - 3) * 5)
  43.                 ElseIf (cts = 0) Then   '  0
  44.                    .[Z1] = .[E28]
  45.                    .[Z2] = .[E29]
  46.                    .[Z3] = .[E30]
  47.                 Else                    '  1,2
  48.                    .[Z1] = .[F24].Offset((cts - 1) * 5)
  49.                    .[Z2] = .[F25].Offset((cts - 1) * 5)
  50.                 End If

  52.                 If (cts > 5) Then       '  6,7
  53.                    .[Z3] = .[I24].Offset((cts - 6) * 5)
  54.                    .[Z4] = .[I25].Offset((cts - 6) * 5)
  55.                    .[Z5] = .[I26].Offset((cts - 6) * 5)
  56.                 ElseIf (cts = 5) Then   '  5
  57.                    .[Z3] = .[H28]
  58.                    .[Z4] = .[H24].Offset((cts - 5) * 5)
  59.                    .[Z5] = .[H25].Offset((cts - 5) * 5)
  60.                 ElseIf (cts > 3) Then    '  4
  61.                    .[Z3] = .[G27].Offset((cts - 4) * 5)
  62.                    .[Z4] = .[H24].Offset((cts - 4) * 5)
  63.                    .[Z5] = .[H25].Offset((cts - 4) * 5)
  64.                 ElseIf (cts = 3) Then    '  3
  65.                    .[Z3] = .[G27].Offset((cts - 3) * 5)
  66.                    .[Z4] = .[G26]
  67.                    .[Z5] = .[H25].Offset((cts - 3) * 5)
  68.                 ElseIf (cts > 1) Then    '  2
  69.                    .[Z3] = .[F26].Offset((cts - 2) * 5)
  70.                    .[Z4] = .[F27].Offset((cts - 2) * 5)
  71.                    .[Z5] = .[G24].Offset((cts - 2) * 5)
  72.                 ElseIf (cts = 0) Then    '  0
  73.                    .[Z3] = .[E30]
  74.                    .[Z4] = .[E31]
  75.                    .[Z5] = .[E32]
  76.                 Else                      '  1
  77.                    .[Z3] = .[F26].Offset((cts - 1) * 5)
  78.                    .[Z4] = .[F27].Offset((cts - 1) * 5)
  79.                    .[Z5] = .[F28]
  80.                 End If
  81.             
  82.             
  83.                 .[R5].Offset(cts) = .[F1].Offset(cts) * (1 - .[F1].Offset(cts)) * (.[P5] * .[Z1] + .[P6] * .[Z2] + .[P7] * .[Z3] + .[P8] * .[Z4] + .[P9] * .[Z5])
  84.                 '  檢驗測試結果
  85.                 '  .[V10].Offset(cts) = .[Z1]
  86.                 '  .[V10].Offset(cts, 1) = .[Z2]
  87.                 '  .[V10].Offset(cts, 2) = .[Z3]
  88.                 '  .[V10].Offset(cts, 3) = .[Z4]
  89.                 '  .[V10].Offset(cts, 4) = .[Z5]
  90.            Next cts
  91.    
  92.            .Range("Z1:Z5").Clear         '  清除傳存運算資料欄之內容值
  93.            '  .Range("V10:Z17").Clear    '  清除傳存運算資料欄之內容值

  95.            rp5 = -1: bf1 = 0
  96.            For nxt = 0 To 9         '  neww1 = neww1 + (erra * intA)   ~  neww54 = neww54 + (errl * outc1)
  97.                For cts = 0 To 8
  98.                    rp5 = rp5 + 1

  100.                    If ((nxt * 9 + cts + 1) > 80) Then          '  neww81 = neww81 + (errn * outi1) ~ neww90 = neww90 + (erro * outm1)
  101.                        If ((nxt * 9 + cts + 1) = 81) Then
  102.                            rp5 = 0
  103.                            bf1 = 0
  104.                        End If
  105.                   
  106.                        .[A24].Offset(cts, nxt) = .[A24].Offset(cts, nxt) + (.[N5].Offset(rp5) * .[J1].Offset(bf1))
  107.                   
  108.                        If (rp5 = 1) Then
  109.                            rp5 = -1
  110.                            bf1 = bf1 + 1
  111.                        End If
  112.                    ElseIf ((nxt * 9 + cts + 1) > 40) Then      '  neww41 = neww41 + (erri * outa1) ~ neww80 = neww80 + (errm * outh1)
  113.                        If ((nxt * 9 + cts + 1) = 41) Then
  114.                            rp5 = 0
  115.                            bf1 = 0
  116.                        End If
  117.                   
  118.                        .[A24].Offset(cts, nxt) = .[A24].Offset(cts, nxt) + (.[P5].Offset(rp5) * .[F1].Offset(bf1))
  119.                   
  120.                        If (rp5 = 4) Then
  121.                            rp5 = -1
  122.                            bf1 = bf1 + 1
  123.                        End If
  124.                    Else                                        '  neww1 = neww1 + (erra * intA) ~ neww40 = neww40 + (errh * intE)
  125.                        .[A24].Offset(cts, nxt) = .[A24].Offset(cts, nxt) + (.[R5].Offset(rp5) * .[B1].Offset(bf1))
  126.                        
  127.                        If (rp5 = 7) Then
  128.                            rp5 = -1
  129.                            bf1 = bf1 + 1
  130.                        End If
  131.                    End If
  132.                Next cts
  133.            Next nxt
  134.        Next i
  135.    End With
  136. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2015-11-30 20:07 | 顯示全部帖子
本帖最後由 c_c_lai 於 2015-11-30 20:09 編輯

回復 13# qwertyuio111
在寫入設定 目標值(Target n，Target o) 與 輸出值(Out n，Out o)，相等後會停止，跳出迴圈計算的問題。
是指 Target n = Out n 或者是 Target o = Out o 嗎？
真的會相等嗎？或然率有多高？

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題