# User Portlet Mark Dooris
Discussions
Thank you this resolved this issue.
Just some other approaches to tallying (no advantages but to illustrate Mathematica diversity): list = {1, 1, 3, 2, 1, 0} Tallying: {#, Count[list, #]} & /@ Union[list] yields: {{0, 1}, {1, 3}, {2, 1}, {3, 1}} Unsorted: ...
If you aim is to plot a discrete (but not necessarily arithmetic progression) you could use (where f here is x^2): ListPlot[Table[x^2, {x, {1, 3}}]] or use DiscretePlot : DiscretePlot[x^2, {x, {1, 3}}]
I post this for illustrative purposes (if I have understood underlying aim correctly). f[n_] := {DirectedEdge[##], Boole[Divisible[##]]} & @@@ Tuples[Range[2, n], 2] g[n_] := With[{ds = Transpose@f[n]}, Graph[##, ...
TextCell[" "] is the problem. f[a_, b_] := 10 Sqrt \[Sqrt]((215. + 43.566 a + 37.336 b) (0.25 (5/(2 a) + 1500 (1/800 - (-1 + a)/(1000 a)) ) + 0.25 (5/(2 b) + 1250. (1/700 - (-1 + b)/(1000...
The solution is correct. Size relative to circle is small. For illustrative purposes see the following.The points are plotted at bottom of circle. There is a fixed line as a reference and then gauge 'moves' (rotates line): note second point is around...
If you provide correlations in covariance matrix you cau use MultinormalDistribution, e.g. (from documentation):RandomVariate[ MultinormalDistribution[{1, 2, 4}, {{2, -1/4, 1/3}, {-1/4, 2/3, 1/5}, {1/3, 1/5, 1/2}}], 10^3];This...
As has been expressed by David Reiss there are a number of syntax errors. Please note that N is a special symbol in Mathematica and in general it is advisable not to capitalize your own functions to avoid such conflicts. The following is your code...
Just another way:x = {{a + b, b*c}, {c + d, d + (a + c)}}; rep = # -> RandomReal[] & /@ Variables[x]; x /. rep
I just post this (somewhat ugly) code as just an illustration of customizability (in short time). There are nicer ways and there are issues of overlaps , above/below etc. [mcode] fun[f_, x_, a_List, x0_, x1_, c_, yp_, al_, off_, opts :...