[Maxima] find integer

[Hans W. Hofmann]

Andrej Vodopivec <andrej.vodopivec <at> gmail.com> writes:


Great, Thanks for the code...
I coded simple loop to get a result

find_Integers4x(_L_,_von_,_bis_):=block(
makelist(ev(_L_,x=i),i,
flatten(makelist(( if map(denom,ev(_L_,x=i))=makelist(1,i,1,length(_L_)) then i
else []) ,i,_von_,_bis_))
))$

(%i5) find_Integers4x([(300-4*x)/11,(1800-35*x)/44],0,150);
(%o5) [[20,25],[4,-10],[-12,-45]]

Gruß HW