ComputerUser

520 Reputation

10 Badges

9 years, 172 days

Social Networks and Content at Maplesoft.com

Seldom to ask question after retired math hobby Just waiting for beauty who born in 1994 And waited for her email to mavio@protonmail.com What is the difference in ownership among different universe?

MaplePrimes Activity


These are questions asked by ComputerUser

assume i have a number 26 and assume a prime number not greater than a value, let it be 5

then it is like a division and factor into 5^2 + 1

if prime number set to 17, then it will output 17 + 3^2, 

the output will be in terms of prime number, such as  a^3+b^2 + c  where a and b are prime number

it should start from greatest prime number given as a parameter in function

http://www.maplesoft.com/applications/view.aspx?SID=33040&view=html

it can calculate from numeric data, is it the end?

where do multiset coming from?

if given a multiset, and calculate its power sums, then i express this power sums in terms of symmetirc polynomials, what is the purpose of this?

http://www.mapleprimes.com/questions/144384-Polynomials-Not-In-The-Correct-Indeterminates

above link's comment said eliminate will NOT generate a polynomial in all cases

make me think that eliminate in above link can not return correct one.

what is the correct way to convert groebner basis of kernel into kernel?

hard code in this way is quite complex, how to do without hard code

after i get G which is an array for below, 

Ga := Basis({a*G[1],a*G[2],a*G[3],a*G[4],a*G[5],a*G[6],a*G[7],a*G[8],a*G[9],a*G[10],a*G[11],a*G[12],a*G[13],a*G[14], (1-a)*K[1], (1-a)*K[2], (1-a)*K[3], (1-a)*K[4]}, 'tord', deglex(a,r,u,v,w));

the goal is to check kernel belong to image in Maple

restart;
with(Groebner):
K := {r-x^4,u-(x^3)*y,v-x*y^3,w-y^4};
G := Basis(K, 'tord', degrevlex(r,u,v,w));
R1 := eliminate(G, {r,u,v,w}); # eliminate is the reverse of Basis
Ga := Basis({a*G[1],a*G[2],a*G[3],a*G[4],a*G[5],a*G[6],a*G[7],a*G[8],a*G[9],a*G[10],a*G[11],a*G[12],a*G[13],a*G[14], (1-a)*K[1], (1-a)*K[2], (1-a)*K[3], (1-a)*K[4]}, 'tord', deglex(a,r,u,v,w));
Ga := remove(has, Ga, [x,y,a]);
First 132 133 134 135 136 137 138 Page 134 of 141