public class Statistics : ProbDistribution
 {
 public Bag bag = new Bag();
 public int total = 0;
 public virtual double p(String exp)
 {
 return (double)bag[exp] / total;
 }
 public Statistics addSample(String sample, String spliter)
 {
 sample = PR.normalize(sample);
 bag.add(sample, 1);
 foreach (String v in sample.split(spliter))
 bag.add(v, 1);
 total++;
 return this;
 }
 public Statistics addSampleList(SampleList list, String spliter)
 {
 foreach (var sample in list) 
 addSample(sample, spliter);
 return this;
 }
 public override String ToString()
 {
 var rzStr = new StringBuilder();
 foreach (var pair in bag.sort()) 
 {
 String s = pair.Key as String;
 rzStr.Append(String.Format("{0:F4}:{1}\n", this.p(s), s));
 }
 return rzStr.ToString();
 }
 }

 public class ProbMap : Map<Object, double>, ProbDistribution
 {
 public ProbMap() {}
 public virtual double p(String exp) { return this[PR.normalize(exp)]; }
 public virtual ProbMap p(String exp, double value) { 
 this[PR.normalize(exp)] = value; return this; 
 }
 public virtual ProbMap d(params object[] args)
 {
 double psum = 0.0;
 for (int i = 0; i < args.Length; i += 2)
 {
 String exp = (String) args[i];
 double pi;
 if (i == args.Length - 1)
 pi = 1.0 - psum;
 else
 pi = (double)args[i + 1];
 p(exp, pi);
 psum += pi;
 }
 Trace.Assert(psum < 1.00001);
 return this;
 }
 public virtual ProbMap normalize()
 {
 double psum = this.Sum(pair => pair.Value);
 var keys = this.Keys.ToList();
 foreach (var o in keys)
 this[o] = this[o] / psum;
 return this;
 }
 public void log()
 {
 foreach (var pair in this)
 {
 Log.log("{0:F4}:{1}", pair.Value, pair.Key);
 }
 }
 }

 public class ProbModel : ProbDistribution
 {
 public ProbDistribution d = null;
 public virtual double p(String exp) 
 {
 exp = PR.normalize(exp);
 if (exp == "") return 1.0;
 return d.p(exp);
 }
 }

 public class ProbProblem : ProbMap, RandomSource
 {
 public virtual String generate() { return ""; }
 public virtual void test(ProbModel model, String expList)
 {
 model.d = this;
 PR.dump(expList, model);
 }
 }

作者

陳鍾誠,於金門大學資訊工程系,電子郵件:wt.ude.uqn|ccc#wt.ude.uqn|ccc,網站:http://ccckmit.wikidot.com。

授權

本文採用創作共用 (Creative Common) 3.0 版的 姓名標示─非商業性─相同方式分享 授權條款,歡迎轉載或修改使用,但若做為商業使用時必須取得授權,引用本文時請參考下列格式。

中文版 (APA格式)

陳鍾誠 (06 Oct 2010 10:46),(網頁標題) 計算統計學 (程式實作) — 機率模型,(網站標題) 陳鍾誠的網站,取自 http://ccckmit.wikidot.com/st:probcode ,網頁修改第 0 版。

英文版 (APA格式)

Chung-Chen Chen (06 Oct 2010 10:46), Retrieved from http://ccckmit.wikidot.com/st:probcode , Page Revision 0.