here the second Approach, which did not fit on the other blog anymore:

for n to 2 do
for S to 10 while tfrbase <= tfr do
tfrbase := sum(basepipemin[n]^j*evalf(exp(-basepipemin[n]))/factorial(j), j = 0 .. S)
od od;

thx for every help...

Please Wait...