User Portlet User Portlet

Discussions
Thanks! Just that made the whole syntax so much clearer. Range creates a list, adding brackets puts that list as an element in another list, so Total returns that one list since it is the only element in the list it is evaluating! Awesome. I was...
This worked, thank you very much. The difference between your method and Bill's is that yours shows the output by default, Bill's doesn't. I think I need to learn the details about the difference between := and = . Thanks for pointing me in an...
Dear Neil, thank you again for your answer. In the second part you hit the point, what I try to understand: If *foo* has the attribute *Flat* and y__foo can only match a sequence of *foo* than the whole expression can be transformed from...
Dear Neil, Based on you observation I have changed my code to be tf = 0.003; system = {vo'[t] == -vo[t]/(r c) + i[t] (1 - q[t])/c, i'[t] == (-(1 - q[t]) vo[t]/l + vi/l) g[t], vo[0] == 0, i[0] == 0}; control =...
Thanks a lot, Christopher! Both methods work perfectly. I'm impressed. By your and Neils work my problem is completely solved now. Regards (Sorry for being late), Werner
Using StiffnessSwitching seems to have smoothened out the solution. Thank you for the suggestions. tA = NDSolve[{Subscript[PDE, in], Subscript[PDE, out], IC, Subscript[T, f, o][\[Tau], 0] == 10, Subscript[T, f, in][\[Tau],...
You are always welcome.
I really don't understand what you are trying to do. Can you give a simple example? At first I thought you wanted to hit an event and then change some settings and continue. Next you said that you only wanted to do one simulation and stop at the...
Your method works in one notebook session, but I get different results in different sessions. In[1]:= genRands[{nRands_, randSeed_, randMethod_}, lbubs_?MatrixQ] := Block[{n, s, t, r, randMethodUsed}, n = Length[lbubs]; s =...
You can make a replacement in the output using `RealAbs` instead of `Abs`, but then check that the result is correct: f = 1/(x (x - 1)); Integrate[f, x] /. Log[u_] :> Log[RealAbs[u]] FullSimplify[%, Element[x, Reals]] /. Abs ->...