using?System;
using?System.Collections.Generic;
using?System.ComponentModel;
using?System.Data;
using?System.Drawing;
using?System.Linq;
using?System.Text;
using?System.Windows.Forms;
using?System.IO;

namespace?Huber
{
????public?partial?class?Form1?:?Form
????{
????????public?Form1（）
????????{
????????????InitializeComponent（）;
????????}

????????//輸入文件，作為公共對象
????????public?StreamReader?f1?=?new?StreamReader（“fin.txt“）;

????????private?void?button1_Click（object?sender?EventArgs?e）
????????{
????????????int?M?=?int.Parse（textBox1.Text）;
????????????//資料個數從輸入框中讀取
????????????int?N?=?int.Parse（textBox2.Text）;
????????????//未知數個數

????????????//-----------------讀數據文件
????????????MAT?A?=?new?MAT（M?N）;
????????????//聲明矩陣對象
????????????VEC?b?=?new?VEC（M）;
????????????VEC?P?=?new?VEC（M）;

????????????VEC?x?=?new?VEC（N）;
????????????//自變量

????????????//從文件中讀入數據到系數矩陣
????????????for?（int?i?=?0;?i?????????????{
????????????????//整行讀進來
????????????????string?line?=?f1.ReadLine（）;
????????????????//分割
????????????????string[]?strs?=?line.Split（new?char[]?{?‘\t‘?‘?‘?}
????????????????????StringSplitOptions.RemoveEmptyEntries）;

????????????????for?（int?j?=?0;?j?????????????????????A[i?j]?=?Double.Parse（strs[j]）;

????????????}

????????????f1.ReadLine（）;

????????????for?（int?i?=?0;?i?????????????????b[i]?=?Double.Parse（f1.ReadLine（））;


????????????for?（int?i?=?0;?i?????????????????P[i]?=?1.0;
????????????//對所有數據賦予等權


????????????//------------------------------


????????????cHuber?ob?=?new?cHuber（）;

????????????//粗差系統最小二乘計算
????????????ob.wls（A?b?P?out?x）;
????????????richTextBox1.AppendText（“含粗差系統最小二乘計算結果?\n“）;
????????????for?（int?i?=?0;?i?????????????????richTextBox1.AppendText（x[i].ToString（）?+?“\n“）;

????????????//粗差系統IGGI
????????????ob.Huber（A?b?P?out?x）;
????????????richTextBox1.AppendText（“\n“）;
????????????richTextBox1.AppendText（“含粗差系統Hampel計算結果?\n“）;
????????????for?（int?i?=?0;?i?????????????????richTextBox1.AppendText（x[i].ToString（）?+?“\n“）;

????????????f1.ReadLine（）;
????????????for?（int?i?=?0;?i?????????????????b[i]?=?Double.Parse（f1.ReadLine（））;

????????????ob.wls（A?b?P?out?x）;
????????????richTextBox1.AppendText（“\n“）;
????????????richTextBox1.AppendText（“無粗差系統最小二乘計算結果?\n“）;
????????????for?（int?i?=?0;?i?????????????????richTextBox1.AppendText（x[i].ToString（）?+?“\n“）;

????????????f1.Close（）;
????????????//關閉文件

????????}
????}
}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????2130??2011-09-09?16:53??3?Huber穩健估計\Huber\bin\Debug\fin.txt

?????文件??????17408??2011-09-09?16:58??3?Huber穩健估計\Huber\bin\Debug\Huber.exe

?????文件??????50688??2011-09-09?16:58??3?Huber穩健估計\Huber\bin\Debug\Huber.pdb

?????文件??????11600??2011-11-12?15:04??3?Huber穩健估計\Huber\bin\Debug\Huber.vshost.exe

?????文件????????490??2010-03-17?22:39??3?Huber穩健估計\Huber\bin\Debug\Huber.vshost.exe.manifest

?????文件???????2840??2011-09-09?16:58??3?Huber穩健估計\Huber\Form1.cs

?????文件???????5337??2011-09-09?16:56??3?Huber穩健估計\Huber\Form1.Designer.cs

?????文件???????5817??2011-09-09?16:56??3?Huber穩健估計\Huber\Form1.resx

?????文件??????10550??2011-09-09?16:29??3?Huber穩健估計\Huber\Huber.cs

?????文件???????3742??2011-09-09?16:33??3?Huber穩健估計\Huber\Huber.csproj

?????文件??????17074??2011-09-09?11:10??3?Huber穩健估計\Huber\matvec.cs

?????文件???????2152??2011-11-12?15:03??3?Huber穩健估計\Huber\obj\x86\Debug\DesignTimeResolveAssemblyReferences.cache

?????文件???????6211??2011-11-12?15:03??3?Huber穩健估計\Huber\obj\x86\Debug\DesignTimeResolveAssemblyReferencesInput.cache

?????文件????????236??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\GenerateResource.read.1.tlog

?????文件????????562??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\GenerateResource.write.1.tlog

?????文件????????658??2011-11-12?15:04??3?Huber穩健估計\Huber\obj\x86\Debug\Huber.csproj.FileListAbsolute.txt

?????文件??????17408??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\Huber.exe

?????文件????????180??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\Huber.Form1.resources

?????文件??????50688??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\Huber.pdb

?????文件????????180??2011-09-09?16:58??3?Huber穩健估計\Huber\obj\x86\Debug\Huber.Properties.Resources.resources

?????文件????????486??2011-09-09?16:13??3?Huber穩健估計\Huber\Program.cs

?????文件???????1360??2011-09-09?16:13??3?Huber穩健估計\Huber\Properties\AssemblyInfo.cs

?????文件???????2860??2011-09-09?16:13??3?Huber穩健估計\Huber\Properties\Resources.Designer.cs

?????文件???????5612??2011-09-09?16:13??3?Huber穩健估計\Huber\Properties\Resources.resx

?????文件???????1090??2011-09-09?16:13??3?Huber穩健估計\Huber\Properties\Settings.Designer.cs

?????文件????????249??2011-09-09?16:13??3?Huber穩健估計\Huber\Properties\Settings.settings

?????文件????????857??2011-09-09?16:13??3?Huber穩健估計\Huber.sln

????..A..H.?????20992??2011-11-12?16:49??3?Huber穩健估計\Huber.suo

?????目錄??????????0??2012-08-20?08:47??3?Huber穩健估計\Huber\obj\x86\Debug\TempPE

?????目錄??????????0??2013-04-27?11:33??3?Huber穩健估計\Huber\obj\x86\Debug

............此處省略11個文件信息