[string "function on.paint(gc)..."]:3 '=' expected near 'i'

[randlog]

En fait j'ai besoin d'afficher un point et en basic on peut pas...

[Bisam]

Si ton but est seulement de faire afficher un point situé aux coordonnées (x,y) rentrées par l'utilisateur... c'est tout-à-fait faisable en Basic.
Il suffit de lier le point placé sur une page graphique à des variables que ton programme modifiera.
Avec l'affichage de plusieurs pages en une, tu peux même voir la modification en direct !

[randlog]

Merci cette utilisation de l'application géométrie ne m'avait jamais traversé l'esprit... Mais elle comporte un problème (du moins je pense) : elle ne marche qu'avec un nombre défini de points, ce qui n'est absolument pas le cas ici...
Merci quand même mais c'est pas encore la solution adéquate...

[technolapin]

Bon, j'ai modifié ton code pour que ça marche, mais ça marche pas
Les fonctions appelées pour convertir les coordonnées ont besoin du calcul formel apparemment, et ça ne marche pas chez moi (mais sinon ça devrait marcher)

Code: Select all

local eval = math.eval
local obj = {}
local c = 2
function create()
  local i, j, k = 0, 0, 0
  local x, y = 0, 0
  local l1, l2 = {}, {}
  for i = -2, 2, 0.1 do
    for j = -2, 2, 0.1 do
      l1[1] = eval("R@>Pr("..i..","..j..")")
      l2[1] = eval("R@>Pθ("..i..","..j..")")
      local breaked = nil
      for k = 2, 6 do
        l1[k] = l1[k-1]*l1[k-1]
        l2[k] = 2*l2[k-1]
        x = eval("P@>Rx("..l1[k]..","..l2[k]..")")
        y = eval("P@>Ry("..l1[k]..","..l2[k]..")")
        x = x-c
        l1[k] = eval("R@>Pr("..x..","..y..")")
        l2[k] = eval("R@>Pθ("..x..","..y..")")
        if l1[k]<l1[k-1] then
            breaked = true
        end
      end
      if not breaked then
        obj[#obj+1] = {i, j}
      end
    end
  end
end
function on.resize ()
    create ()
end
function on.paint (gc)
    for a = 1, #obj do
     local p = obj[a]
     gc: fillRect(p[1], p[2], 1 ,1)
    end
end


[randlog]

Voila ta solutions me donne : une jolie page blanche qui ne bouge absolument pas... J'ai pourtant attendu mais non... Bon bah merci quand même mais pb tjrs pas résolu...

[Hamza.S]

Bisam et technolapin voilà le code originale (Basic z80) si ça peut vous aider

Code: Select all

–2→Xmin:2→Xmax:–2→Ymin:2→Ymax
Input C
AxesNAff:EffDess:EffTtesListes
For(I,–2,2,.1)
For(J,–2,2,.1)
Pt-Aff(I,J)
End
End
For(I,–2,2,.1)
For(J,–2,2,.1)
R►Pr(I,J)→L₁(1)
R►Pθ(I,J)→L₂(1)
For(K,2,6,1)
L₁(K-1)²→L₁(K)
2*L₂(K-1)→L₂(K)
P►Rx(L₁(K),L₂(K))→X
P►Ry(L₁(K),L₂(K))→Y
X+C→X
R►Pr(X,Y)→L₁(K)
R►Pθ(X,Y)→L₂(K)
End
If L₁(1)<L₁(2)<L₁(3)<L₁(4)<L₁(5)<L₁​(6):Pt-NAff(I,J)
End
End