01-26-2014, 11:06 PM
La convolución de 2 vectores es equivalente a la multiplicación de 2 polinomios de una variable (es decir que el vector de coeficientes del producto de 2 polinomios es igual a la convolución de los vectores de coeficientes de los polinomios).
Nota:los coeficientes pueden ser números reales o complejos.
Example:
CAS MODE
step to step on CAS mode, simplify maximum and put entry line
v1:= [1,2,3,4];
v2:= [5,6,7,8];
p1:=poly2symb(v1); // x^3+2*x²+3*x+4,
p2:=poly2symb(v2); // 5*x^3+6*x²+7*x+8
c:=symb2poly(simplify(p1*p2)); // poly1[5,16,34,60,61,52,32] // OK
but on a program =(
convolution1([1,2,3,4],[5,6,7,8]); [enter] return [32] =( BUG?
the problem occurs because the program runs on HOME MODE
one solution
change the header export convolution1(v1,v2) to convolution1(v1,v2):= and store on input/entry line, edit is too complicated in large programs, I have been waiting two months for a program editor for the CAS
Now
convolution1([1,2,3,4],[5,6,7,8]); [enter] return poly1[5,16,34,60,61,52,32] // OK
HP-Prime TEAM when will be ready a program editor for the CAS ?
Thanks
Nota:los coeficientes pueden ser números reales o complejos.
Example:
CAS MODE
step to step on CAS mode, simplify maximum and put entry line
v1:= [1,2,3,4];
v2:= [5,6,7,8];
p1:=poly2symb(v1); // x^3+2*x²+3*x+4,
p2:=poly2symb(v2); // 5*x^3+6*x²+7*x+8
c:=symb2poly(simplify(p1*p2)); // poly1[5,16,34,60,61,52,32] // OK
but on a program =(
Code:
//convolution Version1: con la multiplicación de polinomios
export convolution1(v1,v2)
begin
local p1,p2,c;
p1:=poly2symb(v1);
p2:=poly2symb(v2);
c:=symb2poly(simplify(p1*p2));
return(c);
end;
convolution1([1,2,3,4],[5,6,7,8]); [enter] return [32] =( BUG?
the problem occurs because the program runs on HOME MODE
one solution
change the header export convolution1(v1,v2) to convolution1(v1,v2):= and store on input/entry line, edit is too complicated in large programs, I have been waiting two months for a program editor for the CAS
Code:
[code]//convolution Version1: con la multiplicación de polinomios
convolution1(v1,v2):=
begin
local p1,p2,c;
p1:=poly2symb(v1);
p2:=poly2symb(v2);
c:=symb2poly(simplify(p1*p2));
return(c);
end;
Now
convolution1([1,2,3,4],[5,6,7,8]); [enter] return poly1[5,16,34,60,61,52,32] // OK
HP-Prime TEAM when will be ready a program editor for the CAS ?
Thanks