« first day (1406 days earlier)      last day (3088 days later) » 

5:46 AM
On a Mac this creates a simple button to open Excel: `Button["Open Excel",
<< "!open -a \"Microsoft Excel\"",
Method -> "Queued"
]`. Can anyone help me out and tell me what code I need to do the same in Windows. I don't currently have a working Windows machine to try. Thanks in advance
 
@belisariushassettled The question I had about the grid thing is why rectangles that should fit perfectly don't fit. These here should have the correct dimensions and aspect ratios. Still, it doesn't fit
 
 
2 hours later…
7:26 AM
@MikeHoneychurch I always use SystemOpen to open a specific file. If that happens to be an Excel file, Excel is opened together with this file. I guess that if I SystemOpen the Excel executable it'll open Excel only (can't try it right now).
 
@halirutan And it is only first step of pain. You have to deal with Image/Frame margins settings later to align contents neatly and if you would like to have the whole thing adjusted to the window size, well Scaled spec works only in horizontal direction because the parent object is a cell. Do you want dynamic CellSize as CurrentWindow size? No problem, just prepare to deal with some bugs in Dynamic :)
p.s. can somebody help me remove it from unanswered stack?
0
A: Why does NotebookDelete fail on cells with Copyable set to False? Bug?

KubaTo summarize and move from an unanswered stack: I have received a short and simple response from Wolfram tech support, informing me that they have "filed a bug report with the development team" and stating that "hopefully it would be improved in future release." So yes, I guess that makes it ...

 
7:45 AM
@SjoerdC.deVries yes it probably makes more sense to do it that way actually. It is what I have done in the past. On this occasion I was also wanting to illustrate the windows equivalent of using the terminal on Mac but it is actually a distraction in hindsight
 
Thanks
 
 
1 hour later…
9:05 AM
Does Beep[] work for you guys?
 
9:23 AM
@Kuba Yeah it works for me
 
@JacobAkkerboom thanks, are you aware of any settings that affect that?
 
@Kuba no, sorry
@Kuba you never hear beeps? Or just not when using Beep?
 
@JacobAkkerboom never, I mean, in MMA.
 
@JacobAkkerboom Sound works.
 
9:31 AM
Also EmitSound and such work?
 
@JacobAkkerboom yes
 
Strange
@Kuba did you have this issue in earlier versions too?
 
@JacobAkkerboom Don't know, never used it ;P
 
Trace reveals that this is used under the hood, but it doesn't make sound for me:
MathLink`CallFrontEnd[FrontEnd`BeepPacket[]]
 
@JacobAkkerboom yep, same here
@JacobAkkerboom do you have any thought about this approach? mathematica.stackexchange.com/a/100307/5478
a propos beeps[] :)
 
9:49 AM
@Kuba sorry, the MathLink call to the front end does make sound for me after all :P
 
10:05 AM
@Kuba That's a nice question. I like your answer too. I'm not really familiar with $PreRead and stuff. I'm surprised that RawBoxes is necessary.
Anyway it works fine with Beep too
 
@JacobAkkerboom well it oparates on boxes and should return one so one need to wrap user procedure's boxes into function boxes
 
10:20 AM
@Kuba Ahh yes I see now. Perfect application of RawBoxes it seems like :P.
 
@JacobAkkerboom I like this function a lot :)
 
@Kuba haha yeah it look me a little while to remember that you told me you felt like you had "leveled up" when you learned about it, but I'm glad I remembered in the end :).
 
10:40 AM
@JacobAkkerboom yep this was one of those big steps, like understanding how $Contex / $ContextPath work despite what's written in documentation :)
 
@Kuba :)
Should be possible to answer this by making $Pre work like $PreRead
I forgot something about converting boxes to a string though
I guess I meant this:
 ToString @@ {ToExpression[MakeBoxes[1 + 1], StandardForm,
    Unevaluated]}
 
@JacobAkkerboom it seems so. And it seems I could've used $Pre but I got docs wrong :)
 
@Kuba unfortunately this is does not work as intented for bob's Q:
testString="4+5";
myPreRead=(ReplaceAll[#,{"*":>"% *","+":>"% +","-":>"% - ","/":>"% /"}]&);
ToString@@{ToExpression[#,StandardForm, Unevaluated]}&@
 myPreRead@
  ToExpression[testString, InputForm, MakeBoxes]
almost though :P
 
10:56 AM
@JacobAkkerboom thanks to you I've found a problem with my answer
@JacobAkkerboom and a puzzle, why this works
$PreRead =
 Function[expr, Module[{start, result}, start = AbsoluteTime[];
   Print@InputForm@expr;
   result = expr;
   If[AbsoluteTime[] - start > 2,
    Print@"wow, it took at least 2 seconds"];
   result],
  HoldAll]
it says Boxes were provided bu it still works and outputs correct result
 
11:08 AM
@Kuba I also discovered something new, I think my way of converting things was ok, so I was able to post a nice answer too :).
 
@JacobAkkerboom correct but too long :) mathematica.stackexchange.com/a/100316/5478
p.s. I still don't know why the function above works
but don't have much more time, will be back later
See you
 
See you!
I've gotta do other stuff too. Hope to try it out later
 
 
6 hours later…
5:04 PM
@J.M. FWIW I tried to reformulate it as a question here: math.stackexchange.com/questions/1544623/… - I think this is what I'm trying to do!
 
 
1 hour later…
6:31 PM
posted on November 24, 2015 by Hakan Wettergren

Background Teachers and textbook authors often need to simplify a real-world problem to pinpoint a specific area to work with—for instance, the examples in a textbook. However, even in real-world engineering, simplifying a problem can bring clarity when our understanding might otherwise drown in a sea of details. In this blog, we will design the [...]

 
6:46 PM
Greetings
I know how to calculate $$\lim_{n\to\infty} \int_0^{\infty} \frac{\sin(n x) }{\sin(x)} e^{-x} \ dx$$ but I'm curious how to get a good approximation of it with Mathematica, say at least the first 10 decimals.
 
Maybe a linux user can check if saving a file using the following code gives a self test error? And if the "Click here" link in the printed message does not work? That is the case for me at least. Thank you
dirPath = FileNameJoin[{$TemporaryDirectory, "MMATest"}];
CreateDirectory[dirPath];
Run["chmod 600" <> " " <> dirPath];
SetOptions[EvaluationNotebook[], NotebookDirectory -> dirPath];
FrontEndTokenExecute["SaveRename"]
I already sent a bug report to WRI
 
@JacobAkkerboom Yeap. I'm only interested in a good numerical approximation with Mathematica. I know how to get the generalized closed form of it.
I also have other problems like that where is painful to get a good approximation with Mma.
 
@Chris'ssistheartist I don't have much experience with that kind of thing unfortunately.
Ah I see you are in the Mathematics chatroom :).
 
@JacobAkkerboom Yeap. :-)
 
7:25 PM
@Chris'ssistheartist I've just approached Mathematica from the programming side, less the math side, but the following doesn't change in the first 10 digits for me if I add a few 0s to n or increase the working precision by 10.
NIntegrate[Sin[100000000000 x]/Sin[x] Exp[-x], {x, 0, \[Infinity]},
 WorkingPrecision -> 20]
 
@MichaelHale OK, great! Thank you!!! :-)
 
@Chris'ssistheartist Sure thing
 
 
1 hour later…
8:44 PM
I am doing this: xsls = x[t] /. FullSimplify[DSolve[{(k2/eta) If[t <= ts, r t, r ts] + If[t <= ts, r, 0] - (k1 k2/eta) x[t] == (k1 + k2) D[x[t], t], x[0] == x0}, x[t], t]][[1]] but the solution that I get is kind of messy.. is there way to get a single nice solution for this problem
 

« first day (1406 days earlier)      last day (3088 days later) »