線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:651
推到 Plurk!
推到 Facebook!

可否利用新的μ與σ建立投影樣本模型

尚未結案
imjoshua
一般會員


發表:36
回覆:21
積分:11
註冊:2005-03-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-15 22:52:48 IP:61.228.xxx.xxx 未訂閱
各位大大您好!!小弟之前求救一篇所謂剔除μ±1.64σ信賴區間以外的投影量      http://delphi.ktop.com.tw/topic.php?TOPIC_ID=72814 針對篩選過後的投影量重新計算μ與σ建立了新的信賴區間但是笨笨的我不知是否可以用Chart元件做出所謂新的信賴區間的模型呢? 資料來源: fusung 大大 的程式碼 如下圖: 打擾您保貴的閱讀時間在此跟您說聲抱歉!!
------
joshua
fusung
中階會員


發表:26
回覆:169
積分:99
註冊:2003-11-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-10 23:31:32 IP:61.222.xxx.xxx 未訂閱
哈囉,imjoshua:    你可以參考下面的例子,並結合你所提到的那一篇文章 應該就可以達到你的目的。 < src="http://delphi.ktop.com.tw/download/upload\74666_statistics model.png"> (1) 在Form1放上一個DBChart1,同時在DBChart1中新增3個Series; (2) 在Form1上新增3個Button。
 
//以下在Unit1.cpp
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"    //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 const int NO = 10;
 const int div = 100;
 double x[NO];        // x: mean value
 double upper[NO];    // x +1.64*div
 double lower[NO];    // x - 1.64*div
 Series1->Clear();
 Series2->Clear();
 Series3->Clear();
 for(int i=0;iLinePen->SmallDots=1;
 Series2->LinePen->SmallDots=1;
 Series3->LinePen->SmallDots=1;
 DBChart1->Title->Text->Text = "Random plot";
 Series1->AddArray(upper,NO-1);
 Series2->AddArray(x,NO-1);
 Series3->AddArray(lower,NO-1);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
 int flag;
 flag = Series1->Marks->Visible ;
 if (flag == 0){
  Series1->Marks->Visible = 1;
  Series2->Marks->Visible = 1;
  Series3->Marks->Visible = 1;
 }else{
  Series1->Marks->Visible = 0;
  Series2->Marks->Visible = 0;
  Series3->Marks->Visible = 0;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 int flag;
 flag = Series1->Pointer->Visible;
 if (flag==0){
   Series1->Pointer->Visible = 1;
   Series2->Pointer->Visible = 1;
   Series3->Pointer->Visible = 1;
 }else{
   Series1->Pointer->Visible = 0;
   Series2->Pointer->Visible = 0;
   Series3->Pointer->Visible = 0;      }
}
//---------------------------------------------------------------------------
The first step toward proving things for yourself is to understand how others have done it before! 發表人 - fusung 於 2005/07/10 23:44:13
------


The first step toward proving things for yourself is to understand how others have done it before!

系統時間:2024-05-02 19:13:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!