I was able to get Procedure 2 to work using a for - do loop. I was wondering if it is possible to speed up the calculation by using map to find the number of roots? I do not fully understand map and passing data.
tgf := proc(a, b, c, d, t, m, n)
X := [solve(abs(a*x + b) + abs(c*x + d) - t*x^2 + m*x - n = 0)];
res := CodeTools:-Usage(map(tgf, L));
Error, (in CodeTools:-Usage) invalid input: tgf uses a 2nd argument, b, which is missing
The L Array is tripping me up, here is a partial display of the array:
Array(1..262, 1..7, [[5,2,3,9,1,1,1],[5,2,3,9,2,1,1],[5,4,3,7,1,1,1],[5,4,3,7,2,1,1],[5,5,3,6,1,1,1],[5,5,3,6,2,1,1],[5,5,4,8,1,1,2],[5,5,4,8,2,1,2], ... ,[10,10,5,10,2,2,2]], datatype = integer).
I made L Array into a list of list, R. Somewhat works.
Here is the script:
Thanks for any help.