我有一個一維矩陣X[i] 如何從中擷取矩陣中的中位數 不知是否有函數可用．．．． 謝謝！！

引言: 我有一個一維矩陣X[i] 如何從中擷取矩陣中的中位數 不知是否有函數可用．．．． 謝謝！！

用 matlab 就很快，一個指令 mean(X) 就 OK 了.. 在 Delphi 的話，可能要自己作.. 沒記錯的話，把所有元素加進來，除以矩陣長度就行了.. -- Skyer

若只是單純的取中位數，則自行以陣列處理即可 若還有其它複雜的統計相關的指令運算，可以考慮 呼叫Excel巨集MEDIAN /MID …相關指令處理    

function  MIDD( x :array of integer ):Integer ;
//取中位數
begin
   Result:=(( High(x)-low(x) ) div 2)  1;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
    ar :array of integer;
    i:Integer;
begin
    SetLength (ar,20);
    for  i:=0  to 20 do
        ar[i]:=i;
    self.Caption :=IntToStr(midd(ar));    

另版主提醒：「相同問題請勿在不同討論區發表，請速擇一自行刪除」 噓~~~~~~沉思中… 發表人 - ddy 於 2002/10/30 15:42:25

引言: 若只是單純的取中位數，則自行以陣列處理即可 若還有其它複雜的統計相關的指令運算，可以考慮 呼叫Excel巨集MEDIAN /MID …相關指令處理

function  MIDD( x :array of integer ):Integer ;
//取中位數
begin
   Result:=(( High(x)-low(x) ) div 2)  1;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
    ar :array of integer;
    i:Integer;
begin
    SetLength (ar,20);
    for  i:=0  to 20 do
        ar[i]:=i;
    self.Caption :=IntToStr(midd(ar));    

另版主提醒：「相同問題請勿在不同討論區發表，請速擇一自行刪除」 噓~~~~~~沉思中… 發表人 - ddy 於 2002/10/30 15:42:25

IC 但是版主..... 我不知道從何處刪除? 可否請版主代為刪除 "難以歸類主題的討論區(BCB)"中的此一相同問題 3Q

引言: 另版主提醒：「相同問題請勿在不同討論區發表，請速擇一自行刪除」

引言: 但是版主..... 我不知道從何處刪除? 可否請版主代為刪除 "難以歸類主題的討論區(BCB)"中的此一相同問題

Sorry 啦…說錯了…(消音中~~~~) 妳自己可以"修改"，刪除的權限只有該版的版主與站長有，我也沒有辦法說>< 幫妳通知站長大人與 > 噓~~~~~~沉思中…