Question

这是我的公式

Else : cmb1.Text = "Rata - Rata"
        ' hitung rata-rata
        rerata = jumlah / lstData.Items.Count

        ' menampilkan hasil rerata ke text box
        txtRerata.Text = rerata.ToString

        cmb1.Text = "Variansi" Then
        'inisialisasi variabel variansi
        Xi = lstData.Items.Item(index:=counter)

        ' hitung variansi
        For counter = 0 To lstData.Items.Count - 1
            variansi = (Xi - rerata) * (Xi - rerata)
        Next

        'menampilkan hasil variansi ke text box
        txtVariansi.Text = variansi.ToString
    End If

这有什么问题？我无法得到结果。感谢

如果喜欢这样的话？

ElseIf cmb1.Text =“Variansi”然后 'inisialisasi variabel variansi Xi = 0

        ' iterasi sejumlah item dari listbox
        For counter = 0 To lstData.Items.Count - 1
            Xi = Xi + ((lstData.Items.Item(counter) - rerata) ^ 2)
        Next

        'kalkulasi variansi dan simpangan baku
        variansi = Xi / (txtN.Text - 1)
        SD = Math.Sqrt(variansi)
        txtSD.Text = SD.ToString

        'menampilkan hasil variansi ke text box
        txtVariansi.Text = variansi.ToString

你可以帮帮我吗？

Answer 1

方差定义为每个方差距离的总和术语在均值分布中除以术语数在发行中。

您需要将variansi除以lstData.Items.Count

如何制作方差公式？

1 个答案: