User Portlet
| Discussions |
|---|
| Run this Clear[into1, pureIntonationTree] into1[l_List] := Block[{l0 = NestWhile[(1/2) # &, #, # > 2 &] & /@ l}, Union[If[MemberQ[l0, 2], Join[{1}, l0], l0]] ] /; VectorQ[l, (# >= 1) &] pureIntonationTree[] := ... |
| An *Oloid* is the convex hull of two circles in perpendicular planes, each going through the center of the other one. Remove[schatzOloid] schatzOloid[\[Delta]_Integer, \[Phi]_?NumericQ, \[Omega]_?NumericQ] := Block[{px = ... |
| In the book "$Mathematica$ A System for Doing Mathematics by Computer", Addison-Wesley, 1988, § 0.4, p. 7 the following integral is given: (* V 1.0 *) In[6]:= Integrate[x/(1 - x^3), x] Out[6]= -(ArcTan[(1 + 2... |
| The well-temperated keyboard has two mirror symmetric points: D4 and GSharp4. (If one identifies A0 with A7 there are more symmetry points, of course.) The pianist [Marc-André Hamelin][1] advises to play with both hands in mirror symmetry with... |
| The terms of the series (* first 100 terms of the series:*) m100 = Table[N[(-1)^k (k^(1/k) - 1), 200], {k, 1, 100}]; whose partial sums give raise the the MRB constant (see for example in this community [Record breaking direct... |
| Let $\Omega$ be a simply connected two dimensional region, for simplicity a rectangle. Consider $n \geq 3$ points. Define ***once*** randomly triples of these points (not necessarily pairwise disjunct) in such a way, that each point $p_i$ watches two... |
| Have a melody (in this case by Joseph Jacobsen, related text by Hans-Herrmann Bittger) Clear[line] line[t_?NumericQ, x_String] := { {(* Takt 1 *) SoundNote[None, 3 t/4, x], SoundNote["CFlat4", t/8, x],... |
| Irrational and transcendental real numbers do not have a decomposition into prime factors. But one can give them a split into prime chunks. Clear[primeStop] primeStop[x_, n_: 1] := Block[{l = If[IntegerQ[x], IntegerDigits[x],... |
| Here is a directed-undirected graph (* illustration of a solution: {{1,3,4,8,9},{10,11,13,17,18},{21,23,25}} *) Clear[vL, vC] vL = Flatten[{{1, 3, 4, 8, 9}, {10, 11, 13, 17, 18}, {21, 23, 25}} ]; vC = Rule[#, ToString[#]] & /@... |
| Closing this post [Lifetime of muon decay frequencies histogram plot][1] the moderation team said > But it indeed would be much better if frequent power members (like > everyone here) would "Flag" the post with a short message that a post > is... |