請問各位前輩如何在限制範圍內進行抽樣?
Ex.至少30筆資料,每3筆抽一個樣品出來

我有先搜尋過有關抽樣等資料
但只有一些有關亂數隨機抽樣的資訊
請問我該從哪個方向著手?或是給一些提示^^

程式碼供你參考...........

//--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) {    Randomize();   } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {    DynamicArray<int> A;    int RandomRange = 1000;            //亂數值範圍    int SampleCount = 30 + random(100);//最少30筆    A.set_length(SampleCount);    try{       int i = 0;       int k = 0;       do{          int r = random(RandomRange);          if(i++%3 == 0) A[k++] = r;       }while(k<SampleCount);       //顯示結果       ListBox1->Clear();       for(int i=0; i<A.Length; i++)          ListBox1->Items->Add(IntToStr(A[i]));       ShowMessage("Count=" + IntToStr(A.Length));    }    __finally{       A.set_length(0);    } } //---------------------------------------------------------------------------

===================引 用 joanne1250 文 章===================
請問各位前輩如何在限制範圍內進行抽樣?
Ex.至少30筆資料,每3筆抽一個樣品出來

我有先搜尋過有關抽樣等資料
但只有一些有關亂數隨機抽樣的資訊
請問我該從哪個方向著手?或是給一些提示^^

我執行過前輩提供的程式碼了
不好意思> <第一次發問沒說清楚
我是已經在StringGrid中輸入30~100筆的資料
在資料中每3筆抽出1筆資料
如果說是30筆資料,總共抽出10筆資料
我還要再對這10筆資料做加總並計算
想請問的是如何抽樣跟取得抽出來的數據
再次不好意思...煩請指教^^

(1)修改程式碼...
(2)允許資料重複被取樣...

//--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) {    Randomize(); } //--------------------------------------------------------------------------- void __fastcall GetRandomData(DynamicArray<int>& A) {    int RandomRange = 1000;           //亂數值範圍    int SampleCount = 30 + random(71);//30~100筆資料    A.set_length(SampleCount);    int k = 0;    do{       A[k++] = random(RandomRange);    }while(k < SampleCount); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {    DynamicArray<int> A, B;    GetRandomData(A);    try{       int len = (int)A.Length / 3;       if(len > 0){          B.Length = len;          try{             int k = 0;             do{                B[k++] = A[random(A.Length)];             }while(k < len);             //顯示結果             ListBox1->Clear();             for(int i=0; i<B.Length; i++)                ListBox1->Items->Add(IntToStr(B[i]));             ShowMessage("Count=" + IntToStr(B.Length));          }          __finally{             B.Length = 0;          }       }    }    __finally{       A.Length = 0;    } } //---------------------------------------------------------------------------

===================引 用 joanne1250 文 章===================
我執行過前輩提供的程式碼了
不好意思> <第一次發問沒說清楚
我是已經在StringGrid中輸入30~100筆的資料
在資料中每3筆抽出1筆資料
如果說是30筆資料,總共抽出10筆資料
我還要再對這10筆資料做加總並計算
想請問的是如何抽樣跟取得抽出來的數據
再次不好意思...煩請指教^^

jow前輩您好
不好意思..以下是我取得檔案的程式碼

<font color="#000000"> void __fastcall TForm1::Button2Click(TObject *Sender) {       int icounts=0;    int i;      double S[100]={0};        for(i=1;i<=100;i++)    {       if(StringGrid1->Cells[1][i]!="")       {          icounts++;       }    }       for(i=1;i<=icounts;i++)  //將SringGrid1的數值存入S[]    {       S[i] = StringGrid1->Cells[1][i].ToDouble();    } } </font>
我試過將jow前輩程式碼中的DynamicArray A更換成S[icounts]
可是無法執行  ==> [C++ Error] Unit1.cpp(287): E2252 'catch' expected
是否能這樣更換呢?

(1)StringGrid1.Cells[][]是否為空字串, 與筆數icounts在位置(Col, Row)上不是绝對從0開始
以一對一的形式對應...

(2)陣列索引值是否超出範圍(最好從0開始到Count-1)
    S[100] --> S[0] ~ S[99]; 
    StringGrid1.Cells[c][r]---> c: 0~ColCount-1, r: 0~RowCount-1

(3)執行ToDouble()之前, 是否應該先檢查Cells[][]是否為空字串?!!
這部分要試試看 TStringGrid有沒有做例外處理...

(4)資料處理在還沒有要顯示結果時, 應該盡量與UI分開處理, 
除非這個畫面是作為即時資料輸出/輸入互動的...

幾點看法供你參考...


void __fastcall TForm1::Button2Click(TObject *Sender) {      int icounts=0;    double S[100];    memset(&S,0,sizeof(S));    //將SringGrid1的數值存入S[]    int rc = StringGrid1->RowCount;    for(int i=1;i<rc-1;i++)       if(StringGrid1->Cells[1][i]!=""&&icounts<100)          S[icounts++] = StringGrid1->Cells[1][i].ToDouble(); }
 

我是從Excel讀檔案到StringGrid,是屬於即時輸出/入的嗎?
先前已經將StringGrid裡的數值計算過並可以顯示
目前我的問題是還不了解該怎麼使用前輩提供參考的code
try{        int len = icounts / 3;        if(len > 0)        {           A.Length = len;           try{                  int g = 0;                  do{                          A[g++] = S[icounts];   //原先是B[k++] = A[random(A.Length)];不懂如果我第一個陣列不是DynamicArray<int>,而是double S[icounts], 請教前輩我應該如何修正?                       }while(g < len);                  //顯示結果                  ListBox1->Clear();                  for(int h=0; h<A.Length; h++)                     ListBox1->Items->Add(IntToStr(S[i]));                  ShowMessage("Count=" + IntToStr(A.Length));               }               __finally{  A.Length = 0;  }        }     }

===================引 用 jow 文 章===================
(1)StringGrid1.Cells[][]是否為空字串, 與筆數icounts在位置(Col, Row)上不是绝對從0開始
以一對一的形式對應...

(2)陣列索引值是否超出範圍(最好從0開始到Count-1)
    S[100] --> S[0] ~ S[99]; 
    StringGrid1.Cells[c][r]---> c: 0~ColCount-1, r: 0~RowCount-1

(3)執行ToDouble()之前, 是否應該先檢查Cells[][]是否為空字串?!!
這部分要試試看 TStringGrid有沒有做例外處理...

(4)資料處理在還沒有要顯示結果時, 應該盡量與UI分開處理, 
除非這個畫面是作為即時資料輸出/輸入互動的...

幾點看法供你參考...


void __fastcall TForm1::Button2Click(TObject *Sender) {      int icounts=0;    double S[100];    memset(&S,0,sizeof(S));    //將SringGrid1的數值存入S[]    int rc = StringGrid1->RowCount;    for(int i=1;i      if(StringGrid1->Cells[1][i]!=""&&icounts<100)          S[icounts++] = StringGrid1->Cells[1][i].ToDouble(); }
 

謝謝jow前輩^^
可以執行抽樣了~
但我希望我抽出的資料不重複(ex.檔案中只有1個50,卻抽出2個50)
如果這樣計算出來的平均值就不準確了
可是在讀取的檔案中也會有重複的資料
ex.讀檔案至StringGrid的資料為
53,48,54,52,48,50,46,52,51,49 (共10筆)
其中48與52各有2筆,其餘只有各1筆資料
每3個抽1個出來==>以此例會抽出3筆資料
請教如何在抽樣出來的結果別出現類似這種情況:
{54,54,49} or {51,48,51} 
但是卻可以抽出例如:{48,48,53} or {48,52,52}

程式重貼. . .
memset(dd,0,sizeof(double)*(len));  /*將動態配置記憶體Buffer清除為零*/ byte *ss = new byte[icounts];       /*==1, 表示該數值已被選取 */ try{    memset(ss,0,sizeof(byte)*(icounts));/*清除選取狀態*/    int k = 0, j;    do{       j = random(icounts);       if(ss[j]!=1){          dd[k] = d[j];          ss[j] = 1;  /*標示已被選取*/          k++;       }    }while(k < len); } __finally{    delete ss; }

太感謝前輩了^^
修正以後都不會重複了~
謝謝教導~謝謝