User Portlet
| Discussions |
|---|
| Use [`FindInstance`](http://reference.wolfram.com/language/ref/FindInstance.html) FindInstance[2^x*5^y == 5000 && x > 0 && y > 0, {x, y}, Integers] (* {{x -> 3, y -> 4}} *) Or use... |
| If your conjecture that the function is independent of `s` were true, then the series expansion about any value of `s` would not include `s`. Only one counterexample is needed to disprove the conjecture. You can stop the search with the first... |
| w = {1, 2, 3}; `1.` is an approximate real number. Multiplying an approximate real number times a list or array of exact numbers will produce a list or array of approximate real numbers. 1. w (* {1., 2., 3.} *) If you want... |
| f[m_] = 1/(2*E^((-m + Log[5])^2/8)*Sqrt[2*Pi]); Integrate[f[m], {m, -Infinity, Infinity}] > 1 dist = ProbabilityDistribution[f[m], {m, -Infinity, Infinity}]; Since the integral of f[m] is unity, f[m] does not have to be... |
| The documentation for RegionPlot3D states: "RegionPlot3D[pred, {x, xmin, xmax}, {y, ymin, ymax}, {z, zmin, zmax}] makes a plot showing the three-dimensional region in which pred is True" and "The predicate pred can be any logical combination of... |
| Change the online data pull to a single query onlineData = StarData[EntityClass["Star", "NakedEyeStar"], {"Name", "ApparentMagnitude", "Declination", "RightAscension"}]; The sorting can be streamlined data =... |
| data = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 2}, {2, 1}, {5, 1}}; If you just want to append a pair then use Append or ApendTo data = Append[data, {8, 4}] > {{2, 1}, {3, 1}, {2, 2}, {5, 1},... |
| For a path of width w the total area (path plus enclosed area) is (25+2*w)*(11+2*w) and the enclosed area is (25)(11). The difference is given as 576. eqn = (25 + 2 w)*(11 + 2 w) - (25*11) == 576; soln = Solve[{eqn, w > 0}, w][[1]] ... |
| list = {1, {1, 2, 3}, {{1, 2}, 3}}; pos = Position[list, 1]; list[[Sequence @@ pos[[-1]]]] = 9; list > {1, {1, 2, 3}, {{9, 2}, 3}} Alternatively, list = {1, {1, 2, 3}, {{1, 2}, 3}}; ... |
| Use `Set` rather than `SetDelayed` for q[[1]] and q[[2]] Test[n1_] := Module[{q}, q = Table[0, {n1}]; q[[1]] = 1; q[[2]] = q[[1]]; q]; Test[4] > {1, 1, 0, 0} |