User Portlet
| Discussions |
|---|
| Hi all. Wolfram Mathematica is arguably one of the best computer algebra systems out there, and elliptic curves are one of the most fascinating research topics in algebra. I don't quite understand why Mathematica still seems to lack any... |
| try add this option. Plot[f[t], {t, 0, 8}, Exclusions -> None] |
| seems you just copied the lines somewhere and don't know what f means here. well, it should be **a pure funtion** object, please reference to [ref/Function](http://reference.wolfram.com/language/ref/Function.html) CloudDeploy[ ... |
| n = 3; Flatten[Table[{i, j, k}, {i, 0, n - 1}, {j, i, n - 1}, {k, j, n - 1}], 1] orarr = {1, 3, 5, 8}; n = Length[arr]; Flatten[Table[arr[[{i, j, k, l}]], {i, 1, n}, {j, i, n}, {k, j, n}, {l, k, n}], 3] |
| this code may help you. Level[expr // Expand, 1][[2 ;;, 2 ;;]]out form is :[mcode]{c1,c1^2,c2,c1 c2,c2^2,c3,c1 c3,c2 c3,c3^2,px,c3 px,py,c2 py,c3 py,pz,c3 pz,qx,c2 qx,c3 qx,px qx,py qx,pz qx,qy,c2 qy,c3 qy,px qy,py qy,pz qy,qx... |