Advanced Search

Question: Making a loop faster

Question:Making a loop faster

tbasket 486 Maple
March 17 2009
0
Dear experts, I wrote the follwing loop. Unfortunately it is very slow. The procedure Powell takes only 5 seconds in a single case, but in this coonglomerate of loops it takes much longer. Do you see a way "to make it faster"? with(LinearAlgebra); S1 := .1; S2 := .1; for n to 10 do for m to 10 do S1:= S1+.2; for m to 10 do S2 := S2i+.2; w := proc (Q1, Q2) -->evalf function.... if (Zwischenspeicher[1] >= 100, Zwischenspeicher[2] >= 100) then B[n, m] := 1 end if; if (Zwischenspeicher[1] >= 100, Zwischenspeicher[2] <>= 100, Zwischenspeicher[2] <><>
Please Wait...