Tag Info

1

This is not an answer. I am just providing a version of the OPs code in an easier-to-read and easier-to-work-with form. eqns = {x1'[t] == α*x1[t]*x3[t] - β*x1[t]*x2[t], x2'[t] == γ*x2[t] - δ*x1[t]*x2[t], x3'[t] == ϵ*x1[t] - λ*x2[t], x1[0] == 147100 + 15000, x2[0] == 178000, x3[0] == 723586 + 554776}; sol = DSolve[eqns, {x1, x2, x3}, ...

0

Applied this sample code on a notebook freshly initialized and kernel quit off and on Unprotect["*"] ClearAll["*"]; Needs["CUDALink"] Needs["OpenCLLink"] Needs["SymbolicC`"] OpenCLQ[] CUDAResourcesUninstall[] On a separate cell write CCompilers[] CUDADriverVersion[] CUDAResourcesInstall[] \$CUDADeviceCount ...

2

Here is a way of finding the general solution of your equations: Define the expressions expr1 = (2 + 12*s)/(9*x^2) + (4*Sqrt[2*s])/(9*x^2*y) - (4*Sqrt[2*s])/(9*x^3) - k; expr2 = (1 + 3*Sqrt[2*s] - 6*s)/(9*y^2) + (2*Sqrt[2*s])/(9*y^2*x) - (2*Sqrt[2*s])/(9*y^3) - k; Solve for y in terms of x. ysol = Solve[expr1 == 0, y] (* {{y -> (4 Sqrt[2] Sqrt[s] ...

1

An extended comment. I'm not sure if this has been realized, please correct me if it has. The result of the Divide[a,b] operation is not the same as the first 3 which are identical. {a, b} = List @@ RandomReal[{-50, 50}, {2, 1*^7}]; x1 = a/b; x2 = a b^-1; x3 = a/b; x4 = Divide[a, b]; Now... Tally[x1 - x2] Tally[x2 - x3] Both give 10^7 zeros. ...

-5

There is no possible known method to add subtract multiply or divide, using a microprocessor, with equal efficiency. If you look at the various hardware implementations of ALU implementations you will see radically different designs for each function that all have pros and cons. It's an open question in computer science that will make you a very rich person ...

Top 50 recent answers are included