1樓：匿名使用者
因為數量多時不容易隨機到符合要求的列表就不斷重複計算。修改一下。
f[s_, k1_, k2_] :=
module[, label[begin];
lis = select[
randomsample[
deleteduplicates[
deletecases[
flatten[outer[list, s, s], 1], ], #1 == #2 || #1 == reverse[#2] &]][[1 ;; #]] & /@
range[floor[length[s] k1/2], floor[length[s] k2/2]],
function[y, and @@ (k1 <= count[flatten[y], #] <= k2 & /@ s)]];
if[length[lis] > 0, randomchoice@lis, goto[begin]]];
這個好一些，但k1，k2比較小而列表比較長時還是不快。
另外|| #[[1]] == #[[2]]這個記得是不起作用，否則我也不會去多用乙個deletecases。
這個問題我沒想出什麼很好的解決方法。
另外你這個例子裡有9個x，除去重複的，每個元素最多只能出現8次。k2=9這種情況不會出現，所以會有警告。
2樓：匿名使用者
你這是幹什麼的程式？k1=8,k2=9要算的東西太多啦！
Mathematica如何繪製引數方程命令和格式是什麼
在mathematica裡面輸入parameterplot按f1就可bai以獲得du它的幫助文件，裡面有詳zhi細介紹dao 或者？parameterplot然後執行內 即按shift和enter鍵 也可以。容 parameterplot是引數作圖，詳細介紹見幫助文件，畫上面的圓圈的話，可以參看其第...
mathematica計算真的好慢好慢，是電腦太挫嗎還是程式太糙？求高手解答
青衣瓦屋 我猜這是projecteular上面的第64題吧？我的 是 select continuedfraction sqrt range 10000,length 1 oddq length last length timing 用時25秒。既然用mathematica，儘量多用現成的內建函式吧...
mathematica有沒有把複數寫成指數形式的函式
直接的是沒有，bai但是，算絕du 對值的有，算輻角的也有zhi，於dao是，這個形式變換函專數也等於是有的 eform z complex abs 屬z exp i arg z eform 1 i sqrt 2 e i pi 4 先利用模abs和輻角arg將複數轉換成三角形式，再利用trigtoe...