« first day (2709 days earlier)      last day (31 days later) » 

2:20 AM
In a Graphics3D, best way to stop the little gray lines from appearing? They’re artifacts left from the axes, but seemingly over write the graphics primitives held within? I am pretty confident I can use some combo of epilogs to overcome this and some other suspected issues, but it seems like it should be easier than that.
 
 
9 hours later…
11:34 AM
"For sufficietly small epsilons we get zeros"
epsilon = 1/100000000;
Monitor[Table[
Floor[x^(1/2 + epsilon) + 1/2] - Floor[x^(1/2) + 1/2], {x, 1,
10000}], n];
Count[%, 0]
-----------------
Output: 10000
*sufficiently
---------------------------
(*start*)
nn = 42;
TableForm[
L1 = Table[
LinearProgramming[
Table[1/n, {n, 1, k}], {Table[If[n == 1, k, 1], {n, 1, k}]}, {{1,
0}}, Table[
If[n == 1, {-1, 1}, {-2 (n - 1), 2 (n - 1)}], {n, 1, k}]], {k,
1, nn}]];
b = Table[Sum[-Sign[-1 + Sign[L1[[n, k]]]], {k, 1, n}], {n, 1, nn}]
Table[Floor[n/Sqrt[2]], {n, 1, nn}]
%% - %
(*end*)
{0, 1, 2, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 9, 10, 11, 12, 12, 13, 14, \
14, 15, 16, 16, 17, 18, 19, 19, 20, 21, 21, 22, 23, 24, 24, 25, 26, \
26, 27, 28, 28, 29}
The output is Floor[n/Sqrt[2]]
 
11:51 AM
(*start*)
nn = 72;
TableForm[
L1 = Table[
LinearProgramming[
Table[1/n, {n, 1, k}], {Table[If[n == 1, k, 1], {n, 1, k}]}, {{1,
0}}, Table[
If[n == 1, {-1, 1}, {-2 (n - 1), 0}], {n, 1, k}]], {k, 1, nn}]];
Table[-Total[DeleteCases[DeleteCases[Sign[L1[[n]]], 0], 1]], {n, 1,
nn}]
"The output is the nearest integer to square root of n"
(*end*)
(*Numerators of the partial sums of the Möbius inverse of the \
Harmonic numbers*)(*start*)Clear[T, n, k, a];
nn = 7;
a[n_] := If[n < 1, 0, Sum[d MoebiusMu@d, {d, Divisors[n]}]]
TableForm[
M = Table[
Table[Sum[If[n >= k, a[GCD[n, k]], 0], {n, 1, m}], {k, 1, nn}], {m,
1, nn}]]
(*end*)
 
 
3 hours later…
2:39 PM
Do you think we could formulate the Riemann hypothesis as a linear programming problem? pastebin.com/WJT75cSE
 
 
1 hour later…
 
2 hours later…
6:14 PM
No mention of jsoupLink in that screencast, even though it's much more powerful and convenient than any of the methods they mentioned... (Import[..., "Data"], symbolic XML, WebExecute`.)
 
@C.E. ahh but you forget that anything not built into the language by WRI is inherently poorly written and not to be trusted
2
 
6:32 PM
@Szabolcs So, I hope to be done polishing my package documentation soon. Do you think your PackageTools package could do one extra bit of post-processing?
I want a little structure in my "examples" sections, but open sections by default
The "Section" heading in DocuTools does the trick (see "Continuous-Time Models" above) but it leaves an empty "Basic Examples" section
I want to remove that empty "Basic Examples" section
Or avoid it by some other means
Are docs made with DocuTools from the latest Workbench compatible with v10?
 
 
2 hours later…
8:06 PM
Does anyone have experience using the CMU fonts in Mathematica? They refuse to display as bold for me
Alternately does anyone remember how to specify the exact font in Mathematica? Like CMUSerif-BoldItalic?
 
8:17 PM
Outer[Style["abc", 50, FontFamily -> "CMU Serif", FontWeight -> #1, FontSlant -> #2] &, {Plain, Bold}, {Plain, Italic}]?
 
9:13 PM
I like all of you
I already enjoyed Mathematica prior to this, but now it's at an even unhealthier level of obsession, and I truly have to thank this community! Alright, now back to business...
 
10:10 PM
@chuy Interesting... I think I must have a broken install of my fonts?
I get this:
It's just the bolding that breaks.
 
10:22 PM
@chuy how did you install them? I tried from the Computer Modern website.
 
10:40 PM
@b3m2a1 sorry, but installed them a while back so I forget
 
 
1 hour later…
11:44 PM
@chuy last question, which OS?
 

« first day (2709 days earlier)      last day (31 days later) »