« first day (2585 days earlier)      last day (1896 days later) » 

4:03 AM
^ Wikidata ❤️
 
 
5 hours later…
8:44 AM
A fun GIF showing constructive/destructive interference in sine waves: wolframcloud.com/objects/b3m2a1/gifs/sin.gif
 
 
1 hour later…
9:45 AM
Does anyone know what the *Wavelet stuff in Mathematica is intended to be used for?
 
10:03 AM
@b3m2a1 Wavelets was the main topic in a course on image processing that I took once. The teacher was an astrophysicist. In machine learning I have also seen it as a means of compressing signals and making them faster to process. Just two examples, but it's definitely something that people who do signal processing use.
 
@C.E. I do a some stuff where some generalizations of the wavelet stuff might be useful so I was wondering what Mathematica itself was aiming for with them
Reading the docs it does look like the primary applications WRI sees is for image process and sound processing
 
10:40 AM
I see, I thought it was just a general set of wavelets functions.
 
 
5 hours later…
3:36 PM
I tried to show how to hide the definition of a function using Encode
But the string got corrupted during copy and paste.
And now Mathematica is giving an error message which appears to reveal at least a small bit of the code.
I wonder if we could decode the whole thing piece by piece by introducing appropriate errors.
Bingo!
All I did was replace the a single character near the beginning.
And there's the text I hid in the definition :D
Should anyone want to experiment:
str = StringToStream["(*!1N!*)mcm
  aZQzYV j/%/5#f$s@#K6cMR2?v\\ttttx`jv3._KTTV[VBmahZpd_!a8k!l+#+B'?kP,\
,>2
  nfplO6uDiA1Qpsg<h.E!oKc?\";(\\0 Yyhf(,
  "]
Get[str];
Close[str]
 
4:16 PM
Mathematica gives an answer to this:
Integrate[1/(1/E^(s*13) + 1/E^(s*29) + 1/E^(s*37)), s]
So in principle this:
Integrate[1/(1/1^s + 1/2^s + 1/3^s), s]
is solvable too.
Algebra and Rootsums seem to be the obstacle though.
With Log[n] approximated by fractions.
 
 
3 hours later…
7:04 PM
@Szabolcs this could probably be automated somehow to decode an entire encoded file...
 
7:30 PM
@Szabolcs @b3m2a1 Encode without key + machine id is only slightly better than Compress:
Block[{SetDelayed},
 SetDelayed = Function[{lhs, rhs}, Defer[lhs := rhs], HoldAll];
 Get@StringToStream@"(*!1N!*)mcm\n;tYo*dQHn0ru&Q ,"
]
At the end only .mx file don't evaluate on loading so you can't block them. So if someone can use your code then they can read it as well.
Unless you put an effort in pwd protected .mx files or something similar.
 
@Kuba Good to know. So .mx is the only safe storage format...
 
@b3m2a1 plain .mx is not encrypted either. Some parts can even be directly read.
 
@Kuba sorry I meant encrypted .mx
I think Encode can do that, right...?
 
right, ok have to go
 
Thanks for the info
 
7:35 PM
kind of, there was once a live discussion about this :)
 
I might use this to snoop some encoded stuff in the $InstallationDirectory...
 
@b3m2a1 see this with comments: mathematica.stackexchange.com/q/21612/5478
ok, afk, blb
bbl*
 

« first day (2585 days earlier)      last day (1896 days later) »