ریشه میانگین مربعات خطا

Root Mean Squared Error

همام میانگین مزبعات خطا(mse) است. فقط از خروجی mse جذر می گیرد.

http://info-share.blog.ir/post/8

لینک بالا را مطالعه کنید

میانگین مربعات خطا

Mean Squared Error

همان طور که از نام این مفهوم پیدا است. سه عمل روی داده انجام می شود.

1. محاسبه خطای خروجی سیستم
2. به توان 2 رسانی خطای سیستم
3. میانگین گیری از مجموع تمام خطاها(که هر کدام به توان 2 رسیده است

فرمول آن به صورت زیر است.

fi: معادل خروجی سیستم
yi: معادل پاسخ صحیح(قطعی)

نرمال کردن سطر داده بین 0 و 1

کد زیر می تواند تمام سطر های اکسل را به صورت مجزا نرمال نماید

دوستانی نمیتونن با این کد کار کنن حتما تو نظرات بگید که مفصل توضیح بدم براشون

Sub normal()

For i = 1 To 91  ' تعداد سطرها
 For j = 2 To 2076  '  تعداد ستون ها
  Cells(i, j) = (Cells(i, j) - Cells(i, 2078)) / (Cells(i, 2077) - Cells(i, 2078))
 Next j
Next i

End Sub

بزرگترین و کوچکترین عنصر هر سطر در اکسل

این تکه کد دو ستون به انتهای هر سط اضافه می کند. که ستون اول مقدار بزرگترین عنصر سطر است. و ستوم دوم مقدار کوچکترین عنصر سطر

Sub normal()
Dim max As Double
Dim min As Double

For i = 1 To 20
 max = Cells(i, 1)
 min = Cells(i, 1)
 For j = 2 To 20
 
 If Cells(i, j) > max Then
 max = Cells(i, j)
  ElseIf Cells(i, j) < min Then
  min = Cells(i, j)
 End If
 
 Next j
 Cells(i, 21) = max
 Cells(i, 22) = min
Next i
End Sub

حذف محتوای بخشی از اکسل

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

Worksheets("Sheet1").Range("A1:G37").ClearContents

ClearContents

جستجوی علامت ها در فایل اکسل

هنگامی که مثلا خواستید تمامی سلول های حاوی مقدار "***" را بیابید حتما باید قبل از خود عبارت جستجو علامت آکولاد بگذارید طیق تصویر زیر

چگونگی حذف یک ستون در اکسل

Columns(i).Delete Shift:=xlToLeft

 بعد از حذف هر ستون یک شیفت به سمت چپ میدهد

Shift:=xlToLeft

فراموش نشود حتما پیمایش را از انتها به ابتدا انجام بدهید

کپی یک ستون در یک برگه ی دیگر

هرگاه خواستیم یک ستون را به برگه ای دیگر کپی کنیم از دستوز زیر استفاده می کنیم

Sheets("Sheet1").Columns(1).Copy Destination:=Sheets("Sheet2").Columns(2)

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

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

lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

lastCol: ایندکس آخرین ستون برگه اکسل