dsl t'a poste avnt que je rajoute que l2 reste vide..
pourtant cette partie doit stocker quelque chose en l2 non?
l'erreur du dernier "if then" y serait elle pour quelquechose?

If inString(string(str1),"x")=0 Then
Goto c
EndIf
0->b:0->l2dim(l2)
For a,1,r-1
If l1*a=0 Then
b+1->b:b->l2dim(l2)
i+(a-1)*p->l2(b)
EndIf
If l1*a=-l1*(a+1) Then
b+1->b:b->l2dim(l2)
solve(y2(x) and x and i+a*p-.5*p,{i+(a-1)*p,i+a*p})->l2(b)
EndIf:EndFor.