Wolfram Mathematica

« first day (2709 days earlier) ← previous day next day → last day (1765 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…

Mats Granvik

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]]

Mats Granvik

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…

Mats Granvik

2:39 PM

Do you think we could formulate the Riemann hypothesis as a linear programming problem? pastebin.com/WJT75cSE

1 hour later…

Feeds

4:09 PM

wolfram's Twitch video RSS: Dataset, Query, and Web Scraping of Free Data - Wolfram Livecoding Session

posted on June 19, 2019

Science & Technology

2 hours later…

C. E.

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`.)

b3m2a1

@C.E. ahh but you forget that anything not built into the language by WRI is inherently poorly written and not to be trusted

Chris K

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…

b3m2a1

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?

chuy

8:17 PM

Outer[Style["abc", 50, FontFamily -> "CMU Serif", FontWeight -> #1, FontSlant -> #2] &, {Plain, Bold}, {Plain, Italic}]?

CA Trevillian

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...

b3m2a1

10:10 PM

@chuy Interesting... I think I must have a broken install of my fonts?

I get this: