精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • Wolfram Mathematica 關(guān)于數(shù)表分拆問題求教?

    Wolfram Mathematica 關(guān)于數(shù)表分拆問題求教?
    一、Wolfram Mathematica 如何把數(shù)表按絕對(duì)值大小分組?
    例如:把絕對(duì)值最小的3個(gè)數(shù)分為一組,把剩下的分為一組,要求保留每個(gè)數(shù)原來的位置不變,空位用0填充:
    輸入:{3,-5,7,-9,-4,8}
    輸出:
    {3,-5,0,0,4,0}
    {0,0,7,-9,0,8}
    二、Wolfram Mathematica 如何把數(shù)組中每個(gè)元素原地重復(fù)n次?
    例如:把{a,b,c}每個(gè)元素原地重復(fù)2次就得到:{a,a,b,b,c,c}
    三、Wolfram Mathematica 如何把2個(gè)表交叉合并為一個(gè)表?
    例如:把{1,3,5,7,9,11}與{2,4,6,8}交叉合并就得到
    {1,2,3,4,5,6,7,8,9,11}
    數(shù)學(xué)人氣:978 ℃時(shí)間:2020-02-05 21:52:05
    優(yōu)質(zhì)解答
    我這會(huì)兒能想到的是:
    第一個(gè):
    list = {3, -5, 7, -9, -4, 8};
    min3 = Replace[list, Except[Alternatives @@ Part[list, Ordering[Abs@list, 3]]] -> 0, 1]
    rest = list - min3
    第二個(gè):
    Replace[{a, b, c}, a_ -> Sequence[a, a], 1]
    第三個(gè):
    lst1 = {1, 3, 5, 7, 9, 11};
    lst2 = {2, 4, 6, 8};
    mid = PadRight[lst2, Length@lst1];
    DeleteCases[Riffle[lst1, mid], 0]
    用的指令比較多,注意看幫助.
    我來回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁(yè)提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版