Open main menu

Changes

37 bytes added ,  13:06, 9 December 2015
'''''p := expand(p);'''''
Existe uma função “coeff” ''coeff'' que extrai o coeficiente de uma variável num polinomial.
'''''coeff(x^3 - 5*x^2 + 2, x^2);'''''<br />
Os multinomiais são ordenados lexicograficamente . Para reparar a deficiência em ''coeff'' que o impede de manusear polinomiais multivariados, nós podemos escrever nossa própria rotina, ''mcoeff'' que faz esse trabalho para nós. Já que ''coeff'' é implementada no kernel Maple, não é possível para um usuário redefinir seu comportamento, então é necessária uma rotina separada. Para simplicidade, nosso procedimento ''mcoeff'' vai apenas lidar com polinomiais com coeficientes numéricos. O algoritmo usado aqui é o seguinte:
#insira um polinomial “p” '''p''' e um termo multinomial ''term''.
#processe '''p''' da seguinte:
##ordene '''p ''' em '''q'''##crie uma lista '''r ''' de termos multinomiais em '''q'''.##crie um multiset '''m ''' consistido de multinomiais em '''q ''' com multiplicidade igual ao coeficiente. (Note que isso não é um multiset verdade, como o coeficiente pode ser negativo ou não integral.)#procure a lista m para uma entrada combinando '''term ''' e, se encontrada, retorne o coeficiente. Caso contrário, retorne 0.
Aqui, então, está o código Maple para “mcoeff”''mcoeff''.
'''''mcoeff := proc(p::polynom, term::polynom)'''''
'''''p := expand((a + b + c)^6);'''''<br />
'''''mcoeff(p, a * b^2 * c^3);'''''
 
===='''2.3. Números Stirling====
90

edits