User Portlet
Featured Contributor
| Discussions |
|---|
| Hi, Abrita, I have modified a little your code: Graphics[Table[{RGBColor[i^2/100, j^2/100, 1 - (i^2 + j^2)/200], EdgeForm[ Directive[Opacity[.977], Dashed, Thickness[RandomReal[{0.05, 0.1}]], Opacity[.87], ... |
| May be this is what you want: h = 10; l = 6; w = 4; r = 0.2; atoms = Table[ Sphere[{RandomReal[w - r], RandomReal[l - r], RandomReal[h - r]}, r], 240]; Manipulate[ Graphics3D[{Opacity[0.2], ... |
| It looks important to define before the variable l: In[1]:= l = {"z", "t", "c", "a", "u", "h", "p"}; DictionaryLookup[x__ /; SubsetQ[Characters@x, l]] Out[1]= {"chutzpa", "chutzpah"} |
| Our university intends to purchase new computers that are supposed to support CUDA programming in Wolfram Mathematica 12. There is a bit of confusion about the proposed GPU model. Can someone help us to determine if the NVIDIA GTX 1060 6GB DDR5 GPU... |
| Theory of Games has an impressive development during the last 70 years both as a domain of applied mathematics and a part of various important domains of human activity. It's somewhat strange that Mathematica doesn't include any functionality related... |
| Try Reduce instead of Solve! |
| I get for both of them: In[1]:= Solve[{x + y == 12, y == 2 x}, {x}] Out[1]= {} In[2]:= Solve[{x + y == 25, y == 4 x}, {x}] Out[2]= {} As you try to solve systems with respect to only one variable, the results are... |
| An additional guess: {int, {evals}} = Reap[NIntegrate[ 0.00159155/(x^2 + 0.0000001 x + 0.000025^2), {x, -10, 10, 0.2}, Method -> {"TrapezoidalRule", "Points" -> 51, "RombergQuadrature" -> False}, ... |
| You may use the same approach, e.g.: RegionPlot3D[ x^2 + y^2 + z^2 75, PlotStyle -> Directive[Orange, Opacity[0.777]], Mesh -> None] ![enter image description here][1] Nevertheless, there are some difficulties. If you have... |
| May be this piece of code is more appropriate: Show[ LineIntegralConvolutionPlot[{Piecewise[{{{y, -y - 2 x - 2}, -4 "Rainbow", LightingAngle -> 0, LineIntegralConvolutionScale -> 3, Frame -> False], PlotRange -> {{-3, 3}, {-5, 5}}] ... |