Skip to main content
10 votes
Accepted

Simplify expression: overcome a barrier in the complexity function

Snooping into what Simplify is doing (using definitions of x, y, ...
jkuczm's user avatar
  • 15.1k
8 votes

Is there a way to do Quantum Computing in Mathematica notebook?

As Mathematica has most necessary matrix algebra functions (crucially the matrix exponential) built in natively (both for symbolic and numerics) it is quite simple to roll most things yourself. For ...
ThomasAlexander's user avatar
6 votes
Accepted

Check if list is singleton in sub linear time

The test for singletons: # == RotateLeft[#] & @Daniel's setup: ...
Michael E2's user avatar
  • 237k
5 votes

Find min value of a complex Root function

...
cvgmt's user avatar
  • 75.2k
5 votes

How to get rid of complex terms in the given expression and rewrite it as a real function?

...
Bob Hanlon's user avatar
  • 159k
5 votes
Accepted

How to get rid of complex terms in the given expression and rewrite it as a real function?

This seems to be a rather recalcitrant beast. But we may tame it by adding the conjugate complex as we already know that the imaginary part is zero: ...
Daniel Huber's user avatar
  • 52.7k
4 votes

How to calculate the complexity of summation

A good approximation to the exact result will be given by QPochhammer[1/2,1/2]*QPochhammer[-(1/(2*H)),1/2]*QPochhammer[-H,1/2] as can be seen in the plot: ...
Andreas's user avatar
  • 3,342
4 votes
Accepted

`SequencePosition` doing unnecessary work

No exponential increase of time can be seen bellow: ...
azerbajdzan's user avatar
  • 18.9k
4 votes

Check if list is singleton in sub linear time

This can perhaps be optimized (certainly if Compile is used). The idea is to short-circuit if an element not equal to the first is encountered. ...
Daniel Lichtblau's user avatar
3 votes
Accepted

Is there a better way : solutions to integer equation

Why not just use Solve straight? ...
Roman's user avatar
  • 48.2k
3 votes

Check if list is singleton in sub linear time

I'd use 'LengthWhile' and compare the length to the original list: ...
N.J.Evans's user avatar
  • 5,093
3 votes
Accepted

Finding ponts closer to each other than a given distance

You can use Nearest. Your data: SeedRandom[1] data = RandomVariate[UniformDistribution[{0,1}],{20,2}]; Using ...
Carl Woll's user avatar
  • 131k
3 votes
Accepted

SparseArray: accesing nonzero row and column entries

$i$-th row: d[[i]]["NonzeroValues"] $j$-th column: d[[All,j]]["NonzeroValues"] or (if you want to access many colums): <...
Henrik Schumacher's user avatar
3 votes

Is there a way to do Quantum Computing in Mathematica notebook?

Yes, there is the Wolfram Quantum Framework, here are some useful links. https://community.wolfram.com/groups/-/m/t/2416125 https://resources.wolframcloud.com/PacletRepository/resources/Wolfram/...
johndaly's user avatar
3 votes

Is there a way to do Quantum Computing in Mathematica notebook?

Completely out of my domain of expertise, however I stumbled across the "Live CEOing" videos Wolfram is doing on YouTube. Quantum computing seems to be a focus. For example: https://www.youtube.com/...
flyingmind's user avatar
2 votes

How can one expand an arbitrary boolean combination into the $2^n$ atoms of the associated boolean algebra of size $2^{2^n}$?

Here is some exmaple code: ...
user2520938's user avatar
2 votes

Cutting digits of a number without approximation:

You seem to have about 23 digits of precision here. The result of a controlled precision calculation? x=1.4497788553129478854329`23 (* 1.4497788553129478854329 *) ...
John Doty's user avatar
  • 13.8k
2 votes
Accepted

How solve this system of trigonometric equations?

eqn= {eq1, eq2, eq3} /. Equal -> Subtract Assuming -Pi<\[Alpha],\[Beta]<Pi Weierstrasssubstituion ...
Ulrich Neumann's user avatar
2 votes

Evaluation taking extremely long

I couldn't get a result reasonably fast, but in general you can make Solve usually much faster by replacing the trigonometric functions by variables and use ...
Coolwater's user avatar
  • 20.3k
2 votes

How to get rid of complex terms in the given expression and rewrite it as a real function?

...
userrandrand's user avatar
  • 5,912
2 votes

Find min value of a complex Root function

In response to the OP's comment: ...
Michael E2's user avatar
  • 237k
1 vote

Mathematica code to compute a constant

The following code should compute you the C1 sought after from the paper. Unfortunately the running times for the NIntegrate commands are very long and I could not compute values in accordance with ...
Jürgen Böhm's user avatar
1 vote
Accepted

Computing a difficult integral which is taking too long

Split the calculation in two steps: ...
Ulrich Neumann's user avatar
1 vote

Computing a difficult integral which is taking too long

Try this ...
Cesareo's user avatar
  • 3,973

Only top scored, non community-wiki answers of a minimum length are eligible