toandhsp

4 years, 178 days


These are questions asked by toandhsp

At here http://www.mapleprimes.com/questions/146604-How-To-Choose-The-Parameters-To-The, I posted my question and I got the answer. Now I have a new question, is there a program that can be solved for many equation with integers solutions. For example, the equation has the form sqrt(a x + b) = c x + d, sqrt(a x + b) - sqrt(c x + d) = k,...

With Mathematica, my code that solve the equation a x + b == Sqrt[c x + d]

ClearAll[a, b, c, d];
sol = x /. Solve[{a x + b == Sqrt[c x + d]} , x, Reals];
ClearAll[f];
(f[{a_, b_, c_, d_}] :=
Quiet@Check[And @@ (IntegerQ /@ #), False]) &[sol]
poss = Select[
Tuples[Range[1,
20], {4}], #[[1]] =!= 0 && #[[2]]^2 - #[[4]] =!= 0 &&
GCD[#[[1]], #[[3]], #[[2]], #[[4]]] == 1 && f[#] &];
Take[poss, Length[poss]];
With[{s = sol},
getSolution[poss_] := Block[{a, b, c, d}, {a, b, c, d} = poss;
Join[poss, s]]]
getSolution /@ poss

 

When I repair  a x + b == Sqrt[c x + d] into Sqrt[a x + b] + Sqrt[c x + d] == k, then I have a new propram, or if I replace into Sqrt[a x + b] - Sqrt[c x + d] == k, I  have also a new program. How can I do like that with Maple?

 

I want to solve the equation

sqrt(x)+sqrt(-x^2+1) = sqrt(-4*x^2-3*x+2)

in Real domain. I tried

RealDomain:-solve(sqrt(x)+sqrt(-x^2+1) = sqrt(-4*x^2-3*x+2), x);

and I got -5/9+(1/9)*sqrt(34).

But, with Mathematica, I posted my question at http://mathematica.stackexchange.com/questions/51316/how-can-i-get-the-exact-real-solution-of-this-equation

Mathematica had two solutions 

x ==-1-Sqrt[2]|| x ==1/9(-5+Sqrt[34])

If I understand correctly, when Maple solve in RealDomain of this equation, the solution of equation must satisfy conditions x>=0 and -x^2+1 >=0 and -4*x^2-3*x+2 >=0. Therefore, the number

x ==-1-Sqrt[2] 

is not a solution. My question is the given equation has one solution (Maple) or two solutions (Mathematica)?

I use Mathematica. This code finds integer points on the sphere

(x-2)^2 + (y-4)^2 + (c-6)^2 =15

and select two of them so that distance of two this points equal to 4.

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15; ss =
Subsets[{x, y, z} /.
Solve[{(x \[Minus] a)^2 + (y \[Minus] b)^2 + (z \[Minus] c)^2 ==
r^2, x != a, y != b, z != c, x y z != 0}, {x, y, z},
Integers], {2}];
t = Select[ss, And @@ Unequal @@@ Subsets[Flatten[#], {2}] &];
Length[t]
Select[ss, Apply[EuclideanDistance, #] === 4 &]

 

and this code select four points on the shere so that none of three points make a right triangle

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15;
ss = Subsets[{x, y, z} /.
Solve[{(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2, x != a, y != b,
z != c, x y z != 0, x > y}, {x, y, z}, Integers], {4}];
nonright =
Pick[ss, (FreeQ[#, \[Pi]/2] &) /@ ({VectorAngle[#2 - #1, #3 - #1],
VectorAngle[#1 - #2, #3 - #2],
VectorAngle[#1 - #3, #2 - #3]} & @@@ ss)];
Select[nonright, (12 == Length[Union @@ #] &)]

 I am looking for a  procedure in Maple.  I have some problems with this sphere. For example:

Choose four points so that 12 coordinates difference and it makes a square.

Can your code improve with sphere?

I want to reduce all solution of the equation sin(x)^2=1/4

restart:
sol:=solve(sin(x)^2=1/4, x, AllSolutions);

and

restart:
k:=combine((sin(x))^2);
sol:=solve(k=1/4, x, AllSolutions = true, explicit);
simplify(sol);

How can I reduce solution sol := -1/3*Pi*_B3+1/6*Pi+Pi*_Z3 ?

How can I get x= pi/6+k*pi and x= -pi/6+k*pi?

How can I solve this equation 18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2)?

I tried

restart:

A:=18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2);
solve(A=0);

I see that, the equation has three solutions: x = -2, x = -1 and x = 0. I check

f:=x->18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2);

f(-2);

f(-1);

f(0);

Another question, Maple can not solve inequality 

18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2) > = 0.

PS. We can easy to solve the above inequality with Mathematica

Reduce[18 9^(x^2 + 2 x ) + 768 4^((x + 3) (x - 1)) - 5 6 ^((x + 1)^2) >= 0 , x, Reals]

I got x <= -2 || x == -1 || x >= 0

 

 

1 2 3 4 5 6 7 Last Page 1 of 27