## 520 Reputation

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?

## What is algorithm for this description?...

Maple

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

## What is K-statistics and its application...

Maple

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?

## how to calculate the kernel from groebne...

Maple

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?

## how to use one sentence to specify array...

Maple

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));

## polynomials not in the correct indetermi...

Maple

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 BasisGa := 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
﻿