l**n
发帖数: 67 | 1
that seems very difficult to predict. The problem is you
don't have a model to describe your system. Suppose you
have a model with some parameters, then you can use
three data points to fit your parameters. The simplist
case is that you draw a line. And a quadratic curve won't
do to bad, i guess. I don't know how the probobility
enters this problem. | S*********g
发帖数: 5298 | 2 Sorry,没有注释,也许会难懂些.
对了,我这个还有个WEIGHT,就是如果是偶次对换出来的就是1,否则是-1
fullorder[object_, result_, weight_] :=
Module[{NewObject, NewResult, NewWeight, NewLength, objectlength,
firstobject, i, j,},
objectlength = Length[object];
If[objectlength == 1, result = {object}; weight = {1},
firstobject = object[[1]];
NewObject = Delete[object, 1];
NewLength = Factorial[objectlength - 1];
fullorder[NewObject, NewResult, NewWeight];
|
|
