Wolfram Mathematica

« first day (2026 days earlier) ← previous day next day → last day (2756 days later) »

locometro

00:12

I am trying this:

$2 = Cases[$1, {_?NumberQ, __}];d = 1;
k = {};
Do[

a = $2[[d]][[3]] ;
e = a + d;
add = Append[k, $2 [[d ;; e]] ];
d = e + 1;
Print[add],
{.......}]

4 hours later…

b3m2a1

03:46

@locometro Just looked at your picture. I see what your problem is. It's always a pain when programs aren't kind enough to give intelligently structured output. Easiest to my mind it to pull in the matrix blocks with a StringCases call, import those with ImportString and you're golden.

2 hours later…

kirma

06:02

Finally some real-world data! (Nokia/Withings wifi scale data fitting)

4 hours later…

J. M.

09:48

I picked up a copy of the second Mathematica book from a used-book store yesterday. $5.50 for a classic seems to be worth it.

(However, I remain jealous of @Nasser's luck.)

2 hours later…

kirma

11:49

I must say I let the Mma book go to resale. I hadn't opened it on this millennium, and I don't really collect obsolete reference literature.

(I threw away something like 90% of my property in general when moving to my new place. I think it was reasonable.)

2 hours later…

C. E.

14:11

@kirma I got six years worth of data from a Withings scale. I also have the watch, but I don't use it much.

hYPotenuser

14:48

Somehow I end up with more gray hair every time I work with CellularAutomaton[]. Can I change the treatment of the boundaries so I'm not on a torus?

C. E.

15:27

@hYPotenuser You can pad the matrix with some value such that you can specify special rules for what to do on the boundary.

Michael Hale

The common cases Wolfram uses in NKS of infinite backgrounds are mentioned in the docs.

  	{Subscript[a, 1],Subscript[a, 2],\[Ellipsis]}	explicit list of values Subscript[a, i], assumed cyclic
  	{{Subscript[a, 1],Subscript[a, 2],\[Ellipsis]},b}	values Subscript[a, i] superimposed on a b background
  	{{Subscript[a, 1],Subscript[a, 2],\[Ellipsis]},{Subscript[b, 1],Subscript[b, 2],\[Ellipsis]}}	values Subscript[a, i] superimposed on a background of repetitions of Subscript[b, 1], Subscript[b, 2], \[Ellipsis]

CellularAutomaton[30, {{1}, 0}, 500] // ArrayPlot

2 hours later…

hYPotenuser

17:40

Thanks! I guess I was looking for the wrong keyword -- trapping my cellular automata inside a finite fence on an "infinite" background'll do it.

4 hours later…