Find answers to your questions about Mathematica or help others by answering their Mathematica questions.
I used this code of user Henrik Schumacher to try render a realistic looking rope. The result using ParametricPlot3D is here:...
Asked on 08/22/2021
0 answerThe command NDSolve is really good at solving delay differential equations.$$x'(t)=x(t)(1-x(t-d))$$d := 1.4;sol = NDSolve[{x'[t] == x[t] (1 - x[t - d]), x[t /; t <= 0]...
Asked on 08/22/2021 by David Lingard
2 answerIs it possible to find the derivative of components of a real antisymmetric matrix using index notation? Eg: I have a very large real antisymmetric matrix. Then from Matrix Cookbook,...
Asked on 08/22/2021
1 answerOriginal ExampleConsider function f, a parallelized version fPar, and a coarsest-grained parallelized version fParCG below.f[l_] := Map[Function[x, x[[#]] & /@ ConstantArray[Range[l], l]], Permutations[Range[l]]]fPar[l_] := ParallelMap[Function[x, x[[#]] &...
Asked on 08/22/2021
1 answerAll of a sudden my Mathematica 10.4.1 installation which worked well for several years does behave very strange. For example when I evaluate:CreateUUID[]this either returns unevaluated or creates a...
Asked on 08/22/2021 by Albert Retey
1 answerI put{TensorProduct[{1, 0}, {0, 1}, {0, 1}, {0, 1}, {0, 1}]}/Sqrt[2]//MatrixFormand I got$$left(begin{array}{cc} left(begin{array}{cc} left(begin{array}{cc} 0 & 0...
Asked on 08/22/2021 by Moeki
4 answerV 12.1.1, starting a kernel, e.g. by entering wolframscript in the shell, takes an unexpectedly long time (~5 min, the time elapsed between pressing Enter and the showing-up of In[1]...
Asked on 08/22/2021
1 answerI have used SendMessage["MMS".... to send text with graphics to my mobile phone number given at $MobilePhone. But I would like to send MMS messages to other phones as well....
Asked on 08/22/2021
0 answerSuppose I want an expression to automatically sort its arguments. This can be done viaSetAttributes[f, Orderless]f[3, 2, 1](*output is f[1, 2, 3]*)Just as an exercise, I want to emulate...
Asked on 08/22/2021
1 answerI have this code to find the best values for $l$, $s$ and $j$:Clear[j,l,s,norm,maxx,maxy];data=Import["https://pastebin.com/raw/2DG5Xes6","Table"];g=3/2+(s(s+1)-l(l+1))/(2j*(j+1));[Mu]=9.274*10^-24;k=1.380*10^-23;y=[Mu]*g*j*x/k;maxy=Max[data[[All,2]]];maxx=Max[data[[All,1]]];minx=Min[data[[All,1]]];conds={Mod[l,1]==0&&Mod[j,1/2]==0,j-s==0||j-(l+s)==0||j-Abs[l-s]==0};b[x_]=maxy*(((2j+1)/(2j))Coth[(y(2j+1))/(2j)]-(1/(2j))Coth[y/(2j)]);fit=FindFit[data,{b[x],conds},{l,j,s},x]$l$ is an integer and $j$ and $s$ are half-integers....
Asked on 08/22/2021
2 answerGet help from others!
Recent Questions
Recent Answers
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP