Wolfram Mathematica

« first day (3065 days earlier) ← previous day next day → last day (1420 days later) »

3:13 AM

Don't expect this to work: TimeSeries[{Interval[{0, 0}], Interval[{1, 3}]}, {0, 1}][1/2] ... (* Interval[{-(1/2), 5/2}] *)

The worst part is that the interpolation returns semi-sensible results...

kirma

3:32 AM

... the worst part about it is that it produces "almost sensible" results.

kirma

3:56 AM

Heh, repeating myself. :)

5 hours later…

apt45

8:47 AM

Why does the first integral return 0, while the others return $-2\pi$ ?

here's the code if you want to reproduce it

Integrate[-((I (EulerGamma + Sin[-I x]))/x) /. x -> (x - I) E^(I z), {z, 0, 2 [Pi]}]

Integrate[-((I (EulerGamma + Sin[-I x]))/x) /. x -> (-1 - I) E^(I z), {z, 0, 2 [Pi]}]

6 hours later…

blademan9999

2:29 PM

How Do I get wolfram alpha to do stuff like this. finf f(f(f(x))) for some f(x)

and stuff like find f(g(h(x))) for some f(x) g(x) and h(x)

2 hours later…

Mats Granvik

4:59 PM

nn = 200; t[n_, 1] = If[n == 1, 1, 0];
t[n_, k_] :=
t[n, k] = If[n >= k, Mod[Sum[t[n - i, k - 1], {i, 1, k - 1}], 2], 0];
MatrixPlot[Table[t[n, k], {n, 2*nn}, {k, n}],
ColorFunction -> "Monochrome"] (*Mats Granvik,Dec 06 2019*)
ArrayPlot[CellularAutomaton[30, {{1}, 0}, nn]]