User Portlet
| Discussions |
|---|
| From reading your code, I suggest that you implement ${\tt adjointMatrixCommutator}$ as a function to avoid code duplication. adjointMatrixCommutator[x_, basis_] := Module[{vars, f}, vars = Array[f, Length[basis]]; Flatten[ ... |
| Use the following code to construct $f$ from you data. f[data_] := Interpolation(data, Method -> "RBF"); If you post your data together with $A$ and $A_R$ (i.e. the domain of integration), then I can show you a complete code on how... |
| A family of curves in the $xy$-plane is described by an equation of the form $ y = f(x,y, C_1, ..., C_n) $ or $ F(x, y, C_1, ..., C_n) = 0$. In order to find the ODE of such a family, one generally supplements its equation with $n$ additional... |
| Let's start with $$ W(g(t)) = g^2(t).$$ Differentiate both side of the above equation using the chain rule on the left-hand side: $$ g'(t) W'(g(t)) = 2 g'(t) g(t).$$ If we assume that the derive of $g$ does not vanish, the last equation implies... |
| I am glad to know that my suggestion solved your problem. It includes points on the planes. However, you can exclude these points easily: A point is between the two planes if it belongs to neither of the planes and satisfies the the provided... |
| The built-in function `ToExpression` does the job. ToExpression["2+ 2"] ToExpression["Range[5]"] |
| You need a function for creating as many variables as you need. createVar[name_, num_] := Table[Subscript[name, i], {i, 1, num}] Now, suppose that $f$ is a function of 30 variables and try this f@@createVar[x, 30] |
| The answer to you question is YES. You need just to add a on-liner parser to accomplish what you want. I have added such a parser and the new solver. Please find below the updated code. buildLeft[randList_, ratorList_] := ... |
| You can just create a function with inputs i1, j1, k1, i2 , j2, k2 and n to do what you want. H[n_][i1_, j1_, k1_, i2_, j2_, k2_ ] := If [ i1 + j1 +k1 = n && i2 + j2 +k2, (* Do something *), (* Do something *)] You can even... |
| Below is verbatim your system. Copy it and paste it into a cell and run it. eqns = {-b[t]*kr + vc[t] + d2 - b'[t]*kl == 0, bc[t] + c1*vc'[t] == 0, vl[t] - kr*b[t] + kl*b'[t] == 0, vc[t] - d2 - vl[t] == 0, vin - q1*2*b[t] - d1... |