Question: optimize code

Question:optimize code

bobic 56 Maple
Can you haep me to optimize this code? for s from size by -1 to 1 do Vpq[1 .. dim, 1 .. dim, s] := (ArrayTools[ElementMultiply])(Rpq[1 .. dim, 1 .. dim, s], map(exp, -I*pq[s, 2]*Theta)); end do; # Vpq[1..dim,1..dim,s]:=Rpq[1..dim,1..dim,s]*exp(-I*pq[s,2]*Theta[1..dim,1..dim]); where Rpq:=Array(1..dim,1..dim,1..size); pq:=Array(1..size,1..2); Theta:=Array(1..dim,1..dim); with dim:=100; size:=1300; I must work with simbolic precision, but the code is very slow! Thanks
Please Wait...