Mathematica Asked on December 28, 2020
My problem is quite simple and I cannot spot if this is my mistake or some malfunction of mathematica.
I am using
$Version
"12.0.0 for Linux x86 (64-bit) (April 7, 2019)"
Here is the code
W := 1/2 (D[h1[x, y], x] D[h2[x, y], x] +
D[h1[x, y], y] D[h2[x, y], y])
N1 := 1/2 (D[h1[x, y], x]^2 + D[h1[x, y], y]^2) h1[x, y] h2[x, y] -
1/2 (D[h1[x, y], x] D[h2[x, y], x] +
D[h1[x, y], y] D[h2[x, y], y]) h1[x, y]^2
N2 := 1/2 (D[h2[x, y], x]^2 + D[h2[x, y], y]^2) h1[x, y] h2[x, y] -
1/2 (D[h1[x, y], x] D[h2[x, y], x] +
D[h1[x, y], y] D[h2[x, y], y]) h2[x, y]^2
lsq := 2 Sqrt[N2/W]
I am making an ansatz for the two functions
h1[x, y] = a x + b y + e;
h2[x, y] = c x + d y + f;
Then I am using
sltn = SolveAlways[lsq == 1, {x, y}]
which gives me some solutions. However, when I run the command
Table[{lsq} /. sltn[[i]], {i, 1, 14}] // TableForm
to make sure that lsq
is indeed one, the results are Indeterminate
and ComplexInfinity
What is happening?
Get help from others!
Recent Answers
Recent Questions
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP