<script runat="server">
Sub Page_Load (sender As Object, e As EventArgs)
End sub
Sub Submit(sender as object, e as EventArgs)
Dim valori(5,5) As double
Dim I, Sx, Sy, Sxy, Sx2, m, q, n as double
valori(1,1) = x1.text
valori(1,2) = y1.text
valori(2,1) = x2.text
valori(2,2) = y2.text
valori(3,1) = x3.text
valori(3,2) = y3.text
valori(4,1) = x4.text
valori(4,2) = y4.text
valori(5,1) = x5.text
valori(5,2) = y5.text
n = 5
sx = 0
sy = 0
sx2 = 0
sxy = 0
For I = 1 to 5
Valori(I,3) = valori(I,1) * valori(I,1)
Valori(I,4) = valori(I,1) * Valori(I,2)
Sx = sx + valori(I,1)
Sy = sy + valori(I,2)
Sx2 = sx2 + valori(I,3)
Sxy = sxy + valori(I,4)
Next I
m = ((n * Sxy) - (Sx * Sy)) / ((n * Sx2) - (Sx * Sx))
q = ((Sx2 * Sy) - (Sxy * Sx)) / ((n * Sx2) - (Sx * Sx))
If q >= 0 Then
lbl2.Text = "Risultato : Y=" & m & "X+" & q
Else lbl2.Text = "Risultato : Y=" & m & "X" & q
End if
End sub
</script>
<html>
<body background="Images/background.jpg">
<form runat="server">
<font color="#FF0000" size="5" face="Verdana">Calcolo dell'Equazione della retta di
regressione con il metodo dei minimi quadrati:</font></p>
<font color="#FFFFFF" face="Verdana" size="4">
x1: <asp:TextBox id="x1" columns="10" runat="server" />
y1: <asp:TextBox id="y1" columns="10" runat="server" />
x2: <asp:TextBox id="x2" columns="10" runat="server" />
y2: <asp:TextBox id="y2" columns="10" runat="server" />
x3: <asp:TextBox id="x3" columns="10" runat="server" />
y3: <asp:TextBox id="y3" columns="10" runat="server" />
x4: <asp:TextBox id="x4" columns="10" runat="server" />
y4: <asp:TextBox id="y4" columns="10" runat="server" />
x5: <asp:TextBox id="x5" columns="10" runat="server" />
y5: <asp:TextBox id="y5" columns="10" runat="server" />
</font>
<asp:Button OnClick="Submit" Text="Esegui" runat="server"/>
<asp:Label id="lbl2" runat="server" ForeColor="#FFFFFF"/></p>
</form>
</body>
</html>