نرم افزار شبکه عصبی در متلب

تصویر زیر نمای نرم افزار طراحی شده برای شبکه عصبی MLP با دولایه را نشان میدهد. کسانی که تمایل به استفاده از این نرم افزار دارند به من اطلاع دهند.

در این رابط کاربری شما میتوانید مجموعه آموزش و تست خودتون رو به صورت جداگانه ایمپورت کنید.

با انتخاب چک باکس نرمال سازی مجموعه های داده به صورت نرمال شده بین 0 و 1 تغییر میابند. و البته خروجی را به حالت عادی ببینید.

در بخش validation قادر خواهید بود درصدی از مجموعه آموزش را به ارزیابی اختصاص بدهید.

در ادامه یک شبکه عصبی MLP با دولایه پنهان طرح ریزی شده است. و به واسطه منوی آبشاری قادر هستید نوع توابع انتقال  و تعداد نرون هر لایه را به طور جداگانه انتخاب کنید.

دو نمودار خروجی در نظر گرفته شده که در نمودار بالا(در شکل) مقادیر واقعی و پیشبینی به ترتیب با رنگ های آبی و قرمز قبل مشاهده هستند. نمودار دوم میزان خطای پیش بینی واحد به واحد مقادیر را با نمودار میله ای نشان می دهد.

مشاهده فیلم در آپارات

 http://www.aparat.com/v/pC5Fd

آموزش برنامه نویسی در اکسل

کلیک کنید

http://www.excel-easy.com/vba.html

چگونه یک مقدمه خوب بنویسیم

برای مشاهده کلید کنید

نرمال سازی بین -1 و 1 در اکسل

Sub norm()
Dim max, min As Single
Dim d2, d1, k As Integer
d1 = -1
d2 = 1
k = 0
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
k = LastRow + 1
For i = 1 To LastRow
LastCol = Cells(i, Columns.Count).End(xlToLeft).Column 
k = k + 1
Rw = Range(Cells(i, 1), Cells(i, LastCol))
min = WorksheetFunction.min(Rw)
max = WorksheetFunction.max(Rw)
For j = 1 To LastCol 
Cells(k, j) = (((Cells(i, j) - min) * (d2 - d1) / (max - min))) + d1  
Next j 
Next i
End Sub

مشاهده فیلم این برنامه در آپارات

http://www.aparat.com/v/yTu4P

نکات:   حتما اطلاعات را به حالت سطری مرتب کنید، سطر ها عنوان نداشته باشند، d1 و d2  که بازه نرمال سازی هستند به دلخواه خود تغییر دهید.

اگه مشکلی داشتید به گروه تلگرام زیر بیاید

https://telegram.me/joinchat/BozDJQjn6p28fgJJ-6CMLQ

دسته بندی ستون آخر به 3 کلاس

Sub nb()

Dim i, j As Integer
Set sht_Z = ThisWorkbook.Worksheets("sheet2")
LastColumn = sht_Z.UsedRange.Columns(sht_Z.UsedRange.Columns.Count).Column
  LastRow = sht_Z.Cells(sht_Z.Rows.Count, "A").End(xlUp).Row
  For i = 2 To LastRow
       If Cells(i, LastColumn) <= 6 Then
       Cells(i, LastColumn) = "A"
       ElseIf Cells(i, LastColumn) <= 10 Then
        Cells(i, LastColumn) = "B"
        Else
         Cells(i, LastColumn) = "C"
         End If
  Next i
End Sub

تابع SUMXMY2

این دستور مجموع مربعات خطای دو بردار رو محاسبه میکنه. برای حالتی استفاده میشه که مثلا ما یه تابع رو با یه الگوریتمی تقریب زدیم حالا میخوایم ببینیم چقدر تقریبمون درست بوده.

فرمول ریاضی

این لینک رو ببینید

نمونه:

SUMXMY2(array_x,array_y)

SUMXMY2(A3:A9,B3:B9)

از مقادیر بزرگتر از صفر مجموعه میانگین میگیرد

Sub avg()
Dim sum As Integer
Dim num As Integer
Dim avg As Single

For j = 2 To 8400
sum = 0
num = 0
avg = 0
  For i = 68 To 75
     If Cells(i, j) > 0 Then
     sum = sum + Cells(i, j)
     num = num + 1
     End If
     If num < 1 Then
     Sheets("avg-day").Cells(12, j) = 0
     Else
     Sheets("avg-day").Cells(12, j) = sum / num
     End If
  Next i
Next j
End Sub

واریانس

این فایل ورد رو حتما ببینید

بیشینه، کمینه، میانگین و انحراف معیار هر سطر در اکسل

Sub foryou()
Dim j As Integer
Dim i As Integer

i = 14 'Select a row

  Rw = Range(Cells(i, 2), Cells(i, 2076)) 'Range beetwen 2 to 2076(column)
  
    Min = WorksheetFunction.Min(Rw)
    Max = WorksheetFunction.Max(Rw)
    avg = WorksheetFunction.Average(Rw)
    std = WorksheetFunction.StDev(Rw)
    
  Cells(15 + i, 2) = Max
  Cells(15 + i, 3) = Min
  Cells(15 + i, 4) = avg
  Cells(15 + i, 5) = std
End Sub

نرم افزار محاسبه سود بورس اوراق بهادار با اکسل

با نرم افزاری که در عکس زیر مشاهده می کنید می توانید سود معاملات خود را با محاسبه کارمزد و به صورت خالص مشاهده کرده. و نتایج معاملات خود را به سادگی ذخیره نمایید. در صورت تمایل به استفاده این نرم افزار ایمیل خود را به صورت نظر ارسال کنید تا به صورت رایگان ایمیل نمایم.

http://www.aparat.com/v/eP5mh